From Gustav at cactus.dk Tue Aug 1 03:37:40 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 01 Aug 2006 10:37:40 +0200 Subject: [AccessD] $ Aligment in Combo Boxes Message-ID: Hi Julie It's not a bug. It is just that numbers are converted to strings as a combo only understands strings. A limitation you may call it. A simple work-around is to format your numbers to strings and use a font that displays any digit with the same width like MS Sans Serif. This font displays dot and comma at half the width of a digit, and the width of a digit equals two spaces. Now, decide for a maximum number to display, say 1 mio., and count the spaces this will fill with your chosen format. For the number to be displayed, count the digits, commas and dots and calculate how much it fills and deduct that from your maximum length. Convert that to spaces - use Space(n) - and prefix your formatted number string with this string of spaces to create a pseudo right align view. Use the full string as the entry in your combo. /gustav >>> prosoft6 at hotmail.com 31-07-2006 22:21:04 >>> This is driving me crazy..............my first item in a two column combo box is formatted in currency and the second is simply text. The currency will not right align! I have googled the topic and find many other questions about this problem with no answers that are simple and quick. Do I reall have to write a module to correct this? Sounds like a microsoft bug to me! Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From paul.hartland at fsmail.net Tue Aug 1 05:26:50 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Tue, 1 Aug 2006 12:26:50 +0200 (CEST) Subject: [AccessD] Time Conversion Message-ID: <4414201.1154428010815.JavaMail.www@wwinf3002> To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland From Gustav at cactus.dk Tue Aug 1 05:52:41 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 01 Aug 2006 12:52:41 +0200 Subject: [AccessD] Time Conversion Message-ID: Hi Paul The easiest method is to convert the time value to a double: dblHours = CDbl(datTime) * 24 For datTime = #4:30# it will return 4.5 and so on. /gustav >>> paul.hartland at fsmail.net 01-08-2006 12:26:50 >>> To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland From mastercafe at ctv.es Tue Aug 1 06:01:25 2006 From: mastercafe at ctv.es (MastercafeCTV) Date: Tue, 1 Aug 2006 13:01:25 +0200 Subject: [AccessD] Time Conversion In-Reply-To: <4414201.1154428010815.JavaMail.www@wwinf3002> Message-ID: <000701c6b559$d4de19c0$0500a8c0@masterintel> On access one day = 1 1 Day= 24h If you want this values in format Hour then only need multiply by 24 csng(#15:30:00#)*24 = 15.50 Hope this simple function can help you :-) Juan Menendez www.mastercafe.com info at mastercafe.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: martes, 01 de agosto de 2006 12:27 To: accessd Subject: [AccessD] Time Conversion Importance: High To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Tue Aug 1 06:29:39 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Tue, 1 Aug 2006 13:29:39 +0200 (CEST) Subject: [AccessD] Time Conversion Message-ID: <31121844.1154431779662.JavaMail.www@wwinf3002> Thanks for all replies sorted now, I had already tried the CDBl function ans was getting errors, found out it was cause the hours were returning in a string and not a date format.....What I would do without this list I do not know. Paul Hartland Message Received: Aug 01 2006, 12:03 PM From: "MastercafeCTV" To: "'Access Developers discussion and problem solving'" Cc: Subject: Re: [AccessD] Time Conversion On access one day = 1 1 Day= 24h If you want this values in format Hour then only need multiply by 24 csng(#15:30:00#)*24 = 15.50 Hope this simple function can help you :-) Juan Menendez www.mastercafe.com info at mastercafe.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: martes, 01 de agosto de 2006 12:27 To: accessd Subject: [AccessD] Time Conversion Importance: High To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 08:44:48 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 1 Aug 2006 08:44:48 -0500 Subject: [AccessD] SQL Server Migration Assistant Message-ID: <000c01c6b570$a8c47610$0200a8c0@danwaters> Just FYI - SQL Server Migration Assistant V1.0 was published yesterday. http://www.microsoft.com/downloads/details.aspx?familyid=d842f8b4-c914-4ac7- b2f3-d25fff4e24fb &displaylang=en I do hope that the hardware requirement of at least 1 GB of RAM isn't really that much of a requirement! I'm already maxed at 512 MB. Dan Waters From Jim.Hale at FleetPride.com Tue Aug 1 08:49:44 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Tue, 1 Aug 2006 08:49:44 -0500 Subject: [AccessD] duplicate function names Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE1F@corp-es01.fleetpride.com> good idea. Jim -----Original Message----- From: John Skolits [mailto:askolits at ot.com] Sent: Monday, July 31, 2006 10:41 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] duplicate function names Jim, I prefix all my library files with a "lbf_" (library file) prefix. This makes sure there is no confusion. You should come up with some kind of prefix of your own for library functions. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, July 31, 2006 7:11 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] duplicate function names This can be useful. You might have a 'generic' function in your library, but with some installations you need to do something a little different. With the function in the main database taking preference, you don't need to change the library. Dan Waters -----Original Message----- Subject: [AccessD] duplicate function names Maybe everyone but me knows this, but I just stumbled upon the fact that it is possible to have two functions with the same name coexist. If one is in a module in the current database and the other in a module in a referenced code library Access will use the function in the current database and ignore the version in the code library. Everything compiles and runs fine at least in access 2000. Whether or not this is useful or merely dangerous is a different question. Jim Hale -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/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 hollisvj at pgdp.usec.com Tue Aug 1 09:02:45 2006 From: hollisvj at pgdp.usec.com (Hollis, Virginia) Date: Tue, 01 Aug 2006 09:02:45 -0500 Subject: [AccessD] Nz for Fields Message-ID: <703BDA18A87DFA4CB265A86F42E4178D8D3BAF@c2k3exchange.pgdp.corp.usec.com> I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From Gustav at cactus.dk Tue Aug 1 09:22:25 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 01 Aug 2006 16:22:25 +0200 Subject: [AccessD] Nz for Fields Message-ID: Hi Virginia You don't even need Nz() for that: WR: ([WorkOrder] + (Chr(13) & Chr(10)) & [WorkRequest] /gustav >>> hollisvj at pgdp.usec.com 01-08-2006 16:02:45 >>> I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From bheid at appdevgrp.com Tue Aug 1 09:38:53 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 1 Aug 2006 10:38:53 -0400 Subject: [AccessD] [SPAM SUSPECT] Nz for Fields In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DFBAC5@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3576A@ADGSERVER> Why not try something like: WR: iif(not isnull([WorkOrder]),[WorkOrder] & Chr(13) & Chr(10) & [WorkRequest],[WorkRequest]) Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hollis, Virginia Sent: Tuesday, August 01, 2006 10:03 AM To: accessd at databaseadvisors.com Subject: [SPAM SUSPECT] [AccessD] Nz for Fields Importance: Low I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From bheid at appdevgrp.com Tue Aug 1 09:43:13 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 1 Aug 2006 10:43:13 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: Nz for Fields In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DFBAD0@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3576B@ADGSERVER> Good one Gustav. I always forget about that one. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 10:22 AM To: accessd at databaseadvisors.com Subject: [SPAM SUSPECT] Re: [AccessD] Nz for Fields Importance: Low Hi Virginia You don't even need Nz() for that: WR: ([WorkOrder] + (Chr(13) & Chr(10)) & [WorkRequest] /gustav >>> hollisvj at pgdp.usec.com 01-08-2006 16:02:45 >>> I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From Chester_Kaup at kindermorgan.com Tue Aug 1 09:56:52 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 1 Aug 2006 09:56:52 -0500 Subject: [AccessD] Storing SQL in VBA Message-ID: I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From paul.hartland at fsmail.net Tue Aug 1 10:24:21 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Tue, 1 Aug 2006 17:24:21 +0200 (CEST) Subject: [AccessD] Storing SQL in VBA Message-ID: <16841692.1154445861646.JavaMail.www@wwinf3001> Only done similar in VB6 not tried it in Access VBA, example below (off top of head): Dim rsGetData As ADODB.Recordset set rsGetData = YourSQLConnection.Execute("YourQuery") Suppose then you could write the recordset to a table in some way, or can you have a form or report based on a recordset ? Paul Message Received: Aug 01 2006, 04:01 PM From: "Kaup, Chester" To: "Access Developers discussion and problem solving" Cc: Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Tue Aug 1 10:26:06 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 1 Aug 2006 08:26:06 -0700 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: Action queries don't return recordsets no matter how you execute them. What exactly are you trying to do? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- 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 Aug 1 11:12:05 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Tue, 1 Aug 2006 16:12:05 +0000 Subject: [AccessD] Nz for Fields Message-ID: <20060801151210.6D74E24E09@smtp.nildram.co.uk> Hi Virginia Try this WR: ([WorkOrder] + vbcrlf) & [WorkRequest] -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "accessd at databaseadvisors.com" Subject: [AccessD] Nz for Fields Date: 01/08/06 14:04 I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia -- 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 Chester_Kaup at kindermorgan.com Tue Aug 1 10:34:25 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 1 Aug 2006 10:34:25 -0500 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: I was wanting to put the SQL in a module and use the results of the action query in the module code. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 01, 2006 10:26 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Storing SQL in VBA Action queries don't return recordsets no matter how you execute them. What exactly are you trying to do? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 10:48:07 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 01 Aug 2006 08:48:07 -0700 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: <0J3B0016XT7STH10@l-daemon> Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From prosoft6 at hotmail.com Tue Aug 1 11:28:34 2006 From: prosoft6 at hotmail.com (Julie Reardon-Taylor) Date: Tue, 01 Aug 2006 12:28:34 -0400 Subject: [AccessD] $ Aligment in Combo Boxes In-Reply-To: Message-ID: Thanks Gustav...........I never knew that combo boxes only displayed string characters. After all of these years, you would think that I would have run across this. Thank you for the explanation. I will work on it. Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From martyconnelly at shaw.ca Tue Aug 1 11:29:10 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 01 Aug 2006 09:29:10 -0700 Subject: [AccessD] Time Conversion In-Reply-To: <31121844.1154431779662.JavaMail.www@wwinf3002> References: <31121844.1154431779662.JavaMail.www@wwinf3002> Message-ID: <44CF8156.3040009@shaw.ca> Try the VarType function if you are unsure of what is being returned in a variable especiallty a variant. Just in case missing from your help file. VarType Function Returns an Integer indicating the subtype of a variable. Syntax VarType(varname) The required varname argument is a Variant containing any variable except a variable of a user-defined type. Return Values Constant Value Description vbEmpty 0 Empty (uninitialized) vbNull 1 Null (no valid data) vbInteger 2 Integer vbLong 3 Long integer vbSingle 4 Single-precision floating-point number vbDouble 5 Double-precision floating-point number vbCurrency 6 Currency value vbDate 7 Date value vbString 8 String vbObject 9 Object vbError 10 Error value vbBoolean 11 Boolean value vbVariant 12 Variant (used only with arrays of variants) vbDataObject 13 A data access object vbDecimal 14 Decimal value vbByte 17 Byte value vbArray 8192 Array Note These constants are specified by Visual Basic for Applications. The names can be used anywhere in your code in place of the actual values. Remarks The VarType function never returns the value for vbArray by itself. It is always added to some other value to indicate an array of a particular type. The constant vbVariant is only returned in conjunction with vbArray to indicate that the argument to the VarType function is an array of type Variant. For example, the value returned for an array of integers is calculated as vbInteger + vbArray, or 8194. If an object has a default property, VarType (object) returns the type of the object's default property. paul.hartland at fsmail.net wrote: >Thanks for all replies sorted now, I had already tried the CDBl function ans was getting errors, found out it was cause the hours were returning in a string and not a date format.....What I would do without this list I do not know. > >Paul Hartland > > > > > >Message Received: Aug 01 2006, 12:03 PM >From: "MastercafeCTV" >To: "'Access Developers discussion and problem solving'" >Cc: >Subject: Re: [AccessD] Time Conversion > >On access one day = 1 >1 Day= 24h >If you want this values in format Hour then only need multiply by 24 > >csng(#15:30:00#)*24 = 15.50 > >Hope this simple function can help you :-) > >Juan Menendez >www.mastercafe.com >info at mastercafe.com > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >paul.hartland at fsmail.net >Sent: martes, 01 de agosto de 2006 12:27 >To: accessd >Subject: [AccessD] Time Conversion >Importance: High > > >To all, > >Sorry for the post I am sure I have seen this before but must be going mad >as can't seem to find the examples, basically what I want to do is convert >the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can >anyone point me to this function please. > >Thanks in advance for any help on this. > >Paul Hartland > > -- Marty Connelly Victoria, B.C. Canada From Chester_Kaup at kindermorgan.com Tue Aug 1 11:29:38 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 1 Aug 2006 11:29:38 -0500 Subject: [AccessD] Storing SQL in VBA In-Reply-To: <0J3B0016XT7STH10@l-daemon> Message-ID: I was wanting to use the results of the select query. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Tuesday, August 01, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Storing SQL in VBA Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 11:43:38 2006 From: john at winhaven.net (John Bartow) Date: Tue, 1 Aug 2006 11:43:38 -0500 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: <00fa01c6b589$a426a1a0$6502a8c0@ScuzzPaq> Chester, I think you may want to have two queries. One which creates a recordset and one which performs an action on the recordset. Or in the case of an action query that creates data, one which performs the action that creates the data and one which creates a recordset of the newly created data. HTH John B. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 11:30 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Storing SQL in VBA I was wanting to use the results of the select query. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Tuesday, August 01, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Storing SQL in VBA Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 11:51:52 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 01 Aug 2006 09:51:52 -0700 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: <0J3B0066AW61O3F0@l-daemon> Hi Chester: Maybe run the select query first only bringing back the keys, store the results in a temp recordset, then run your action query and finally use the temp recordset keys fields to reselect the records you have changed. HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 9:30 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Storing SQL in VBA I was wanting to use the results of the select query. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Tuesday, August 01, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Storing SQL in VBA Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 11:59:46 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 01 Aug 2006 09:59:46 -0700 Subject: [AccessD] Time Conversion In-Reply-To: <44CF8156.3040009@shaw.ca> References: <31121844.1154431779662.JavaMail.www@wwinf3002> <44CF8156.3040009@shaw.ca> Message-ID: <44CF8882.4020405@shaw.ca> Ooops nearly forgot the TypeName function which returns the value as string rather than an integer MyType = TypeName(StrVar) ' Returns "String". MyType = TypeName(IntVar) ' Returns "Integer". MartyConnelly wrote: >Try the VarType function if you are unsure of what is being returned >in a variable especiallty a variant. Just in case missing from your help >file. > >VarType Function >Returns an Integer indicating the subtype of a variable. > >Syntax VarType(varname) > >The required varname argument is a Variant containing any variable >except a variable of a user-defined type. > >Return Values > >Constant Value Description > >vbEmpty 0 Empty (uninitialized) >vbNull 1 Null (no valid data) >vbInteger 2 Integer >vbLong 3 Long integer >vbSingle 4 Single-precision floating-point number >vbDouble 5 Double-precision floating-point number >vbCurrency 6 Currency value >vbDate 7 Date value >vbString 8 String >vbObject 9 Object >vbError 10 Error value >vbBoolean 11 Boolean value >vbVariant 12 Variant (used only with arrays of variants) >vbDataObject 13 A data access object >vbDecimal 14 Decimal value >vbByte 17 Byte value >vbArray 8192 Array > >Note These constants are specified by Visual Basic for Applications. >The names can be used anywhere in your code in place of the actual values. >Remarks > >The VarType function never returns the value for vbArray by itself. It >is always added to some other value to indicate an array of a particular >type. The constant vbVariant is only returned in conjunction with >vbArray to indicate that the argument to the VarType function is an >array of type Variant. For example, the value returned for an array of >integers is calculated as vbInteger + vbArray, or 8194. If an object has >a default property, VarType (object) returns the type of the object's >default property. > > > >paul.hartland at fsmail.net wrote: > > > >>Thanks for all replies sorted now, I had already tried the CDBl function ans was getting errors, found out it was cause the hours were returning in a string and not a date format.....What I would do without this list I do not know. >> >>Paul Hartland >> >> >> >> >> >>Message Received: Aug 01 2006, 12:03 PM >>From: "MastercafeCTV" >>To: "'Access Developers discussion and problem solving'" >>Cc: >>Subject: Re: [AccessD] Time Conversion >> >>On access one day = 1 >>1 Day= 24h >>If you want this values in format Hour then only need multiply by 24 >> >>csng(#15:30:00#)*24 = 15.50 >> >>Hope this simple function can help you :-) >> >>Juan Menendez >>www.mastercafe.com >>info at mastercafe.com >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >>paul.hartland at fsmail.net >>Sent: martes, 01 de agosto de 2006 12:27 >>To: accessd >>Subject: [AccessD] Time Conversion >>Importance: High >> >> >>To all, >> >>Sorry for the post I am sure I have seen this before but must be going mad >>as can't seem to find the examples, basically what I want to do is convert >>the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can >>anyone point me to this function please. >> >>Thanks in advance for any help on this. >> >>Paul Hartland >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From adtp at airtelbroadband.in Tue Aug 1 13:25:17 2006 From: adtp at airtelbroadband.in (A.D.TEJPAL) Date: Tue, 1 Aug 2006 23:55:17 +0530 Subject: [AccessD] $ Aligment in Combo Boxes References: Message-ID: <006201c6b598$09d358a0$db0465cb@pcadt> Julie, Sample subroutine named P_Align(), as given below, will ensure right alignment of number type contents of target column (Column number supplied as argument) of the combo box look-up list in currency format. The subroutine is called from form's Load event. For a two column combo box named CboMyCombo, sample code to be put in form's module so as to ensure that the first column is right aligned in currency format, is given below. Constants FontFactor and ColWidthFactor are based upon Times New Roman font (normal weight) and can be fine tuned for optimum results at your end. T_MyTable is the name of table having fields Amount (number or currency type) and Product (text type). Best wishes, A.D.Tejpal --------------- Code in form's module ======================================= Private Sub Form_Load() P_Align 1 End Sub ------------------------------------------------------------------------- Private Sub P_Align(ByVal ColNum As Long) ' Modifies the row source of combo box so as to ' format the target column ColNum as right aligned ' currency type display (This is applicable to Times ' New Roman font, Normal size) ' Note - ColNum is one based i.e. 1 for first column Dim Qst As String, ColWdString As String Dim TxtWd As Long, ColWd As Long Dim TxtRatio As Double, FntSz As Long Const FontFactor As Double = 0.15 Const ColWidthFactor As Double = 0.2 ' Note - (a) The value of 0.15 for FontFactor is found ' to suit font size from 8 to 18 for Times ' New Roman font, Normal size ' (b) ColWidthFactor is meant to compensate ' for varying column widths. ' Get Font size FntSz = Me.CboMyCombo.FontSize TxtRatio = FontFactor / FntSz ' Get the string representing Column Widths ColWdString = Me.CboMyCombo.ColumnWidths ' Split ColWdString into array elements and get ' the width of target column represented by ColNum ' (ColWd is in twips) ColWd = Split(ColWdString, ";")(ColNum - 1) ' Get the number of characters that can be ' accomodated in this column TxtWd = Int((ColWd + ColWidthFactor * _ (ColWd - 2000)) * TxtRatio) ' Build SQL formatting the number field as desired Qst = "SELECT Right(Space(" & TxtWd & ") & " & _ "Format(Amount, 'Currency'), " & TxtWd & ") " & _ "AS Amt, Product FROM T_MyTable;" Me.CboMyCombo.RowSource = Qst End Sub ======================================= ----- Original Message ----- From: Gustav Brock To: accessd at databaseadvisors.com Sent: Tuesday, August 01, 2006 14:07 Subject: Re: [AccessD] $ Aligment in Combo Boxes Hi Julie It's not a bug. It is just that numbers are converted to strings as a combo only understands strings. A limitation you may call it. A simple work-around is to format your numbers to strings and use a font that displays any digit with the same width like MS Sans Serif. This font displays dot and comma at half the width of a digit, and the width of a digit equals two spaces. Now, decide for a maximum number to display, say 1 mio., and count the spaces this will fill with your chosen format. For the number to be displayed, count the digits, commas and dots and calculate how much it fills and deduct that from your maximum length. Convert that to spaces - use Space(n) - and prefix your formatted number string with this string of spaces to create a pseudo right align view. Use the full string as the entry in your combo. /gustav >>> prosoft6 at hotmail.com 31-07-2006 22:21:04 >>> This is driving me crazy..............my first item in a two column combo box is formatted in currency and the second is simply text. The currency will not right align! I have googled the topic and find many other questions about this problem with no answers that are simple and quick. Do I reall have to write a module to correct this? Sounds like a microsoft bug to me! Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From DElam at jenkens.com Tue Aug 1 16:32:51 2006 From: DElam at jenkens.com (Elam, Debbie) Date: Tue, 1 Aug 2006 16:32:51 -0500 Subject: [AccessD] Subscript out of range Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C068DE43D@natexch.jenkens.com> I have a report that a user is trying to export to Excel. When we try to export the report, we get a subscript out of range error and the database closes compacts and saves a backup. I can export other reports in the same database to Excel without error (I can even use the same data source). I can also export this report to Word format. I have tried exporting all objects to a new database and running the report, but I still get the same error when exporting. Does anyone have an idea what the problem might be with this report? 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 DWUTKA at marlow.com Tue Aug 1 16:48:01 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 1 Aug 2006 16:48:01 -0500 Subject: [AccessD] Subscript out of range Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AC1E@MARLOW_MAIN2.marlow.com> Not sure, but we've had problems where export to excel doesn't work, and Analyze with Excel (under Tools--> Office Links) does. Go figure. Drew -----Original Message----- From: Elam, Debbie [mailto:DElam at jenkens.com] Sent: Tuesday, August 01, 2006 4:33 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Subscript out of range I have a report that a user is trying to export to Excel. When we try to export the report, we get a subscript out of range error and the database closes compacts and saves a backup. I can export other reports in the same database to Excel without error (I can even use the same data source). I can also export this report to Word format. I have tried exporting all objects to a new database and running the report, but I still get the same error when exporting. Does anyone have an idea what the problem might be with this report? 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. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DElam at jenkens.com Tue Aug 1 16:58:45 2006 From: DElam at jenkens.com (Elam, Debbie) Date: Tue, 1 Aug 2006 16:58:45 -0500 Subject: [AccessD] Subscript out of range Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C068DE43E@natexch.jenkens.com> I have tried both methods to export to Excel and get the same error for both. In addition, my user was using the send to mail recipient and chose the Excel format and gets the same error. It does not appear to be the export method. Thanks, Debbie -----Original Message----- From: DWUTKA at marlow.com [mailto:DWUTKA at marlow.com] Sent: Tuesday, August 01, 2006 4:48 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Subscript out of range Not sure, but we've had problems where export to excel doesn't work, and Analyze with Excel (under Tools--> Office Links) does. Go figure. Drew -----Original Message----- From: Elam, Debbie [mailto:DElam at jenkens.com] Sent: Tuesday, August 01, 2006 4:33 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Subscript out of range I have a report that a user is trying to export to Excel. When we try to export the report, we get a subscript out of range error and the database closes compacts and saves a backup. I can export other reports in the same database to Excel without error (I can even use the same data source). I can also export this report to Word format. I have tried exporting all objects to a new database and running the report, but I still get the same error when exporting. Does anyone have an idea what the problem might be with this report? 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. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- 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 jim.moss at jlmoss.net Tue Aug 1 17:30:44 2006 From: jim.moss at jlmoss.net (Jim Moss) Date: Tue, 1 Aug 2006 17:30:44 -0500 (CDT) Subject: [AccessD] Subscript out of range In-Reply-To: <7B1961ED924D1A459E378C9B1BB22B4C068DE43D@natexch.jenkens.com> References: <7B1961ED924D1A459E378C9B1BB22B4C068DE43D@natexch.jenkens.com> Message-ID: <49579.65.196.182.34.1154471444.squirrel@65.196.182.34> Debbie, Do you use all the same rows, columns and query criteria from the same datasource? The only time that this has happened to me before is when the file was too big to go into excel, IE > 65578 rows. Jim > I have a report that a user is trying to export to Excel. When we try to > export the report, we get a subscript out of range error and the database > closes compacts and saves a backup. > > I can export other reports in the same database to Excel without error (I > can even use the same data source). I can also export this report to Word > format. I have tried exporting all objects to a new database and running > the report, but I still get the same error when exporting. > > Does anyone have an idea what the problem might be with this report? > > 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. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From dw-murphy at cox.net Tue Aug 1 22:05:57 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Tue, 1 Aug 2006 20:05:57 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <49579.65.196.182.34.1154471444.squirrel@65.196.182.34> Message-ID: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug From askolits at ot.com Tue Aug 1 22:44:00 2006 From: askolits at ot.com (John Skolits) Date: Tue, 1 Aug 2006 23:44:00 -0400 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Message-ID: <001501c6b5e5$e73d4b90$3801a8c0@LaptopXP> 1)Just a guess but try dropping the ".value" part of the expression. 2)At times I used the ! symbol instead of the "." Example: Me!txtFee = Nz(DSum... 3) Also try placing it in the onOpen event, or oncurrent event. Maybe one of these will help. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Tuesday, August 01, 2006 11:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Error 2448 "You can not assign a value to this object." Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kens.programming at verizon.net Tue Aug 1 22:56:02 2006 From: kens.programming at verizon.net (kens.programming) Date: Tue, 01 Aug 2006 20:56:02 -0700 Subject: [AccessD] MS Access 2003 User Initials Prompt. In-Reply-To: <001501c6b5e5$e73d4b90$3801a8c0@LaptopXP> Message-ID: <00af01c6b5e7$935cc080$6b01a8c0@Stoker.com> Everyone, I have a client who recently upgraded their Access 2000 to Access 2003 on their Citrix servers. They notified me this morning that every time they open Access, their users are being prompted to input their Name and Initials. How is this turned off? For some reason, I don't recall having this issue when I upgraded to 2003. Thanks. Ken From dw-murphy at cox.net Tue Aug 1 22:52:10 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Tue, 1 Aug 2006 20:52:10 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to thisobject." In-Reply-To: <001501c6b5e5$e73d4b90$3801a8c0@LaptopXP> Message-ID: <009c01c6b5e7$080a1870$0200a8c0@murphy3234aaf1> Thank John, My original code used me.txtFee, got the same error. Also tried in the Activate event, same error. The load event is supposed to have all the form data populated so I would think setting a text box value would not create a problem. Seems like I do this all the time. I did not mention in the orginal post that there is a subform on the problem form, but it has nothing to do with the text box I am trying to update. Thanks again. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Tuesday, August 01, 2006 8:44 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Error 2448 "You can not assign a value to thisobject." 1)Just a guess but try dropping the ".value" part of the expression. 2)At times I used the ! symbol instead of the "." Example: Me!txtFee = Nz(DSum... 3) Also try placing it in the onOpen event, or oncurrent event. Maybe one of these will help. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Tuesday, August 01, 2006 11:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Error 2448 "You can not assign a value to this object." Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 2 01:45:30 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Wed, 02 Aug 2006 08:45:30 +0200 Subject: [AccessD] Error 2448 "You can not assign a value to this object." Message-ID: Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug From andy at minstersystems.co.uk Wed Aug 2 02:13:40 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Wed, 2 Aug 2006 08:13:40 +0100 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." In-Reply-To: Message-ID: <001b01c6b603$314dd7a0$7b420c54@minster33c3r25> The only times I've had this I've resolved it by moving the statement to a later event, such as the OnFormat of the Report Header. -- 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: 02 August 2006 07:46 > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Error 2448 "You can not assign a value > tothis object." > > > Hi Doug > > If this works: > > Me!txtFee.Value = 0 > > it could have something to do with your query, or you may > have an update event of the textbox. Or try without your subform. > > Also, you don't need to call the query twice: > > Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, > 0)", "qryVendorWeddingFee") > > /gustav > > >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> > Folks, > > I am frustrated because a form has started throwing an error > and I can not seem to isolate it. This was working last week, > I think, and now I get the error. It is probably something > very simple I am not seeing. IN the onLoad event of the form > I have a statement > > Me.txtFee.Value = Nz(DSum("ShowAmount", > "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", > "qryVendorWeddingFee"), 0) > > When the form opens I get the subject error message. For > debugging purposes I commmented the line out and put a button > on the form that does the same thing. This works fine > setting me.txtFee to the proper value. At first I was using > me.txtFee =, and got the same error. > > Do any of you see what is going on here? > > Thanks in advance. > > Doug > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From mikedorism at verizon.net Wed Aug 2 07:15:37 2006 From: mikedorism at verizon.net (Mike & Doris Manning) Date: Wed, 02 Aug 2006 08:15:37 -0400 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Message-ID: <000001c6b62d$5e48f120$2f01a8c0@dorismanning> Check the Control Source property of the textbox. If it isn't empty, you will get the 2448 error. Doris Manning mikedorism at verizon.net From DElam at jenkens.com Wed Aug 2 08:20:06 2006 From: DElam at jenkens.com (Elam, Debbie) Date: Wed, 2 Aug 2006 08:20:06 -0500 Subject: [AccessD] Subscript out of range Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C068DE441@natexch.jenkens.com> Yes, the same datasource. There is a difference in the sub-reports this one contains, and I suspect that might be where the issue is. It is not subreports as a matter of course though, because other reports that export have subreports also. Debbie -----Original Message----- From: Jim Moss [mailto:jim.moss at jlmoss.net] Sent: Tuesday, August 01, 2006 5:31 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Subscript out of range Debbie, Do you use all the same rows, columns and query criteria from the same datasource? The only time that this has happened to me before is when the file was too big to go into excel, IE > 65578 rows. Jim > I have a report that a user is trying to export to Excel. When we try to > export the report, we get a subscript out of range error and the database > closes compacts and saves a backup. > > I can export other reports in the same database to Excel without error (I > can even use the same data source). I can also export this report to Word > format. I have tried exporting all objects to a new database and running > the report, but I still get the same error when exporting. > > Does anyone have an idea what the problem might be with this report? > > 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. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- 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 cfoust at infostatsystems.com Wed Aug 2 10:09:19 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 08:09:19 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Message-ID: Try moving the code to the Load event instead of Open. Some things just can't be done until the form is loaded. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Tuesday, August 01, 2006 8:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Error 2448 "You can not assign a value to this object." Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Wed Aug 2 10:13:31 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 10:13:31 -0500 Subject: [AccessD] Error Trapping Message-ID: <001001c6b646$3a5cbd00$0200a8c0@danwaters> For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters From bheid at appdevgrp.com Wed Aug 2 10:35:55 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Wed, 2 Aug 2006 11:35:55 -0400 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DFBC69@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35774@ADGSERVER> I think that the scenario that you posed happens when there is no error handler in B. So I think the solution is to have an error handler in every procedure. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 11:14 AM To: AccessD Subject: [SPAM SUSPECT] [AccessD] Error Trapping Importance: Low For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From sgoodhall at comcast.net Wed Aug 2 10:54:01 2006 From: sgoodhall at comcast.net (sgoodhall at comcast.net) Date: Wed, 02 Aug 2006 15:54:01 +0000 Subject: [AccessD] [SPAM SUSPECT] Error Trapping Message-ID: <080220061554.21575.44D0CA99000236D100005447220074567204040E080B0101099C@comcast.net> There can be a couple of issues here. One is as stated, if you have "On Error Resume Next" active when you invoke a sub or function then errors in the lower level routine will kick back to the upper level. The other issue is that if you invoke a method in a class module, even without On Error active, what happens depends on the setting Error Trapping option in VBA. If Error Trapping is not set to "Break in Class Module" then the error will be trapped in the routine that invoked the method. Regards, Steve -------------- Original message -------------- From: "Bobby Heid" > I think that the scenario that you posed happens when there is no error > handler in B. So I think the solution is to have an error handler in every > procedure. > > Bobby > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters > Sent: Wednesday, August 02, 2006 11:14 AM > To: AccessD > Subject: [SPAM SUSPECT] [AccessD] Error Trapping > Importance: Low > > > For a long time I've seen that an error trapped in one procedure may have > actually occurred in a called procedure. For example, if Procedure A calls > procedure B and an error occurs in B, then the error might get trapped in A, > not in B. So my error log shows an error trapped in A, but I need to know > that it happened in B. > > Is there a way to accurately know which procedure actually triggered an > error? > > 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 dwaters at usinternet.com Wed Aug 2 10:54:33 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 10:54:33 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <30753959.1154533153912.JavaMail.root@sniper20> Message-ID: <001101c6b64b$f3835230$0200a8c0@danwaters> Hi Bobby, Yes - if there was no handler in B then A would pick it up. But this happens when there is a handler in B. That's the puzzle! Dan Waters -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping I think that the scenario that you posed happens when there is no error handler in B. So I think the solution is to have an error handler in every procedure. Bobby -----Original Message----- Subject: [SPAM SUSPECT] [AccessD] Error Trapping For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters From cfoust at infostatsystems.com Wed Aug 2 11:09:28 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 09:09:28 -0700 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <001101c6b64b$f3835230$0200a8c0@danwaters> Message-ID: Either the error is in the handler or after the handler or you may have a different problem. I've seen code fail on the End Sub line and eventually discovered something elsewhere in the module that wasn't even in the routine that used an implicit boolean or such and fixing that made the problem go away. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 8:55 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Hi Bobby, Yes - if there was no handler in B then A would pick it up. But this happens when there is a handler in B. That's the puzzle! Dan Waters -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping I think that the scenario that you posed happens when there is no error handler in B. So I think the solution is to have an error handler in every procedure. Bobby -----Original Message----- Subject: [SPAM SUSPECT] [AccessD] Error Trapping For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Wed Aug 2 12:07:16 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 12:07:16 -0500 Subject: [AccessD] Error Trapping In-Reply-To: <23130190.1154535267358.JavaMail.root@sniper24> Message-ID: <001201c6b656$1ba44170$0200a8c0@danwaters> I do always use explicit variables to avoid just that type of 'mystery' problem. The error handler is a different procedure which has always been reliable. It's just an issue of which procedure calls it! Thanks! Dan -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Either the error is in the handler or after the handler or you may have a different problem. I've seen code fail on the End Sub line and eventually discovered something elsewhere in the module that wasn't even in the routine that used an implicit boolean or such and fixing that made the problem go away. Charlotte Foust From dwaters at usinternet.com Wed Aug 2 12:07:16 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 12:07:16 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <30569536.1154534337455.JavaMail.root@sniper14> Message-ID: <001301c6b656$1be47ec0$0200a8c0@danwaters> Well, I typically have Error Trapping set to 'Break on all Unhandled Errors'. I'll change to 'Break in Class Module' to see if that does the trick. Thanks! Dan -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping There can be a couple of issues here. One is as stated, if you have "On Error Resume Next" active when you invoke a sub or function then errors in the lower level routine will kick back to the upper level. The other issue is that if you invoke a method in a class module, even without On Error active, what happens depends on the setting Error Trapping option in VBA. If Error Trapping is not set to "Break in Class Module" then the error will be trapped in the routine that invoked the method. Regards, Steve From dw-murphy at cox.net Wed Aug 2 12:15:20 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Wed, 2 Aug 2006 10:15:20 -0700 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." In-Reply-To: Message-ID: <001d01c6b657$3b848b70$0200a8c0@murphy3234aaf1> Thanks Gustav, After the form is loaded I can run the code to set the textbox to a value and it works fine. As I said in a previous post on this I put a button on the form and ran the line of code and all worked well. Since the line runs in the onload event the form should be populated with all the bound values and my code should update, I thought. Tried to set me.txtFee = 0 and got the same error. Tried without the subform and got the same error. Will keep banging away at it. I didn't realize you could use two fields in a domain aggregate function. That is great, I learned something else. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 11:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- 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 Aug 2 12:18:08 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Wed, 2 Aug 2006 10:18:08 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to thisobject." In-Reply-To: <000001c6b62d$5e48f120$2f01a8c0@dorismanning> Message-ID: <002101c6b657$9f98f790$0200a8c0@murphy3234aaf1> Thanks Doris, This did work! Don't know why I can't update a bound control in the onLoad event, but apparently it causes and error. I can update the control through code when when I can interact with the form by pressing a button on it with no error. Obviously there is something here I don't understand. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mike & Doris Manning Sent: Wednesday, August 02, 2006 5:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Error 2448 "You can not assign a value to thisobject." Check the Control Source property of the textbox. If it isn't empty, you will get the 2448 error. Doris Manning mikedorism at verizon.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 Aug 2 13:39:16 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 2 Aug 2006 14:39:16 -0400 Subject: [AccessD] Error Trapping In-Reply-To: <001001c6b646$3a5cbd00$0200a8c0@danwaters> Message-ID: <004a01c6b662$f63dbfd0$147aa8c0@m6805> A long time ago I co-wrote and then Seth Galitzer ported to VB a wizard for inserting an error handler into one specific function, in every function in a specific module or in every function in every module. You can press a button to just insert error handlers everywhere that no handler already exists. I highly recommend doing that. I use this myself pretty much daily as I am writing code, and on occasion when it appears that I have let a function slip through that is causing issues. It is available as a download from our web site - http://www.databaseadvisors.com/downloads.htm Click VBErrorHandler to download it. View the readme and install it. You will then have a toolbar in the code editor for inserting the error handlers. It can also be used in Word and Excel BTW. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 11:14 AM To: AccessD Subject: [AccessD] Error Trapping For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Wed Aug 2 14:08:23 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 14:08:23 -0500 Subject: [AccessD] Error Trapping In-Reply-To: <15753762.1154544923660.JavaMail.root@sniper19> Message-ID: <001e01c6b667$070d32b0$0200a8c0@danwaters> That sounds great! And you're not charging for this??? You should compete with FMS! I know I said that I Error Trap almost all procedures. What I mean is that if a combobox Enter event has the single line of cboName.Dropdown (or something as reliable as that), then I skip the error handling. Anything more complicated than that does get error trapped. Dan Waters -----Original Message----- Subject: Re: [AccessD] Error Trapping A long time ago I co-wrote and then Seth Galitzer ported to VB a wizard for inserting an error handler into one specific function, in every function in a specific module or in every function in every module. You can press a button to just insert error handlers everywhere that no handler already exists. I highly recommend doing that. I use this myself pretty much daily as I am writing code, and on occasion when it appears that I have let a function slip through that is causing issues. It is available as a download from our web site - http://www.databaseadvisors.com/downloads.htm Click VBErrorHandler to download it. View the readme and install it. You will then have a toolbar in the code editor for inserting the error handlers. It can also be used in Word and Excel BTW. John W. Colby Colby Consulting www.ColbyConsulting.com From Patricia.O'Connor at otda.state.ny.us Wed Aug 2 14:28:30 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 2 Aug 2006 15:28:30 -0400 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <443413E7.3060603@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270C@EXCNYSM0A1AI.nysemail.nyenet> I finally was able to upgrade office to 2003 custom since I have Access97 and 2k. Office Professional - Access 2003 (11.5614.6568) I was reading through the memos and it says that update SP2 caused major problems. Is this still true? What else should I download or NOT download? What other things do I need to watch out for. I have tried the archive but get lots of old items. Thank you ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 cfoust at infostatsystems.com Wed Aug 2 15:27:56 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 13:27:56 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270C@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: I had no problems a few months ago when I upgrade my Office XP to Office 2003. Since we don't use Access 2003, I kept Access 2002, which was at SP3. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, Patricia (OTDA) Sent: Wednesday, August 02, 2006 12:28 PM To: Access Developers discussion and problem solving Subject: [AccessD] Upgrade to Office 2003 - Access2k3 I finally was able to upgrade office to 2003 custom since I have Access97 and 2k. Office Professional - Access 2003 (11.5614.6568) I was reading through the memos and it says that update SP2 caused major problems. Is this still true? What else should I download or NOT download? What other things do I need to watch out for. I have tried the archive but get lots of old items. Thank you From martyconnelly at shaw.ca Wed Aug 2 15:54:03 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Wed, 02 Aug 2006 13:54:03 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: References: Message-ID: <44D110EB.6010302@shaw.ca> well the two major ones I can think of 1. http://support.microsoft.com/kb/904953/en-us This functionality has now been disabled "permanently" with Office 2003 SP2. "Because of legal issues, Microsoft has disabled the functionality in Access 2003 and in Access 2002 that let users change the data in linked tables that point to a range in an Excel workbook." 2. How you handle Office and Access Macro Security, there are various options in archives. Not really a problem for a single user as can be disabled from menus. There are palso roblems with Outlook Forms and a lot of minor problems if you do an adminstrative install to a whole series of machines. If you run both Access 97 and 2003 from a non admin user you have to change an .srg file. Charlotte Foust wrote: >I had no problems a few months ago when I upgrade my Office XP to Office >2003. Since we don't use Access 2003, I kept Access 2002, which was at >SP3. > >Charlotte Foust > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, >Patricia (OTDA) >Sent: Wednesday, August 02, 2006 12:28 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] Upgrade to Office 2003 - Access2k3 > >I finally was able to upgrade office to 2003 custom since I have >Access97 and 2k. >Office Professional - Access 2003 (11.5614.6568) > >I was reading through the memos and it says that update SP2 caused major >problems. Is this still true? What else should I download or NOT >download? > What other things do I need to watch out for. > >I have tried the archive but get lots of old items. > >Thank you > > -- Marty Connelly Victoria, B.C. Canada From cfoust at infostatsystems.com Wed Aug 2 16:20:31 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 14:20:31 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <44D110EB.6010302@shaw.ca> Message-ID: No wonder I didn't have any problems. None of those apply! LOL Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Wednesday, August 02, 2006 1:54 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 well the two major ones I can think of 1. http://support.microsoft.com/kb/904953/en-us This functionality has now been disabled "permanently" with Office 2003 SP2. "Because of legal issues, Microsoft has disabled the functionality in Access 2003 and in Access 2002 that let users change the data in linked tables that point to a range in an Excel workbook." 2. How you handle Office and Access Macro Security, there are various options in archives. Not really a problem for a single user as can be disabled from menus. There are palso roblems with Outlook Forms and a lot of minor problems if you do an adminstrative install to a whole series of machines. If you run both Access 97 and 2003 from a non admin user you have to change an .srg file. Charlotte Foust wrote: >I had no problems a few months ago when I upgrade my Office XP to >Office 2003. Since we don't use Access 2003, I kept Access 2002, which >was at SP3. > >Charlotte Foust > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, >Patricia (OTDA) >Sent: Wednesday, August 02, 2006 12:28 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] Upgrade to Office 2003 - Access2k3 > >I finally was able to upgrade office to 2003 custom since I have >Access97 and 2k. >Office Professional - Access 2003 (11.5614.6568) > >I was reading through the memos and it says that update SP2 caused major >problems. Is this still true? What else should I download or NOT >download? > What other things do I need to watch out for. > >I have tried the archive but get lots of old items. > >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 Gustav at cactus.dk Thu Aug 3 03:39:50 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 03 Aug 2006 10:39:50 +0200 Subject: [AccessD] Unprovoked ERROR 3197 fixed....?? Message-ID: Hi Robert Just saw this error today at a client running Access97. It does not happen every day, just once in a while ... Which version of Jet is this hotfix related to? /gustav >>> robert at servicexp.com 25-07-2006 01:02:23 >>> I have been struggling with this problem for more then year and half, looks like it may finally have been resolved. I was able to get the patch and so far (3 weeks now) not one of these errors... I was receiving this error on at least a daily basis; most of the time several times during the day.... Pulled most of my hair out thinking it was something in my design... Thought you guys may want to know.. http://www.databasecreations.com/pdf/JET%20Error%20Issues%20Resolved.pdf Robert From Gustav at cactus.dk Thu Aug 3 04:28:27 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 03 Aug 2006 11:28:27 +0200 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." Message-ID: Hi Doug Then try doing this at the OnCurrent event. Set a flag when done to do this once only. If you try to set the value of a bound control while the form is opening you are trying to update the form which is not possible at that moment. Updating an unbound control does not involve an update of the form. /gustav >>> dw-murphy at cox.net 02-08-2006 19:15:20 >>> Thanks Gustav, After the form is loaded I can run the code to set the textbox to a value and it works fine. As I said in a previous post on this I put a button on the form and ran the line of code and all worked well. Since the line runs in the onload event the form should be populated with all the bound values and my code should update, I thought. Tried to set me.txtFee = 0 and got the same error. Tried without the subform and got the same error. Will keep banging away at it. I didn't realize you could use two fields in a domain aggregate function. That is great, I learned something else. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 11:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug From dw-murphy at cox.net Thu Aug 3 10:57:38 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Thu, 3 Aug 2006 08:57:38 -0700 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." In-Reply-To: Message-ID: <002a01c6b715$8b5e09f0$0200a8c0@murphy3234aaf1> Thanks Gustav, I came to the conclusion that something in the form load was preventing me from updating the control. I got around it by using the form timer event to put in a half second delay between form oncurrent and updating the value. This works reliably. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 03, 2006 2:28 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug Then try doing this at the OnCurrent event. Set a flag when done to do this once only. If you try to set the value of a bound control while the form is opening you are trying to update the form which is not possible at that moment. Updating an unbound control does not involve an update of the form. /gustav >>> dw-murphy at cox.net 02-08-2006 19:15:20 >>> Thanks Gustav, After the form is loaded I can run the code to set the textbox to a value and it works fine. As I said in a previous post on this I put a button on the form and ran the line of code and all worked well. Since the line runs in the onload event the form should be populated with all the bound values and my code should update, I thought. Tried to set me.txtFee = 0 and got the same error. Tried without the subform and got the same error. Will keep banging away at it. I didn't realize you could use two fields in a domain aggregate function. That is great, I learned something else. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 11:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From scapistrant at symphonyinfo.com Thu Aug 3 11:37:24 2006 From: scapistrant at symphonyinfo.com (Steve Capistrant) Date: Thu, 3 Aug 2006 11:37:24 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <000401c6b659$5eecf550$0210a8c0@Symphony.local> Message-ID: <02F5B8F3D893A845A3DF342F14D80F010619B0@LAKATOS.Symphony.local> Dan, Maybe you already know this but, just in case... One option is change your subprocedure(s) into a function, returning a Boolean value. Default it to return FALSE, by putting this near the top: MyFunction() = FALSE On the very last line of the code, before the error handling section, put: MyFunction() = TRUE In the error handling section, make sure you insert a developer controlled comment in the msgbox, like: "Error occurred in MyFunction" Finally, on the parent procedure, call the subfunction with this: If MyFunction() = False then GoTo ex In this way, you can always know at what level the error handling is triggered, and gracefully shut down the calling context too. Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Office, Twin Cities: 763-391-7400, ext. 801. Office, Toll free: 888-357-1373, ext. 801 Direct: 612-237-0075 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 12:31 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Well, I typically have Error Trapping set to 'Break on all Unhandled Errors'. I'll change to 'Break in Class Module' to see if that does the trick. Thanks! Dan -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping There can be a couple of issues here. One is as stated, if you have "On Error Resume Next" active when you invoke a sub or function then errors in the lower level routine will kick back to the upper level. The other issue is that if you invoke a method in a class module, even without On Error active, what happens depends on the setting Error Trapping option in VBA. If Error Trapping is not set to "Break in Class Module" then the error will be trapped in the routine that invoked the method. Regards, Steve -- 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 Aug 3 11:38:14 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Thu, 3 Aug 2006 12:38:14 -0400 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <44D110EB.6010302@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270E@EXCNYSM0A1AI.nysemail.nyenet> Marty - Thanks for the quick response. I have not upgraded to SP2 yet. I am currently running a monthly system that has an A2k mdb, an excel workbook with 6 pivot table with graphs created from Excel queries (dqy). The dqy is what populates the tables which sets the graphs. So I figured to run that first before upgrading just in case. What about the SANDBOX unsafe expressions warning I get when opening my 2k mdb. It says to upgrade my jet Microsoft Jet 4.0 Service Pack 8. If I update to this will my old systems no longer work? I already have a 4.08 version of Jet but it still comes up everytime. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > MartyConnelly > Sent: Wednesday, August 02, 2006 04:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 > > well the two major ones I can think of > 1. > http://support.microsoft.com/kb/904953/en-us > > This functionality has now been disabled "permanently" with > Office 2003 SP2. > "Because of legal issues, Microsoft has disabled the > functionality in Access > 2003 and in Access 2002 that let users change the data in > linked tables that point to a range in an Excel workbook." > 2. > How you handle Office and Access Macro Security, there are > various options in archives. > Not really a problem for a single user as can be disabled from menus. > > There are palso roblems with Outlook Forms and a lot of minor > problems if you do an adminstrative install to a whole series > of machines. > > If you run both Access 97 and 2003 from a non admin user you > have to change an .srg file. > From martyconnelly at shaw.ca Thu Aug 3 13:13:52 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 03 Aug 2006 11:13:52 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270E@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270E@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: <44D23CE0.8000805@shaw.ca> I have been running with Jet SP 8.0 for over a year so I have forgotten any problems that might have occured but it doesn't affect my version of 97 2003 or 2007 There is a registry key, you can switch if sudden problems occur with sandbox mode but some form of sandbox has been around since JetSP4 You should perhaps upgrade to Jet SP8 before installing Office 2003 It shouldn't affect you unless you are doing weird things in SQL like SELECT Shell("c:\windows\System32\calc.exe") FROM Customers; Sandbox protection applies not just to SQL but also to Form Event properties Here is a long article explaining it from Gerry Robinson How To Avoid An Access 2003 Sandbox Storm http://www.vb123.com/toolshed/04_docs/sandbox.htm O'Connor, Patricia (OTDA) wrote: >Marty - Thanks for the quick response. > >I have not upgraded to SP2 yet. I am currently running a monthly system >that has an A2k mdb, an excel workbook with 6 pivot table with graphs >created from Excel queries (dqy). The dqy is what populates the tables >which sets the graphs. So I figured to run that first before upgrading >just in case. > >What about the SANDBOX unsafe expressions warning I get when opening my >2k mdb. It says to upgrade my jet Microsoft Jet 4.0 Service Pack 8. If >I update to this will my old systems no longer work? I already have a >4.08 version of Jet but it still comes up everytime. > >Thanks >************************************************** >* Patricia O'Connor >* Associate Computer Programmer Analyst >* OTDA - BDMA >* (W) mailto:Patricia.O'Connor at otda.state.ny.us >* (w) mailto:aa1160 at nysemail.state.ny.us >************************************************** > > > > >-----Original Message----- > > > >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >>MartyConnelly >>Sent: Wednesday, August 02, 2006 04:54 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 >> >>well the two major ones I can think of >>1. >>http://support.microsoft.com/kb/904953/en-us >> >>This functionality has now been disabled "permanently" with >>Office 2003 SP2. >>"Because of legal issues, Microsoft has disabled the >>functionality in Access >>2003 and in Access 2002 that let users change the data in >>linked tables that point to a range in an Excel workbook." >>2. >> How you handle Office and Access Macro Security, there are >>various options in archives. >>Not really a problem for a single user as can be disabled from menus. >> >>There are palso roblems with Outlook Forms and a lot of minor >>problems if you do an adminstrative install to a whole series >>of machines. >> >>If you run both Access 97 and 2003 from a non admin user you >>have to change an .srg file. >> >> >> -- Marty Connelly Victoria, B.C. Canada From Patricia.O'Connor at otda.state.ny.us Thu Aug 3 13:40:05 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Thu, 3 Aug 2006 14:40:05 -0400 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 -Thank you In-Reply-To: <44D23CE0.8000805@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270F@EXCNYSM0A1AI.nysemail.nyenet> Thank you ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > MartyConnelly > Sent: Thursday, August 03, 2006 02:14 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 > > I have been running with Jet SP 8.0 for over a year so I have > forgotten any problems that might have occured but it doesn't > affect my version of 97 > 2003 or 2007 > There is a registry key, you can switch if sudden problems > occur with sandbox mode but some form of sandbox has been > around since JetSP4 You should perhaps upgrade to Jet SP8 > before installing Office 2003 It shouldn't affect you unless > you are doing weird things in SQL like SELECT > Shell("c:\windows\System32\calc.exe") FROM Customers; Sandbox > protection applies not just to SQL but also to Form Event properties > > Here is a long article explaining it from Gerry Robinson > > How To Avoid An Access 2003 Sandbox Storm > http://www.vb123.com/toolshed/04_docs/sandbox.htm > > > O'Connor, Patricia (OTDA) wrote: > > >Marty - Thanks for the quick response. > > > >I have not upgraded to SP2 yet. I am currently running a > monthly system > >that has an A2k mdb, an excel workbook with 6 pivot table > with graphs > >created from Excel queries (dqy). The dqy is what populates > the tables > >which sets the graphs. So I figured to run that first > before upgrading > >just in case. > > > >What about the SANDBOX unsafe expressions warning I get when > opening my > >2k mdb. It says to upgrade my jet Microsoft Jet 4.0 Service > Pack 8. > >If I update to this will my old systems no longer work? I > already have > >a > >4.08 version of Jet but it still comes up everytime. > > > >Thanks > >************************************************** > >* Patricia O'Connor > >* Associate Computer Programmer Analyst > >* OTDA - BDMA > >* (W) mailto:Patricia.O'Connor at otda.state.ny.us > >* (w) mailto:aa1160 at nysemail.state.ny.us > >************************************************** > > > > > From Chester_Kaup at kindermorgan.com Thu Aug 3 15:04:34 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:04:34 -0500 Subject: [AccessD] SQL Syntax Problem Message-ID: The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From artful at rogers.com Thu Aug 3 15:39:44 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 3 Aug 2006 13:39:44 -0700 (PDT) Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: <20060803203944.32095.qmail@web88208.mail.re2.yahoo.com> Would you kindly provide the DDL for the table so I can reproduce the situation? No data required, just the DDL. Thanks, Arthur ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:04:34 PM Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Thu Aug 3 15:40:50 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 03 Aug 2006 13:40:50 -0700 Subject: [AccessD] SQL Syntax Problem In-Reply-To: References: Message-ID: <44D25F52.8060001@shaw.ca> If you intended a wildcard Like '" & PID* & "')) should be Like '" & PID & "*')) Kaup, Chester wrote: >The following SQL gives a syntax error of compile error expected >expression when it gets to the & in this part And ((ConfigMaster.PID) >Like '" & PID* & "')). I don't see the problem. PID is text. > > > >strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID >INTO [tbl Pattern Occurances] " & _ > > "FROM [tbl Producers in a Scaleup Pattern] " & _ > > "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup >Pattern].ChildPID = ConfigMaster.ChildPID " & _ > > "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & >PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ > > "GROUP BY ConfigMaster.PID;" > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number of electrons were terribly inconvenienced. > > > > > -- Marty Connelly Victoria, B.C. Canada From Chester_Kaup at kindermorgan.com Thu Aug 3 15:50:29 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:50:29 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: <20060803203944.32095.qmail@web88208.mail.re2.yahoo.com> Message-ID: I must express my ignorance here. What do you mean by DDL? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 03, 2006 3:40 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Would you kindly provide the DDL for the table so I can reproduce the situation? No data required, just the DDL. Thanks, Arthur ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:04:34 PM Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 15:52:26 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Thu, 3 Aug 2006 15:52:26 -0500 Subject: [AccessD] SQL Syntax Problem Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AD6B@MARLOW_MAIN2.marlow.com> Like '" & PID & "*')) Also, keep in mind, if you are using ADO, the * should be a %. Drew -----Original Message----- From: Kaup, Chester [mailto:Chester_Kaup at kindermorgan.com] Sent: Thursday, August 03, 2006 3:05 PM To: Access Developers discussion and problem solving Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Chester_Kaup at kindermorgan.com Thu Aug 3 15:54:45 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:54:45 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: <44D25F52.8060001@shaw.ca> Message-ID: Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Thursday, August 03, 2006 3:41 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem If you intended a wildcard Like '" & PID* & "')) should be Like '" & PID & "*')) Kaup, Chester wrote: >The following SQL gives a syntax error of compile error expected >expression when it gets to the & in this part And ((ConfigMaster.PID) >Like '" & PID* & "')). I don't see the problem. PID is text. > > > >strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID >INTO [tbl Pattern Occurances] " & _ > > "FROM [tbl Producers in a Scaleup Pattern] " & _ > > "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup >Pattern].ChildPID = ConfigMaster.ChildPID " & _ > > "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & >PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ > > "GROUP BY ConfigMaster.PID;" > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number of electrons were terribly inconvenienced. > > > > > -- 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 Chester_Kaup at kindermorgan.com Thu Aug 3 15:58:24 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:58:24 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AD6B@MARLOW_MAIN2.marlow.com> Message-ID: Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com Sent: Thursday, August 03, 2006 3:52 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] SQL Syntax Problem Like '" & PID & "*')) Also, keep in mind, if you are using ADO, the * should be a %. Drew -----Original Message----- From: Kaup, Chester [mailto:Chester_Kaup at kindermorgan.com] Sent: Thursday, August 03, 2006 3:05 PM To: Access Developers discussion and problem solving Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 16:05:18 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 3 Aug 2006 14:05:18 -0700 Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: You seem to suggest that all your PIDs start with the prefix "PID". If that is so, then just put the literals into the SQL Statement at that point: "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like 'PID*')) " & _ Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Thursday, August 03, 2006 1:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. From Chester_Kaup at kindermorgan.com Thu Aug 3 16:20:10 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 16:20:10 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: Thanks everyone. That got it. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, August 03, 2006 4:05 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem You seem to suggest that all your PIDs start with the prefix "PID". If that is so, then just put the literals into the SQL Statement at that point: "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like 'PID*')) " & _ Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Thursday, August 03, 2006 1:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From robert at servicexp.com Thu Aug 3 16:28:18 2006 From: robert at servicexp.com (Robert) Date: Thu, 3 Aug 2006 17:28:18 -0400 Subject: [AccessD] Unprovoked ERROR 3197 fixed....?? In-Reply-To: Message-ID: <000f01c6b743$bdd6a350$6501a8c0@roberts> Gustav, Version 4 Robert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 03, 2006 4:40 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Unprovoked ERROR 3197 fixed....?? Hi Robert Just saw this error today at a client running Access97. It does not happen every day, just once in a while ... Which version of Jet is this hotfix related to? /gustav >>> robert at servicexp.com 25-07-2006 01:02:23 >>> I have been struggling with this problem for more then year and half, looks like it may finally have been resolved. I was able to get the patch and so far (3 weeks now) not one of these errors... I was receiving this error on at least a daily basis; most of the time several times during the day.... Pulled most of my hair out thinking it was something in my design... Thought you guys may want to know.. http://www.databasecreations.com/pdf/JET%20Error%20Issues%20Resolved.pdf Robert -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Thu Aug 3 18:44:00 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 3 Aug 2006 18:44:00 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <23625630.1154623575499.JavaMail.root@sniper18> Message-ID: <001e01c6b756$b2ec7830$0200a8c0@danwaters> Hey Steve! I did not know this one! Very clever . . . :-) Dan Waters -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Dan, Maybe you already know this but, just in case... One option is change your subprocedure(s) into a function, returning a Boolean value. Default it to return FALSE, by putting this near the top: MyFunction() = FALSE On the very last line of the code, before the error handling section, put: MyFunction() = TRUE In the error handling section, make sure you insert a developer controlled comment in the msgbox, like: "Error occurred in MyFunction" Finally, on the parent procedure, call the subfunction with this: If MyFunction() = False then GoTo ex In this way, you can always know at what level the error handling is triggered, and gracefully shut down the calling context too. Steve Capistrant From Gustav at cactus.dk Fri Aug 4 07:29:04 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 14:29:04 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav From harkins1 at setel.com Fri Aug 4 08:18:01 2006 From: harkins1 at setel.com (Susan Harkins) Date: Fri, 4 Aug 2006 09:18:01 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <000001c6b7c8$69a5e5e0$0301a8c0@SUSANONE> a. 182 b. 233 c. 320 320 From Jim.Hale at FleetPride.com Fri Aug 4 08:28:19 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Fri, 4 Aug 2006 08:28:19 -0500 Subject: [AccessD] OT: Friday info Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE4A@corp-es01.fleetpride.com> and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 Fri Aug 4 09:45:39 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 4 Aug 2006 07:45:39 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Fri Aug 4 09:56:15 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Fri, 4 Aug 2006 10:56:15 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE4A@corp-es01.fleetpride.com> Message-ID: <005501c6b7d6$237da900$647aa8c0@m6805> Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments occurred after Drew joined the list. Of course 7468 were after JWC joined the list. ;-) John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim Sent: Friday, August 04, 2006 9:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 Gustav at cactus.dk Fri Aug 4 10:02:23 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 17:02:23 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. From DWUTKA at marlow.com Fri Aug 4 10:11:00 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 10:11:00 -0500 Subject: [AccessD] OT: Friday info Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7ADBB@MARLOW_MAIN2.marlow.com> I think that answer should be represented with the Eval function: Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) ;) Drew -----Original Message----- From: Hale, Jim [mailto:Jim.Hale at fleetpride.com] Sent: Friday, August 04, 2006 8:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 cfoust at infostatsystems.com Fri Aug 4 10:11:20 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 4 Aug 2006 08:11:20 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: Since I'm not familiar with the weather in Denmark, I'll pass on this one. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 8:02 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From JHewson at karta.com Fri Aug 4 10:15:45 2006 From: JHewson at karta.com (Jim Hewson) Date: Fri, 4 Aug 2006 10:15:45 -0500 Subject: [AccessD] OT: Friday info Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C045C9DC6@karta-exc-int.Karta.com> b. 233 Jim jhewson at karta.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 10:02 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jmhecht at earthlink.net Fri Aug 4 10:19:54 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Fri, 4 Aug 2006 08:19:54 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADBB@MARLOW_MAIN2.marlow.com> Message-ID: SICKER 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: Friday, August 04, 2006 8:11 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info I think that answer should be represented with the Eval function: Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) ;) Drew From Gustav at cactus.dk Fri Aug 4 10:22:45 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 17:22:45 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Charlotte OK, a hint: Many people consider this part of the world the cold North ... /gustav >>> cfoust at infostatsystems.com 04-08-2006 17:11:20 >>> Since I'm not familiar with the weather in Denmark, I'll pass on this one. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 8:02 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. From DWUTKA at marlow.com Fri Aug 4 10:30:50 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 10:30:50 -0500 Subject: [AccessD] OT: Friday info Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7ADBF@MARLOW_MAIN2.marlow.com> Who did you argue with before I joined the list, yourself? Drew -----Original Message----- From: JWColby [mailto:jwcolby at colbyconsulting.com] Sent: Friday, August 04, 2006 9:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments occurred after Drew joined the list. Of course 7468 were after JWC joined the list. ;-) John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim Sent: Friday, August 04, 2006 9:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 artful at rogers.com Fri Aug 4 11:04:54 2006 From: artful at rogers.com (artful at rogers.com) Date: Fri, 4 Aug 2006 09:04:54 -0700 (PDT) Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: <20060804160454.36130.qmail@web88201.mail.re2.yahoo.com> There are two aspects to SQL: DDL (data definition language) and DML (data manipulation language). What I was requesting was the CREATE TABLE statement that creates your table, so I can create it here and toy with your query. In the abstract I find it difficult to sort out this kind of problem. I much prefer to have an instance of the table to work against. If this table is in Access, you could simply extract that one table into a new MDB and send it to me. If it's in SQL Server, then you can generate the DDL statement directly. ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:50:29 PM Subject: Re: [AccessD] SQL Syntax Problem I must express my ignorance here. What do you mean by DDL? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 03, 2006 3:40 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Would you kindly provide the DDL for the table so I can reproduce the situation? No data required, just the DDL. Thanks, Arthur ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:04:34 PM Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 4 11:32:40 2006 From: artful at rogers.com (artful at rogers.com) Date: Fri, 4 Aug 2006 09:32:40 -0700 (PDT) Subject: [AccessD] OT: Friday info In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADBF@MARLOW_MAIN2.marlow.com> Message-ID: <20060804163240.82560.qmail@web88202.mail.re2.yahoo.com> No, Drew, JC argued with me and a few others. It's always about You, init? However, my work has taken me increasingly into SQL Server and relatively away from Access, so my former regular forays into the arguments here have grown fewer and fewer as time passes. Now I find myself thinking about SQL 2005 and ERwin to the exclusion of most everything else. But I do miss the arguments here. And speaking of which, I think that I'll proffer a self-contradiction here. Long-time readers may recall my strenuous advocations of autonumbers/identity keys. My most recent two projects have caused me to rethink this position. I am beginning to realize the intelligence underlying the "business keys" approach. That is, given three tables, T1, T2 and T3, arranged hierarchically: T1: PK is, say T1PK. T2: inherits T1PK and adds a new column T2K, the combination being unique. T3: inherits its parent PK (T1PK+T2K) and adds a column that produces unique values. Formerly, I judged this scenario a complete waste of time and space. No longer. I have found myself in situations where sids (surrogate IDs) have pointed to sids -- which is ridiculous! I had to create 20+ joins to get the required data assembled. Intelligent (business) keys made the problem a LOT simpler and the retrieval times a LOT faster, and the only cost was disk space. The app already knew what the parent key values were, so it was trivial to write them to the new child record. The point of this is that for years I have advocated position X, but the last two apps made me rethink it, and for those two apps I chose to go the intelligent key approach instead. Mind you, I was dealing with many millions of rows, so that is a factor in the decision, for sure. Arthur ----- Original Message ---- From: DWUTKA at marlow.com To: accessd at databaseadvisors.com Sent: Friday, August 4, 2006 11:30:50 AM Subject: Re: [AccessD] OT: Friday info Who did you argue with before I joined the list, yourself? Drew -----Original Message----- From: JWColby [mailto:jwcolby at colbyconsulting.com] Sent: Friday, August 04, 2006 9:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments occurred after Drew joined the list. Of course 7468 were after JWC joined the list. ;-) John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim Sent: Friday, August 04, 2006 9:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 cclenright at yahoo.com Fri Aug 4 11:36:36 2006 From: cclenright at yahoo.com (Chris Enright) Date: Fri, 4 Aug 2006 09:36:36 -0700 (PDT) Subject: [AccessD] OT: Friday Humour Message-ID: <20060804163636.93361.qmail@web34307.mail.mud.yahoo.com> v\:* {behavior:url (#default#vml);}v\:* { BEHAVIOR: url (#default#vml)} This is probably very old but... A tourist walked into a pet shop and was looking at the animals on display, when another customer walked in and said to the shopkeeper, "I'll have a "C" monkey please." The shopkeeper nodded, went over to a cage at the side of the shop and took out a monkey. "That'll be $5,000." The customer paid and walked out with his monkey. Startled, the tourist went over to the shopkeeper and said, "That was a very expensive monkey. Why did it cost so much?" The shopkeeper answered, "Ah, that monkey can programme in C - very fast, tight code, no bugs, well worth the money." The tourist looked at the monkey in another cage. "That one's even more expensive! $10,000! What does it do?" "Oh, that one's a C++ monkey; it can manage object-oriented programming, Visual C++, even some Java. All the really useful stuff," said the shopkeeper. The tourist looked around for a little longer and saw a third monkey in a cage of its own. The price tag around its neck read $50,000. He gasped to the shopkeeper, "That one costs more than all the others put together! What on earth does it do?" The shopkeeper replied, "Well, I haven't actually seen it do anything, but the other monkeys call him the Management consultant." Chris --------------------------------- Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2?/min or less. From wdhindman at dejpolsystems.com Fri Aug 4 11:48:30 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 4 Aug 2006 12:48:30 -0400 Subject: [AccessD] OT: Friday info References: <005501c6b7d6$237da900$647aa8c0@m6805> Message-ID: <01be01c6b7e5$d1a8eb20$969aa545@50NM721> ...but we all know there was no list before JC joined. William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Friday, August 04, 2006 10:56 AM Subject: Re: [AccessD] OT: Friday info > Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments > occurred > after Drew joined the list. Of course 7468 were after JWC joined the > list. > > ;-) > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim > Sent: Friday, August 04, 2006 9:28 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] OT: Friday info > > and the final Jeopardy answer is > "How many times have we argued about bound vs unbound forms?": > c. 320 > > Jim Hale > > -----Original Message----- > From: Susan Harkins [mailto:harkins1 at setel.com] > Sent: Friday, August 04, 2006 8:18 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] OT: Friday info > > > > a. 182 > b. 233 > c. 320 > > 320 > > > > -- > 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 markamatte at hotmail.com Fri Aug 4 13:01:39 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 18:01:39 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <01be01c6b7e5$d1a8eb20$969aa545@50NM721> Message-ID: Hello All, I know someone helped me do this a couple of years ago...but I can't find it in my stuff or the archives. I need to search a large pipe delimited text file and remove a string of characters. I'm sure I opened it in vba and did this 'search/edit' thing...but not sure where to start. Also...importing it is not an option due to the one of ther characters I need to delete. any ideas? Thanks, Mark A. Matte From accessd at shaw.ca Fri Aug 4 13:10:17 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Fri, 04 Aug 2006 11:10:17 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <0J3H00JCUJSEOZY0@l-daemon> Hi Gustav: My best guess would be 320 as I know it has been a real hot summer in Europe. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DWUTKA at marlow.com Fri Aug 4 13:10:33 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 13:10:33 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7ADF7@MARLOW_MAIN2.marlow.com> Dim f as long Dim strTemp as string F=freefile Open "C:\PathToFile\FileName.txt" for binary access read as f Strtemp=space(lof(f)) Get f,,strtemp Close f Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") F=freefile Open "C:\NewFile.txt" for binary access write as f Put f,,strtemp Close f If you just want to replace the original file, I recommend using the kill statement to delete the old file, then change the path of the last 'open' statement to rewrite it. If you 'write' a file that is smaller then the one you are writing over, you'll get the remainder at the end. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 1:02 PM To: accessd at databaseadvisors.com Subject: [AccessD] Edit Large text file via VBA Hello All, I know someone helped me do this a couple of years ago...but I can't find it in my stuff or the archives. I need to search a large pipe delimited text file and remove a string of characters. I'm sure I opened it in vba and did this 'search/edit' thing...but not sure where to start. Also...importing it is not an option due to the one of ther characters I need to delete. any ideas? Thanks, Mark A. Matte -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Fri Aug 4 13:14:10 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Fri, 04 Aug 2006 11:14:10 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADBB@MARLOW_MAIN2.marlow.com> Message-ID: <0J3H00JKSJYVOSY0@l-daemon> Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) = minus(x) x equals: a. 182 b. 233 c. 320 :-) Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com Sent: Friday, August 04, 2006 8:11 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info I think that answer should be represented with the Eval function: Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) ;) Drew -----Original Message----- From: Hale, Jim [mailto:Jim.Hale at fleetpride.com] Sent: Friday, August 04, 2006 8:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 Gustav at cactus.dk Fri Aug 4 13:32:40 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 20:32:40 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Jim Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 /gustav >>> accessd at shaw.ca 04-08-2006 20:10:17 >>> Hi Gustav: My best guess would be 320 as I know it has been a real hot summer in Europe. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav From markamatte at hotmail.com Fri Aug 4 13:50:32 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 18:50:32 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADF7@MARLOW_MAIN2.marlow.com> Message-ID: Drew, Thanks for the code...I'm getting an error on the OPEN line when I execute...error="Bad file name or number" I even shortened the name to less than 8 characters...no spaces, just letters. Any ideas? Thanks, Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 13:10:33 -0500 > >Dim f as long >Dim strTemp as string >F=freefile >Open "C:\PathToFile\FileName.txt" for binary access read as f >Strtemp=space(lof(f)) >Get f,,strtemp >Close f >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") >F=freefile >Open "C:\NewFile.txt" for binary access write as f >Put f,,strtemp >Close f > > >If you just want to replace the original file, I recommend using the kill >statement to delete the old file, then change the path of the last 'open' >statement to rewrite it. If you 'write' a file that is smaller then the >one >you are writing over, you'll get the remainder at the end. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:02 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] Edit Large text file via VBA > >Hello All, > >I know someone helped me do this a couple of years ago...but I can't find >it > >in my stuff or the archives. > >I need to search a large pipe delimited text file and remove a string of >characters. I'm sure I opened it in vba and did this 'search/edit' >thing...but not sure where to start. > >Also...importing it is not an option due to the one of ther characters I >need to delete. > >any ideas? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From harkins1 at setel.com Fri Aug 4 14:11:30 2006 From: harkins1 at setel.com (Susan Harkins) Date: Fri, 4 Aug 2006 15:11:30 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <000001c6b7f9$cb137eb0$0301a8c0@SUSANONE> Well, I wasn't thinking of global warming but rather your close relationship to the arctic, and it's summer there now, so I figured Denmark probably gets a fair piece of those long winter days too. :) Susan H. Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 From DWUTKA at marlow.com Fri Aug 4 14:19:00 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 14:19:00 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE13@MARLOW_MAIN2.marlow.com> Can you post your code? Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 1:51 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Drew, Thanks for the code...I'm getting an error on the OPEN line when I execute...error="Bad file name or number" I even shortened the name to less than 8 characters...no spaces, just letters. Any ideas? Thanks, Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 13:10:33 -0500 > >Dim f as long >Dim strTemp as string >F=freefile >Open "C:\PathToFile\FileName.txt" for binary access read as f >Strtemp=space(lof(f)) >Get f,,strtemp >Close f >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") >F=freefile >Open "C:\NewFile.txt" for binary access write as f >Put f,,strtemp >Close f > > >If you just want to replace the original file, I recommend using the kill >statement to delete the old file, then change the path of the last 'open' >statement to rewrite it. If you 'write' a file that is smaller then the >one >you are writing over, you'll get the remainder at the end. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:02 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] Edit Large text file via VBA > >Hello All, > >I know someone helped me do this a couple of years ago...but I can't find >it > >in my stuff or the archives. > >I need to search a large pipe delimited text file and remove a string of >characters. I'm sure I opened it in vba and did this 'search/edit' >thing...but not sure where to start. > >Also...importing it is not an option due to the one of ther characters I >need to delete. > >any ideas? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 14:23:52 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 21:23:52 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Susan Good thinking! The price, however, to pay for the long summer days - where in the peak months the sky never turns fully black during the night - is the _short_ winter days. Nothing comes free. /gustav >>> harkins1 at setel.com 04-08-2006 21:11:30 >>> Well, I wasn't thinking of global warming but rather your close relationship to the arctic, and it's summer there now, so I figured Denmark probably gets a fair piece of those long winter days too. :) Susan H. Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 From markamatte at hotmail.com Fri Aug 4 14:29:24 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 19:29:24 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE13@MARLOW_MAIN2.marlow.com> Message-ID: Dim f As Long Dim strtemp As String Open "C:\temp\y2003d.txt" For Binary Access Read As f strtemp = Space(LOF(f)) Get f, , strtemp Close f strtemp = Replace(strtemp, "\|", "") f = FreeFile Open "C:\temp\y2003ded.txt" For Binary Access Write As f Put f, , strtemp Close f >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 14:34:42 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 19:34:42 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE13@MARLOW_MAIN2.marlow.com> Message-ID: Sorry Drew...I forgot the F=Freefile Thanks again for the code. Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Fri Aug 4 14:49:42 2006 From: dmcafee at pacbell.net (David McAfee) Date: Fri, 4 Aug 2006 12:49:42 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: It was the Hottest July on record here in Los Angeles. Up in the San Fernando Valley, we had 22 (or was it 25) days above 100 degrees F, peaking at 117 :( David -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 11:33 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Jim Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 /gustav From Patricia.O'Connor at otda.state.ny.us Fri Aug 4 14:51:32 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Fri, 4 Aug 2006 15:51:32 -0400 Subject: [AccessD] Access 2k3 Linked Table Manager not showing tables In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2713@EXCNYSM0A1AI.nysemail.nyenet> I have several Access2k mdb that I have opened with Access 2003 but still formatted with 2k. When I try the Linked table manager none of my oracle linked tables are showing up in there. Am I supposed to do something special so 2k3 will do this like 97 & 2k Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 harkins1 at setel.com Fri Aug 4 15:16:46 2006 From: harkins1 at setel.com (Susan Harkins) Date: Fri, 4 Aug 2006 16:16:46 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <000001c6b802$ea18ff70$0301a8c0@SUSANONE> It's been fairly normal in Kentucky. In fact, June was very mild. Of course, last night, I took the dogs out after dark (about 10:00 pm) and was hit with a sauna, but that's kind of typical for Kentucky mid-summer. Susan H. It was the Hottest July on record here in Los Angeles. Up in the San Fernando Valley, we had 22 (or was it 25) days above 100 degrees F, peaking at 117 :( From markamatte at hotmail.com Fri Aug 4 15:24:53 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 20:24:53 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: Message-ID: Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 04 Aug 2006 19:34:42 +0000 > >Sorry Drew...I forgot the F=Freefile > >Thanks again for the code. > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 14:19:00 -0500 > > > >Can you post your code? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:51 PM > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Drew, > > > >Thanks for the code...I'm getting an error on the OPEN line when I > >execute...error="Bad file name or number" > > > >I even shortened the name to less than 8 characters...no spaces, just > >letters. > > > >Any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > > >From: DWUTKA at marlow.com > > >Reply-To: Access Developers discussion and problem > > >solving > > >To: accessd at databaseadvisors.com > > >Subject: Re: [AccessD] Edit Large text file via VBA > > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > > > >Dim f as long > > >Dim strTemp as string > > >F=freefile > > >Open "C:\PathToFile\FileName.txt" for binary access read as f > > >Strtemp=space(lof(f)) > > >Get f,,strtemp > > >Close f > > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > > >F=freefile > > >Open "C:\NewFile.txt" for binary access write as f > > >Put f,,strtemp > > >Close f > > > > > > > > >If you just want to replace the original file, I recommend using the >kill > > >statement to delete the old file, then change the path of the last >'open' > > >statement to rewrite it. If you 'write' a file that is smaller then >the > > >one > > >you are writing over, you'll get the remainder at the end. > > > > > >Drew > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Friday, August 04, 2006 1:02 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Edit Large text file via VBA > > > > > >Hello All, > > > > > >I know someone helped me do this a couple of years ago...but I can't >find > > >it > > > > > >in my stuff or the archives. > > > > > >I need to search a large pipe delimited text file and remove a string >of > > >characters. I'm sure I opened it in vba and did this 'search/edit' > > >thing...but not sure where to start. > > > > > >Also...importing it is not an option due to the one of ther characters >I > > >need to delete. > > > > > >any ideas? > > > > > >Thanks, > > > > > >Mark A. Matte > > > > > > > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >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 Aug 4 15:26:17 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Fri, 4 Aug 2006 16:26:17 -0400 Subject: [AccessD] SOLVED - Access 2k3 Linked Table Manager not showing tables In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2713@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2714@EXCNYSM0A1AI.nysemail.nyenet> Solved finally found something on microsoft took 8 searches http://support.microsoft.com/kb/835519/en-us ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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, August 04, 2006 03:52 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Access 2k3 Linked Table Manager not showing tables > > I have several Access2k mdb that I have opened with Access > 2003 but still formatted with 2k. When I try the Linked table > manager none of my oracle linked tables are showing up in > there. Am I supposed to do something special so 2k3 will do > this like 97 & 2k > > Thanks > > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.state.ny.us > ************************************************** > From rusty.hammond at cpiqpc.com Fri Aug 4 15:46:39 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Fri, 4 Aug 2006 15:46:39 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8985@cpixchng-1.cpiqpc.net> Would something like the following work? This would read the text file one line at a time so it assumes a carriage return or carriage return+line feed at the end of each line of your text file. Function CleanFile() Dim strInputFile as string Dim strOutputFile as string Dim strTextLine as string strInputFile = "c:\pathtofile\filename.txt" strOutputFile = "c:\pathtofile\newfilename.txt" Open strInputFile For Input As #1 Open strOutputFile For Output As #2 Do While Not EOF(1) Line Input #1, strTextLine 'Get text lines from the original file strTextLine = Replace(strTextLine,"WhateverCharactersYouWantToReplace","") Print #2, strTextLine 'Print the text lines to the new text file Loop Close #1 Close #2 Kill strInputFile End Function -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 3:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 04 Aug 2006 19:34:42 +0000 > >Sorry Drew...I forgot the F=Freefile > >Thanks again for the code. > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 14:19:00 -0500 > > > >Can you post your code? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:51 PM > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Drew, > > > >Thanks for the code...I'm getting an error on the OPEN line when I > >execute...error="Bad file name or number" > > > >I even shortened the name to less than 8 characters...no spaces, just > >letters. > > > >Any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > > >From: DWUTKA at marlow.com > > >Reply-To: Access Developers discussion and problem > > >solving > > >To: accessd at databaseadvisors.com > > >Subject: Re: [AccessD] Edit Large text file via VBA > > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > > > >Dim f as long > > >Dim strTemp as string > > >F=freefile > > >Open "C:\PathToFile\FileName.txt" for binary access read as f > > >Strtemp=space(lof(f)) > > >Get f,,strtemp > > >Close f > > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > > >F=freefile > > >Open "C:\NewFile.txt" for binary access write as f > > >Put f,,strtemp > > >Close f > > > > > > > > >If you just want to replace the original file, I recommend using the >kill > > >statement to delete the old file, then change the path of the last >'open' > > >statement to rewrite it. If you 'write' a file that is smaller then >the > > >one > > >you are writing over, you'll get the remainder at the end. > > > > > >Drew > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Friday, August 04, 2006 1:02 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Edit Large text file via VBA > > > > > >Hello All, > > > > > >I know someone helped me do this a couple of years ago...but I can't >find > > >it > > > > > >in my stuff or the archives. > > > > > >I need to search a large pipe delimited text file and remove a string >of > > >characters. I'm sure I opened it in vba and did this 'search/edit' > > >thing...but not sure where to start. > > > > > >Also...importing it is not an option due to the one of ther characters >I > > >need to delete. > > > > > >any ideas? > > > > > >Thanks, > > > > > >Mark A. Matte > > > > > > > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/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 DWUTKA at marlow.com Fri Aug 4 16:15:25 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:15:25 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE2C@MARLOW_MAIN2.marlow.com> Ah, your missing the first f=freefile. That sets f to a number that represents a 'file' to the OS. Put it between the 'Dim strtemp As String' and the open statement. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 2:29 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Dim f As Long Dim strtemp As String Open "C:\temp\y2003d.txt" For Binary Access Read As f strtemp = Space(LOF(f)) Get f, , strtemp Close f strtemp = Replace(strtemp, "\|", "") f = FreeFile Open "C:\temp\y2003ded.txt" For Binary Access Write As f Put f, , strtemp Close f >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 16:15:45 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:15:45 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE2D@MARLOW_MAIN2.marlow.com> No problem, would have replied sooner, but went to lunch. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 2:35 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Sorry Drew...I forgot the F=Freefile Thanks again for the code. Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 16:17:14 2006 From: Lambert.Heenan at AIG.COM (Heenan, Lambert) Date: Fri, 4 Aug 2006 16:17:14 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F24F3235D@xlivmbx21.aig.com> Instead of Strtemp=space(lof(f)) and then Get() ing the whole file, define a chunk of (say) 50,000,000 bytes. Then you need a loop to Get(CHUNKSIZE), do the replace on it, write the chunk to the new file and then go get the next chunk. Repeat until done. This should be much faster that using Line Input #1, to process it a line at a time. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte Sent: Friday, August 04, 2006 4:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 04 Aug 2006 19:34:42 +0000 > >Sorry Drew...I forgot the F=Freefile > >Thanks again for the code. > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 14:19:00 -0500 > > > >Can you post your code? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:51 PM > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Drew, > > > >Thanks for the code...I'm getting an error on the OPEN line when I > >execute...error="Bad file name or number" > > > >I even shortened the name to less than 8 characters...no spaces, just > >letters. > > > >Any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > > >From: DWUTKA at marlow.com > > >Reply-To: Access Developers discussion and problem > > >solving > > >To: accessd at databaseadvisors.com > > >Subject: Re: [AccessD] Edit Large text file via VBA > > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > > > >Dim f as long > > >Dim strTemp as string > > >F=freefile > > >Open "C:\PathToFile\FileName.txt" for binary access read as f > > >Strtemp=space(lof(f)) > > >Get f,,strtemp > > >Close f > > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > > >F=freefile > > >Open "C:\NewFile.txt" for binary access write as f > > >Put f,,strtemp > > >Close f > > > > > > > > >If you just want to replace the original file, I recommend using > > >the >kill > > >statement to delete the old file, then change the path of the last >'open' > > >statement to rewrite it. If you 'write' a file that is smaller > > >then >the > > >one > > >you are writing over, you'll get the remainder at the end. > > > > > >Drew > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Friday, August 04, 2006 1:02 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Edit Large text file via VBA > > > > > >Hello All, > > > > > >I know someone helped me do this a couple of years ago...but I > > >can't >find > > >it > > > > > >in my stuff or the archives. > > > > > >I need to search a large pipe delimited text file and remove a > > >string >of > > >characters. I'm sure I opened it in vba and did this 'search/edit' > > >thing...but not sure where to start. > > > > > >Also...importing it is not an option due to the one of ther > > >characters >I > > >need to delete. > > > > > >any ideas? > > > > > >Thanks, > > > > > >Mark A. Matte > > > > > > > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 16:28:25 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:28:25 -0500 Subject: [AccessD] FW: Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE34@MARLOW_MAIN2.marlow.com> You can use the same code, but 'chunk' the read... The get statement retrieves the amount of data available in the strTemp variable, ie: strTemp=Space(lof(f)) get f,,strTemp in the first line, it is setting strtemp as a string (of spaces) the length of the file (lof statement, f being the file pointer). The get statement can be used to read portions of the file. By default, it keeps reading through, for example: Dim f as Long Dim intBufferSize As Long Dim strTemp as string Dim intSpaceRemaining as Long intBufferSize=512 F=freefile Open "C:\YourTextFile.txt" for binary access read as f intSpaceRemaining=lof(f) do until intspaceremaining=0 if intBuffersize>intSpaceRemaining then intBuffersize=intSpaceRemaining strTemp=Space(intBuffersize) get f,,strTemp strTemp=Replace(strTemp,"YourCharacters","") intspaceremaining=intspaceremaining-intbuffersize loop close f In this example, it just keeps reading chunks (512 bytes (or characters) at a time). You can be writing to a new file at the same time, just need a different variable to represent the NewFile pointer. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 3:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb From DWUTKA at marlow.com Fri Aug 4 16:55:42 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:55:42 -0500 Subject: [AccessD] FW: Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE40@MARLOW_MAIN2.marlow.com> ________________________________________ From: Drew Wutka Sent: Friday, August 04, 2006 4:28 PM To: 'Access Developers discussion and problem solving' Subject: FW: [AccessD] Edit Large text file via VBA You can use the same code, but 'chunk' the read... The get statement retrieves the amount of data available in the strTemp variable, ie: strTemp=Space(lof(f)) get f,,strTemp in the first line, it is setting strtemp as a string (of spaces) the length of the file (lof statement, f being the file pointer). The get statement can be used to read portions of the file.? By default, it keeps reading through, for example: Dim f as Long Dim intBufferSize As Long Dim strTemp as string Dim intSpaceRemaining as Long intBufferSize=512 F=freefile Open "C:\YourTextFile.txt" for binary access read as f intSpaceRemaining=lof(f) do until intspaceremaining=0 ????? if intBuffersize>intSpaceRemaining then intBuffersize=intSpaceRemaining ????? strTemp=Space(intBuffersize) ????? get f,,strTemp ????? strTemp=Replace(strTemp,"YourCharacters","") ????? intspaceremaining=intspaceremaining-intbuffersize loop close f In this example, it just keeps reading chunks (512 bytes (or characters) at a time).? You can be writing to a new file at the same time, just need a different variable to represent the NewFile pointer. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 3:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files.? The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S...? The largest is just over 150 mb From markamatte at hotmail.com Fri Aug 4 23:02:06 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Sat, 05 Aug 2006 04:02:06 +0000 Subject: [AccessD] FW: Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE40@MARLOW_MAIN2.marlow.com> Message-ID: Drew, I am home already(having cool refreshing beverages)...thank you very much for the help...I will plug in your latest version Monday. I hope you have a wonderful weekend!!! Thanks again, Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:55:42 -0500 > > > >________________________________________ >From: Drew Wutka >Sent: Friday, August 04, 2006 4:28 PM >To: 'Access Developers discussion and problem solving' >Subject: FW: [AccessD] Edit Large text file via VBA > >You can use the same code, but 'chunk' the read... > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > >strTemp=Space(lof(f)) >get f,,strTemp > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > >The get statement can be used to read portions of the file.? By default, it >keeps reading through, for example: > >Dim f as Long >Dim intBufferSize As Long >Dim strTemp as string >Dim intSpaceRemaining as Long >intBufferSize=512 >F=freefile >Open "C:\YourTextFile.txt" for binary access read as f >intSpaceRemaining=lof(f) >do until intspaceremaining=0 >????? if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining >????? strTemp=Space(intBuffersize) >????? get f,,strTemp >????? strTemp=Replace(strTemp,"YourCharacters","") >????? intspaceremaining=intspaceremaining-intbuffersize >loop >close f > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time).? You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Thanks again Drew. > >I might have forgotten to mention that these are farely LARGE text files.? >The one it is crashing on is 138 mb ...error= "Out of String Space" > >Any other ideas? > >Thanks again, > >Mark A. Matte > >P.S...? The largest is just over 150 mb > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Sat Aug 5 09:37:15 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Sat, 5 Aug 2006 10:37:15 -0400 Subject: [AccessD] Move update Message-ID: <002001c6b89c$a69db480$647aa8c0@m6805> Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. http://www.caldwellcochamber.org/main.asp http://www.city-data.com/city/Hudson-North-Carolina.html Hickory is 13 miles away towards the south. http://www.city-data.com/city/Hickory-North-Carolina.html We managed to find an awesome house - 3300 heated square feet, 1700 unheated (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new master bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch built in 1990 with a huge master bed/bath/office extension added in 2000. The house is really beautiful, built by a builder for his daughter and so has all top quality materials and workmanship. It sits all by itself on a one lane road, about 1000 feet off of the "main road" (which isn't all that busy either), so there is no traffic to speak of on our "driveway". Woods and fields on either side of the house, though there is a very nice (well kept) subdivision across the "road" (driveway) from us, we look at their back yards out across our front yard. There are about 10 tiny springs that run water down the back of my property creating a small creek, so my 5 year old son Robbie is down there every day building dams and looking for salamanders and crawdads. We are kind of "out in the country", with a couple of small towns within two miles. There is a small convenience store / gas station (which sells gas for $2.87 / gallon at the moment) just about a quarter mile up the main road. Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes hardware about 4 miles away. North about 8 miles is Lenoir which has all the typical shopping. South about 13 miles is Hickory with even more shopping. 60 miles south is Charlotte, with the closest major airport. We really like being outside of town so this is a perfect match for us. We arrived Saturday morning (July 22nd), the truck with all out possessions arrived Monday, and we almost killed ourselves getting it unloaded (with a lot of volunteer help - they refused payment!). My office is a mess but I am slowly digging out. Lots to do still. We got a refrigerator last Tuesday, and had a sectional delivered Wed. We sold a lot of our furniture since Hickory is known as the furniture capital of the US and furniture is really cheap down here. So we then purchased a beautiful 60" round solid oak dining table with 6 chairs for an incredible price! I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as I am accustomed to but serviceable. I have tested remote access to my client DIS and it works. So basically, the move is done. I am still running around getting business done - drivers license, register car, getting business checking, DBA paperwork etc. but we are now home in Hudson. John W. Colby Colby Consulting www.ColbyConsulting.com From ssharkins at setel.com Sat Aug 5 09:52:27 2006 From: ssharkins at setel.com (Susan Harkins) Date: Sat, 5 Aug 2006 10:52:27 -0400 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <000d01c6b89e$c5a471f0$0301a8c0@SUSANONE> Congratulations -- it sounds grand. I have a good friend in Lenoir -- I really like it down there. Susan H. Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. From shamil at users.mns.ru Sat Aug 5 11:31:42 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Sat, 5 Aug 2006 20:31:42 +0400 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <001901c6b8ac$a3a14a20$6501a8c0@nant> My congratulations, John! -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 6:37 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. <<< tail skipped >>> From wdhindman at dejpolsystems.com Sat Aug 5 12:28:20 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sat, 5 Aug 2006 13:28:20 -0400 Subject: [AccessD] Move update References: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <003001c6b8b4$8c850630$969aa545@50NM721> ...not many better places to raise kids than the Blueridge ...congratulations, JC :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 05, 2006 10:37 AM Subject: [AccessD] Move update > Just an update for the list members. If you remember, 6 or 8 months ago I > was asking questions of list members re North Carolina. Well, last week > we > moved out of the house we were leasing, and drove down to Hudson, NC - our > "official" home town now. > > > http://www.caldwellcochamber.org/main.asp > > > http://www.city-data.com/city/Hudson-North-Carolina.html > > Hickory is 13 miles away towards the south. > > > http://www.city-data.com/city/Hickory-North-Carolina.html > > We managed to find an awesome house - 3300 heated square feet, 1700 > unheated > (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new > master > bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a > ranch > built in 1990 with a huge master bed/bath/office extension added in 2000. > The house is really beautiful, built by a builder for his daughter and so > has all top quality materials and workmanship. It sits all by itself on a > one lane road, about 1000 feet off of the "main road" (which isn't all > that > busy either), so there is no traffic to speak of on our "driveway". Woods > and fields on either side of the house, though there is a very nice (well > kept) subdivision across the "road" (driveway) from us, we look at their > back yards out across our front yard. There are about 10 tiny springs > that > run water down the back of my property creating a small creek, so my 5 > year > old son Robbie is down there every day building dams and looking for > salamanders and crawdads. > > We are kind of "out in the country", with a couple of small towns within > two > miles. There is a small convenience store / gas station (which sells gas > for > $2.87 / gallon at the moment) just about a quarter mile up the main road. > Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes > hardware about 4 miles away. North about 8 miles is Lenoir which has all > the > typical shopping. South about 13 miles is Hickory with even more shopping. > 60 miles south is Charlotte, with the closest major airport. We really > like > being outside of town so this is a perfect match for us. > > We arrived Saturday morning (July 22nd), the truck with all out > possessions > arrived Monday, and we almost killed ourselves getting it unloaded (with a > lot of volunteer help - they refused payment!). My office is a mess but I > am > slowly digging out. Lots to do still. We got a refrigerator last Tuesday, > and had a sectional delivered Wed. We sold a lot of our furniture since > Hickory is known as the furniture capital of the US and furniture is > really > cheap down here. So we then purchased a beautiful 60" round solid oak > dining table with 6 chairs for an incredible price! > > I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as > I > am accustomed to but serviceable. I have tested remote access to my client > DIS and it works. > > So basically, the move is done. I am still running around getting > business > done - drivers license, register car, getting business checking, DBA > paperwork etc. but we are now home in Hudson. > > John W. Colby > Colby Consulting > 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 Aug 5 12:37:56 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Sat, 5 Aug 2006 13:37:56 -0400 Subject: [AccessD] Move update In-Reply-To: <001901c6b8ac$a3a14a20$6501a8c0@nant> Message-ID: <002801c6b8b5$e4112cc0$647aa8c0@m6805> Shamil, I will be in touch ASAP. Thanks, John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil Salakhetdinov Sent: Saturday, August 05, 2006 12:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Move update My congratulations, John! -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 6:37 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. <<< tail skipped >>> -- 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 Sat Aug 5 13:36:35 2006 From: lembit.dbamail at t-online.de (Lembit Soobik) Date: Sat, 5 Aug 2006 20:36:35 +0200 Subject: [AccessD] Move update References: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <001201c6b8be$15276c40$1400a8c0@v1000> congratulations John, seems you found a real good place to live and work Lembit ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 05, 2006 4:37 PM Subject: [AccessD] Move update > Just an update for the list members. If you remember, 6 or 8 months ago I > was asking questions of list members re North Carolina. Well, last week > we > moved out of the house we were leasing, and drove down to Hudson, NC - our > "official" home town now. > > > http://www.caldwellcochamber.org/main.asp > > > http://www.city-data.com/city/Hudson-North-Carolina.html > > Hickory is 13 miles away towards the south. > > > http://www.city-data.com/city/Hickory-North-Carolina.html > > We managed to find an awesome house - 3300 heated square feet, 1700 > unheated > (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new > master > bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a > ranch > built in 1990 with a huge master bed/bath/office extension added in 2000. > The house is really beautiful, built by a builder for his daughter and so > has all top quality materials and workmanship. It sits all by itself on a > one lane road, about 1000 feet off of the "main road" (which isn't all > that > busy either), so there is no traffic to speak of on our "driveway". Woods > and fields on either side of the house, though there is a very nice (well > kept) subdivision across the "road" (driveway) from us, we look at their > back yards out across our front yard. There are about 10 tiny springs > that > run water down the back of my property creating a small creek, so my 5 > year > old son Robbie is down there every day building dams and looking for > salamanders and crawdads. > > We are kind of "out in the country", with a couple of small towns within > two > miles. There is a small convenience store / gas station (which sells gas > for > $2.87 / gallon at the moment) just about a quarter mile up the main road. > Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes > hardware about 4 miles away. North about 8 miles is Lenoir which has all > the > typical shopping. South about 13 miles is Hickory with even more shopping. > 60 miles south is Charlotte, with the closest major airport. We really > like > being outside of town so this is a perfect match for us. > > We arrived Saturday morning (July 22nd), the truck with all out > possessions > arrived Monday, and we almost killed ourselves getting it unloaded (with a > lot of volunteer help - they refused payment!). My office is a mess but I > am > slowly digging out. Lots to do still. We got a refrigerator last Tuesday, > and had a sectional delivered Wed. We sold a lot of our furniture since > Hickory is known as the furniture capital of the US and furniture is > really > cheap down here. So we then purchased a beautiful 60" round solid oak > dining table with 6 chairs for an incredible price! > > I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as > I > am accustomed to but serviceable. I have tested remote access to my client > DIS and it works. > > So basically, the move is done. I am still running around getting > business > done - drivers license, register car, getting business checking, DBA > paperwork etc. but we are now home in Hudson. > > John W. Colby > Colby Consulting > www.ColbyConsulting.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.394 / Virus Database: 268.10.7/409 - Release Date: 04.08.2006 > > From accessd at shaw.ca Sat Aug 5 13:42:49 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 05 Aug 2006 11:42:49 -0700 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <0J3J00GHCFZ0OB00@l-daemon> Hi John: Sounds like a quite an estate! :-) The area looks grand but if you could send along some pictures of the abode we/I would have a better idea of where we would be staying if we came for a visit. A definite congratulation! Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 7:37 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. http://www.caldwellcochamber.org/main.asp http://www.city-data.com/city/Hudson-North-Carolina.html Hickory is 13 miles away towards the south. http://www.city-data.com/city/Hickory-North-Carolina.html We managed to find an awesome house - 3300 heated square feet, 1700 unheated (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new master bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch built in 1990 with a huge master bed/bath/office extension added in 2000. The house is really beautiful, built by a builder for his daughter and so has all top quality materials and workmanship. It sits all by itself on a one lane road, about 1000 feet off of the "main road" (which isn't all that busy either), so there is no traffic to speak of on our "driveway". Woods and fields on either side of the house, though there is a very nice (well kept) subdivision across the "road" (driveway) from us, we look at their back yards out across our front yard. There are about 10 tiny springs that run water down the back of my property creating a small creek, so my 5 year old son Robbie is down there every day building dams and looking for salamanders and crawdads. We are kind of "out in the country", with a couple of small towns within two miles. There is a small convenience store / gas station (which sells gas for $2.87 / gallon at the moment) just about a quarter mile up the main road. Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes hardware about 4 miles away. North about 8 miles is Lenoir which has all the typical shopping. South about 13 miles is Hickory with even more shopping. 60 miles south is Charlotte, with the closest major airport. We really like being outside of town so this is a perfect match for us. We arrived Saturday morning (July 22nd), the truck with all out possessions arrived Monday, and we almost killed ourselves getting it unloaded (with a lot of volunteer help - they refused payment!). My office is a mess but I am slowly digging out. Lots to do still. We got a refrigerator last Tuesday, and had a sectional delivered Wed. We sold a lot of our furniture since Hickory is known as the furniture capital of the US and furniture is really cheap down here. So we then purchased a beautiful 60" round solid oak dining table with 6 chairs for an incredible price! I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as I am accustomed to but serviceable. I have tested remote access to my client DIS and it works. So basically, the move is done. I am still running around getting business done - drivers license, register car, getting business checking, DBA paperwork etc. but we are now home in Hudson. John W. Colby Colby Consulting www.ColbyConsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From carbonnb at sympatico.ca Sat Aug 5 13:49:41 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Sat, 05 Aug 2006 14:49:41 -0400 Subject: [AccessD] Move update In-Reply-To: <0J3J00GHCFZ0OB00@l-daemon> References: <002001c6b89c$a69db480$647aa8c0@m6805>, <0J3J00GHCFZ0OB00@l-daemon> Message-ID: On 5 Aug 2006 at 11:42, Jim Lawrence wrote: > Sounds like a quite an estate! :-) The area looks grand but if you could > send along some pictures of the abode we/I would have a better idea of > where we would be staying if we came for a visit. Don't you mean when :) Sounds like an amazing place John!! A place I know I'd love too Quite the coincidence too, I grew up in a place called Hudson, Quebec :) -- Bryan Carbonnell - carbonnb at sympatico.ca When there's a will, I want to be in it. From accessd at shaw.ca Sat Aug 5 14:33:46 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 05 Aug 2006 12:33:46 -0700 Subject: [AccessD] OT request In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <0J3J00GLGIBVOB20@l-daemon> Hi All: Any help please. I have been having some problems with my internet connections. They keep cycling off and on. The ISP seems nonplus about the situation and I believe they are doing some renovations or design upgraded which is causing havoc. I have to first determine that there are not some internal network issues that may be directly or indirectly causing some problems or whether it is totally an external event. To that end does anyone know of or have an application that can monitor 'pings' for example. If times when the site losses it access can be recorded then it can be cross-referenced against server network events. Regardless of the results this would determine cause or at least the guilty party. MTIA Jim From robert at servicexp.com Sat Aug 5 14:39:41 2006 From: robert at servicexp.com (Robert) Date: Sat, 5 Aug 2006 15:39:41 -0400 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <000401c6b8c6$e5782710$6501a8c0@roberts> I'm jealous..... Robert SNIP From martyconnelly at shaw.ca Sat Aug 5 14:55:03 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sat, 05 Aug 2006 12:55:03 -0700 Subject: [AccessD] OT request In-Reply-To: <0J3J00GLGIBVOB20@l-daemon> References: <0J3J00GLGIBVOB20@l-daemon> Message-ID: <44D4F797.1090500@shaw.ca> Well I am on same ISP and area and Thursday and Friday I was getting hourly "work off-line" popup messages, so I guess I was losing connection, Haven't noticed it today. Just another case of Last night upon the stair I saw a man who wasn't there He wasn't there again today Oh how I wish he'd go away. Jim Lawrence wrote: >Hi All: > >Any help please. > >I have been having some problems with my internet connections. They keep >cycling off and on. The ISP seems nonplus about the situation and I believe >they are doing some renovations or design upgraded which is causing havoc. > >I have to first determine that there are not some internal network issues >that may be directly or indirectly causing some problems or whether it is >totally an external event. > >To that end does anyone know of or have an application that can monitor >'pings' for example. If times when the site losses it access can be recorded >then it can be cross-referenced against server network events. Regardless of >the results this would determine cause or at least the guilty party. > >MTIA >Jim > > > -- Marty Connelly Victoria, B.C. Canada From accessd at shaw.ca Sat Aug 5 17:15:17 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 05 Aug 2006 15:15:17 -0700 Subject: [AccessD] OT request In-Reply-To: <44D4F797.1090500@shaw.ca> Message-ID: <0J3J00753PT1FPF0@l-daemon> Thank you Marty... Glad for the local update as other areas in the city seem either not affected or less affected. As we live so close one of these days we should T up for coffee.... now back to work.... what a way to waste a beautiful Saturday. Regards Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Saturday, August 05, 2006 12:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] OT request Well I am on same ISP and area and Thursday and Friday I was getting hourly "work off-line" popup messages, so I guess I was losing connection, Haven't noticed it today. Just another case of Last night upon the stair I saw a man who wasn't there He wasn't there again today Oh how I wish he'd go away. Jim Lawrence wrote: >Hi All: > >Any help please. > >I have been having some problems with my internet connections. They keep >cycling off and on. The ISP seems nonplus about the situation and I believe >they are doing some renovations or design upgraded which is causing havoc. > >I have to first determine that there are not some internal network issues >that may be directly or indirectly causing some problems or whether it is >totally an external event. > >To that end does anyone know of or have an application that can monitor >'pings' for example. If times when the site losses it access can be recorded >then it can be cross-referenced against server network events. Regardless of >the results this would determine cause or at least the guilty party. > >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 stuart at lexacorp.com.pg Sat Aug 5 19:11:07 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sun, 06 Aug 2006 10:11:07 +1000 Subject: [AccessD] Move update In-Reply-To: <0J3J00GHCFZ0OB00@l-daemon> References: <002001c6b89c$a69db480$647aa8c0@m6805>, <0J3J00GHCFZ0OB00@l-daemon> Message-ID: <44D5C03B.21874.1AEEB6@stuart.lexacorp.com.pg> On 5 Aug 2006 at 11:42, Jim Lawrence wrote: > Hi John: > > Sounds like a quite an estate! :-) The area looks grand but if you could > send along some pictures of the abode we/I would have a better idea of where > we would be staying if we came for a visit. > How about a Google Earth link? Here's one to my humble abode. (You can copy it and paste it into GE's "My Places" Stuart McLachlan's House 147.2003449707596 -9.463899125387561 48.00852926872756 -3.413644024727666e-010 -0.2796713234446147 root://styleMaps#default+nicon=0x307+hicon=0x317 147.2002818840805,-9.463970665195062,0 -- Stuart From jmhecht at earthlink.net Sat Aug 5 22:44:03 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Sat, 5 Aug 2006 20:44:03 -0700 Subject: [AccessD] Move update In-Reply-To: <0J3J00GHCFZ0OB00@l-daemon> Message-ID: I think we know the site if the next Access-d Conference. ; ) 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: Saturday, August 05, 2006 11:43 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Move update Hi John: Sounds like a quite an estate! :-) The area looks grand but if you could send along some pictures of the abode we/I would have a better idea of where we would be staying if we came for a visit. A definite congratulation! Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 7:37 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. http://www.caldwellcochamber.org/main.asp http://www.city-data.com/city/Hudson-North-Carolina.html Hickory is 13 miles away towards the south. http://www.city-data.com/city/Hickory-North-Carolina.html We managed to find an awesome house - 3300 heated square feet, 1700 unheated (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new master bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch built in 1990 with a huge master bed/bath/office extension added in 2000. The house is really beautiful, built by a builder for his daughter and so has all top quality materials and workmanship. It sits all by itself on a one lane road, about 1000 feet off of the "main road" (which isn't all that busy either), so there is no traffic to speak of on our "driveway". Woods and fields on either side of the house, though there is a very nice (well kept) subdivision across the "road" (driveway) from us, we look at their back yards out across our front yard. There are about 10 tiny springs that run water down the back of my property creating a small creek, so my 5 year old son Robbie is down there every day building dams and looking for salamanders and crawdads. We are kind of "out in the country", with a couple of small towns within two miles. There is a small convenience store / gas station (which sells gas for $2.87 / gallon at the moment) just about a quarter mile up the main road. Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes hardware about 4 miles away. North about 8 miles is Lenoir which has all the typical shopping. South about 13 miles is Hickory with even more shopping. 60 miles south is Charlotte, with the closest major airport. We really like being outside of town so this is a perfect match for us. We arrived Saturday morning (July 22nd), the truck with all out possessions arrived Monday, and we almost killed ourselves getting it unloaded (with a lot of volunteer help - they refused payment!). My office is a mess but I am slowly digging out. Lots to do still. We got a refrigerator last Tuesday, and had a sectional delivered Wed. We sold a lot of our furniture since Hickory is known as the furniture capital of the US and furniture is really cheap down here. So we then purchased a beautiful 60" round solid oak dining table with 6 chairs for an incredible price! I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as I am accustomed to but serviceable. I have tested remote access to my client DIS and it works. So basically, the move is done. I am still running around getting business done - drivers license, register car, getting business checking, DBA paperwork etc. but we are now home in Hudson. John W. Colby Colby Consulting 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 Mon Aug 7 08:15:03 2006 From: darrend at nimble.com.au (Darren DICK) Date: Mon, 7 Aug 2006 23:15:03 +1000 Subject: [AccessD] A2003:Rename Files in a folder Message-ID: <20060807131521.MSSA10893.omta02ps.mx.bigpond.com@DENZILLAP> Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:\CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance Darren From markamatte at hotmail.com Mon Aug 7 09:08:12 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 07 Aug 2006 14:08:12 +0000 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: Congrats JC... Let me know when...I'll buy the first round...Looks like I'm only 1.5 hours E NE. I live in Greensboro. My girlfriend and I might actually be going to Hickory in a couple of weeks. If you're available maybe we can grab lunch or something. Mark A. Matte >From: "JWColby" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: [AccessD] Move update >Date: Sat, 5 Aug 2006 10:37:15 -0400 > >Just an update for the list members. If you remember, 6 or 8 months ago I >was asking questions of list members re North Carolina. Well, last week we >moved out of the house we were leasing, and drove down to Hudson, NC - our >"official" home town now. > > >http://www.caldwellcochamber.org/main.asp > > >http://www.city-data.com/city/Hudson-North-Carolina.html > >Hickory is 13 miles away towards the south. > > >http://www.city-data.com/city/Hickory-North-Carolina.html > >We managed to find an awesome house - 3300 heated square feet, 1700 >unheated >(basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new >master >bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch >built in 1990 with a huge master bed/bath/office extension added in 2000. >The house is really beautiful, built by a builder for his daughter and so >has all top quality materials and workmanship. It sits all by itself on a >one lane road, about 1000 feet off of the "main road" (which isn't all that >busy either), so there is no traffic to speak of on our "driveway". Woods >and fields on either side of the house, though there is a very nice (well >kept) subdivision across the "road" (driveway) from us, we look at their >back yards out across our front yard. There are about 10 tiny springs that >run water down the back of my property creating a small creek, so my 5 year >old son Robbie is down there every day building dams and looking for >salamanders and crawdads. > >We are kind of "out in the country", with a couple of small towns within >two >miles. There is a small convenience store / gas station (which sells gas >for >$2.87 / gallon at the moment) just about a quarter mile up the main road. >Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes >hardware about 4 miles away. North about 8 miles is Lenoir which has all >the >typical shopping. South about 13 miles is Hickory with even more shopping. >60 miles south is Charlotte, with the closest major airport. We really >like >being outside of town so this is a perfect match for us. > >We arrived Saturday morning (July 22nd), the truck with all out possessions >arrived Monday, and we almost killed ourselves getting it unloaded (with a >lot of volunteer help - they refused payment!). My office is a mess but I >am >slowly digging out. Lots to do still. We got a refrigerator last Tuesday, >and had a sectional delivered Wed. We sold a lot of our furniture since >Hickory is known as the furniture capital of the US and furniture is really >cheap down here. So we then purchased a beautiful 60" round solid oak >dining table with 6 chairs for an incredible price! > >I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as >I >am accustomed to but serviceable. I have tested remote access to my client >DIS and it works. > >So basically, the move is done. I am still running around getting business >done - drivers license, register car, getting business checking, DBA >paperwork etc. but we are now home in Hudson. > >John W. Colby >Colby Consulting >www.ColbyConsulting.com > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Mon Aug 7 09:37:05 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 10:37:05 -0400 Subject: [AccessD] A2003:Rename Files in a folder References: <20060807131521.MSSA10893.omta02ps.mx.bigpond.com@DENZILLAP> Message-ID: <005001c6ba2e$f4f64500$969aa545@50NM721> ...from VBA "Help" Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. ...FMS has some more elaborate code that should give you a running start http://www.fmsinc.com/free/newtips/Access/accesstip31.asp ...hth William ----- Original Message ----- From: "Darren DICK" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 07, 2006 9:15 AM Subject: [AccessD] A2003:Rename Files in a folder > Hi all > > I have to loop through a folder and rename all the files in it to have > some text > as a prefix > > For EG there may be a folder C:\CoolFolder > In it may be 5 files or 5000 files that are all sequentially numbered and > named > like... > 1012.pdf, 1013.pdf, 1014.pdf etc etc > > What I need to do is loop all the files and add a prefix such as "inv" so > the > file names become > inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc > > Any pointers - anyone got any file renaming snippets they'd care to share? > > many thanks in advance > > Darren > > > -- > 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 Aug 7 10:47:21 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Mon, 7 Aug 2006 15:47:21 +0000 Subject: [AccessD] A2003:Rename Files in a folder Message-ID: <20060807144725.E95732732B4@smtp.nildram.co.uk> Hiya matey. This might help. Function RenameFilesInFolder(strFolder As String) Dim strFullFolder As String Dim strFilename As String Dim strFullFileName As String Dim strNewFullFilename As String strFullFolder = strFolder & IIf(Right(strFolder, 1) <> "\", "\", "") strFilename = Dir(strFullFolder & "*.*", vbNormal) Do While strFilename <> "" strFullFileName = strFullFolder & strFilename strNewFullFilename = strFullFolder & "inv" & strFilename Name strFullFileName As strNewFullFilename strFilename = Dir Loop End Function See ya. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "'Access Developers discussion and problem solving'" Subject: [AccessD] A2003:Rename Files in a folder Date: 07/08/06 13:19 Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance Darren -- 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 markamatte at hotmail.com Mon Aug 7 09:59:14 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 07 Aug 2006 14:59:14 +0000 Subject: [AccessD] FW: Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE34@MARLOW_MAIN2.marlow.com> Message-ID: Thanks Drew...but I'm kinda lost on this part: >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. I know I need to do this...but I would have to do it within the loop...and can I have to files open at the same time? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:28:25 -0500 > >You can use the same code, but 'chunk' the read... > > > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > > > >strTemp=Space(lof(f)) > >get f,,strTemp > > > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > > > >The get statement can be used to read portions of the file. By default, it >keeps reading through, for example: > > > >Dim f as Long > >Dim intBufferSize As Long > >Dim strTemp as string > >Dim intSpaceRemaining as Long > >intBufferSize=512 > >F=freefile > >Open "C:\YourTextFile.txt" for binary access read as f > >intSpaceRemaining=lof(f) > >do until intspaceremaining=0 > > if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining > > strTemp=Space(intBuffersize) > > get f,,strTemp > > strTemp=Replace(strTemp,"YourCharacters","") > > intspaceremaining=intspaceremaining-intbuffersize > >loop > >close f > > > > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > > > >Drew > > > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Thanks again Drew. > > > >I might have forgotten to mention that these are farely LARGE text files. > >The one it is crashing on is 138 mb ...error= "Out of String Space" > > > >Any other ideas? > > > >Thanks again, > > > >Mark A. Matte > > > >P.S... The largest is just over 150 mb > > > >-- >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 Aug 7 09:59:32 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 07:59:32 -0700 Subject: [AccessD] Broken Reference Message-ID: <44D75554.8070700@san.rr.com> Dear List: I have a client who prints bar coded labels through an application called Bartender (cute, huh?). I wrote a production management system for them which contains all the information in the db that they are inputting manually into Bartender. So the client asked me to add a function to the app to run Bartender from the production system and that is working great. To do this I downloaded and installed the trial version of Bartender and so was able to set a reference to it in the VBA code so I could run Bartender from the client's app (stuff like Public BtApp As BarTender.Application and Public BtFormat As BarTender.Format and Set BtApp = CreateObject("BarTender.Application")). Problem is that the app won't run on any machine which doesn't have Bartender loaded - it gets a broken reference error when the app opens. So I'm wondering how to handle this. Perhaps I unset the reference in the Tools-->References and set it when the bar code form opens? Or is there a way to trap and get around this error when the app loads? What's the best way to handle this? MTIA, Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From markamatte at hotmail.com Mon Aug 7 10:11:06 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 07 Aug 2006 15:11:06 +0000 Subject: [AccessD] FW: Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE40@MARLOW_MAIN2.marlow.com> Message-ID: Ok please disregard the last post...its Monday and apparently I'm not thinking clear...I rewrote using the example below...and apparently my code had run once...opened the file I was going to create...and crashed. And after that...evertime I tried I tried to execute I got the error File Already Open... ....anyway...blahhh....blahhh.blahhh... It works now. Very many thanks to all that contributed. Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:55:42 -0500 > > > >________________________________________ >From: Drew Wutka >Sent: Friday, August 04, 2006 4:28 PM >To: 'Access Developers discussion and problem solving' >Subject: FW: [AccessD] Edit Large text file via VBA > >You can use the same code, but 'chunk' the read... > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > >strTemp=Space(lof(f)) >get f,,strTemp > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > >The get statement can be used to read portions of the file.? By default, it >keeps reading through, for example: > >Dim f as Long >Dim intBufferSize As Long >Dim strTemp as string >Dim intSpaceRemaining as Long >intBufferSize=512 >F=freefile >Open "C:\YourTextFile.txt" for binary access read as f >intSpaceRemaining=lof(f) >do until intspaceremaining=0 >????? if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining >????? strTemp=Space(intBuffersize) >????? get f,,strTemp >????? strTemp=Replace(strTemp,"YourCharacters","") >????? intspaceremaining=intspaceremaining-intbuffersize >loop >close f > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time).? You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Thanks again Drew. > >I might have forgotten to mention that these are farely LARGE text files.? >The one it is crashing on is 138 mb ...error= "Out of String Space" > >Any other ideas? > >Thanks again, > >Mark A. Matte > >P.S...? The largest is just over 150 mb > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From askolits at ot.com Mon Aug 7 10:13:00 2006 From: askolits at ot.com (John Skolits) Date: Mon, 7 Aug 2006 11:13:00 -0400 Subject: [AccessD] A2003:Rename Files in a folder In-Reply-To: <20060807131521.MSSA10893.omta02ps.mx.bigpond.com@DENZILLAP> Message-ID: <004a01c6ba33$fbe3da30$800101df@officexp> Here ya' go: Function RenameFiles() Dim strFileName As String Dim strPath As String 'Set Your Path '***Important, Make sure you include the last backslash strPath = "C:\Temp\" 'Return the 'first' filename in the folder strFileName = Dir(strPath) Do Until strFileName = "" 'rename it Name strPath & strFileName As strPath & "INV" & strFileName 'If you just execute the DIR() function, it returns the next file in the folder. strFileName = Dir Loop End Function John Skolits -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK Sent: Monday, August 07, 2006 9:15 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] A2003:Rename Files in a folder Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:\CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Mon Aug 7 10:50:38 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 11:50:38 -0400 Subject: [AccessD] Broken Reference References: <44D75554.8070700@san.rr.com> Message-ID: <00a901c6ba39$3b348e00$969aa545@50NM721> Rocky ...Neal Kling has a references sample mdb that I use in modified form ...you can run it at your app open and check for broken references since it uses no references itself ...it lets you fix or remove them ...no reason you couldn't call the function using the known reference and do whatever you needed to with it. http://www.geocities.com/nealakling/index.html William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Monday, August 07, 2006 10:59 AM Subject: [AccessD] Broken Reference > Dear List: > > I have a client who prints bar coded labels through an application > called Bartender (cute, huh?). I wrote a production management system > for them which contains all the information in the db that they are > inputting manually into Bartender. So the client asked me to add a > function to the app to run Bartender from the production system and that > is working great. > > To do this I downloaded and installed the trial version of Bartender and > so was able to set a reference to it in the VBA code so I could run > Bartender from the client's app (stuff like Public BtApp As > BarTender.Application and Public BtFormat As BarTender.Format and Set > BtApp = CreateObject("BarTender.Application")). > > Problem is that the app won't run on any machine which doesn't have > Bartender loaded - it gets a broken reference error when the app opens. > > So I'm wondering how to handle this. Perhaps I unset the reference in > the Tools-->References and set it when the bar code form opens? Or is > there a way to trap and get around this error when the app loads? > > What's the best way to handle this? > > MTIA, > > 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 cfoust at infostatsystems.com Mon Aug 7 10:52:10 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 7 Aug 2006 08:52:10 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D75554.8070700@san.rr.com> Message-ID: I'll tell you what we did to handle a similar situation with Redemption and the CDO libraries: We put all the direct calls to the redemption dll into a code library compiled as an mde. When the CDO library is missing, the redemption library sinks the broken reference. Our Access code makes calls to the mde, which the regular application to go on about its business without a broken reference, and we do a test for the CDO library in our regular app and disable the email capabilities if it's not present. No calls to redemption, no broken reference errors. 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, August 07, 2006 8:00 AM To: Access Developers discussion and problem solving Subject: [AccessD] Broken Reference Dear List: I have a client who prints bar coded labels through an application called Bartender (cute, huh?). I wrote a production management system for them which contains all the information in the db that they are inputting manually into Bartender. So the client asked me to add a function to the app to run Bartender from the production system and that is working great. To do this I downloaded and installed the trial version of Bartender and so was able to set a reference to it in the VBA code so I could run Bartender from the client's app (stuff like Public BtApp As BarTender.Application and Public BtFormat As BarTender.Format and Set BtApp = CreateObject("BarTender.Application")). Problem is that the app won't run on any machine which doesn't have Bartender loaded - it gets a broken reference error when the app opens. So I'm wondering how to handle this. Perhaps I unset the reference in the Tools-->References and set it when the bar code form opens? Or is there a way to trap and get around this error when the app loads? What's the best way to handle this? MTIA, 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 Mon Aug 7 11:17:21 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 09:17:21 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <00a901c6ba39$3b348e00$969aa545@50NM721> References: <44D75554.8070700@san.rr.com> <00a901c6ba39$3b348e00$969aa545@50NM721> Message-ID: <44D76791.5040801@san.rr.com> Thanks. Looks like it will do the job. Rocky William Hindman wrote: > Rocky > > ...Neal Kling has a references sample mdb that I use in modified form ...you > can run it at your app open and check for broken references since it uses no > references itself ...it lets you fix or remove them ...no reason you > couldn't call the function using the known reference and do whatever you > needed to with it. > > http://www.geocities.com/nealakling/index.html > > William > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Monday, August 07, 2006 10:59 AM > Subject: [AccessD] Broken Reference > > > >> Dear List: >> >> I have a client who prints bar coded labels through an application >> called Bartender (cute, huh?). I wrote a production management system >> for them which contains all the information in the db that they are >> inputting manually into Bartender. So the client asked me to add a >> function to the app to run Bartender from the production system and that >> is working great. >> >> To do this I downloaded and installed the trial version of Bartender and >> so was able to set a reference to it in the VBA code so I could run >> Bartender from the client's app (stuff like Public BtApp As >> BarTender.Application and Public BtFormat As BarTender.Format and Set >> BtApp = CreateObject("BarTender.Application")). >> >> Problem is that the app won't run on any machine which doesn't have >> Bartender loaded - it gets a broken reference error when the app opens. >> >> So I'm wondering how to handle this. Perhaps I unset the reference in >> the Tools-->References and set it when the bar code form opens? Or is >> there a way to trap and get around this error when the app loads? >> >> What's the best way to handle this? >> >> MTIA, >> >> 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 >> >> > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Mon Aug 7 11:53:58 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 09:53:58 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D75554.8070700@san.rr.com> References: <44D75554.8070700@san.rr.com> Message-ID: <44D77026.9030107@shaw.ca> You are mixing Early and Late Binding methods First remove the reference Then just change your declarations to things like Public BtApp As Object 'BarTender.Application Public BtFormat As String 'BarTender.Format If you are unsure of the type returned try using a variant especially in the case of returned arrays. or leave both types in and do a conditional compile around them #Const DebugVersion = 0 #if DebugVersion = 1 then Dim wa as BarTender.Application Set wa = new BarTender.Application #else Dim wa as Object set wa = createobject ("BarTender.Application") #endif You'l have to set the flag to 1 (#Const DebugVersion = 1) and then add a reference to Bartender for the debug intellisence to work.. Then to check if Bartender is actually installed on the machine On Error Resume Next Set objExcelapp = CreateObject("BarTender.Application") If Err.Number Then MsgBox "Bartender not installed or not registered for Automation" Exit Sub End If 'reset error Rocky Smolin - Beach Access Software wrote: >Dear List: > >I have a client who prints bar coded labels through an application >called Bartender (cute, huh?). I wrote a production management system >for them which contains all the information in the db that they are >inputting manually into Bartender. So the client asked me to add a >function to the app to run Bartender from the production system and that >is working great. > >To do this I downloaded and installed the trial version of Bartender and >so was able to set a reference to it in the VBA code so I could run >Bartender from the client's app (stuff like Public BtApp As >BarTender.Application and Public BtFormat As BarTender.Format and Set >BtApp = CreateObject("BarTender.Application")). > >Problem is that the app won't run on any machine which doesn't have >Bartender loaded - it gets a broken reference error when the app opens. > >So I'm wondering how to handle this. Perhaps I unset the reference in >the Tools-->References and set it when the bar code form opens? Or is >there a way to trap and get around this error when the app loads? > >What's the best way to handle this? > >MTIA, > >Rocky > > > -- Marty Connelly Victoria, B.C. Canada From shamil at users.mns.ru Mon Aug 7 10:22:43 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Mon, 7 Aug 2006 19:22:43 +0400 Subject: [AccessD] Broken Reference In-Reply-To: <44D75554.8070700@san.rr.com> Message-ID: <002401c6ba35$5467a730$6401a8c0@nant> Rocky, You can drop reference and use late (run-time) binding. Setting references on run-time will not work for MDEs. Setting references on run-time for MDBs will force your application (FE) database to loose compiled state. I'd also encapsulate all the calls to BarTender application's functions into a custom class. -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Monday, August 07, 2006 7:00 PM To: Access Developers discussion and problem solving Subject: [AccessD] Broken Reference Dear List: I have a client who prints bar coded labels through an application called Bartender (cute, huh?). I wrote a production management system for them which contains all the information in the db that they are inputting manually into Bartender. So the client asked me to add a function to the app to run Bartender from the production system and that is working great. To do this I downloaded and installed the trial version of Bartender and so was able to set a reference to it in the VBA code so I could run Bartender from the client's app (stuff like Public BtApp As BarTender.Application and Public BtFormat As BarTender.Format and Set BtApp = CreateObject("BarTender.Application")). Problem is that the app won't run on any machine which doesn't have Bartender loaded - it gets a broken reference error when the app opens. So I'm wondering how to handle this. Perhaps I unset the reference in the Tools-->References and set it when the bar code form opens? Or is there a way to trap and get around this error when the app loads? What's the best way to handle this? MTIA, 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 Mon Aug 7 12:30:04 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 10:30:04 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <002401c6ba35$5467a730$6401a8c0@nant> References: <002401c6ba35$5467a730$6401a8c0@nant> Message-ID: <44D7789C.2060608@san.rr.com> Shamil: "Setting references on run-time for MDBs will force your application (FE)database to loose compiled state." Any penalty for that? "I'd also encapsulate all the calls to BarTender application's functions into a custom class." A bit beyond my talents at the moment but I suppose I should learn how to do it. But the late binding thing looks like the way to go. I'll try it with Marty's snips. I have a second machine without BarTender I can test it on. What happens if I don't put all the BarTender functions in a custom class? Rocky Shamil Salakhetdinov wrote: > Rocky, > > You can drop reference and use late (run-time) binding. > Setting references on run-time will not work for MDEs. > Setting references on run-time for MDBs will force your application (FE) > database to loose compiled state. > > I'd also encapsulate all the calls to BarTender application's functions into > a custom class. > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Monday, August 07, 2006 7:00 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Broken Reference > > Dear List: > > I have a client who prints bar coded labels through an application > called Bartender (cute, huh?). I wrote a production management system > for them which contains all the information in the db that they are > inputting manually into Bartender. So the client asked me to add a > function to the app to run Bartender from the production system and that > is working great. > > To do this I downloaded and installed the trial version of Bartender and > so was able to set a reference to it in the VBA code so I could run > Bartender from the client's app (stuff like Public BtApp As > BarTender.Application and Public BtFormat As BarTender.Format and Set > BtApp = CreateObject("BarTender.Application")). > > Problem is that the app won't run on any machine which doesn't have > Bartender loaded - it gets a broken reference error when the app opens. > > So I'm wondering how to handle this. Perhaps I unset the reference in > the Tools-->References and set it when the bar code form opens? Or is > there a way to trap and get around this error when the app loads? > > What's the best way to handle this? > > MTIA, > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Mon Aug 7 12:30:34 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 10:30:34 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D77026.9030107@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> Message-ID: <44D778BA.9080308@san.rr.com> That looks like what I'm really looking for. Late binding. I'll give it a try. Thanks and regards, Rocky MartyConnelly wrote: > You are mixing Early and Late Binding methods > First remove the reference > Then just change your declarations to things like > > Public BtApp As Object 'BarTender.Application > Public BtFormat As String 'BarTender.Format > > > If you are unsure of the type returned try using a variant > especially in the case of returned arrays. > > or leave both types in and do a conditional compile around them > > #Const DebugVersion = 0 > > #if DebugVersion = 1 then > Dim wa as BarTender.Application > Set wa = new BarTender.Application > #else > Dim wa as Object > set wa = createobject ("BarTender.Application") > #endif > You'l have to set the flag to 1 > (#Const DebugVersion = 1) > and then add a reference to Bartender > for the debug intellisence to work.. > > Then to check if Bartender is actually installed on the machine > > On Error Resume Next > Set objExcelapp = CreateObject("BarTender.Application") > If Err.Number Then > MsgBox "Bartender not installed or not registered for Automation" > Exit Sub > End If > 'reset error > > > > > Rocky Smolin - Beach Access Software wrote: > > >> Dear List: >> >> I have a client who prints bar coded labels through an application >> called Bartender (cute, huh?). I wrote a production management system >> for them which contains all the information in the db that they are >> inputting manually into Bartender. So the client asked me to add a >> function to the app to run Bartender from the production system and that >> is working great. >> >> To do this I downloaded and installed the trial version of Bartender and >> so was able to set a reference to it in the VBA code so I could run >> Bartender from the client's app (stuff like Public BtApp As >> BarTender.Application and Public BtFormat As BarTender.Format and Set >> BtApp = CreateObject("BarTender.Application")). >> >> Problem is that the app won't run on any machine which doesn't have >> Bartender loaded - it gets a broken reference error when the app opens. >> >> So I'm wondering how to handle this. Perhaps I unset the reference in >> the Tools-->References and set it when the bar code form opens? Or is >> there a way to trap and get around this error when the app loads? >> >> What's the best way to handle this? >> >> MTIA, >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From DWUTKA at marlow.com Mon Aug 7 12:56:08 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Mon, 7 Aug 2006 12:56:08 -0500 Subject: [AccessD] FW: Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BDCAC@MARLOW_MAIN2.marlow.com> Yep. Ie: Dim f as long Dim g as long F=freefile G=freefile Open ..... for binary access read as f Open ..... for binary access write as g Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Monday, August 07, 2006 9:59 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] FW: Edit Large text file via VBA Thanks Drew...but I'm kinda lost on this part: >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. I know I need to do this...but I would have to do it within the loop...and can I have to files open at the same time? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:28:25 -0500 > >You can use the same code, but 'chunk' the read... > > > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > > > >strTemp=Space(lof(f)) > >get f,,strTemp > > > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > > > >The get statement can be used to read portions of the file. By default, it >keeps reading through, for example: > > > >Dim f as Long > >Dim intBufferSize As Long > >Dim strTemp as string > >Dim intSpaceRemaining as Long > >intBufferSize=512 > >F=freefile > >Open "C:\YourTextFile.txt" for binary access read as f > >intSpaceRemaining=lof(f) > >do until intspaceremaining=0 > > if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining > > strTemp=Space(intBuffersize) > > get f,,strTemp > > strTemp=Replace(strTemp,"YourCharacters","") > > intspaceremaining=intspaceremaining-intbuffersize > >loop > >close f > > > > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > > > >Drew > > > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Thanks again Drew. > > > >I might have forgotten to mention that these are farely LARGE text files. > >The one it is crashing on is 138 mb ...error= "Out of String Space" > > > >Any other ideas? > > > >Thanks again, > > > >Mark A. Matte > > > >P.S... The largest is just over 150 mb > > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 7 13:07:49 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 11:07:49 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D77026.9030107@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> Message-ID: <44D78175.2000407@san.rr.com> Marty: I deleted the Reference to Bartender and changed the declarations to: Public BtApp As Object 'BarTender.Application Public BtFormat As Variant 'BarTender.Format In the load event I put: Set BtApp = CreateObject("BarTender.Application") In the Print event however, on the line Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) I get an 'argument not optional' error. With the old declarations it worked. Any idea what's going wrong? Thanks and regards, Rocky MartyConnelly wrote: > You are mixing Early and Late Binding methods > First remove the reference > Then just change your declarations to things like > > Public BtApp As Object 'BarTender.Application > Public BtFormat As String 'BarTender.Format > > > If you are unsure of the type returned try using a variant > especially in the case of returned arrays. > > or leave both types in and do a conditional compile around them > > #Const DebugVersion = 0 > > #if DebugVersion = 1 then > Dim wa as BarTender.Application > Set wa = new BarTender.Application > #else > Dim wa as Object > set wa = createobject ("BarTender.Application") > #endif > You'l have to set the flag to 1 > (#Const DebugVersion = 1) > and then add a reference to Bartender > for the debug intellisence to work.. > > Then to check if Bartender is actually installed on the machine > > On Error Resume Next > Set objExcelapp = CreateObject("BarTender.Application") > If Err.Number Then > MsgBox "Bartender not installed or not registered for Automation" > Exit Sub > End If > 'reset error > > > > > Rocky Smolin - Beach Access Software wrote: > > >> Dear List: >> >> I have a client who prints bar coded labels through an application >> called Bartender (cute, huh?). I wrote a production management system >> for them which contains all the information in the db that they are >> inputting manually into Bartender. So the client asked me to add a >> function to the app to run Bartender from the production system and that >> is working great. >> >> To do this I downloaded and installed the trial version of Bartender and >> so was able to set a reference to it in the VBA code so I could run >> Bartender from the client's app (stuff like Public BtApp As >> BarTender.Application and Public BtFormat As BarTender.Format and Set >> BtApp = CreateObject("BarTender.Application")). >> >> Problem is that the app won't run on any machine which doesn't have >> Bartender loaded - it gets a broken reference error when the app opens. >> >> So I'm wondering how to handle this. Perhaps I unset the reference in >> the Tools-->References and set it when the bar code form opens? Or is >> there a way to trap and get around this error when the app loads? >> >> What's the best way to handle this? >> >> MTIA, >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Mon Aug 7 13:13:16 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Mon, 7 Aug 2006 22:13:16 +0400 Subject: [AccessD] Broken Reference In-Reply-To: <44D7789C.2060608@san.rr.com> Message-ID: <000601c6ba4d$27aa05e0$6401a8c0@nant> Rocky, With compiled state lost large MS Access applications will run slower. That's the only penalty I know. Recompiling can be done on run-time using SysCmd(...) but this technique is not 100% safe I think and I don't know does it work with MS Access runtime or not. Instead of custom class you can use standard wrapper module with wrapper functions - I'd prefix them e.g. using bta prefix string: - btaCreateObject() - btaWhatEverItDoes(...) - ... - btaDispose() btaCreateObject() would create "BarTender.Application" object and would set module level object variable to created object instance (if any). All the other wrapper module's functions/subs would check if object variable is not nothing and if it's not then make a call to "BarTender.Application" object's methods or its related objects' methods. -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Monday, August 07, 2006 9:30 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Broken Reference Shamil: "Setting references on run-time for MDBs will force your application (FE)database to loose compiled state." Any penalty for that? "I'd also encapsulate all the calls to BarTender application's functions into a custom class." A bit beyond my talents at the moment but I suppose I should learn how to do it. But the late binding thing looks like the way to go. I'll try it with Marty's snips. I have a second machine without BarTender I can test it on. What happens if I don't put all the BarTender functions in a custom class? Rocky Shamil Salakhetdinov wrote: > Rocky, > > You can drop reference and use late (run-time) binding. > Setting references on run-time will not work for MDEs. > Setting references on run-time for MDBs will force your application (FE) > database to loose compiled state. > > I'd also encapsulate all the calls to BarTender application's functions into > a custom class. > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Monday, August 07, 2006 7:00 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Broken Reference > > Dear List: > > I have a client who prints bar coded labels through an application > called Bartender (cute, huh?). I wrote a production management system > for them which contains all the information in the db that they are > inputting manually into Bartender. So the client asked me to add a > function to the app to run Bartender from the production system and that > is working great. > > To do this I downloaded and installed the trial version of Bartender and > so was able to set a reference to it in the VBA code so I could run > Bartender from the client's app (stuff like Public BtApp As > BarTender.Application and Public BtFormat As BarTender.Format and Set > BtApp = CreateObject("BarTender.Application")). > > Problem is that the app won't run on any machine which doesn't have > Bartender loaded - it gets a broken reference error when the app opens. > > So I'm wondering how to handle this. Perhaps I unset the reference in > the Tools-->References and set it when the bar code form opens? Or is > there a way to trap and get around this error when the app loads? > > What's the best way to handle this? > > MTIA, > > 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 martyconnelly at shaw.ca Mon Aug 7 13:20:18 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 11:20:18 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D78175.2000407@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> Message-ID: <44D78462.4080204@shaw.ca> If you are setting it, you must be returning an object rather than a variant. Set a reference to bartender and look at the values in the Object Browser libary for Bartender to see what they should be set to. Rocky Smolin - Beach Access Software wrote: >Marty: > >I deleted the Reference to Bartender and changed the declarations to: > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >In the load event I put: > >Set BtApp = CreateObject("BarTender.Application") >In the Print event however, on the line > >Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error. With the old declarations it >worked. Any idea what's going wrong? > >Thanks and regards, > >Rocky > > >MartyConnelly wrote: > > >>You are mixing Early and Late Binding methods >>First remove the reference >>Then just change your declarations to things like >> >>Public BtApp As Object 'BarTender.Application >>Public BtFormat As String 'BarTender.Format >> >> >>If you are unsure of the type returned try using a variant >>especially in the case of returned arrays. >> >>or leave both types in and do a conditional compile around them >> >>#Const DebugVersion = 0 >> >>#if DebugVersion = 1 then >> Dim wa as BarTender.Application >> Set wa = new BarTender.Application >>#else >> Dim wa as Object >> set wa = createobject ("BarTender.Application") >>#endif >>You'l have to set the flag to 1 >> (#Const DebugVersion = 1) >>and then add a reference to Bartender >>for the debug intellisence to work.. >> >>Then to check if Bartender is actually installed on the machine >> >> On Error Resume Next >>Set objExcelapp = CreateObject("BarTender.Application") >>If Err.Number Then >> MsgBox "Bartender not installed or not registered for Automation" >> Exit Sub >> End If >>'reset error >> >> >> >> >>Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>>Dear List: >>> >>>I have a client who prints bar coded labels through an application >>>called Bartender (cute, huh?). I wrote a production management system >>>for them which contains all the information in the db that they are >>>inputting manually into Bartender. So the client asked me to add a >>>function to the app to run Bartender from the production system and that >>>is working great. >>> >>>To do this I downloaded and installed the trial version of Bartender and >>>so was able to set a reference to it in the VBA code so I could run >>>Bartender from the client's app (stuff like Public BtApp As >>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>BtApp = CreateObject("BarTender.Application")). >>> >>>Problem is that the app won't run on any machine which doesn't have >>>Bartender loaded - it gets a broken reference error when the app opens. >>> >>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>the Tools-->References and set it when the bar code form opens? Or is >>>there a way to trap and get around this error when the app loads? >>> >>>What's the best way to handle this? >>> >>>MTIA, >>> >>>Rocky >>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From martyconnelly at shaw.ca Mon Aug 7 13:27:02 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 11:27:02 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D78462.4080204@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> Message-ID: <44D785F6.8030501@shaw.ca> Err the Object Browser should tell you the data type being returned. if you have the reference set. MartyConnelly wrote: >If you are setting it, you must be returning an object rather than a >variant. >Set a reference to bartender and look at the values in the Object Browser >libary for Bartender to see what they should be set to. > >Rocky Smolin - Beach Access Software wrote: > > > >>Marty: >> >>I deleted the Reference to Bartender and changed the declarations to: >> >>Public BtApp As Object 'BarTender.Application >>Public BtFormat As Variant 'BarTender.Format >> >>In the load event I put: >> >>Set BtApp = CreateObject("BarTender.Application") >>In the Print event however, on the line >> >>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >>I get an 'argument not optional' error. With the old declarations it >>worked. Any idea what's going wrong? >> >>Thanks and regards, >> >>Rocky >> >> >>MartyConnelly wrote: >> >> >> >> >>>You are mixing Early and Late Binding methods >>>First remove the reference >>>Then just change your declarations to things like >>> >>>Public BtApp As Object 'BarTender.Application >>>Public BtFormat As String 'BarTender.Format >>> >>> >>>If you are unsure of the type returned try using a variant >>>especially in the case of returned arrays. >>> >>>or leave both types in and do a conditional compile around them >>> >>>#Const DebugVersion = 0 >>> >>>#if DebugVersion = 1 then >>> Dim wa as BarTender.Application >>> Set wa = new BarTender.Application >>>#else >>> Dim wa as Object >>> set wa = createobject ("BarTender.Application") >>>#endif >>>You'l have to set the flag to 1 >>> (#Const DebugVersion = 1) >>>and then add a reference to Bartender >>>for the debug intellisence to work.. >>> >>>Then to check if Bartender is actually installed on the machine >>> >>> On Error Resume Next >>>Set objExcelapp = CreateObject("BarTender.Application") >>>If Err.Number Then >>> MsgBox "Bartender not installed or not registered for Automation" >>> Exit Sub >>> End If >>>'reset error >>> >>> >>> >>> >>>Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>> >>> >>>>Dear List: >>>> >>>>I have a client who prints bar coded labels through an application >>>>called Bartender (cute, huh?). I wrote a production management system >>>>for them which contains all the information in the db that they are >>>>inputting manually into Bartender. So the client asked me to add a >>>>function to the app to run Bartender from the production system and that >>>>is working great. >>>> >>>>To do this I downloaded and installed the trial version of Bartender and >>>>so was able to set a reference to it in the VBA code so I could run >>>>Bartender from the client's app (stuff like Public BtApp As >>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>BtApp = CreateObject("BarTender.Application")). >>>> >>>>Problem is that the app won't run on any machine which doesn't have >>>>Bartender loaded - it gets a broken reference error when the app opens. >>>> >>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>the Tools-->References and set it when the bar code form opens? Or is >>>>there a way to trap and get around this error when the app loads? >>>> >>>>What's the best way to handle this? >>>> >>>>MTIA, >>>> >>>>Rocky >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Mon Aug 7 13:42:50 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 11:42:50 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D785F6.8030501@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> Message-ID: <44D789AA.4040702@san.rr.com> It says Formats is a member of Bar Tender. and Open is a member of Formats. Where do I see the data type being returned? T&R Rocky MartyConnelly wrote: > Err the Object Browser should tell you the data type being returned. > if you have the reference set. > > MartyConnelly wrote: > > >> If you are setting it, you must be returning an object rather than a >> variant. >> Set a reference to bartender and look at the values in the Object Browser >> libary for Bartender to see what they should be set to. >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>> Marty: >>> >>> I deleted the Reference to Bartender and changed the declarations to: >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> In the load event I put: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> In the Print event however, on the line >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error. With the old declarations it >>> worked. Any idea what's going wrong? >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> MartyConnelly wrote: >>> >>> >>> >>> >>> >>>> You are mixing Early and Late Binding methods >>>> First remove the reference >>>> Then just change your declarations to things like >>>> >>>> Public BtApp As Object 'BarTender.Application >>>> Public BtFormat As String 'BarTender.Format >>>> >>>> >>>> If you are unsure of the type returned try using a variant >>>> especially in the case of returned arrays. >>>> >>>> or leave both types in and do a conditional compile around them >>>> >>>> #Const DebugVersion = 0 >>>> >>>> #if DebugVersion = 1 then >>>> Dim wa as BarTender.Application >>>> Set wa = new BarTender.Application >>>> #else >>>> Dim wa as Object >>>> set wa = createobject ("BarTender.Application") >>>> #endif >>>> You'l have to set the flag to 1 >>>> (#Const DebugVersion = 1) >>>> and then add a reference to Bartender >>>> for the debug intellisence to work.. >>>> >>>> Then to check if Bartender is actually installed on the machine >>>> >>>> On Error Resume Next >>>> Set objExcelapp = CreateObject("BarTender.Application") >>>> If Err.Number Then >>>> MsgBox "Bartender not installed or not registered for Automation" >>>> Exit Sub >>>> End If >>>> 'reset error >>>> >>>> >>>> >>>> >>>> Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>> Dear List: >>>>> >>>>> I have a client who prints bar coded labels through an application >>>>> called Bartender (cute, huh?). I wrote a production management system >>>>> for them which contains all the information in the db that they are >>>>> inputting manually into Bartender. So the client asked me to add a >>>>> function to the app to run Bartender from the production system and that >>>>> is working great. >>>>> >>>>> To do this I downloaded and installed the trial version of Bartender and >>>>> so was able to set a reference to it in the VBA code so I could run >>>>> Bartender from the client's app (stuff like Public BtApp As >>>>> BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>> BtApp = CreateObject("BarTender.Application")). >>>>> >>>>> Problem is that the app won't run on any machine which doesn't have >>>>> Bartender loaded - it gets a broken reference error when the app opens. >>>>> >>>>> So I'm wondering how to handle this. Perhaps I unset the reference in >>>>> the Tools-->References and set it when the bar code form opens? Or is >>>>> there a way to trap and get around this error when the app loads? >>>>> >>>>> What's the best way to handle this? >>>>> >>>>> MTIA, >>>>> >>>>> Rocky >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Mon Aug 7 14:42:45 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 12:42:45 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D789AA.4040702@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> Message-ID: <44D797B5.7090202@shaw.ca> Under the library selection pane of OB, when you open the library the two lower panes the left most has the members, It will say somethinglike classes, select the one you want and its members are displayed in the right pane, left click on the one you want to see in right pane and its calling parameters input and ouput will be displayed in lowest pane along with datatypes. You also may have to right click and select hidden members. Rocky Smolin - Beach Access Software wrote: >It says Formats is a member of Bar Tender. and Open is a member of >Formats. Where do I see the data type being returned? > >T&R > >Rocky > > >MartyConnelly wrote: > > >>Err the Object Browser should tell you the data type being returned. >>if you have the reference set. >> >>MartyConnelly wrote: >> >> >> >> >>>If you are setting it, you must be returning an object rather than a >>>variant. >>>Set a reference to bartender and look at the values in the Object Browser >>>libary for Bartender to see what they should be set to. >>> >>>Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>> >>> >>>>Marty: >>>> >>>>I deleted the Reference to Bartender and changed the declarations to: >>>> >>>>Public BtApp As Object 'BarTender.Application >>>>Public BtFormat As Variant 'BarTender.Format >>>> >>>>In the load event I put: >>>> >>>>Set BtApp = CreateObject("BarTender.Application") >>>>In the Print event however, on the line >>>> >>>>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>> >>>>I get an 'argument not optional' error. With the old declarations it >>>>worked. Any idea what's going wrong? >>>> >>>>Thanks and regards, >>>> >>>>Rocky >>>> >>>> >>>>MartyConnelly wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>>You are mixing Early and Late Binding methods >>>>>First remove the reference >>>>>Then just change your declarations to things like >>>>> >>>>>Public BtApp As Object 'BarTender.Application >>>>>Public BtFormat As String 'BarTender.Format >>>>> >>>>> >>>>>If you are unsure of the type returned try using a variant >>>>>especially in the case of returned arrays. >>>>> >>>>>or leave both types in and do a conditional compile around them >>>>> >>>>>#Const DebugVersion = 0 >>>>> >>>>>#if DebugVersion = 1 then >>>>> Dim wa as BarTender.Application >>>>> Set wa = new BarTender.Application >>>>>#else >>>>> Dim wa as Object >>>>> set wa = createobject ("BarTender.Application") >>>>>#endif >>>>>You'l have to set the flag to 1 >>>>> (#Const DebugVersion = 1) >>>>>and then add a reference to Bartender >>>>>for the debug intellisence to work.. >>>>> >>>>>Then to check if Bartender is actually installed on the machine >>>>> >>>>>On Error Resume Next >>>>>Set objExcelapp = CreateObject("BarTender.Application") >>>>>If Err.Number Then >>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>> Exit Sub >>>>>End If >>>>>'reset error >>>>> >>>>> >>>>> >>>>> >>>>>Rocky Smolin - Beach Access Software wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Dear List: >>>>>> >>>>>>I have a client who prints bar coded labels through an application >>>>>>called Bartender (cute, huh?). I wrote a production management system >>>>>>for them which contains all the information in the db that they are >>>>>>inputting manually into Bartender. So the client asked me to add a >>>>>>function to the app to run Bartender from the production system and that >>>>>>is working great. >>>>>> >>>>>>To do this I downloaded and installed the trial version of Bartender and >>>>>>so was able to set a reference to it in the VBA code so I could run >>>>>>Bartender from the client's app (stuff like Public BtApp As >>>>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>BtApp = CreateObject("BarTender.Application")). >>>>>> >>>>>>Problem is that the app won't run on any machine which doesn't have >>>>>>Bartender loaded - it gets a broken reference error when the app opens. >>>>>> >>>>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>the Tools-->References and set it when the bar code form opens? Or is >>>>>>there a way to trap and get around this error when the app loads? >>>>>> >>>>>>What's the best way to handle this? >>>>>> >>>>>>MTIA, >>>>>> >>>>>>Rocky >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Mon Aug 7 15:07:00 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 13:07:00 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D797B5.7090202@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> Message-ID: <44D79D64.8010906@san.rr.com> Marty: Here's what it says: Function Open(FileName As String, [CloseOutFirstFormat As Boolean = False], [UsePrinter As String]) As Format Member of BarTender.Formats Opens an existing format file. 'as Format' doesn't make sense though, does it? Rocky MartyConnelly wrote: > Under the library selection pane of OB, when you open the library the > two lower panes > the left most has the members, It will say somethinglike classes, > select the one > you want and its members are displayed in the right pane, left click on > the one > you want to see in right pane and its calling parameters input and ouput > will be displayed in > lowest pane along with datatypes. You also may have to right click and > select hidden members. > > > Rocky Smolin - Beach Access Software wrote: > > >> It says Formats is a member of Bar Tender. and Open is a member of >> Formats. Where do I see the data type being returned? >> >> T&R >> >> Rocky >> >> >> MartyConnelly wrote: >> >> >> >>> Err the Object Browser should tell you the data type being returned. >>> if you have the reference set. >>> >>> MartyConnelly wrote: >>> >>> >>> >>> >>> >>>> If you are setting it, you must be returning an object rather than a >>>> variant. >>>> Set a reference to bartender and look at the values in the Object Browser >>>> libary for Bartender to see what they should be set to. >>>> >>>> Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>> Marty: >>>>> >>>>> I deleted the Reference to Bartender and changed the declarations to: >>>>> >>>>> Public BtApp As Object 'BarTender.Application >>>>> Public BtFormat As Variant 'BarTender.Format >>>>> >>>>> In the load event I put: >>>>> >>>>> Set BtApp = CreateObject("BarTender.Application") >>>>> In the Print event however, on the line >>>>> >>>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>> >>>>> I get an 'argument not optional' error. With the old declarations it >>>>> worked. Any idea what's going wrong? >>>>> >>>>> Thanks and regards, >>>>> >>>>> Rocky >>>>> >>>>> >>>>> MartyConnelly wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> You are mixing Early and Late Binding methods >>>>>> First remove the reference >>>>>> Then just change your declarations to things like >>>>>> >>>>>> Public BtApp As Object 'BarTender.Application >>>>>> Public BtFormat As String 'BarTender.Format >>>>>> >>>>>> >>>>>> If you are unsure of the type returned try using a variant >>>>>> especially in the case of returned arrays. >>>>>> >>>>>> or leave both types in and do a conditional compile around them >>>>>> >>>>>> #Const DebugVersion = 0 >>>>>> >>>>>> #if DebugVersion = 1 then >>>>>> Dim wa as BarTender.Application >>>>>> Set wa = new BarTender.Application >>>>>> #else >>>>>> Dim wa as Object >>>>>> set wa = createobject ("BarTender.Application") >>>>>> #endif >>>>>> You'l have to set the flag to 1 >>>>>> (#Const DebugVersion = 1) >>>>>> and then add a reference to Bartender >>>>>> for the debug intellisence to work.. >>>>>> >>>>>> Then to check if Bartender is actually installed on the machine >>>>>> >>>>>> On Error Resume Next >>>>>> Set objExcelapp = CreateObject("BarTender.Application") >>>>>> If Err.Number Then >>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>> Exit Sub >>>>>> End If >>>>>> 'reset error >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> Rocky Smolin - Beach Access Software wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Dear List: >>>>>>> >>>>>>> I have a client who prints bar coded labels through an application >>>>>>> called Bartender (cute, huh?). I wrote a production management system >>>>>>> for them which contains all the information in the db that they are >>>>>>> inputting manually into Bartender. So the client asked me to add a >>>>>>> function to the app to run Bartender from the production system and that >>>>>>> is working great. >>>>>>> >>>>>>> To do this I downloaded and installed the trial version of Bartender and >>>>>>> so was able to set a reference to it in the VBA code so I could run >>>>>>> Bartender from the client's app (stuff like Public BtApp As >>>>>>> BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>> BtApp = CreateObject("BarTender.Application")). >>>>>>> >>>>>>> Problem is that the app won't run on any machine which doesn't have >>>>>>> Bartender loaded - it gets a broken reference error when the app opens. >>>>>>> >>>>>>> So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>> the Tools-->References and set it when the bar code form opens? Or is >>>>>>> there a way to trap and get around this error when the app loads? >>>>>>> >>>>>>> What's the best way to handle this? >>>>>>> >>>>>>> MTIA, >>>>>>> >>>>>>> Rocky >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Mon Aug 7 15:50:51 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 13:50:51 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D79D64.8010906@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> Message-ID: <44D7A7AB.2000507@shaw.ca> Just a guess but could be a TypeDef called Format Ugh, I wouldn't have used a reserved word for a TypeDef name. Don't know what the dll was written in. However Might look like this, so just add this type to beginning of your module or however it's defined in the OB Type Format i As Long str As String End Type Then in your calling routine dim btFormat as Format In the browser select Bartender library then look for a Public Type Format , the individual variables will be in the right pane Rocky Smolin - Beach Access Software wrote: >Marty: > >Here's what it says: > >Function Open(FileName As String, [CloseOutFirstFormat As Boolean = >False], [UsePrinter As String]) As Format > Member of BarTender.Formats > Opens an existing format file. > >'as Format' doesn't make sense though, does it? > >Rocky > > >MartyConnelly wrote: > > >>Under the library selection pane of OB, when you open the library the >>two lower panes >>the left most has the members, It will say somethinglike classes, >>select the one >>you want and its members are displayed in the right pane, left click on >>the one >>you want to see in right pane and its calling parameters input and ouput >>will be displayed in >>lowest pane along with datatypes. You also may have to right click and >>select hidden members. >> >> >>Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>>It says Formats is a member of Bar Tender. and Open is a member of >>>Formats. Where do I see the data type being returned? >>> >>>T&R >>> >>>Rocky >>> >>> >>>MartyConnelly wrote: >>> >>> >>> >>> >>> >>>>Err the Object Browser should tell you the data type being returned. >>>>if you have the reference set. >>>> >>>>MartyConnelly wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>>If you are setting it, you must be returning an object rather than a >>>>>variant. >>>>>Set a reference to bartender and look at the values in the Object Browser >>>>>libary for Bartender to see what they should be set to. >>>>> >>>>>Rocky Smolin - Beach Access Software wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Marty: >>>>>> >>>>>>I deleted the Reference to Bartender and changed the declarations to: >>>>>> >>>>>>Public BtApp As Object 'BarTender.Application >>>>>>Public BtFormat As Variant 'BarTender.Format >>>>>> >>>>>>In the load event I put: >>>>>> >>>>>>Set BtApp = CreateObject("BarTender.Application") >>>>>>In the Print event however, on the line >>>>>> >>>>>>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>>> >>>>>>I get an 'argument not optional' error. With the old declarations it >>>>>>worked. Any idea what's going wrong? >>>>>> >>>>>>Thanks and regards, >>>>>> >>>>>>Rocky >>>>>> >>>>>> >>>>>>MartyConnelly wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>>You are mixing Early and Late Binding methods >>>>>>>First remove the reference >>>>>>>Then just change your declarations to things like >>>>>>> >>>>>>>Public BtApp As Object 'BarTender.Application >>>>>>>Public BtFormat As String 'BarTender.Format >>>>>>> >>>>>>> >>>>>>>If you are unsure of the type returned try using a variant >>>>>>>especially in the case of returned arrays. >>>>>>> >>>>>>>or leave both types in and do a conditional compile around them >>>>>>> >>>>>>>#Const DebugVersion = 0 >>>>>>> >>>>>>>#if DebugVersion = 1 then >>>>>>> Dim wa as BarTender.Application >>>>>>> Set wa = new BarTender.Application >>>>>>>#else >>>>>>> Dim wa as Object >>>>>>> set wa = createobject ("BarTender.Application") >>>>>>>#endif >>>>>>>You'l have to set the flag to 1 >>>>>>> (#Const DebugVersion = 1) >>>>>>>and then add a reference to Bartender >>>>>>>for the debug intellisence to work.. >>>>>>> >>>>>>>Then to check if Bartender is actually installed on the machine >>>>>>> >>>>>>>On Error Resume Next >>>>>>>Set objExcelapp = CreateObject("BarTender.Application") >>>>>>>If Err.Number Then >>>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>>> Exit Sub >>>>>>>End If >>>>>>>'reset error >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>Rocky Smolin - Beach Access Software wrote: >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>>Dear List: >>>>>>>> >>>>>>>>I have a client who prints bar coded labels through an application >>>>>>>>called Bartender (cute, huh?). I wrote a production management system >>>>>>>>for them which contains all the information in the db that they are >>>>>>>>inputting manually into Bartender. So the client asked me to add a >>>>>>>>function to the app to run Bartender from the production system and that >>>>>>>>is working great. >>>>>>>> >>>>>>>>To do this I downloaded and installed the trial version of Bartender and >>>>>>>>so was able to set a reference to it in the VBA code so I could run >>>>>>>>Bartender from the client's app (stuff like Public BtApp As >>>>>>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>>>BtApp = CreateObject("BarTender.Application")). >>>>>>>> >>>>>>>>Problem is that the app won't run on any machine which doesn't have >>>>>>>>Bartender loaded - it gets a broken reference error when the app opens. >>>>>>>> >>>>>>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>>>the Tools-->References and set it when the bar code form opens? Or is >>>>>>>>there a way to trap and get around this error when the app loads? >>>>>>>> >>>>>>>>What's the best way to handle this? >>>>>>>> >>>>>>>>MTIA, >>>>>>>> >>>>>>>>Rocky >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Mon Aug 7 16:30:00 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 17:30:00 -0400 Subject: [AccessD] system colors References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca><44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca><44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com><44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> Message-ID: <000201c6ba68$a4f25d70$969aa545@50NM721> ...is there a reasonable way to set my forms to automatically use the Windows system colors/theme selected by the user? I'm currently using a home grown user preference system that is getting to be a royal pita. I'd like to be able to set form/object/control/font properties to system colors somehow and have them change whenever the user changes the win display options? William From stuart at lexacorp.com.pg Mon Aug 7 16:59:23 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Tue, 08 Aug 2006 07:59:23 +1000 Subject: [AccessD] system colors In-Reply-To: <000201c6ba68$a4f25d70$969aa545@50NM721> References: <44D75554.8070700@san.rr.com>, <000201c6ba68$a4f25d70$969aa545@50NM721> Message-ID: <44D8445B.26745.9EEFDEB@stuart.lexacorp.com.pg> On 7 Aug 2006 at 17:30, William Hindman wrote: > ...is there a reasonable way to set my forms to automatically use the > Windows system colors/theme selected by the user? I'm currently using a home > grown user preference system that is getting to be a royal pita. I'd like to > be able to set form/object/control/font properties to system colors somehow > and have them change whenever the user changes the win display options? Ever noticed negative numbers in form color properties. They are Systemcolorconstants. You can find them all in the Object Browser under the VBA library. Or you can get a list of them here: http://msdn.microsoft.com/library/default.asp?url=/library/en- us/vbenlr98/html/vamscsystemcolorconstants.asp -- Stuart From martyconnelly at shaw.ca Mon Aug 7 17:07:53 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 15:07:53 -0700 Subject: [AccessD] system colors In-Reply-To: <000201c6ba68$a4f25d70$969aa545@50NM721> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> <000201c6ba68$a4f25d70$969aa545@50NM721> Message-ID: <44D7B9B9.4030101@shaw.ca> You also might have a look at Helen Feddema's Access Archon Columns 76 and 77 It is an MDA to reset the Forms colour schemes and fonts It requires opening all the forms in design view, changing and recompiling. http://www.helenfeddema.com/ William Hindman wrote: >...is there a reasonable way to set my forms to automatically use the >Windows system colors/theme selected by the user? I'm currently using a home >grown user preference system that is getting to be a royal pita. I'd like to >be able to set form/object/control/font properties to system colors somehow >and have them change whenever the user changes the win display options? > >William > > > > > -- Marty Connelly Victoria, B.C. Canada From darrend at nimble.com.au Mon Aug 7 18:45:06 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 8 Aug 2006 09:45:06 +1000 Subject: [AccessD] A2003:Rename Files in a folder In-Reply-To: <004a01c6ba33$fbe3da30$800101df@officexp> Message-ID: <20060807234520.GOEI3131.omta04sl.mx.bigpond.com@DENZILLAP> Thank you William, thank you Andy (I'll speak to you later) and thank you John I jumped on this morning - 3 replies - excellent - from eminent legends too - woohoo I feel like I have new toys to play with Thanks guys - I really do appreciate it Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Tuesday, 8 August 2006 1:13 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] A2003:Rename Files in a folder Here ya' go: Function RenameFiles() Dim strFileName As String Dim strPath As String 'Set Your Path '***Important, Make sure you include the last backslash strPath = "C:\Temp\" 'Return the 'first' filename in the folder strFileName = Dir(strPath) Do Until strFileName = "" 'rename it Name strPath & strFileName As strPath & "INV" & strFileName 'If you just execute the DIR() function, it returns the next file in the folder. strFileName = Dir Loop End Function John Skolits -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK Sent: Monday, August 07, 2006 9:15 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] A2003:Rename Files in a folder Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:\CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance 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 wdhindman at dejpolsystems.com Mon Aug 7 19:15:11 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 20:15:11 -0400 Subject: [AccessD] system colors References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca><44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca><44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com><44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com><000201c6ba68$a4f25d70$969aa545@50NM721> <44D7B9B9.4030101@shaw.ca> Message-ID: <000b01c6ba7f$b7704900$969aa545@50NM721> ...thanks Marty & Stu ...using system colors stu but its a rpita setting them and then the trial and error of what works where ...I'll give Helen a shot, should have known to look there first :) William ----- Original Message ----- From: "MartyConnelly" To: "Access Developers discussion and problem solving" Sent: Monday, August 07, 2006 6:07 PM Subject: Re: [AccessD] system colors > You also might have a look at Helen Feddema's > Access Archon Columns 76 and 77 > It is an MDA to reset the Forms colour schemes and fonts > It requires opening all the forms in design view, changing and > recompiling. > http://www.helenfeddema.com/ > > William Hindman wrote: > >>...is there a reasonable way to set my forms to automatically use the >>Windows system colors/theme selected by the user? I'm currently using a >>home >>grown user preference system that is getting to be a royal pita. I'd like >>to >>be able to set form/object/control/font properties to system colors >>somehow >>and have them change whenever the user changes the win display options? >> >>William >> >> >> >> >> > > -- > 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 john at winhaven.net Mon Aug 7 22:11:46 2006 From: john at winhaven.net (John Bartow) Date: Mon, 7 Aug 2006 22:11:46 -0500 Subject: [AccessD] Groupwise version 7 Message-ID: <086b01c6ba98$62c104d0$6502a8c0@ScuzzPaq> Anyone working with a GroupWise version 7 environment. I've had an application on a customer site for years. No problems now they went from GW6 to GW7 and mine app won't email anymore. I use an activeX object (idsMail to perform the mailing functions but their support says tere shouldn't be a problem as long as the Groupwise client is still using MAPI or SMTP/POP. TIA John B. From carbonnb at sympatico.ca Mon Aug 7 23:16:06 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Tue, 08 Aug 2006 00:16:06 -0400 Subject: [AccessD] Groupwise version 7 In-Reply-To: <086b01c6ba98$62c104d0$6502a8c0@ScuzzPaq> References: <086b01c6ba98$62c104d0$6502a8c0@ScuzzPaq> Message-ID: On 7 Aug 2006 at 22:11, John Bartow wrote: > Anyone working with a GroupWise version 7 environment. Nope, still 6.5 > I've had an application on a customer site for years. No problems now they > went from GW6 to GW7 and mine app won't email anymore. I use an activeX > object (idsMail to perform the mailing functions but their support says > tere shouldn't be a problem as long as the Groupwise client is still using > MAPI or SMTP/POP. There are ActiveX's you can use? Who knew. Going from memory, I just set a reference to the GW object and did all the e-mail creating that way. -- Bryan Carbonnell - carbonnb at sympatico.ca If you never fail, you're not trying hard enough. From darrend at nimble.com.au Mon Aug 7 23:41:13 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 8 Aug 2006 14:41:13 +1000 Subject: [AccessD] OT - Microsoft Subscriptions Message-ID: <20060808044127.BTTU2500.omta03sl.mx.bigpond.com@DENZILLAP> Hi All Just the other week someone mentioned some sort of Microsoft subscription to various MS things if they were going to create 1 MS product per year Is that person or anyone else able to contact let me know what's involved and any details? Please contact me off list at...darrend at nimble dot com dot au, please? Many thanks Darren From john at winhaven.net Mon Aug 7 23:57:14 2006 From: john at winhaven.net (John Bartow) Date: Mon, 7 Aug 2006 23:57:14 -0500 Subject: [AccessD] Groupwise version 7 In-Reply-To: Message-ID: <002901c6baa7$1e1b7ae0$6502a8c0@ScuzzPaq> idsMail isn't a GW activeX (IIRC GW has an SDK full of them though). idsMail is a third party app that interfaces with a whole slew of email systems (MS, GW, Notes, etc,). The beauty of it is that I only had to send calls to it and its handled the hard part of figuring out which mail system was being used on the PC and handle sending the mail. The ugly part of it is that I do't get the source code so I can't troubleshoot it directly. That's what I'm dealing with now. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell On 7 Aug 2006 at 22:11, John Bartow wrote: > Anyone working with a GroupWise version 7 environment. Nope, still 6.5 > I've had an application on a customer site for years. No problems now > they went from GW6 to GW7 and mine app won't email anymore. I use an > activeX object (idsMail to perform the mailing functions but their > support says tere shouldn't be a problem as long as the Groupwise > client is still using MAPI or SMTP/POP. There are ActiveX's you can use? Who knew. Going from memory, I just set a reference to the GW object and did all the e-mail creating that way. From carbonnb at sympatico.ca Tue Aug 8 00:09:04 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Tue, 08 Aug 2006 01:09:04 -0400 Subject: [AccessD] Groupwise version 7 In-Reply-To: <002901c6baa7$1e1b7ae0$6502a8c0@ScuzzPaq> References: , <002901c6baa7$1e1b7ae0$6502a8c0@ScuzzPaq> Message-ID: On 7 Aug 2006 at 23:57, John Bartow wrote: > idsMail isn't a GW activeX (IIRC GW has an SDK full of them though). > > idsMail is a third party app that interfaces with a whole slew of email > systems (MS, GW, Notes, etc,). The beauty of it is that I only had to send > calls to it and its handled the hard part of figuring out which mail > system was being used on the PC and handle sending the mail. The ugly part > of it is that I do't get the source code so I can't troubleshoot it > directly. That's what I'm dealing with now. Ah, misunderstood the ActiveX part. Sorry I wish I could help but alas we are still on GW 6.5. -- Bryan Carbonnell - carbonnb at sympatico.ca It was difficult to code. So it damn well better be difficult to use. From Gustav at cactus.dk Tue Aug 8 02:19:11 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 09:19:11 +0200 Subject: [AccessD] Groupwise version 7 Message-ID: Hi John If the developers of idsMail claim this to support GW7 and your setup at the client follows the guidelines, ask them to send you a debug version which you can install to log what's going on. That will enable them to track down the error. /gustav >>> john at winhaven.net 08-08-2006 05:11:46 >>> Anyone working with a GroupWise version 7 environment. I've had an application on a customer site for years. No problems now they went from GW6 to GW7 and mine app won't email anymore. I use an activeX object (idsMail to perform the mailing functions but their support says tere shouldn't be a problem as long as the Groupwise client is still using MAPI or SMTP/POP. TIA John B. From bchacc at san.rr.com Tue Aug 8 08:21:44 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 06:21:44 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D7A7AB.2000507@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> <44D7A7AB.2000507@shaw.ca> Message-ID: <44D88FE8.8000207@san.rr.com> Marty: No Soap. It didn't like Format. I'm thinking now that I could use early binding, test for the reference, delete it if its missing, and gray out the button on the main menu which runs the bar code printing form. Would that be simpler? Rocky MartyConnelly wrote: > Just a guess but could be a TypeDef called Format > Ugh, I wouldn't have used a reserved word for a TypeDef name. > Don't know what the dll was written in. However > > Might look like this, so just add this type to beginning of your module > or however it's defined in the OB > > Type Format > i As Long > str As String > End Type > > Then in your calling routine > dim btFormat as Format > > In the browser select Bartender library then look > for a Public Type Format , the individual variables > will be in the right pane > > > Rocky Smolin - Beach Access Software wrote: > > >> Marty: >> >> Here's what it says: >> >> Function Open(FileName As String, [CloseOutFirstFormat As Boolean = >> False], [UsePrinter As String]) As Format >> Member of BarTender.Formats >> Opens an existing format file. >> >> 'as Format' doesn't make sense though, does it? >> >> Rocky >> >> >> MartyConnelly wrote: >> >> >> >>> Under the library selection pane of OB, when you open the library the >>> two lower panes >>> the left most has the members, It will say somethinglike classes, >>> select the one >>> you want and its members are displayed in the right pane, left click on >>> the one >>> you want to see in right pane and its calling parameters input and ouput >>> will be displayed in >>> lowest pane along with datatypes. You also may have to right click and >>> select hidden members. >>> >>> >>> Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>> >>>> It says Formats is a member of Bar Tender. and Open is a member of >>>> Formats. Where do I see the data type being returned? >>>> >>>> T&R >>>> >>>> Rocky >>>> >>>> >>>> MartyConnelly wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>>> Err the Object Browser should tell you the data type being returned. >>>>> if you have the reference set. >>>>> >>>>> MartyConnelly wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> If you are setting it, you must be returning an object rather than a >>>>>> variant. >>>>>> Set a reference to bartender and look at the values in the Object Browser >>>>>> libary for Bartender to see what they should be set to. >>>>>> >>>>>> Rocky Smolin - Beach Access Software wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Marty: >>>>>>> >>>>>>> I deleted the Reference to Bartender and changed the declarations to: >>>>>>> >>>>>>> Public BtApp As Object 'BarTender.Application >>>>>>> Public BtFormat As Variant 'BarTender.Format >>>>>>> >>>>>>> In the load event I put: >>>>>>> >>>>>>> Set BtApp = CreateObject("BarTender.Application") >>>>>>> In the Print event however, on the line >>>>>>> >>>>>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>>>> >>>>>>> I get an 'argument not optional' error. With the old declarations it >>>>>>> worked. Any idea what's going wrong? >>>>>>> >>>>>>> Thanks and regards, >>>>>>> >>>>>>> Rocky >>>>>>> >>>>>>> >>>>>>> MartyConnelly wrote: >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>> You are mixing Early and Late Binding methods >>>>>>>> First remove the reference >>>>>>>> Then just change your declarations to things like >>>>>>>> >>>>>>>> Public BtApp As Object 'BarTender.Application >>>>>>>> Public BtFormat As String 'BarTender.Format >>>>>>>> >>>>>>>> >>>>>>>> If you are unsure of the type returned try using a variant >>>>>>>> especially in the case of returned arrays. >>>>>>>> >>>>>>>> or leave both types in and do a conditional compile around them >>>>>>>> >>>>>>>> #Const DebugVersion = 0 >>>>>>>> >>>>>>>> #if DebugVersion = 1 then >>>>>>>> Dim wa as BarTender.Application >>>>>>>> Set wa = new BarTender.Application >>>>>>>> #else >>>>>>>> Dim wa as Object >>>>>>>> set wa = createobject ("BarTender.Application") >>>>>>>> #endif >>>>>>>> You'l have to set the flag to 1 >>>>>>>> (#Const DebugVersion = 1) >>>>>>>> and then add a reference to Bartender >>>>>>>> for the debug intellisence to work.. >>>>>>>> >>>>>>>> Then to check if Bartender is actually installed on the machine >>>>>>>> >>>>>>>> On Error Resume Next >>>>>>>> Set objExcelapp = CreateObject("BarTender.Application") >>>>>>>> If Err.Number Then >>>>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>>>> Exit Sub >>>>>>>> End If >>>>>>>> 'reset error >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> Rocky Smolin - Beach Access Software wrote: >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>>> Dear List: >>>>>>>>> >>>>>>>>> I have a client who prints bar coded labels through an application >>>>>>>>> called Bartender (cute, huh?). I wrote a production management system >>>>>>>>> for them which contains all the information in the db that they are >>>>>>>>> inputting manually into Bartender. So the client asked me to add a >>>>>>>>> function to the app to run Bartender from the production system and that >>>>>>>>> is working great. >>>>>>>>> >>>>>>>>> To do this I downloaded and installed the trial version of Bartender and >>>>>>>>> so was able to set a reference to it in the VBA code so I could run >>>>>>>>> Bartender from the client's app (stuff like Public BtApp As >>>>>>>>> BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>>>> BtApp = CreateObject("BarTender.Application")). >>>>>>>>> >>>>>>>>> Problem is that the app won't run on any machine which doesn't have >>>>>>>>> Bartender loaded - it gets a broken reference error when the app opens. >>>>>>>>> >>>>>>>>> So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>>>> the Tools-->References and set it when the bar code form opens? Or is >>>>>>>>> there a way to trap and get around this error when the app loads? >>>>>>>>> >>>>>>>>> What's the best way to handle this? >>>>>>>>> >>>>>>>>> MTIA, >>>>>>>>> >>>>>>>>> Rocky >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Lambert.Heenan at AIG.com Tue Aug 8 08:33:52 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Tue, 8 Aug 2006 08:33:52 -0500 Subject: [AccessD] system colors Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F24F328B4@xlivmbx21.aig.com> Hmm. It seems like Helen's website is missing all the zipped articles. The page of links is there, but nothing behind it. ;-( Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Monday, August 07, 2006 6:08 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] system colors You also might have a look at Helen Feddema's Access Archon Columns 76 and 77 It is an MDA to reset the Forms colour schemes and fonts It requires opening all the forms in design view, changing and recompiling. http://www.helenfeddema.com/ William Hindman wrote: >...is there a reasonable way to set my forms to automatically use the >Windows system colors/theme selected by the user? I'm currently using a home >grown user preference system that is getting to be a royal pita. I'd like to >be able to set form/object/control/font properties to system colors somehow >and have them change whenever the user changes the win display options? > >William > > > > > -- 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 Aug 8 10:02:33 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 17:02:33 +0200 Subject: [AccessD] Borland Turbo products are "back" Message-ID: Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav From Jim.Hale at FleetPride.com Tue Aug 8 10:22:42 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Tue, 8 Aug 2006 10:22:42 -0500 Subject: [AccessD] Borland Turbo products are "back" Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE60@corp-es01.fleetpride.com> "Even a development novice, who hasn't written a line of code, will find the Turbo editions extremely easy to use," said David Intersimone, vice president of developer relations and chief evangelist at Borland Ah yes, the siren call of the PC since the days of dos 2.0. I wonder how many innocents have lost their minds, not to mention their souls, buying into this chestnut? Remember, your mama told you could go blind playing with this stuff too much. Jim Hale -----Original Message----- From: Gustav Brock [mailto:Gustav at cactus.dk] Sent: Tuesday, August 08, 2006 10:03 AM To: accessd at databaseadvisors.com Subject: [AccessD] Borland Turbo products are "back" Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav -- 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 martyconnelly at shaw.ca Tue Aug 8 10:28:13 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 08:28:13 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D88FE8.8000207@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> <44D7A7AB.2000507@shaw.ca> <44D88FE8.8000207@san.rr.com> Message-ID: <44D8AD8D.3060709@shaw.ca> Well it is either returning a TypeDef or an Object Without access to the olb or dll file, kinda of hard to tell. If it is an object this should work. Dim BtFormat as Object Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) Rocky Smolin - Beach Access Software wrote: >Marty: > >No Soap. It didn't like Format. > >I'm thinking now that I could use early binding, test for the reference, >delete it if its missing, and gray out the button on the main menu which >runs the bar code printing form. Would that be simpler? > >Rocky > > >MartyConnelly wrote: > > >>Just a guess but could be a TypeDef called Format >>Ugh, I wouldn't have used a reserved word for a TypeDef name. >>Don't know what the dll was written in. However >> >>Might look like this, so just add this type to beginning of your module >>or however it's defined in the OB >> >>Type Format >> i As Long >> str As String >>End Type >> >>Then in your calling routine >>dim btFormat as Format >> >> In the browser select Bartender library then look >>for a Public Type Format , the individual variables >>will be in the right pane >> >> >>Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>>Marty: >>> >>>Here's what it says: >>> >>>Function Open(FileName As String, [CloseOutFirstFormat As Boolean = >>>False], [UsePrinter As String]) As Format >>> Member of BarTender.Formats >>> Opens an existing format file. >>> >>>'as Format' doesn't make sense though, does it? >>> >>>Rocky >>> >>> >>>MartyConnelly wrote: >>> >>> >>> >>> >>> >>>>Under the library selection pane of OB, when you open the library the >>>>two lower panes >>>>the left most has the members, It will say somethinglike classes, >>>>select the one >>>>you want and its members are displayed in the right pane, left click on >>>>the one >>>>you want to see in right pane and its calling parameters input and ouput >>>>will be displayed in >>>>lowest pane along with datatypes. You also may have to right click and >>>>select hidden members. >>>> >>>> >>>>Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>>It says Formats is a member of Bar Tender. and Open is a member of >>>>>Formats. Where do I see the data type being returned? >>>>> >>>>>T&R >>>>> >>>>>Rocky >>>>> >>>>> >>>>>MartyConnelly wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Err the Object Browser should tell you the data type being returned. >>>>>>if you have the reference set. >>>>>> >>>>>>MartyConnelly wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>>If you are setting it, you must be returning an object rather than a >>>>>>>variant. >>>>>>>Set a reference to bartender and look at the values in the Object Browser >>>>>>>libary for Bartender to see what they should be set to. >>>>>>> >>>>>>>Rocky Smolin - Beach Access Software wrote: >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>>Marty: >>>>>>>> >>>>>>>>I deleted the Reference to Bartender and changed the declarations to: >>>>>>>> >>>>>>>>Public BtApp As Object 'BarTender.Application >>>>>>>>Public BtFormat As Variant 'BarTender.Format >>>>>>>> >>>>>>>>In the load event I put: >>>>>>>> >>>>>>>>Set BtApp = CreateObject("BarTender.Application") >>>>>>>>In the Print event however, on the line >>>>>>>> >>>>>>>>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>>>>> >>>>>>>>I get an 'argument not optional' error. With the old declarations it >>>>>>>>worked. Any idea what's going wrong? >>>>>>>> >>>>>>>>Thanks and regards, >>>>>>>> >>>>>>>>Rocky >>>>>>>> >>>>>>>> >>>>>>>>MartyConnelly wrote: >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>>>You are mixing Early and Late Binding methods >>>>>>>>>First remove the reference >>>>>>>>>Then just change your declarations to things like >>>>>>>>> >>>>>>>>>Public BtApp As Object 'BarTender.Application >>>>>>>>>Public BtFormat As String 'BarTender.Format >>>>>>>>> >>>>>>>>> >>>>>>>>>If you are unsure of the type returned try using a variant >>>>>>>>>especially in the case of returned arrays. >>>>>>>>> >>>>>>>>>or leave both types in and do a conditional compile around them >>>>>>>>> >>>>>>>>>#Const DebugVersion = 0 >>>>>>>>> >>>>>>>>>#if DebugVersion = 1 then >>>>>>>>>Dim wa as BarTender.Application >>>>>>>>>Set wa = new BarTender.Application >>>>>>>>>#else >>>>>>>>>Dim wa as Object >>>>>>>>>set wa = createobject ("BarTender.Application") >>>>>>>>>#endif >>>>>>>>>You'l have to set the flag to 1 >>>>>>>>>(#Const DebugVersion = 1) >>>>>>>>>and then add a reference to Bartender >>>>>>>>>for the debug intellisence to work.. >>>>>>>>> >>>>>>>>>Then to check if Bartender is actually installed on the machine >>>>>>>>> >>>>>>>>>On Error Resume Next >>>>>>>>>Set objExcelapp = CreateObject("BarTender.Application") >>>>>>>>>If Err.Number Then >>>>>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>>>>> Exit Sub >>>>>>>>>End If >>>>>>>>>'reset error >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>>Rocky Smolin - Beach Access Software wrote: >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>>>Dear List: >>>>>>>>>> >>>>>>>>>>I have a client who prints bar coded labels through an application >>>>>>>>>>called Bartender (cute, huh?). I wrote a production management system >>>>>>>>>>for them which contains all the information in the db that they are >>>>>>>>>>inputting manually into Bartender. So the client asked me to add a >>>>>>>>>>function to the app to run Bartender from the production system and that >>>>>>>>>>is working great. >>>>>>>>>> >>>>>>>>>>To do this I downloaded and installed the trial version of Bartender and >>>>>>>>>>so was able to set a reference to it in the VBA code so I could run >>>>>>>>>>Bartender from the client's app (stuff like Public BtApp As >>>>>>>>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>>>>>BtApp = CreateObject("BarTender.Application")). >>>>>>>>>> >>>>>>>>>>Problem is that the app won't run on any machine which doesn't have >>>>>>>>>>Bartender loaded - it gets a broken reference error when the app opens. >>>>>>>>>> >>>>>>>>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>>>>>the Tools-->References and set it when the bar code form opens? Or is >>>>>>>>>>there a way to trap and get around this error when the app loads? >>>>>>>>>> >>>>>>>>>>What's the best way to handle this? >>>>>>>>>> >>>>>>>>>>MTIA, >>>>>>>>>> >>>>>>>>>>Rocky >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From shamil at users.mns.ru Tue Aug 8 10:20:53 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Tue, 8 Aug 2006 19:20:53 +0400 Subject: [AccessD] Borland Turbo products are "back" In-Reply-To: Message-ID: <006701c6bafe$3dd470b0$6601a8c0@nant> These are interesting news, Gustav, thanks. -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 08, 2006 7:03 PM To: accessd at databaseadvisors.com Subject: [AccessD] Borland Turbo products are "back" Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Tue Aug 8 10:38:45 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 08:38:45 -0700 Subject: [AccessD] system colors In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F24F328B4@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F24F328B4@xlivmbx21.aig.com> Message-ID: <44D8B005.8000706@shaw.ca> I think her site may have a download cap from her ISP, maybe try early in the day. I have had similar problems. Heenan, Lambert wrote: >Hmm. It seems like Helen's website is missing all the zipped articles. The >page of links is there, but nothing behind it. ;-( > >Lambert > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly >Sent: Monday, August 07, 2006 6:08 PM >To: Access Developers discussion and problem solving >Subject: Re: [AccessD] system colors > > >You also might have a look at Helen Feddema's >Access Archon Columns 76 and 77 >It is an MDA to reset the Forms colour schemes and fonts >It requires opening all the forms in design view, changing and recompiling. >http://www.helenfeddema.com/ > >William Hindman wrote: > > > >>...is there a reasonable way to set my forms to automatically use the >>Windows system colors/theme selected by the user? I'm currently using a >> >> >home > > >>grown user preference system that is getting to be a royal pita. I'd like >> >> >to > > >>be able to set form/object/control/font properties to system colors somehow >> >> > > > >>and have them change whenever the user changes the win display options? >> >>William >> >> >> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From jwcolby at colbyconsulting.com Tue Aug 8 11:08:25 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 8 Aug 2006 12:08:25 -0400 Subject: [AccessD] Borland Turbo products are "back" In-Reply-To: Message-ID: <005001c6bb04$e20fd6f0$647aa8c0@m6805> Well, almost back anyway. Turbo Pascal was the language I cut my teeth on in 1982/3 and I used it until I switched to Access and VBA. Of course it was also priced much cheaper. $500 is a lot to pay for a language you may never use for real apps. I certainly hope they succeed though. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 08, 2006 11:03 AM To: accessd at databaseadvisors.com Subject: [AccessD] Borland Turbo products are "back" Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav -- 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 Aug 8 12:46:07 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 10:46:07 -0700 Subject: [AccessD] Removing a missing reference Message-ID: <44D8CDDF.5010205@san.rr.com> Dear List: Still struggling with this references thing. It seem the easiest thing to do would be to remove the missing reference in the Open event of the opening form in the event the app is loaded onto a machine which doesn't have the library. However, all the code that I've seen to remove missing references fail. Code like: Dim refCurr As Reference For Each refCurr In References If refCurr.IsBroken Then References.Remove refCurr End If Next Seems straightforward but when it comes to the missing reference it errors out on the .Remove line because it doesn't have a name. So. How do you remove a missing reference when the application the reference is referring to doesn't exist? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From dmcafee at pacbell.net Tue Aug 8 12:56:03 2006 From: dmcafee at pacbell.net (David McAfee) Date: Tue, 8 Aug 2006 10:56:03 -0700 Subject: [AccessD] Delete first row in Excel from Access In-Reply-To: <44D8CDDF.5010205@san.rr.com> Message-ID: Does anyone know how to delete the first row of an Excel file from within access? TIA, David From cfoust at infostatsystems.com Tue Aug 8 12:55:54 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 10:55:54 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8CDDF.5010205@san.rr.com> Message-ID: Rocky, If you search the archives, I went through references problems a couple of years ago and beat them into submissions. You must have the code to check in a module all by itself. It must run before any other code. It must fully reference the VBE library. And if I recall correctly, IsBroken isn't reliable. 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, August 08, 2006 10:46 AM To: Access Developers discussion and problem solving Subject: [AccessD] Removing a missing reference Dear List: Still struggling with this references thing. It seem the easiest thing to do would be to remove the missing reference in the Open event of the opening form in the event the app is loaded onto a machine which doesn't have the library. However, all the code that I've seen to remove missing references fail. Code like: Dim refCurr As Reference For Each refCurr In References If refCurr.IsBroken Then References.Remove refCurr End If Next Seems straightforward but when it comes to the missing reference it errors out on the .Remove line because it doesn't have a name. So. How do you remove a missing reference when the application the reference is referring to doesn't exist? MTIA 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 Gustav at cactus.dk Tue Aug 8 13:03:19 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 20:03:19 +0200 Subject: [AccessD] Delete first row in Excel from Access Message-ID: Hi David If you link or open the file as a table, you can't. You have to use automation to open Excel and the file and then delete the row in an "Excel way". /gustav >>> dmcafee at pacbell.net 08-08-2006 19:56:03 >>> Does anyone know how to delete the first row of an Excel file from within access? TIA, David From martyconnelly at shaw.ca Tue Aug 8 13:05:27 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 11:05:27 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8CDDF.5010205@san.rr.com> References: <44D8CDDF.5010205@san.rr.com> Message-ID: <44D8D267.1030804@shaw.ca> Should be References.Remove refCurr.name needs a path string to reference not an object Rocky Smolin - Beach Access Software wrote: >Dear List: > >Still struggling with this references thing. It seem the easiest thing >to do would be to remove the missing reference in the Open event of the >opening form in the event the app is loaded onto a machine which doesn't >have the library. However, all the code that I've seen to remove >missing references fail. Code like: > >Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > >Seems straightforward but when it comes to the missing reference it >errors out on the .Remove line because it doesn't have a name. So. How >do you remove a missing reference when the application the reference is >referring to doesn't exist? > >MTIA > >Rocky > > > -- Marty Connelly Victoria, B.C. Canada From Gustav at cactus.dk Tue Aug 8 13:12:58 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 20:12:58 +0200 Subject: [AccessD] Removing a missing reference Message-ID: Hi Rocky Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: Public Function ReferencesClean() As Boolean ' Remove all missing references. ' Return True if no reference was removed. ' ' 2001-08-20. Cactus Data ApS, CPH. Dim ref As Reference Dim lngItem As Long Dim booMissing As Boolean With References For lngItem = .Count To 1 Step -1 Set ref = .Item(lngItem) If ref.BuiltIn = True Then ' No need to check built in reference. ElseIf IsBroken97(ref) Then .Remove ref booMissing = True End If Next End With Set ref = Nothing ReferencesClean = Not booMissing End Function Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: "Broken References in Runtime AXP and A97" /gustav >>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> Dear List: Still struggling with this references thing. It seem the easiest thing to do would be to remove the missing reference in the Open event of the opening form in the event the app is loaded onto a machine which doesn't have the library. However, all the code that I've seen to remove missing references fail. Code like: Dim refCurr As Reference For Each refCurr In References If refCurr.IsBroken Then References.Remove refCurr End If Next Seems straightforward but when it comes to the missing reference it errors out on the .Remove line because it doesn't have a name. So. How do you remove a missing reference when the application the reference is referring to doesn't exist? MTIA Rocky From bchacc at san.rr.com Tue Aug 8 13:13:53 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:13:53 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8D461.7080700@san.rr.com> Charlotte: The IsBroken is working OK. The problem I'm encountering is when it gets to References.Remove ref - there's nothing in ref. If I put in a debug statement MsgBox ref.Name it errors out. Rocky Charlotte Foust wrote: > Rocky, > > If you search the archives, I went through references problems a couple > of years ago and beat them into submissions. You must have the code to > check in a module all by itself. It must run before any other code. It > must fully reference the VBE library. And if I recall correctly, > IsBroken isn't reliable. > > 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, August 08, 2006 10:46 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Removing a missing reference > > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > 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 > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 13:27:19 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:27:19 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8D267.1030804@shaw.ca> References: <44D8CDDF.5010205@san.rr.com> <44D8D267.1030804@shaw.ca> Message-ID: <44D8D787.7050700@san.rr.com> Marty: If I put in a debug MsgBox refCurr.Name that errors out with Method 'Name' of object 'Reference' failed, I think because there's nothing in refCurr.Name Rocky MartyConnelly wrote: > Should be References.Remove refCurr.name > needs a path string to reference not an object > > Rocky Smolin - Beach Access Software wrote: > > >> Dear List: >> >> Still struggling with this references thing. It seem the easiest thing >> to do would be to remove the missing reference in the Open event of the >> opening form in the event the app is loaded onto a machine which doesn't >> have the library. However, all the code that I've seen to remove >> missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. How >> do you remove a missing reference when the application the reference is >> referring to doesn't exist? >> >> MTIA >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 13:29:35 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:29:35 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8D80F.6090107@san.rr.com> Gustav: The code I was using did go backwards through the references but still choked on the first one which was the missing reference. Seems there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 13:30:33 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:30:33 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8D849.5090103@san.rr.com> P.S. This reference, when it's there, references a .exe. Don't know if that makes any difference. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From ssharkins at setel.com Tue Aug 8 13:53:23 2006 From: ssharkins at setel.com (Susan Harkins) Date: Tue, 8 Aug 2006 14:53:23 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: <003801c6bb1b$eca3b2a0$0301a8c0@SUSANONE> And if I recall correctly, IsBroken isn't reliable. =======Nope, it isn't -- I wasn't an entire article on this discussion -- I couldn't get any of it to work consistently and had to dump the article. :( Susan H. From martyconnelly at shaw.ca Tue Aug 8 13:53:39 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 11:53:39 -0700 Subject: [AccessD] Delete first row in Excel from Access In-Reply-To: References: Message-ID: <44D8DDB3.9070405@shaw.ca> Something like xl.Application.Worksheets("WorkSheetName").Range("A2:D10").Delete Are you trying to delete the header records with the column names?. Cause you can also open an Excel Spreadsheet using the JET OLE DB Provider to read into a Access table, removing the header record oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\somepath\mySpreadsheet.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes""" Where "HDR=Yes" means that there is a header row in the cell range (or named range), so the provider will not include the first row of the selection into the recordset. If "HDR=No", then the provider will include the first row of the cell range (or named ranged) into the recordset. http://support.microsoft.com/default.aspx?scid=kb;en-us;278973 Gustav Brock wrote: >Hi David > >If you link or open the file as a table, you can't. >You have to use automation to open Excel and the file and then delete the row in an "Excel way". > >/gustav > > > >>>>dmcafee at pacbell.net 08-08-2006 19:56:03 >>> >>>> >>>> >Does anyone know how to delete the first row of an Excel file from within >access? > > >TIA, >David > > > -- Marty Connelly Victoria, B.C. Canada From Gustav at cactus.dk Tue Aug 8 14:00:36 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 21:00:36 +0200 Subject: [AccessD] Removing a missing reference Message-ID: Hi Rocky That sounds a bit strange, also regarding the exe-name. Here's a function that may help you: Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As Boolean ' Verify Access' external references and re-establish these if possible. ' Uses function IsBroken97(). ' ' 2001-07-29. Cactus Data ApS, CPH. ' 2003-07-23. ' Changes: ' Added call to DoCmd.Echo True to allow for display of MsgBox. ' Removed call to SysCmd() compilation which did not work. Dim refA As Access.Reference Dim refX As Access.Reference Dim strRefFullPath As String Dim booNotBuiltInRefExists As Boolean Dim booIsBroken As Boolean Dim booRefIsMissing As Boolean Dim strMsgTitle As String Dim strMsgPrompt As String Dim strMsgHeader As String Dim strMsgFooter As String Dim lngMsgStyle As Long Dim strCrLf As String ' No special error handling. On Error Resume Next ' User oriented error message. strMsgTitle = "Missing support file" strMsgHeader = "One or more supporting files are missing:" & vbCrLf strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf strMsgFooter = strMsgFooter & "Program execution cannot continue." lngMsgStyle = vbCritical + vbOKOnly ' Look for the first reference in the database other than ' the built in "Access" and "Visual Basic for Applications". For Each refA In Access.Application.References If refA.BuiltIn = False Then ' At least one not built in reference is in use. booNotBuiltInRefExists = True ' Check if the reference is not broken. If IsBroken97(refA) = False Then ' The first not missing not built in reference is found. Set refX = refA Exit For End If End If Next If booNotBuiltInRefExists = False Then ' Only built in references are in use. ' Nothing more to do. Else If refX Is Nothing Then ' All not built in references are missing. ' Don't remove missing references as there is no way to ' re-establish a reference if its identity is lost. Else ' Remove this not built in reference and add it back to ' force Access to revalidate all references. ' This may or may not rebuild links to missing references. With Access.Application.References strRefFullPath = refX.FullPath .Remove refX .AddFromFile strRefFullPath End With Set refX = Nothing End If ' Check references if any should be missing. ' If so, no attempt to read a reference is done as it most likely ' either is not installed or has been moved to an unknown directory. For Each refA In Access.Application.References booIsBroken = IsBroken97(refA) If booIsBroken = True Then ' Build list of missing files. strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath End If booRefIsMissing = booRefIsMissing Or booIsBroken Next ' If any reference is broken, display error message if requested. If booRefIsMissing = True And booErrorDisplay = True Then strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter Access.Application.DoCmd.Beep Access.DoCmd.Echo True VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle End If End If Set refA = Nothing ' If References have been updated, the application is left decompiled. ' Run command in AutoExec macro to compile and save all modules. VerifyReferences = Not booRefIsMissing End Function - and the IsBroken97 function: Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean ' Alternative method to check if a reference is broken ' as the IsBroken property cannot be used in Access97. ' ' 2000-03-19. Gustav Brock. Cactus Data ApS. ' Refer to this article at Microsoft Technet: ' ' Article ID: Q186720 ' ' The information in this article applies to: ' Microsoft Access 97 ' ' SYMPTOMS ' In Microsoft Access, IsBroken is a property of the References collection. ' The Microsoft Access Help topic on the Isbroken property states the following: ' ' The IsBroken property returns a Boolean value indicating whether a ' Reference object points to a valid reference in the Windows Registry. ' ' Although this statement is correct, to receive this Boolean value ' you must trap for errors that are generated by the broken reference. ' Also, the IsBroken property becomes True only when the file being referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. ' This article details the steps necessary to receive the Boolean value. Dim booRefOK As Boolean On Error GoTo Err_IsBroken97 If Len(Dir(ref.FullPath, vbNormal)) > 0 Then booRefOK = Not ref.IsBroken End If Exit_IsBroken97: IsBroken97 = Not booRefOK Exit Function Err_IsBroken97: ' Ignore non existing servers, drives, and paths. Resume Exit_IsBroken97 End Function /gustav >>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> Gustav: The code I was using did go backwards through the references but still choked on the first one which was the missing reference. Seems there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > Rocky From jmhecht at earthlink.net Tue Aug 8 14:03:40 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Tue, 8 Aug 2006 12:03:40 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: Wow is this stuff way past me. Good luck Rocky 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: Tuesday, August 08, 2006 12:01 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Removing a missing reference Hi Rocky That sounds a bit strange, also regarding the exe-name. Here's a function that may help you: Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As Boolean ' Verify Access' external references and re-establish these if possible. ' Uses function IsBroken97(). ' ' 2001-07-29. Cactus Data ApS, CPH. ' 2003-07-23. ' Changes: ' Added call to DoCmd.Echo True to allow for display of MsgBox. ' Removed call to SysCmd() compilation which did not work. Dim refA As Access.Reference Dim refX As Access.Reference Dim strRefFullPath As String Dim booNotBuiltInRefExists As Boolean Dim booIsBroken As Boolean Dim booRefIsMissing As Boolean Dim strMsgTitle As String Dim strMsgPrompt As String Dim strMsgHeader As String Dim strMsgFooter As String Dim lngMsgStyle As Long Dim strCrLf As String ' No special error handling. On Error Resume Next ' User oriented error message. strMsgTitle = "Missing support file" strMsgHeader = "One or more supporting files are missing:" & vbCrLf strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf strMsgFooter = strMsgFooter & "Program execution cannot continue." lngMsgStyle = vbCritical + vbOKOnly ' Look for the first reference in the database other than ' the built in "Access" and "Visual Basic for Applications". For Each refA In Access.Application.References If refA.BuiltIn = False Then ' At least one not built in reference is in use. booNotBuiltInRefExists = True ' Check if the reference is not broken. If IsBroken97(refA) = False Then ' The first not missing not built in reference is found. Set refX = refA Exit For End If End If Next If booNotBuiltInRefExists = False Then ' Only built in references are in use. ' Nothing more to do. Else If refX Is Nothing Then ' All not built in references are missing. ' Don't remove missing references as there is no way to ' re-establish a reference if its identity is lost. Else ' Remove this not built in reference and add it back to ' force Access to revalidate all references. ' This may or may not rebuild links to missing references. With Access.Application.References strRefFullPath = refX.FullPath .Remove refX .AddFromFile strRefFullPath End With Set refX = Nothing End If ' Check references if any should be missing. ' If so, no attempt to read a reference is done as it most likely ' either is not installed or has been moved to an unknown directory. For Each refA In Access.Application.References booIsBroken = IsBroken97(refA) If booIsBroken = True Then ' Build list of missing files. strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath End If booRefIsMissing = booRefIsMissing Or booIsBroken Next ' If any reference is broken, display error message if requested. If booRefIsMissing = True And booErrorDisplay = True Then strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter Access.Application.DoCmd.Beep Access.DoCmd.Echo True VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle End If End If Set refA = Nothing ' If References have been updated, the application is left decompiled. ' Run command in AutoExec macro to compile and save all modules. VerifyReferences = Not booRefIsMissing End Function - and the IsBroken97 function: Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean ' Alternative method to check if a reference is broken ' as the IsBroken property cannot be used in Access97. ' ' 2000-03-19. Gustav Brock. Cactus Data ApS. ' Refer to this article at Microsoft Technet: ' ' Article ID: Q186720 ' ' The information in this article applies to: ' Microsoft Access 97 ' ' SYMPTOMS ' In Microsoft Access, IsBroken is a property of the References collection. ' The Microsoft Access Help topic on the Isbroken property states the following: ' ' The IsBroken property returns a Boolean value indicating whether a ' Reference object points to a valid reference in the Windows Registry. ' ' Although this statement is correct, to receive this Boolean value ' you must trap for errors that are generated by the broken reference. ' Also, the IsBroken property becomes True only when the file being referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. ' This article details the steps necessary to receive the Boolean value. Dim booRefOK As Boolean On Error GoTo Err_IsBroken97 If Len(Dir(ref.FullPath, vbNormal)) > 0 Then booRefOK = Not ref.IsBroken End If Exit_IsBroken97: IsBroken97 = Not booRefOK Exit Function Err_IsBroken97: ' Ignore non existing servers, drives, and paths. Resume Exit_IsBroken97 End Function /gustav >>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> Gustav: The code I was using did go backwards through the references but still choked on the first one which was the missing reference. Seems there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest > thing to do would be to remove the missing reference in the Open event > of the opening form in the event the app is loaded onto a machine > which doesn't have the library. However, all the code that I've seen > to remove missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. > How do you remove a missing reference when the application the > reference is referring to doesn't exist? > > MTIA > > Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bheid at appdevgrp.com Tue Aug 8 14:14:35 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 8 Aug 2006 15:14:35 -0400 Subject: [AccessD] Raising errors... Message-ID: <916187228923D311A6FE00A0CC3FAA30D3579D@ADGSERVER> I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby From martyconnelly at shaw.ca Tue Aug 8 14:25:28 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 12:25:28 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8D849.5090103@san.rr.com> References: <44D8D849.5090103@san.rr.com> Message-ID: <44D8E528.5060400@shaw.ca> Grr, I am always mixing up Reference and References collection Could try disambiguating the code like this Dim refCurr As Access.Reference Dim intCount As Integer For intCount = Access.References.Count To 1 Step -1 Set refCurr = Access.References(intCount) If Not refCurr.BuiltIn Then If refCurr.IsBroken Then 'might want to check if it has a valid name otherwise skip 'or use on error next ' debug.print refCurr.name Access.References.Remove refCurr End If End If Next Rocky Smolin - Beach Access Software wrote: >P.S. This reference, when it's there, references a .exe. Don't know if >that makes any difference. > >Rocky > > >Gustav Brock wrote: > > >>Hi Rocky >> >>Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >> >>Public Function ReferencesClean() As Boolean >> >>' Remove all missing references. >>' Return True if no reference was removed. >>' >>' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >>End Function >> >>Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>"Broken References in Runtime AXP and A97" >> >>/gustav >> >> >> >> >>>>>bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >>>>> >>Dear List: >> >>Still struggling with this references thing. It seem the easiest thing >>to do would be to remove the missing reference in the Open event of the >>opening form in the event the app is loaded onto a machine which doesn't >>have the library. However, all the code that I've seen to remove >>missing references fail. Code like: >> >>Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >>Seems straightforward but when it comes to the missing reference it >>errors out on the .Remove line because it doesn't have a name. So. How >>do you remove a missing reference when the application the reference is >>referring to doesn't exist? >> >>MTIA >> >>Rocky >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Tue Aug 8 14:40:47 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 12:40:47 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8E8BF.6070702@san.rr.com> Get in line behind me. Rocky Joe Hecht wrote: > Wow is this stuff way past me. > > Good luck Rocky > > > 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: Tuesday, August 08, 2006 12:01 PM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Removing a missing reference > > Hi Rocky > > That sounds a bit strange, also regarding the exe-name. > Here's a function that may help you: > > > > Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As > Boolean > > ' Verify Access' external references and re-establish these if possible. > ' Uses function IsBroken97(). > ' > ' 2001-07-29. Cactus Data ApS, CPH. > ' 2003-07-23. > ' Changes: > ' Added call to DoCmd.Echo True to allow for display of MsgBox. > ' Removed call to SysCmd() compilation which did not work. > > Dim refA As Access.Reference > Dim refX As Access.Reference > Dim strRefFullPath As String > Dim booNotBuiltInRefExists As Boolean > Dim booIsBroken As Boolean > Dim booRefIsMissing As Boolean > Dim strMsgTitle As String > Dim strMsgPrompt As String > Dim strMsgHeader As String > Dim strMsgFooter As String > Dim lngMsgStyle As Long > Dim strCrLf As String > > ' No special error handling. > On Error Resume Next > > ' User oriented error message. > strMsgTitle = "Missing support file" > strMsgHeader = "One or more supporting files are missing:" & vbCrLf > strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf > strMsgFooter = strMsgFooter & "Program execution cannot continue." > lngMsgStyle = vbCritical + vbOKOnly > > ' Look for the first reference in the database other than > ' the built in "Access" and "Visual Basic for Applications". > For Each refA In Access.Application.References > If refA.BuiltIn = False Then > ' At least one not built in reference is in use. > booNotBuiltInRefExists = True > ' Check if the reference is not broken. > If IsBroken97(refA) = False Then > ' The first not missing not built in reference is found. > Set refX = refA > Exit For > End If > End If > Next > > If booNotBuiltInRefExists = False Then > ' Only built in references are in use. > ' Nothing more to do. > Else > If refX Is Nothing Then > ' All not built in references are missing. > ' Don't remove missing references as there is no way to > ' re-establish a reference if its identity is lost. > Else > ' Remove this not built in reference and add it back to > ' force Access to revalidate all references. > ' This may or may not rebuild links to missing references. > With Access.Application.References > strRefFullPath = refX.FullPath > .Remove refX > .AddFromFile strRefFullPath > End With > Set refX = Nothing > End If > ' Check references if any should be missing. > ' If so, no attempt to read a reference is done as it most likely > ' either is not installed or has been moved to an unknown directory. > For Each refA In Access.Application.References > booIsBroken = IsBroken97(refA) > If booIsBroken = True Then > ' Build list of missing files. > strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath > End If > booRefIsMissing = booRefIsMissing Or booIsBroken > Next > > ' If any reference is broken, display error message if requested. > If booRefIsMissing = True And booErrorDisplay = True Then > strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter > Access.Application.DoCmd.Beep > Access.DoCmd.Echo True > VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > End If > > Set refA = Nothing > > ' If References have been updated, the application is left decompiled. > ' Run command in AutoExec macro to compile and save all modules. > > VerifyReferences = Not booRefIsMissing > > End Function > > > > - and the IsBroken97 function: > > > > Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean > > ' Alternative method to check if a reference is broken ' as the IsBroken > property cannot be used in Access97. > ' > ' 2000-03-19. Gustav Brock. Cactus Data ApS. > > ' Refer to this article at Microsoft Technet: > ' > ' Article ID: Q186720 > ' > ' The information in this article applies to: > ' Microsoft Access 97 > ' > ' SYMPTOMS > ' In Microsoft Access, IsBroken is a property of the References collection. > ' The Microsoft Access Help topic on the Isbroken property states the > following: > ' > ' The IsBroken property returns a Boolean value indicating whether a ' > Reference object points to a valid reference in the Windows Registry. > ' > ' Although this statement is correct, to receive this Boolean value ' you > must trap for errors that are generated by the broken reference. > ' Also, the IsBroken property becomes True only when the file being > referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. > ' This article details the steps necessary to receive the Boolean value. > > Dim booRefOK As Boolean > On Error GoTo Err_IsBroken97 > > If Len(Dir(ref.FullPath, vbNormal)) > 0 Then > booRefOK = Not ref.IsBroken > End If > > Exit_IsBroken97: > IsBroken97 = Not booRefOK > Exit Function > > Err_IsBroken97: > ' Ignore non existing servers, drives, and paths. > Resume Exit_IsBroken97 > > End Function > > > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> >>>> > Gustav: > > The code I was using did go backwards through the references but still > choked on the first one which was the missing reference. Seems there's > nothing in the reference so MsgBox ref.Name fails as well as .Remove. > > Rocky > > > Gustav Brock wrote: > >> Hi Rocky >> >> Further to Charlotte's comments, I faintly recall you have to move >> > backwards in the References collection: > >> Public Function ReferencesClean() As Boolean >> >> ' Remove all missing references. >> ' Return True if no reference was removed. >> ' >> ' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >> End Function >> >> Still, your code will be left non-compiled after this. A method to compile >> > the code is described by Charlotte and me if you search the archives of July > 2003 for: > >> "Broken References in Runtime AXP and A97" >> >> /gustav >> >> >> >>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >> Dear List: >> >> Still struggling with this references thing. It seem the easiest >> thing to do would be to remove the missing reference in the Open event >> of the opening form in the event the app is loaded onto a machine >> which doesn't have the library. However, all the code that I've seen >> to remove missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. >> How do you remove a missing reference when the application the >> reference is referring to doesn't exist? >> >> MTIA >> >> Rocky >> > > -- > 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 Tue Aug 8 14:45:03 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 12:45:03 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E528.5060400@shaw.ca> References: <44D8D849.5090103@san.rr.com> <44D8E528.5060400@shaw.ca> Message-ID: <44D8E9BF.7030709@san.rr.com> Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky MartyConnelly wrote: > Grr, I am always mixing up Reference and References collection > Could try disambiguating the code like this > > Dim refCurr As Access.Reference > Dim intCount As Integer > > > For intCount = Access.References.Count To 1 Step -1 > Set refCurr = Access.References(intCount) > If Not refCurr.BuiltIn Then > If refCurr.IsBroken Then > 'might want to check if it has a valid name otherwise skip > 'or use on error next > ' debug.print refCurr.name > > Access.References.Remove refCurr > End If > End If > Next > > > > Rocky Smolin - Beach Access Software wrote: > > >> P.S. This reference, when it's there, references a .exe. Don't know if >> that makes any difference. >> >> Rocky >> >> >> Gustav Brock wrote: >> >> >> >>> Hi Rocky >>> >>> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >>> >>> Public Function ReferencesClean() As Boolean >>> >>> ' Remove all missing references. >>> ' Return True if no reference was removed. >>> ' >>> ' 2001-08-20. Cactus Data ApS, CPH. >>> >>> Dim ref As Reference >>> Dim lngItem As Long >>> Dim booMissing As Boolean >>> >>> With References >>> For lngItem = .Count To 1 Step -1 >>> Set ref = .Item(lngItem) >>> If ref.BuiltIn = True Then >>> ' No need to check built in reference. >>> ElseIf IsBroken97(ref) Then >>> .Remove ref >>> booMissing = True >>> End If >>> Next >>> End With >>> >>> Set ref = Nothing >>> >>> ReferencesClean = Not booMissing >>> >>> End Function >>> >>> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>> "Broken References in Runtime AXP and A97" >>> >>> /gustav >>> >>> >>> >>> >>> >>>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>>> >>>>>> >>>>>> >>>>>> >>> Dear List: >>> >>> Still struggling with this references thing. It seem the easiest thing >>> to do would be to remove the missing reference in the Open event of the >>> opening form in the event the app is loaded onto a machine which doesn't >>> have the library. However, all the code that I've seen to remove >>> missing references fail. Code like: >>> >>> Dim refCurr As Reference >>> For Each refCurr In References >>> If refCurr.IsBroken Then >>> References.Remove refCurr >>> End If >>> Next >>> >>> Seems straightforward but when it comes to the missing reference it >>> errors out on the .Remove line because it doesn't have a name. So. How >>> do you remove a missing reference when the application the reference is >>> referring to doesn't exist? >>> >>> MTIA >>> >>> Rocky >>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Tue Aug 8 14:51:35 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 12:51:35 -0700 Subject: [AccessD] Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579D@ADGSERVER> Message-ID: Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bheid at appdevgrp.com Tue Aug 8 14:59:28 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 8 Aug 2006 15:59:28 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A628@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3579E@ADGSERVER> Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 14:59:45 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 12:59:45 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8ED31.2050508@san.rr.com> Gustav: After running this code I find that the missing reference is still checked. Any other ideas? TIA Rocky Gustav Brock wrote: > Hi Rocky > > That sounds a bit strange, also regarding the exe-name. > Here's a function that may help you: > > > > Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As Boolean > > ' Verify Access' external references and re-establish these if possible. > ' Uses function IsBroken97(). > ' > ' 2001-07-29. Cactus Data ApS, CPH. > ' 2003-07-23. > ' Changes: > ' Added call to DoCmd.Echo True to allow for display of MsgBox. > ' Removed call to SysCmd() compilation which did not work. > > Dim refA As Access.Reference > Dim refX As Access.Reference > Dim strRefFullPath As String > Dim booNotBuiltInRefExists As Boolean > Dim booIsBroken As Boolean > Dim booRefIsMissing As Boolean > Dim strMsgTitle As String > Dim strMsgPrompt As String > Dim strMsgHeader As String > Dim strMsgFooter As String > Dim lngMsgStyle As Long > Dim strCrLf As String > > ' No special error handling. > On Error Resume Next > > ' User oriented error message. > strMsgTitle = "Missing support file" > strMsgHeader = "One or more supporting files are missing:" & vbCrLf > strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf > strMsgFooter = strMsgFooter & "Program execution cannot continue." > lngMsgStyle = vbCritical + vbOKOnly > > ' Look for the first reference in the database other than > ' the built in "Access" and "Visual Basic for Applications". > For Each refA In Access.Application.References > If refA.BuiltIn = False Then > ' At least one not built in reference is in use. > booNotBuiltInRefExists = True > ' Check if the reference is not broken. > If IsBroken97(refA) = False Then > ' The first not missing not built in reference is found. > Set refX = refA > Exit For > End If > End If > Next > > If booNotBuiltInRefExists = False Then > ' Only built in references are in use. > ' Nothing more to do. > Else > If refX Is Nothing Then > ' All not built in references are missing. > ' Don't remove missing references as there is no way to > ' re-establish a reference if its identity is lost. > Else > ' Remove this not built in reference and add it back to > ' force Access to revalidate all references. > ' This may or may not rebuild links to missing references. > With Access.Application.References > strRefFullPath = refX.FullPath > .Remove refX > .AddFromFile strRefFullPath > End With > Set refX = Nothing > End If > ' Check references if any should be missing. > ' If so, no attempt to read a reference is done as it most likely > ' either is not installed or has been moved to an unknown directory. > For Each refA In Access.Application.References > booIsBroken = IsBroken97(refA) > If booIsBroken = True Then > ' Build list of missing files. > strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath > End If > booRefIsMissing = booRefIsMissing Or booIsBroken > Next > > ' If any reference is broken, display error message if requested. > If booRefIsMissing = True And booErrorDisplay = True Then > strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter > Access.Application.DoCmd.Beep > Access.DoCmd.Echo True > VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > End If > > Set refA = Nothing > > ' If References have been updated, the application is left decompiled. > ' Run command in AutoExec macro to compile and save all modules. > > VerifyReferences = Not booRefIsMissing > > End Function > > > > - and the IsBroken97 function: > > > > Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean > > ' Alternative method to check if a reference is broken > ' as the IsBroken property cannot be used in Access97. > ' > ' 2000-03-19. Gustav Brock. Cactus Data ApS. > > ' Refer to this article at Microsoft Technet: > ' > ' Article ID: Q186720 > ' > ' The information in this article applies to: > ' Microsoft Access 97 > ' > ' SYMPTOMS > ' In Microsoft Access, IsBroken is a property of the References collection. > ' The Microsoft Access Help topic on the Isbroken property states the following: > ' > ' The IsBroken property returns a Boolean value indicating whether a > ' Reference object points to a valid reference in the Windows Registry. > ' > ' Although this statement is correct, to receive this Boolean value > ' you must trap for errors that are generated by the broken reference. > ' Also, the IsBroken property becomes True only when the file being referenced > ' is deleted and the Microsoft Windows Recycle Bin is emptied. > ' This article details the steps necessary to receive the Boolean value. > > Dim booRefOK As Boolean > On Error GoTo Err_IsBroken97 > > If Len(Dir(ref.FullPath, vbNormal)) > 0 Then > booRefOK = Not ref.IsBroken > End If > > Exit_IsBroken97: > IsBroken97 = Not booRefOK > Exit Function > > Err_IsBroken97: > ' Ignore non existing servers, drives, and paths. > Resume Exit_IsBroken97 > > End Function > > > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> >>>> > Gustav: > > The code I was using did go backwards through the references but still > choked on the first one which was the missing reference. Seems there's > nothing in the reference so MsgBox ref.Name fails as well as .Remove. > > Rocky > > > Gustav Brock wrote: > >> Hi Rocky >> >> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >> >> Public Function ReferencesClean() As Boolean >> >> ' Remove all missing references. >> ' Return True if no reference was removed. >> ' >> ' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >> End Function >> >> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >> "Broken References in Runtime AXP and A97" >> >> /gustav >> >> >> >>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >> Dear List: >> >> Still struggling with this references thing. It seem the easiest thing >> to do would be to remove the missing reference in the Open event of the >> opening form in the event the app is loaded onto a machine which doesn't >> have the library. However, all the code that I've seen to remove >> missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. How >> do you remove a missing reference when the application the reference is >> referring to doesn't exist? >> >> MTIA >> >> Rocky >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Tue Aug 8 14:59:01 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 12:59:01 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E9BF.7030709@san.rr.com> Message-ID: Rocky, The problem with testing references is that a broken reference breaks the tests. You can't reference the Access object, you have to use Application like this: Public Function EnumRefs() Dim ref As VBIDE.Reference Dim element As Variant For Each ref In VBE.ActiveVBProject.References Debug.Print ref.name, ref.Description, ref.FullPath, ref.BuiltIn Next ref Set ref = Nothing End Function 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky MartyConnelly wrote: > Grr, I am always mixing up Reference and References collection Could > try disambiguating the code like this > > Dim refCurr As Access.Reference > Dim intCount As Integer > > > For intCount = Access.References.Count To 1 Step -1 > Set refCurr = Access.References(intCount) > If Not refCurr.BuiltIn Then > If refCurr.IsBroken Then > 'might want to check if it has a valid name otherwise skip > 'or use on error next > ' debug.print refCurr.name > > Access.References.Remove refCurr > End If > End If > Next > > > > Rocky Smolin - Beach Access Software wrote: > > >> P.S. This reference, when it's there, references a .exe. Don't know >> if that makes any difference. >> >> Rocky >> >> >> Gustav Brock wrote: >> >> >> >>> Hi Rocky >>> >>> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >>> >>> Public Function ReferencesClean() As Boolean >>> >>> ' Remove all missing references. >>> ' Return True if no reference was removed. >>> ' >>> ' 2001-08-20. Cactus Data ApS, CPH. >>> >>> Dim ref As Reference >>> Dim lngItem As Long >>> Dim booMissing As Boolean >>> >>> With References >>> For lngItem = .Count To 1 Step -1 >>> Set ref = .Item(lngItem) >>> If ref.BuiltIn = True Then >>> ' No need to check built in reference. >>> ElseIf IsBroken97(ref) Then >>> .Remove ref >>> booMissing = True >>> End If >>> Next >>> End With >>> >>> Set ref = Nothing >>> >>> ReferencesClean = Not booMissing >>> >>> End Function >>> >>> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>> "Broken References in Runtime AXP and A97" >>> >>> /gustav >>> >>> >>> >>> >>> >>>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>>> >>>>>> >>>>>> >>>>>> >>> Dear List: >>> >>> Still struggling with this references thing. It seem the easiest >>> thing to do would be to remove the missing reference in the Open >>> event of the opening form in the event the app is loaded onto a >>> machine which doesn't have the library. However, all the code that >>> I've seen to remove missing references fail. Code like: >>> >>> Dim refCurr As Reference >>> For Each refCurr In References >>> If refCurr.IsBroken Then >>> References.Remove refCurr >>> End If >>> Next >>> >>> Seems straightforward but when it comes to the missing reference it >>> errors out on the .Remove line because it doesn't have a name. So. >>> How do you remove a missing reference when the application the >>> reference is referring to doesn't exist? >>> >>> MTIA >>> >>> 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 Aug 8 15:19:32 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 00:19:32 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E9BF.7030709@san.rr.com> Message-ID: <000501c6bb27$f5cf25b0$6601a8c0@nant> Rocky, I still think the easiest and the most reliable solution for your case is to use late binding. Did I miss something in this thread - why it didn't work for you? If you decide to not use late binding and if remove reference doesn't work for you - then you can use Add Reference (anyway your intention to use Remove Reference forces your FE to loose its compiled state as well as Add Reference does). I mean the following: - put all your bar code printing code into a separate library/utility database, set reference to bar code printing library in this database; - in your FE keep the code to check is it possible to create bar code printing object or not; - if it's possible to create bar code printing object then add reference to its library (code to add reference MUST BE kept in another library database - if executed in FE such will force FEs global vars to loose their values); Etc. This above is a flexible solution but its above description isn't a full story - in this case if your FE uses global variables then you have to create another "proxy" FE to keep start-up code, (dynamic) references, commandbars... and use your current FE as a library database - then CurrentDb if you use it becomes a problem etc. This above technique works very well - it was used in real life apps here and there back to the years 1998-2000 but program databases and their code should be refactored to be used within this technique.... It's very shortly described here - "A method to modularize MS Access applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm But applying it for your case looks like using "cannons to shoot at nightingales" - why not use simple and effective late binding? -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 11:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky From cfoust at infostatsystems.com Tue Aug 8 15:28:11 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 13:28:11 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8ED31.2050508@san.rr.com> Message-ID: Rocky, I won't guarantee this will work, but here's the code I finally came down to several years ago. When you're checking references, you cannot use any built-in constants, and everything has to be fully disambiguated. Charlotte '******** Begin Module ********* Attribute VB_Name = "basReferences" Option Compare Database Option Explicit Public Function TestReference() ' loops through references collection and attempts to repair broken references ' by removing and adding back the reference. For the Redemption code library, ' attempts to set the reference to the folder where this is placed by default. ' Disambiguation is used to prevent this code from breaking when there are broken ' references in the project. Dim objRef As Access.Reference Dim strRefPath As String Dim strFile As String Dim strAccessPath As String Dim strMsg As String Dim strLogTxt As String Dim intCount As Integer On Error GoTo TestReference_err ' *** this for testing only strLogTxt = "Broken References = " & Access.Application.BrokenReference strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & Access.Application.SysCmd(6) RefAddEvent "REF", "TestReference", strLogTxt ' *** strLogTxt = "" ' check for broken references For intCount = Access.Application.References.Count To 1 Step -1 Set objRef = Access.Application.References(intCount) ' store the full path of the reference and the filename itself strRefPath = objRef.FullPath strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) - 1) ' if we're dealing with Redemption, try to set it to the ' Access runtime path If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & VBA.Chr(10) _ & objRef.FullPath ' store the runtime path strAccessPath = Access.Application.SysCmd(9) strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) ' we need only the folder portion of the runtime path strAccessPath = VBA.Mid(strAccessPath, 1, VBA.InStrRev(strAccessPath, "\")) If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) = 0 Or _ (objRef.Name <> "RIMCDORedemption" And VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Broken reference: " & objRef.Name If VBA.Len(VBA.Dir(strAccessPath & "RIMCDORedemptionXP.*")) = 0 Then VBA.MsgBox "You must repair a broken reference which will otherwise " _ & "prevent the application from functioning normally.", _ 64, "Warning - Runtime Session Required" strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Not a runtime session." Exit For Else ' remove the broken and add it back Access.Application.References.Remove objRef strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Broken Reference removed" Access.Application.References.AddFromFile strAccessPath & strFile strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Reference added: " _ & VBA.Chr(13) & VBA.Chr(10) & strAccessPath & strFile ' if any broken references were handled, recompile the project ' See MSKB 194374 for info on SysCmd hidden arguments ' Note that if we do NOT run the compile, the repaired reference ' does not seem to "stick" and this will run each time the app opens Access.Application.SysCmd 504, 16483 strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Recompiled Application" End If End If Exit For End If Next intCount TestReference_exit: On Error Resume Next RefAddEvent "REF", "TestReference", strLogTxt Set objRef = Nothing Exit Function TestReference_err: RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & VBA.Chr(10) & VBA.Err.Description VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number Resume TestReference_exit End Function Private Sub RefAddEvent(strType As String, strDescription As String, Optional strDetails As String, Optional fPrint As Boolean) ' Purpose: create an event record of the required type ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, CODE, ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR ' strDescription - simple description ' strDetails - optional details ' fPrint - automatically generates a printed report of the event ' strTitle - title for report if printed ' Created: 26-Aug-97 By: SJW ' Updated: 07-Oct-98 By: SJW - add A4 paper size options ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options with SetpaperSize Dim rstEvent As DAO.Recordset Dim lngTmp As Long On Error GoTo AddEvent_Err Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog where 1 = 2", 2) rstEvent.AddNew rstEvent!datTimeStamp = VBA.Now() rstEvent!strType = strType rstEvent!strSystemID = "NONE" ' truncate the description to 255 chars just in case we have exceeded it If VBA.Len(strDescription) > 255 Then rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) ' if we do not pass details then place the complete description in details If Len(strDetails) = 0 Then rstEvent!memDetails = strDescription End If Else rstEvent!strDescription = strDescription If Len(strDetails) > 0 Then rstEvent!memDetails = strDetails End If End If lngTmp = rstEvent!lngID rstEvent.Update AddEvent_Exit: On Error Resume Next rstEvent.Close Set rstEvent = Nothing Exit Sub AddEvent_Err: VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" Resume AddEvent_Exit End Sub '******** End Module ********* -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 1:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Gustav: After running this code I find that the missing reference is still checked. Any other ideas? TIA Rocky Gustav Brock wrote: > Hi Rocky > > That sounds a bit strange, also regarding the exe-name. > Here's a function that may help you: > > > > Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As > Boolean > > ' Verify Access' external references and re-establish these if possible. > ' Uses function IsBroken97(). > ' > ' 2001-07-29. Cactus Data ApS, CPH. > ' 2003-07-23. > ' Changes: > ' Added call to DoCmd.Echo True to allow for display of MsgBox. > ' Removed call to SysCmd() compilation which did not work. > > Dim refA As Access.Reference > Dim refX As Access.Reference > Dim strRefFullPath As String > Dim booNotBuiltInRefExists As Boolean > Dim booIsBroken As Boolean > Dim booRefIsMissing As Boolean > Dim strMsgTitle As String > Dim strMsgPrompt As String > Dim strMsgHeader As String > Dim strMsgFooter As String > Dim lngMsgStyle As Long > Dim strCrLf As String > > ' No special error handling. > On Error Resume Next > > ' User oriented error message. > strMsgTitle = "Missing support file" > strMsgHeader = "One or more supporting files are missing:" & vbCrLf > strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf > strMsgFooter = strMsgFooter & "Program execution cannot continue." > lngMsgStyle = vbCritical + vbOKOnly > > ' Look for the first reference in the database other than > ' the built in "Access" and "Visual Basic for Applications". > For Each refA In Access.Application.References > If refA.BuiltIn = False Then > ' At least one not built in reference is in use. > booNotBuiltInRefExists = True > ' Check if the reference is not broken. > If IsBroken97(refA) = False Then > ' The first not missing not built in reference is found. > Set refX = refA > Exit For > End If > End If > Next > > If booNotBuiltInRefExists = False Then > ' Only built in references are in use. > ' Nothing more to do. > Else > If refX Is Nothing Then > ' All not built in references are missing. > ' Don't remove missing references as there is no way to > ' re-establish a reference if its identity is lost. > Else > ' Remove this not built in reference and add it back to > ' force Access to revalidate all references. > ' This may or may not rebuild links to missing references. > With Access.Application.References > strRefFullPath = refX.FullPath > .Remove refX > .AddFromFile strRefFullPath > End With > Set refX = Nothing > End If > ' Check references if any should be missing. > ' If so, no attempt to read a reference is done as it most likely > ' either is not installed or has been moved to an unknown directory. > For Each refA In Access.Application.References > booIsBroken = IsBroken97(refA) > If booIsBroken = True Then > ' Build list of missing files. > strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath > End If > booRefIsMissing = booRefIsMissing Or booIsBroken > Next > > ' If any reference is broken, display error message if requested. > If booRefIsMissing = True And booErrorDisplay = True Then > strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter > Access.Application.DoCmd.Beep > Access.DoCmd.Echo True > VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > End If > > Set refA = Nothing > > ' If References have been updated, the application is left decompiled. > ' Run command in AutoExec macro to compile and save all modules. > > VerifyReferences = Not booRefIsMissing > > End Function > > > > - and the IsBroken97 function: > > > > Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean > > ' Alternative method to check if a reference is broken ' as the > IsBroken property cannot be used in Access97. > ' > ' 2000-03-19. Gustav Brock. Cactus Data ApS. > > ' Refer to this article at Microsoft Technet: > ' > ' Article ID: Q186720 > ' > ' The information in this article applies to: > ' Microsoft Access 97 > ' > ' SYMPTOMS > ' In Microsoft Access, IsBroken is a property of the References collection. > ' The Microsoft Access Help topic on the Isbroken property states the following: > ' > ' The IsBroken property returns a Boolean value indicating whether a ' > Reference object points to a valid reference in the Windows Registry. > ' > ' Although this statement is correct, to receive this Boolean value ' > you must trap for errors that are generated by the broken reference. > ' Also, the IsBroken property becomes True only when the file being > referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. > ' This article details the steps necessary to receive the Boolean value. > > Dim booRefOK As Boolean > On Error GoTo Err_IsBroken97 > > If Len(Dir(ref.FullPath, vbNormal)) > 0 Then > booRefOK = Not ref.IsBroken > End If > > Exit_IsBroken97: > IsBroken97 = Not booRefOK > Exit Function > > Err_IsBroken97: > ' Ignore non existing servers, drives, and paths. > Resume Exit_IsBroken97 > > End Function > > > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> >>>> > Gustav: > > The code I was using did go backwards through the references but still > choked on the first one which was the missing reference. Seems > there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. > > Rocky > > > Gustav Brock wrote: > >> Hi Rocky >> >> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >> >> Public Function ReferencesClean() As Boolean >> >> ' Remove all missing references. >> ' Return True if no reference was removed. >> ' >> ' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >> End Function >> >> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >> "Broken References in Runtime AXP and A97" >> >> /gustav >> >> >> >>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >> Dear List: >> >> Still struggling with this references thing. It seem the easiest >> thing to do would be to remove the missing reference in the Open >> event of the opening form in the event the app is loaded onto a >> machine which doesn't have the library. However, all the code that >> I've seen to remove missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. >> How do you remove a missing reference when the application the >> reference is referring to doesn't exist? >> >> MTIA >> >> 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 cfoust at infostatsystems.com Tue Aug 8 15:30:47 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 13:30:47 -0700 Subject: [AccessD] [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579E@ADGSERVER> Message-ID: I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 15:35:31 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 13:35:31 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <000501c6bb27$f5cf25b0$6601a8c0@nant> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> Message-ID: <44D8F593.5070103@san.rr.com> Shamil: I tried using late binding which would work real well but partway into the code I got an error. On the statement: Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) I get an 'argument not optional' error - don't know why. But the reference is to the Bartender.exe, if that makes any difference. Using early binding, this code works well. To change from early to late binding I changed Public BtApp As BarTender.Application Public BtFormat As BarTender.Format to Public BtApp As Object 'BarTender.Application Public BtFormat As Variant 'BarTender.Format and then in the load event: Set BtApp = CreateObject("BarTender.Application") There is no object model for Bartender so I don't know what it is expecting for BtFormat. But late binding would solve the problem. Any ideas? If I want to try your other solution I'll have some questions. It's a bit past my capabilities. Thanks and regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > I still think the easiest and the most reliable solution for your case is to > use late binding. Did I miss something in this thread - why it didn't work > for you? > > If you decide to not use late binding and if remove reference doesn't work > for you - then you can use Add Reference (anyway your intention to use > Remove Reference forces your FE to loose its compiled state as well as Add > Reference does). > > I mean the following: > > - put all your bar code printing code into a separate library/utility > database, set reference to bar code printing library in this database; > > - in your FE keep the code to check is it possible to create bar code > printing object or not; > > - if it's possible to create bar code printing object then add reference to > its library (code to add reference MUST BE kept in another library database > - if executed in FE such will force FEs global vars to loose their values); > > Etc. > > This above is a flexible solution but its above description isn't a full > story - in this case if your FE uses global variables then you have to > create another "proxy" FE to keep start-up code, (dynamic) references, > commandbars... and use your current FE as a library database - then > CurrentDb if you use it becomes a problem etc. > > This above technique works very well - it was used in real life apps here > and there back to the years 1998-2000 but program databases and their code > should be refactored to be used within this technique.... > > It's very shortly described here - "A method to modularize MS Access > applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm > > But applying it for your case looks like using "cannons to shoot at > nightingales" - why not use simple and effective late binding? > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Tuesday, August 08, 2006 11:45 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Marty: > > Access.References.Remove refCurr still generates error: -2147319779 - Object > library not registered. > > Rocky > > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Tue Aug 8 15:42:10 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 8 Aug 2006 16:42:10 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A63C@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3579F@ADGSERVER> A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 16:17:47 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 14:17:47 -0700 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579F@ADGSERVER> Message-ID: Backup. Is the routine in a class? Is it being called from a class? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 16:20:49 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 14:20:49 -0700 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579F@ADGSERVER> Message-ID: Bobby, I just looked at your code again instread of just at the error handling. You have On Error Resume Next set, which clears the error. If you want to raise an error, you have to use an error handler and raise the error from there. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 8 16:33:35 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 14:33:35 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8F593.5070103@san.rr.com> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> Message-ID: <44D9032F.3050403@shaw.ca> If you are using something like Set BtFormat then it should be declared as an object. Dim BtFormat as Object Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case is to >>use late binding. Did I miss something in this thread - why it didn't work >>for you? >> >>If you decide to not use late binding and if remove reference doesn't work >>for you - then you can use Add Reference (anyway your intention to use >>Remove Reference forces your FE to loose its compiled state as well as Add >>Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a full >>story - in this case if your FE uses global variables then you have to >>create another "proxy" FE to keep start-up code, (dynamic) references, >>commandbars... and use your current FE as a library database - then >>CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps here >>and there back to the years 1998-2000 but program databases and their code >>should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Tue Aug 8 18:00:09 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 16:00:09 -0700 Subject: [AccessD] Removing a missing reference] Message-ID: <44D91779.9080308@san.rr.com> Charlotte: Thanks for all the code. Unfortunately I'm getting the same problem when looking at this missing reference on your line of code strRefPath = objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' failed (A2K). I think it's because there is no reference there. The app being referred to isn't on the machine. So I think it's more a question of getting that box unchecked than deleting a reference which doesn't really exist (or are those the same things?). Thanks and regards, Rocky Charlotte Foust wrote: > Rocky, > > I won't guarantee this will work, but here's the code I finally came > down to several years ago. When you're checking references, you cannot > use any built-in constants, and everything has to be fully > disambiguated. > > Charlotte > > '******** Begin Module ********* > Attribute VB_Name = "basReferences" > Option Compare Database > Option Explicit > > Public Function TestReference() > ' loops through references collection and attempts to repair broken > references > ' by removing and adding back the reference. For the Redemption code > library, > ' attempts to set the reference to the folder where this is placed by > default. > ' Disambiguation is used to prevent this code from breaking when there > are broken > ' references in the project. > > Dim objRef As Access.Reference > Dim strRefPath As String > Dim strFile As String > Dim strAccessPath As String > Dim strMsg As String > Dim strLogTxt As String > Dim intCount As Integer > > On Error GoTo TestReference_err > > ' *** this for testing only > strLogTxt = "Broken References = " & > Access.Application.BrokenReference > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & > Access.Application.SysCmd(6) > RefAddEvent "REF", "TestReference", strLogTxt > ' *** > strLogTxt = "" > > ' check for broken references > For intCount = Access.Application.References.Count To 1 Step -1 > Set objRef = Access.Application.References(intCount) > > ' store the full path of the reference and the filename itself > strRefPath = objRef.FullPath > strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) > strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) > - 1) > > ' if we're dealing with Redemption, try to set it to the > ' Access runtime path > If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then > strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & > VBA.Chr(10) _ > & objRef.FullPath > > ' store the runtime path > strAccessPath = Access.Application.SysCmd(9) > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime > Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) > > ' we need only the folder portion of the runtime path > strAccessPath = VBA.Mid(strAccessPath, 1, > VBA.InStrRev(strAccessPath, "\")) > > If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) > = 0 Or _ > (objRef.Name <> "RIMCDORedemption" And > VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken reference: " & objRef.Name > > If VBA.Len(VBA.Dir(strAccessPath & > "RIMCDORedemptionXP.*")) = 0 Then > VBA.MsgBox "You must repair a broken reference which > will otherwise " _ > & "prevent the application from > functioning normally.", _ > 64, "Warning - Runtime Session Required" > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Not a runtime session." > Exit For > > Else > ' remove the broken and add it back > Access.Application.References.Remove objRef > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken Reference removed" > Access.Application.References.AddFromFile > strAccessPath & strFile > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Reference added: " _ > & VBA.Chr(13) & VBA.Chr(10) & > strAccessPath & strFile > > ' if any broken references were handled, recompile > the project > ' See MSKB 194374 for info on SysCmd hidden > arguments > ' Note that if we do NOT run the compile, the > repaired reference > ' does not seem to "stick" and this will run each > time the app opens > Access.Application.SysCmd 504, 16483 > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Recompiled Application" > End If > End If > Exit For > End If > > Next intCount > > TestReference_exit: > On Error Resume Next > RefAddEvent "REF", "TestReference", strLogTxt > Set objRef = Nothing > Exit Function > TestReference_err: > RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & > VBA.Chr(10) & VBA.Err.Description > VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number > Resume TestReference_exit > > End Function > > Private Sub RefAddEvent(strType As String, strDescription As String, > Optional strDetails As String, Optional fPrint As Boolean) > ' Purpose: create an event record of the required type > ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, > CODE, > ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR > ' strDescription - simple description > ' strDetails - optional details > ' fPrint - automatically generates a printed report of the > event > ' strTitle - title for report if printed > ' Created: 26-Aug-97 By: SJW > ' Updated: 07-Oct-98 By: SJW - add A4 paper size options > ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options > with SetpaperSize > > Dim rstEvent As DAO.Recordset > Dim lngTmp As Long > > On Error GoTo AddEvent_Err > > Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog > where 1 = 2", 2) > rstEvent.AddNew > rstEvent!datTimeStamp = VBA.Now() > rstEvent!strType = strType > rstEvent!strSystemID = "NONE" > > ' truncate the description to 255 chars just in case we have exceeded it > If VBA.Len(strDescription) > 255 Then > rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) > ' if we do not pass details then place the complete description in > details > If Len(strDetails) = 0 Then > rstEvent!memDetails = strDescription > End If > Else > rstEvent!strDescription = strDescription > If Len(strDetails) > 0 Then > rstEvent!memDetails = strDetails > End If > End If > lngTmp = rstEvent!lngID > rstEvent.Update > > AddEvent_Exit: > On Error Resume Next > rstEvent.Close > Set rstEvent = Nothing > Exit Sub > > AddEvent_Err: > VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" > Resume AddEvent_Exit > > End Sub > '******** End Module ********* > From shamil at users.mns.ru Tue Aug 8 18:52:38 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 03:52:38 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8F593.5070103@san.rr.com> Message-ID: <001201c6bb45$bcaa6920$6601a8c0@nant> Rocky, This code should work OK with late binding(watch code lines wraps): 'Declaring a BarTender application variable Dim btApp As Object 'BarTender.Application 'Declaring a format variable Dim btFormat As Object ' BarTender.Format 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") 'Printing the label format btFormat.PrintOut False, False 'Ending the BarTender process btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges As you were recommended here you can use conditional compilation and early binding to have intellisense while developing/testing and to compile and run using late binding when preparing/using a production version: #if PRODUCTION_VERSION then 'Declaring a BarTender application variable Dim btApp As Object 'BarTender.Application 'Declaring a format variable Dim btFormat As Object ' BarTender.Format #else 'Declaring a BarTender application variable Dim btApp As BarTender.Application 'Declaring a format variable Dim btFormat as BarTender.Format #endif 'Instantiating the BarTender object Set btApp = GetBarTenderApp() If Not btApp is Nothing then 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") 'Printing the label format btFormat.PrintOut False, False 'Ending the BarTender process btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges End if ... Private function GetBarTenderApp() as object On error resume next Set GetBarTenderApp = CreateObject("BarTender.Application") End function -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 12:36 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Shamil: I tried using late binding which would work real well but partway into the code I got an error. On the statement: Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) I get an 'argument not optional' error - don't know why. But the reference is to the Bartender.exe, if that makes any difference. Using early binding, this code works well. To change from early to late binding I changed Public BtApp As BarTender.Application Public BtFormat As BarTender.Format to Public BtApp As Object 'BarTender.Application Public BtFormat As Variant 'BarTender.Format and then in the load event: Set BtApp = CreateObject("BarTender.Application") There is no object model for Bartender so I don't know what it is expecting for BtFormat. But late binding would solve the problem. Any ideas? If I want to try your other solution I'll have some questions. It's a bit past my capabilities. Thanks and regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > I still think the easiest and the most reliable solution for your case is to > use late binding. Did I miss something in this thread - why it didn't work > for you? > > If you decide to not use late binding and if remove reference doesn't work > for you - then you can use Add Reference (anyway your intention to use > Remove Reference forces your FE to loose its compiled state as well as Add > Reference does). > > I mean the following: > > - put all your bar code printing code into a separate library/utility > database, set reference to bar code printing library in this database; > > - in your FE keep the code to check is it possible to create bar code > printing object or not; > > - if it's possible to create bar code printing object then add reference to > its library (code to add reference MUST BE kept in another library database > - if executed in FE such will force FEs global vars to loose their values); > > Etc. > > This above is a flexible solution but its above description isn't a full > story - in this case if your FE uses global variables then you have to > create another "proxy" FE to keep start-up code, (dynamic) references, > commandbars... and use your current FE as a library database - then > CurrentDb if you use it becomes a problem etc. > > This above technique works very well - it was used in real life apps here > and there back to the years 1998-2000 but program databases and their code > should be refactored to be used within this technique.... > > It's very shortly described here - "A method to modularize MS Access > applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm > > But applying it for your case looks like using "cannons to shoot at > nightingales" - why not use simple and effective late binding? > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Tuesday, August 08, 2006 11:45 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Marty: > > Access.References.Remove refCurr still generates error: -2147319779 - Object > library not registered. > > 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 cfoust at infostatsystems.com Tue Aug 8 19:06:07 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 17:06:07 -0700 Subject: [AccessD] Removing a missing reference] In-Reply-To: <44D91779.9080308@san.rr.com> Message-ID: Same thing. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 4:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference] Charlotte: Thanks for all the code. Unfortunately I'm getting the same problem when looking at this missing reference on your line of code strRefPath = objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' failed (A2K). I think it's because there is no reference there. The app being referred to isn't on the machine. So I think it's more a question of getting that box unchecked than deleting a reference which doesn't really exist (or are those the same things?). Thanks and regards, Rocky Charlotte Foust wrote: > Rocky, > > I won't guarantee this will work, but here's the code I finally came > down to several years ago. When you're checking references, you > cannot use any built-in constants, and everything has to be fully > disambiguated. > > Charlotte > > '******** Begin Module ********* > Attribute VB_Name = "basReferences" > Option Compare Database > Option Explicit > > Public Function TestReference() > ' loops through references collection and attempts to repair broken > references ' by removing and adding back the reference. For the > Redemption code library, ' attempts to set the reference to the folder > where this is placed by default. > ' Disambiguation is used to prevent this code from breaking when there > are broken ' references in the project. > > Dim objRef As Access.Reference > Dim strRefPath As String > Dim strFile As String > Dim strAccessPath As String > Dim strMsg As String > Dim strLogTxt As String > Dim intCount As Integer > > On Error GoTo TestReference_err > > ' *** this for testing only > strLogTxt = "Broken References = " & > Access.Application.BrokenReference > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & > Access.Application.SysCmd(6) > RefAddEvent "REF", "TestReference", strLogTxt > ' *** > strLogTxt = "" > > ' check for broken references > For intCount = Access.Application.References.Count To 1 Step -1 > Set objRef = Access.Application.References(intCount) > > ' store the full path of the reference and the filename itself > strRefPath = objRef.FullPath > strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) > strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, > strFile) > - 1) > > ' if we're dealing with Redemption, try to set it to the > ' Access runtime path > If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then > strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) > & > VBA.Chr(10) _ > & objRef.FullPath > > ' store the runtime path > strAccessPath = Access.Application.SysCmd(9) > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Runtime > Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) > > ' we need only the folder portion of the runtime path > strAccessPath = VBA.Mid(strAccessPath, 1, > VBA.InStrRev(strAccessPath, "\")) > > If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", > 0)) = 0 Or _ > (objRef.Name <> "RIMCDORedemption" And > VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken reference: " & objRef.Name > > If VBA.Len(VBA.Dir(strAccessPath & > "RIMCDORedemptionXP.*")) = 0 Then > VBA.MsgBox "You must repair a broken reference > which will otherwise " _ > & "prevent the application from > functioning normally.", _ > 64, "Warning - Runtime Session Required" > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Not a runtime session." > Exit For > > Else > ' remove the broken and add it back > Access.Application.References.Remove objRef > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Broken Reference removed" > Access.Application.References.AddFromFile > strAccessPath & strFile > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Reference added: " _ > & VBA.Chr(13) & VBA.Chr(10) & > strAccessPath & strFile > > ' if any broken references were handled, recompile > the project > ' See MSKB 194374 for info on SysCmd hidden > arguments > ' Note that if we do NOT run the compile, the > repaired reference > ' does not seem to "stick" and this will run each > time the app opens > Access.Application.SysCmd 504, 16483 > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Recompiled Application" > End If > End If > Exit For > End If > > Next intCount > > TestReference_exit: > On Error Resume Next > RefAddEvent "REF", "TestReference", strLogTxt > Set objRef = Nothing > Exit Function > TestReference_err: > RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & > VBA.Chr(10) & VBA.Err.Description > VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number > Resume TestReference_exit > > End Function > > Private Sub RefAddEvent(strType As String, strDescription As String, > Optional strDetails As String, Optional fPrint As Boolean) > ' Purpose: create an event record of the required type > ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, > CODE, > ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR > ' strDescription - simple description > ' strDetails - optional details > ' fPrint - automatically generates a printed report of the > event > ' strTitle - title for report if printed > ' Created: 26-Aug-97 By: SJW > ' Updated: 07-Oct-98 By: SJW - add A4 paper size options > ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options > with SetpaperSize > > Dim rstEvent As DAO.Recordset > Dim lngTmp As Long > > On Error GoTo AddEvent_Err > > Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog > where 1 = 2", 2) rstEvent.AddNew rstEvent!datTimeStamp = VBA.Now() > rstEvent!strType = strType rstEvent!strSystemID = "NONE" > > ' truncate the description to 255 chars just in case we have exceeded > it If VBA.Len(strDescription) > 255 Then > rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) > ' if we do not pass details then place the complete description in > details > If Len(strDetails) = 0 Then > rstEvent!memDetails = strDescription > End If > Else > rstEvent!strDescription = strDescription > If Len(strDetails) > 0 Then > rstEvent!memDetails = strDetails > End If > End If > lngTmp = rstEvent!lngID > rstEvent.Update > > AddEvent_Exit: > On Error Resume Next > rstEvent.Close > Set rstEvent = Nothing > Exit Sub > > AddEvent_Err: > VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" > Resume AddEvent_Exit > > End Sub > '******** End Module ********* > -- 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 Aug 8 20:34:56 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 18:34:56 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001201c6bb45$bcaa6920$6601a8c0@nant> References: <001201c6bb45$bcaa6920$6601a8c0@nant> Message-ID: <44D93BC0.8090503@san.rr.com> You're kidding! We're about to eat dinner so I can't test it now. That was too fast! I'll let you know what happens. Best, Rocky Shamil Salakhetdinov wrote: > Rocky, > > This code should work OK with late binding(watch code lines wraps): > > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > > As you were recommended here you can use conditional compilation and early > binding to have intellisense while developing/testing and to compile and run > using late binding when preparing/using a production version: > > #if PRODUCTION_VERSION then > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > #else > 'Declaring a BarTender application variable > Dim btApp As BarTender.Application > 'Declaring a format variable > Dim btFormat as BarTender.Format > #endif > 'Instantiating the BarTender object > Set btApp = GetBarTenderApp() > If Not btApp is Nothing then > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > End if > > ... > > Private function GetBarTenderApp() as object > On error resume next > Set GetBarTenderApp = CreateObject("BarTender.Application") > End function > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 12:36 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > I tried using late binding which would work real well but partway into > the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > > I get an 'argument not optional' error - don't know why. But the > reference is to the Bartender.exe, if that makes any difference. Using > early binding, this code works well. > > To change from early to late binding I changed > > Public BtApp As BarTender.Application > Public BtFormat As BarTender.Format > > to > > Public BtApp As Object 'BarTender.Application > Public BtFormat As Variant 'BarTender.Format > > and then in the load event: > > Set BtApp = CreateObject("BarTender.Application") > > There is no object model for Bartender so I don't know what it is > expecting for BtFormat. > > But late binding would solve the problem. > > Any ideas? > > If I want to try your other solution I'll have some questions. It's a > bit past my capabilities. > > Thanks and regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> I still think the easiest and the most reliable solution for your case is >> > to > >> use late binding. Did I miss something in this thread - why it didn't work >> for you? >> >> If you decide to not use late binding and if remove reference doesn't work >> for you - then you can use Add Reference (anyway your intention to use >> Remove Reference forces your FE to loose its compiled state as well as Add >> Reference does). >> >> I mean the following: >> >> - put all your bar code printing code into a separate library/utility >> database, set reference to bar code printing library in this database; >> >> - in your FE keep the code to check is it possible to create bar code >> printing object or not; >> >> - if it's possible to create bar code printing object then add reference >> > to > >> its library (code to add reference MUST BE kept in another library >> > database > >> - if executed in FE such will force FEs global vars to loose their >> > values); > >> Etc. >> >> This above is a flexible solution but its above description isn't a full >> story - in this case if your FE uses global variables then you have to >> create another "proxy" FE to keep start-up code, (dynamic) references, >> commandbars... and use your current FE as a library database - then >> CurrentDb if you use it becomes a problem etc. >> >> This above technique works very well - it was used in real life apps here >> and there back to the years 1998-2000 but program databases and their code >> should be refactored to be used within this technique.... >> >> It's very shortly described here - "A method to modularize MS Access >> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >> But applying it for your case looks like using "cannons to shoot at >> nightingales" - why not use simple and effective late binding? >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Tuesday, August 08, 2006 11:45 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Marty: >> >> Access.References.Remove refCurr still generates error: -2147319779 - >> > Object > >> library not registered. >> >> Rocky >> >> >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Tue Aug 8 21:12:31 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 19:12:31 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8F593.5070103@san.rr.com> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> Message-ID: <44D9448F.4090703@shaw.ca> All the docs on the calls are in C:\Program Files\Seagull\BarTender\7.74\Automation.chm The VB.Net code is almost same as VBA except instantiation. This runs and prints Sub testbar() 'Declaring a BarTender application variable Dim btApp As Object 'Declaring a format variable Dim btFormat As Object 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open 'the .btw template file might have to be previously saved from Bartender Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") 'Printing the label format Dim lRet As Long lRet = btFormat.PrintOut(True, True) 'Ending the BarTender process btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) End Sub Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case is to >>use late binding. Did I miss something in this thread - why it didn't work >>for you? >> >>If you decide to not use late binding and if remove reference doesn't work >>for you - then you can use Add Reference (anyway your intention to use >>Remove Reference forces your FE to loose its compiled state as well as Add >>Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a full >>story - in this case if your FE uses global variables then you have to >>create another "proxy" FE to keep start-up code, (dynamic) references, >>commandbars... and use your current FE as a library database - then >>CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps here >>and there back to the years 1998-2000 but program databases and their code >>should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Tue Aug 8 22:33:50 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 20:33:50 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001201c6bb45$bcaa6920$6601a8c0@nant> References: <001201c6bb45$bcaa6920$6601a8c0@nant> Message-ID: <44D9579E.9060205@san.rr.com> Shamil: Well, it works. As you knew it would. :-) I am in awe. Couldn't have taken you more then 15 minutes! Questions: how did you determine that the Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") needed two more arguments (False and "")? How did you determine that PrintOut needed two more arguments? btFormat.PrintOut False, False How did you determine that btApp.Quit 1 needed the '1'? Thanks and best regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > This code should work OK with late binding(watch code lines wraps): > > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > > As you were recommended here you can use conditional compilation and early > binding to have intellisense while developing/testing and to compile and run > using late binding when preparing/using a production version: > > #if PRODUCTION_VERSION then > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > #else > 'Declaring a BarTender application variable > Dim btApp As BarTender.Application > 'Declaring a format variable > Dim btFormat as BarTender.Format > #endif > 'Instantiating the BarTender object > Set btApp = GetBarTenderApp() > If Not btApp is Nothing then > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > End if > > ... > > Private function GetBarTenderApp() as object > On error resume next > Set GetBarTenderApp = CreateObject("BarTender.Application") > End function > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 12:36 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > I tried using late binding which would work real well but partway into > the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > > I get an 'argument not optional' error - don't know why. But the > reference is to the Bartender.exe, if that makes any difference. Using > early binding, this code works well. > > To change from early to late binding I changed > > Public BtApp As BarTender.Application > Public BtFormat As BarTender.Format > > to > > Public BtApp As Object 'BarTender.Application > Public BtFormat As Variant 'BarTender.Format > > and then in the load event: > > Set BtApp = CreateObject("BarTender.Application") > > There is no object model for Bartender so I don't know what it is > expecting for BtFormat. > > But late binding would solve the problem. > > Any ideas? > > If I want to try your other solution I'll have some questions. It's a > bit past my capabilities. > > Thanks and regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> I still think the easiest and the most reliable solution for your case is >> > to > >> use late binding. Did I miss something in this thread - why it didn't work >> for you? >> >> If you decide to not use late binding and if remove reference doesn't work >> for you - then you can use Add Reference (anyway your intention to use >> Remove Reference forces your FE to loose its compiled state as well as Add >> Reference does). >> >> I mean the following: >> >> - put all your bar code printing code into a separate library/utility >> database, set reference to bar code printing library in this database; >> >> - in your FE keep the code to check is it possible to create bar code >> printing object or not; >> >> - if it's possible to create bar code printing object then add reference >> > to > >> its library (code to add reference MUST BE kept in another library >> > database > >> - if executed in FE such will force FEs global vars to loose their >> > values); > >> Etc. >> >> This above is a flexible solution but its above description isn't a full >> story - in this case if your FE uses global variables then you have to >> create another "proxy" FE to keep start-up code, (dynamic) references, >> commandbars... and use your current FE as a library database - then >> CurrentDb if you use it becomes a problem etc. >> >> This above technique works very well - it was used in real life apps here >> and there back to the years 1998-2000 but program databases and their code >> should be refactored to be used within this technique.... >> >> It's very shortly described here - "A method to modularize MS Access >> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >> But applying it for your case looks like using "cannons to shoot at >> nightingales" - why not use simple and effective late binding? >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Tuesday, August 08, 2006 11:45 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Marty: >> >> Access.References.Remove refCurr still generates error: -2147319779 - >> > Object > >> library not registered. >> >> Rocky >> >> >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 22:39:33 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 20:39:33 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9448F.4090703@shaw.ca> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> <44D9448F.4090703@shaw.ca> Message-ID: <44D958F5.3070200@san.rr.com> I'll be damned. Who knew? When all else fails, read the manual? I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of Vodka as well). Might be able to pay off the debt as well next week. We're in Vancouver for the week. And are planning a day trip to Victoria. Maybe we can say hello. Best, Rocky MartyConnelly wrote: > All the docs on the calls are in C:\Program > Files\Seagull\BarTender\7.74\Automation.chm > The VB.Net code is almost same as VBA except instantiation. > > This runs and prints > > Sub testbar() > 'Declaring a BarTender application variable > Dim btApp As Object > 'Declaring a format variable > Dim btFormat As Object > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > 'the .btw template file might have to be previously saved from Bartender > Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") > 'Printing the label format > Dim lRet As Long > lRet = btFormat.PrintOut(True, True) > 'Ending the BarTender process > btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) > End Sub > > > > Rocky Smolin - Beach Access Software wrote: > > >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is to >>> use late binding. Did I miss something in this thread - why it didn't work >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't work >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as Add >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference to >>> its library (code to add reference MUST BE kept in another library database >>> - if executed in FE such will force FEs global vars to loose their values); >>> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their code >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>> library not registered. >>> >>> Rocky >>> >>> >>> >>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From mwp.reid at qub.ac.uk Wed Aug 9 02:55:00 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Wed, 9 Aug 2006 08:55:00 +0100 Subject: [AccessD] Removing a missing reference References: <000501c6bb27$f5cf25b0$6601a8c0@nant><44D8F593.5070103@san.rr.com> <44D9448F.4090703@shaw.ca> <44D958F5.3070200@san.rr.com> Message-ID: Rocky Tricias sister is living in Vancouver island. WIll you be over there? Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - Beach Access Software Sent: Wed 09/08/2006 04:39 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference I'll be damned. Who knew? When all else fails, read the manual? I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of Vodka as well). Might be able to pay off the debt as well next week. We're in Vancouver for the week. And are planning a day trip to Victoria. Maybe we can say hello. Best, Rocky MartyConnelly wrote: > All the docs on the calls are in C:\Program > Files\Seagull\BarTender\7.74\Automation.chm > The VB.Net code is almost same as VBA except instantiation. > > This runs and prints > > Sub testbar() > 'Declaring a BarTender application variable > Dim btApp As Object > 'Declaring a format variable > Dim btFormat As Object > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > 'the .btw template file might have to be previously saved from Bartender > Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") > 'Printing the label format > Dim lRet As Long > lRet = btFormat.PrintOut(True, True) > 'Ending the BarTender process > btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) > End Sub > > > > Rocky Smolin - Beach Access Software wrote: > > >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is to >>> use late binding. Did I miss something in this thread - why it didn't work >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't work >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as Add >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference to >>> its library (code to add reference MUST BE kept in another library database >>> - if executed in FE such will force FEs global vars to loose their values); >>> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their code >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>> library not registered. >>> >>> 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 Aug 9 08:20:16 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 06:20:16 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> <44D9448F.4090703@shaw.ca> <44D958F5.3070200@san.rr.com> Message-ID: <44D9E110.1040009@san.rr.com> You know I gotta admit I haven't studied a map yet. I know we'll be in Vancouver most of the time but we plan to take the ferry to Victoria one day. That's Vancouver Island, yes? Whereabouts does she live? Rocky Martin Reid wrote: > Rocky > > Tricias sister is living in Vancouver island. WIll you be over there? > > Martin > > Martin WP Reid > Training and Assessment Unit > Riddle Hall > Belfast > > tel: 02890 974477 > > > ________________________________ > > From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - Beach Access Software > Sent: Wed 09/08/2006 04:39 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case is to >>>> use late binding. Did I miss something in this thread - why it didn't work >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't work >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as Add >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference to >>>> its library (code to add reference MUST BE kept in another library database >>>> - if executed in FE such will force FEs global vars to loose their values); >>>> >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps here >>>> and there back to the years 1998-2000 but program databases and their code >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>>> library not registered. >>>> >>>> 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 > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Wed Aug 9 09:30:08 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 18:30:08 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D958F5.3070200@san.rr.com> Message-ID: <001e01c6bbc0$52806920$6401a8c0@nant> Thank you, Rocky, A gallon of vodka would kill me. A glass and in several shots with good snacks that would be enough. :) In fact I prefer a few of good red wine or Tequila or Caperinja or Cointreau or Whiskey or Martini - nothing special... -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:40 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference I'll be damned. Who knew? When all else fails, read the manual? I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of Vodka as well). Might be able to pay off the debt as well next week. We're in Vancouver for the week. And are planning a day trip to Victoria. Maybe we can say hello. Best, Rocky MartyConnelly wrote: > All the docs on the calls are in C:\Program > Files\Seagull\BarTender\7.74\Automation.chm > The VB.Net code is almost same as VBA except instantiation. > > This runs and prints > > Sub testbar() > 'Declaring a BarTender application variable > Dim btApp As Object > 'Declaring a format variable > Dim btFormat As Object > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > 'the .btw template file might have to be previously saved from Bartender > Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") > 'Printing the label format > Dim lRet As Long > lRet = btFormat.PrintOut(True, True) > 'Ending the BarTender process > btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) > End Sub > > > > Rocky Smolin - Beach Access Software wrote: > > >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is to >>> use late binding. Did I miss something in this thread - why it didn't work >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't work >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as Add >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference to >>> its library (code to add reference MUST BE kept in another library database >>> - if executed in FE such will force FEs global vars to loose their values); >>> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their code >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>> library not registered. >>> >>> 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 Wed Aug 9 09:30:08 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 18:30:08 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9579E.9060205@san.rr.com> Message-ID: <001f01c6bbc0$539c3960$6401a8c0@nant> Hello Rocky, I did first try to use the code without optional parameters and I have found (as you did) that it doesn't run well in late binding mode. That was strange because in general case such code should have run well. Therefore I made an assumption that they have done something wrong in their type library definitions (type library is embedded into their ActiveX bartender.exe and it's also supplied separated as a .tlb file but this one isn't registered and can be investigated only using OleView - a utility from VS6). Then I did have a look through BarTender installation directory and I did find their manual, from which I have got VB.Net sample, which I have got adjusted to VBA/VB6 and posted here... <<< How did you determine that btApp.Quit 1 needed the '1'? >>> You can see the actual value for BarTender.BtSaveOptions.btDoNotSaveChanges in the Object Browser or when in early binding mode you can just copy and paste it into immediate window and push [Enter]: ?BarTender.BtSaveOptions.btDoNotSaveChanges 1 -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Shamil: Well, it works. As you knew it would. :-) I am in awe. Couldn't have taken you more then 15 minutes! Questions: how did you determine that the Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") needed two more arguments (False and "")? How did you determine that PrintOut needed two more arguments? btFormat.PrintOut False, False How did you determine that btApp.Quit 1 needed the '1'? Thanks and best regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > This code should work OK with late binding(watch code lines wraps): > > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > > As you were recommended here you can use conditional compilation and early > binding to have intellisense while developing/testing and to compile and run > using late binding when preparing/using a production version: > > #if PRODUCTION_VERSION then > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > #else > 'Declaring a BarTender application variable > Dim btApp As BarTender.Application > 'Declaring a format variable > Dim btFormat as BarTender.Format > #endif > 'Instantiating the BarTender object > Set btApp = GetBarTenderApp() > If Not btApp is Nothing then > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > End if > > ... > > Private function GetBarTenderApp() as object > On error resume next > Set GetBarTenderApp = CreateObject("BarTender.Application") > End function > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 12:36 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > I tried using late binding which would work real well but partway into > the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > > I get an 'argument not optional' error - don't know why. But the > reference is to the Bartender.exe, if that makes any difference. Using > early binding, this code works well. > > To change from early to late binding I changed > > Public BtApp As BarTender.Application > Public BtFormat As BarTender.Format > > to > > Public BtApp As Object 'BarTender.Application > Public BtFormat As Variant 'BarTender.Format > > and then in the load event: > > Set BtApp = CreateObject("BarTender.Application") > > There is no object model for Bartender so I don't know what it is > expecting for BtFormat. > > But late binding would solve the problem. > > Any ideas? > > If I want to try your other solution I'll have some questions. It's a > bit past my capabilities. > > Thanks and regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> I still think the easiest and the most reliable solution for your case is >> > to > >> use late binding. Did I miss something in this thread - why it didn't work >> for you? >> >> If you decide to not use late binding and if remove reference doesn't work >> for you - then you can use Add Reference (anyway your intention to use >> Remove Reference forces your FE to loose its compiled state as well as Add >> Reference does). >> >> I mean the following: >> >> - put all your bar code printing code into a separate library/utility >> database, set reference to bar code printing library in this database; >> >> - in your FE keep the code to check is it possible to create bar code >> printing object or not; >> >> - if it's possible to create bar code printing object then add reference >> > to > >> its library (code to add reference MUST BE kept in another library >> > database > >> - if executed in FE such will force FEs global vars to loose their >> > values); > >> Etc. >> >> This above is a flexible solution but its above description isn't a full >> story - in this case if your FE uses global variables then you have to >> create another "proxy" FE to keep start-up code, (dynamic) references, >> commandbars... and use your current FE as a library database - then >> CurrentDb if you use it becomes a problem etc. >> >> This above technique works very well - it was used in real life apps here >> and there back to the years 1998-2000 but program databases and their code >> should be refactored to be used within this technique.... >> >> It's very shortly described here - "A method to modularize MS Access >> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >> But applying it for your case looks like using "cannons to shoot at >> nightingales" - why not use simple and effective late binding? >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Tuesday, August 08, 2006 11:45 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Marty: >> >> Access.References.Remove refCurr still generates error: -2147319779 - >> > Object > >> library not registered. >> >> 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 Aug 9 10:07:29 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:07:29 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001e01c6bbc0$52806920$6401a8c0@nant> References: <001e01c6bbc0$52806920$6401a8c0@nant> Message-ID: <44D9FA31.2020908@san.rr.com> (Well I didn't require you to drink it all at once.) I'm not likely to be in your neighborhood soon. Did anything develop for you over here that might bring you our way? Best, Rocky Shamil Salakhetdinov wrote: > Thank you, Rocky, > > A gallon of vodka would kill me. > A glass and in several shots with good snacks that would be enough. :) > In fact I prefer a few of good red wine or Tequila or Caperinja or Cointreau > or Whiskey or Martini - nothing special... > > -- > Shamil > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:40 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case >>>> > is to > >>>> use late binding. Did I miss something in this thread - why it didn't >>>> > work > >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't >>>> > work > >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as >>>> > Add > >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference >>>> > to > >>>> its library (code to add reference MUST BE kept in another library >>>> > database > >>>> - if executed in FE such will force FEs global vars to loose their >>>> > values); > >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps >>>> > here > >>>> and there back to the years 1998-2000 but program databases and their >>>> > code > >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>> > - > >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>> > Object > >>>> library not registered. >>>> >>>> Rocky >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 9 10:08:13 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:08:13 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001f01c6bbc0$539c3960$6401a8c0@nant> References: <001f01c6bbc0$539c3960$6401a8c0@nant> Message-ID: <44D9FA5D.8050603@san.rr.com> Read the manual. What a concept! Rocky Shamil Salakhetdinov wrote: > Hello Rocky, > > I did first try to use the code without optional parameters and I have found > (as you did) that it doesn't run well in late binding mode. That was strange > because in general case such code should have run well. Therefore I made an > assumption that they have done something wrong in their type library > definitions (type library is embedded into their ActiveX bartender.exe and > it's also supplied separated as a .tlb file but this one isn't registered > and can be investigated only using OleView - a utility from VS6). > > Then I did have a look through BarTender installation directory and I did > find their manual, from which I have got VB.Net sample, which I have got > adjusted to VBA/VB6 and posted here... > > <<< > How did you determine that btApp.Quit 1 needed the '1'? > > You can see the actual value for BarTender.BtSaveOptions.btDoNotSaveChanges > in the Object Browser or when in early binding mode you can just copy and > paste it into immediate window and push [Enter]: > > ?BarTender.BtSaveOptions.btDoNotSaveChanges > 1 > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:34 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > Well, it works. As you knew it would. :-) I am in awe. Couldn't > have taken you more then 15 minutes! > > Questions: how did you determine that the > > Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") > > needed two more arguments (False and "")? > > How did you determine that PrintOut needed two more arguments? > > btFormat.PrintOut False, False > > How did you determine that btApp.Quit 1 needed the '1'? > > Thanks and best regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> This code should work OK with late binding(watch code lines wraps): >> >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> >> As you were recommended here you can use conditional compilation and early >> binding to have intellisense while developing/testing and to compile and >> > run > >> using late binding when preparing/using a production version: >> >> #if PRODUCTION_VERSION then >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> #else >> 'Declaring a BarTender application variable >> Dim btApp As BarTender.Application >> 'Declaring a format variable >> Dim btFormat as BarTender.Format >> #endif >> 'Instantiating the BarTender object >> Set btApp = GetBarTenderApp() >> If Not btApp is Nothing then >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> End if >> >> ... >> >> Private function GetBarTenderApp() as object >> On error resume next >> Set GetBarTenderApp = CreateObject("BarTender.Application") >> End function >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 09, 2006 12:36 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is >>> >>> >> to >> >> >>> use late binding. Did I miss something in this thread - why it didn't >>> > work > >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't >>> > work > >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as >>> > Add > >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference >>> >>> >> to >> >> >>> its library (code to add reference MUST BE kept in another library >>> >>> >> database >> >> >>> - if executed in FE such will force FEs global vars to loose their >>> >>> >> values); >> >> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their >>> > code > >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - >>> >>> >> Object >> >> >>> library not registered. >>> >>> Rocky >>> >>> >>> >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From ssharkins at setel.com Wed Aug 9 10:16:20 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 9 Aug 2006 11:16:20 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9FA31.2020908@san.rr.com> Message-ID: <000901c6bbc6$c4e37ec0$0301a8c0@SUSANONE> Unfortunately, you can't send liquor through the mail. :( I wanted to send some good old Kentucky bourbon to a friend and found, upon checking into it, that you can't -- it's illegal. But Shamil, if this is something that you think might be of general interest to the Access crowd, contact me privately -- maybe we can write it up. You can buy your own vodka then. :) BTW, for those of you that sometimes contact me privately, I have a new email address: ssharkins at setel.com. Susan H. (Well I didn't require you to drink it all at once.) From accessd at shaw.ca Wed Aug 9 10:24:24 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 09 Aug 2006 08:24:24 -0700 Subject: [AccessD] Removing a missing reference] In-Reply-To: <44D91779.9080308@san.rr.com> Message-ID: <0J3Q00NZLLG82OI0@l-daemon> Hi Rocky: If the bartender.exe file is supposed to resides in a specific location why no check that location. If the file is not there no reference is possible. Just a thought Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 4:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference] Charlotte: Thanks for all the code. Unfortunately I'm getting the same problem when looking at this missing reference on your line of code strRefPath = objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' failed (A2K). I think it's because there is no reference there. The app being referred to isn't on the machine. So I think it's more a question of getting that box unchecked than deleting a reference which doesn't really exist (or are those the same things?). Thanks and regards, Rocky Charlotte Foust wrote: > Rocky, > > I won't guarantee this will work, but here's the code I finally came > down to several years ago. When you're checking references, you cannot > use any built-in constants, and everything has to be fully > disambiguated. > > Charlotte > > '******** Begin Module ********* > Attribute VB_Name = "basReferences" > Option Compare Database > Option Explicit > > Public Function TestReference() > ' loops through references collection and attempts to repair broken > references > ' by removing and adding back the reference. For the Redemption code > library, > ' attempts to set the reference to the folder where this is placed by > default. > ' Disambiguation is used to prevent this code from breaking when there > are broken > ' references in the project. > > Dim objRef As Access.Reference > Dim strRefPath As String > Dim strFile As String > Dim strAccessPath As String > Dim strMsg As String > Dim strLogTxt As String > Dim intCount As Integer > > On Error GoTo TestReference_err > > ' *** this for testing only > strLogTxt = "Broken References = " & > Access.Application.BrokenReference > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & > Access.Application.SysCmd(6) > RefAddEvent "REF", "TestReference", strLogTxt > ' *** > strLogTxt = "" > > ' check for broken references > For intCount = Access.Application.References.Count To 1 Step -1 > Set objRef = Access.Application.References(intCount) > > ' store the full path of the reference and the filename itself > strRefPath = objRef.FullPath > strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) > strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) > - 1) > > ' if we're dealing with Redemption, try to set it to the > ' Access runtime path > If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then > strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & > VBA.Chr(10) _ > & objRef.FullPath > > ' store the runtime path > strAccessPath = Access.Application.SysCmd(9) > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime > Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) > > ' we need only the folder portion of the runtime path > strAccessPath = VBA.Mid(strAccessPath, 1, > VBA.InStrRev(strAccessPath, "\")) > > If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) > = 0 Or _ > (objRef.Name <> "RIMCDORedemption" And > VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken reference: " & objRef.Name > > If VBA.Len(VBA.Dir(strAccessPath & > "RIMCDORedemptionXP.*")) = 0 Then > VBA.MsgBox "You must repair a broken reference which > will otherwise " _ > & "prevent the application from > functioning normally.", _ > 64, "Warning - Runtime Session Required" > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Not a runtime session." > Exit For > > Else > ' remove the broken and add it back > Access.Application.References.Remove objRef > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken Reference removed" > Access.Application.References.AddFromFile > strAccessPath & strFile > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Reference added: " _ > & VBA.Chr(13) & VBA.Chr(10) & > strAccessPath & strFile > > ' if any broken references were handled, recompile > the project > ' See MSKB 194374 for info on SysCmd hidden > arguments > ' Note that if we do NOT run the compile, the > repaired reference > ' does not seem to "stick" and this will run each > time the app opens > Access.Application.SysCmd 504, 16483 > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Recompiled Application" > End If > End If > Exit For > End If > > Next intCount > > TestReference_exit: > On Error Resume Next > RefAddEvent "REF", "TestReference", strLogTxt > Set objRef = Nothing > Exit Function > TestReference_err: > RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & > VBA.Chr(10) & VBA.Err.Description > VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number > Resume TestReference_exit > > End Function > > Private Sub RefAddEvent(strType As String, strDescription As String, > Optional strDetails As String, Optional fPrint As Boolean) > ' Purpose: create an event record of the required type > ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, > CODE, > ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR > ' strDescription - simple description > ' strDetails - optional details > ' fPrint - automatically generates a printed report of the > event > ' strTitle - title for report if printed > ' Created: 26-Aug-97 By: SJW > ' Updated: 07-Oct-98 By: SJW - add A4 paper size options > ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options > with SetpaperSize > > Dim rstEvent As DAO.Recordset > Dim lngTmp As Long > > On Error GoTo AddEvent_Err > > Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog > where 1 = 2", 2) > rstEvent.AddNew > rstEvent!datTimeStamp = VBA.Now() > rstEvent!strType = strType > rstEvent!strSystemID = "NONE" > > ' truncate the description to 255 chars just in case we have exceeded it > If VBA.Len(strDescription) > 255 Then > rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) > ' if we do not pass details then place the complete description in > details > If Len(strDetails) = 0 Then > rstEvent!memDetails = strDescription > End If > Else > rstEvent!strDescription = strDescription > If Len(strDetails) > 0 Then > rstEvent!memDetails = strDetails > End If > End If > lngTmp = rstEvent!lngID > rstEvent.Update > > AddEvent_Exit: > On Error Resume Next > rstEvent.Close > Set rstEvent = Nothing > Exit Sub > > AddEvent_Err: > VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" > Resume AddEvent_Exit > > End Sub > '******** End Module ********* > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Wed Aug 9 10:28:01 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 09 Aug 2006 08:28:01 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9E110.1040009@san.rr.com> Message-ID: <0J3Q00NWLLM92ZI0@l-daemon> Hi Rocky: If you ever make it over to Victoria you can look me up.... Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 6:20 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference You know I gotta admit I haven't studied a map yet. I know we'll be in Vancouver most of the time but we plan to take the ferry to Victoria one day. That's Vancouver Island, yes? Whereabouts does she live? Rocky Martin Reid wrote: > Rocky > > Tricias sister is living in Vancouver island. WIll you be over there? > > Martin > > Martin WP Reid > Training and Assessment Unit > Riddle Hall > Belfast > > tel: 02890 974477 > > > ________________________________ > > From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - Beach Access Software > Sent: Wed 09/08/2006 04:39 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case is to >>>> use late binding. Did I miss something in this thread - why it didn't work >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't work >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as Add >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference to >>>> its library (code to add reference MUST BE kept in another library database >>>> - if executed in FE such will force FEs global vars to loose their values); >>>> >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps here >>>> and there back to the years 1998-2000 but program databases and their code >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>>> library not registered. >>>> >>>> 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 > > > -- 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 EdTesiny at oasas.state.ny.us Wed Aug 9 10:29:58 2006 From: EdTesiny at oasas.state.ny.us (Tesiny, Ed) Date: Wed, 9 Aug 2006 11:29:58 -0400 Subject: [AccessD] Removing a missing reference Message-ID: But you can send it using UPS and maybe FedEx, not sure about FedEx though. 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 > Susan Harkins > Sent: Wednesday, August 09, 2006 11:16 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Removing a missing reference > > Unfortunately, you can't send liquor through the mail. :( From john at winhaven.net Wed Aug 9 10:31:50 2006 From: john at winhaven.net (John Bartow) Date: Wed, 9 Aug 2006 10:31:50 -0500 Subject: [AccessD] Groupwise version 7 In-Reply-To: Message-ID: <011001c6bbc8$ef3d8ec0$6502a8c0@ScuzzPaq> Thanks Gustav, Although I don't pay for their support, I guess its worth a try! -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock If the developers of idsMail claim this to support GW7 and your setup at the client follows the guidelines, ask them to send you a debug version which you can install to log what's going on. That will enable them to track down the error. From john at winhaven.net Wed Aug 9 10:31:50 2006 From: john at winhaven.net (John Bartow) Date: Wed, 9 Aug 2006 10:31:50 -0500 Subject: [AccessD] Groupwise version 7 In-Reply-To: Message-ID: <011101c6bbc8$efdd5130$6502a8c0@ScuzzPaq> Well come on now Bryan, do a quick upgrade and help a guy out hey! ;o) -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Ah, misunderstood the ActiveX part. Sorry I wish I could help but alas we are still on GW 6.5. From ssharkins at setel.com Wed Aug 9 10:38:38 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 9 Aug 2006 11:38:38 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> Really? I had thought we checked UPS, but maybe we didn't... I'll check into it. Thanks Ed. :) Susan H. But you can send it using UPS and maybe FedEx, not sure about FedEx though. > Unfortunately, you can't send liquor through the mail. :( From bchacc at san.rr.com Wed Aug 9 10:42:11 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:42:11 -0700 Subject: [AccessD] Removing a missing reference] In-Reply-To: <0J3Q00NZLLG82OI0@l-daemon> References: <0J3Q00NZLLG82OI0@l-daemon> Message-ID: <44DA0253.9050604@san.rr.com> Jim: Well, I used an earlier solution posted here of trying to create the object when the app starts. If the object can't be created then in the error trap I set a global variable to false. On the Main Menu then if the variable is false I disable the command button that opens the label printer form. Your method would be more simpler. Until, of course, the user decides to move the whole app somewhere else. (Users...you gotta love 'em.) Rocky Jim Lawrence wrote: > Hi Rocky: > > If the bartender.exe file is supposed to resides in a specific location why > no check that location. If the file is not there no reference is possible. > > Just a thought > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Tuesday, August 08, 2006 4:00 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference] > > Charlotte: > > Thanks for all the code. Unfortunately I'm getting the same problem > when looking at this missing reference on your line of code strRefPath = > objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' > failed (A2K). > > I think it's because there is no reference there. The app being > referred to isn't on the machine. So I think it's more a question of > getting that box unchecked than deleting a reference which doesn't > really exist (or are those the same things?). > > Thanks and regards, > > Rocky > > > Charlotte Foust wrote: > >> Rocky, >> >> I won't guarantee this will work, but here's the code I finally came >> down to several years ago. When you're checking references, you cannot >> use any built-in constants, and everything has to be fully >> disambiguated. >> >> Charlotte >> >> '******** Begin Module ********* >> Attribute VB_Name = "basReferences" >> Option Compare Database >> Option Explicit >> >> Public Function TestReference() >> ' loops through references collection and attempts to repair broken >> references >> ' by removing and adding back the reference. For the Redemption code >> library, >> ' attempts to set the reference to the folder where this is placed by >> default. >> ' Disambiguation is used to prevent this code from breaking when there >> are broken >> ' references in the project. >> >> Dim objRef As Access.Reference >> Dim strRefPath As String >> Dim strFile As String >> Dim strAccessPath As String >> Dim strMsg As String >> Dim strLogTxt As String >> Dim intCount As Integer >> >> On Error GoTo TestReference_err >> >> ' *** this for testing only >> strLogTxt = "Broken References = " & >> Access.Application.BrokenReference >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & >> Access.Application.SysCmd(6) >> RefAddEvent "REF", "TestReference", strLogTxt >> ' *** >> strLogTxt = "" >> >> ' check for broken references >> For intCount = Access.Application.References.Count To 1 Step -1 >> Set objRef = Access.Application.References(intCount) >> >> ' store the full path of the reference and the filename itself >> strRefPath = objRef.FullPath >> strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) >> strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) >> - 1) >> >> ' if we're dealing with Redemption, try to set it to the >> ' Access runtime path >> If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then >> strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & >> VBA.Chr(10) _ >> & objRef.FullPath >> >> ' store the runtime path >> strAccessPath = Access.Application.SysCmd(9) >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime >> Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) >> >> ' we need only the folder portion of the runtime path >> strAccessPath = VBA.Mid(strAccessPath, 1, >> VBA.InStrRev(strAccessPath, "\")) >> >> If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) >> = 0 Or _ >> (objRef.Name <> "RIMCDORedemption" And >> VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Broken reference: " & objRef.Name >> >> If VBA.Len(VBA.Dir(strAccessPath & >> "RIMCDORedemptionXP.*")) = 0 Then >> VBA.MsgBox "You must repair a broken reference which >> will otherwise " _ >> & "prevent the application from >> functioning normally.", _ >> 64, "Warning - Runtime Session Required" >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Not a runtime session." >> Exit For >> >> Else >> ' remove the broken and add it back >> Access.Application.References.Remove objRef >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Broken Reference removed" >> Access.Application.References.AddFromFile >> strAccessPath & strFile >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Reference added: " _ >> & VBA.Chr(13) & VBA.Chr(10) & >> strAccessPath & strFile >> >> ' if any broken references were handled, recompile >> the project >> ' See MSKB 194374 for info on SysCmd hidden >> arguments >> ' Note that if we do NOT run the compile, the >> repaired reference >> ' does not seem to "stick" and this will run each >> time the app opens >> Access.Application.SysCmd 504, 16483 >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Recompiled Application" >> End If >> End If >> Exit For >> End If >> >> Next intCount >> >> TestReference_exit: >> On Error Resume Next >> RefAddEvent "REF", "TestReference", strLogTxt >> Set objRef = Nothing >> Exit Function >> TestReference_err: >> RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & >> VBA.Chr(10) & VBA.Err.Description >> VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number >> Resume TestReference_exit >> >> End Function >> >> Private Sub RefAddEvent(strType As String, strDescription As String, >> Optional strDetails As String, Optional fPrint As Boolean) >> ' Purpose: create an event record of the required type >> ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, >> CODE, >> ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR >> ' strDescription - simple description >> ' strDetails - optional details >> ' fPrint - automatically generates a printed report of the >> event >> ' strTitle - title for report if printed >> ' Created: 26-Aug-97 By: SJW >> ' Updated: 07-Oct-98 By: SJW - add A4 paper size options >> ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options >> with SetpaperSize >> >> Dim rstEvent As DAO.Recordset >> Dim lngTmp As Long >> >> On Error GoTo AddEvent_Err >> >> Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog >> where 1 = 2", 2) >> rstEvent.AddNew >> rstEvent!datTimeStamp = VBA.Now() >> rstEvent!strType = strType >> rstEvent!strSystemID = "NONE" >> >> ' truncate the description to 255 chars just in case we have exceeded it >> If VBA.Len(strDescription) > 255 Then >> rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) >> ' if we do not pass details then place the complete description in >> details >> If Len(strDetails) = 0 Then >> rstEvent!memDetails = strDescription >> End If >> Else >> rstEvent!strDescription = strDescription >> If Len(strDetails) > 0 Then >> rstEvent!memDetails = strDetails >> End If >> End If >> lngTmp = rstEvent!lngID >> rstEvent.Update >> >> AddEvent_Exit: >> On Error Resume Next >> rstEvent.Close >> Set rstEvent = Nothing >> Exit Sub >> >> AddEvent_Err: >> VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" >> Resume AddEvent_Exit >> >> End Sub >> '******** End Module ********* >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 9 10:43:22 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:43:22 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <0J3Q00NWLLM92ZI0@l-daemon> References: <0J3Q00NWLLM92ZI0@l-daemon> Message-ID: <44DA029A.5090205@san.rr.com> Cool. Send me your phone number off-line and I'll give you a call if we go. I thought Marty lived there as well. No? Rocky Jim Lawrence wrote: > Hi Rocky: > > If you ever make it over to Victoria you can look me up.... > > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 6:20 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > You know I gotta admit I haven't studied a map yet. I know we'll be in > Vancouver most of the time but we plan to take the ferry to Victoria one > day. That's Vancouver Island, yes? Whereabouts does she live? > > Rocky > > > Martin Reid wrote: > >> Rocky >> >> Tricias sister is living in Vancouver island. WIll you be over there? >> >> Martin >> >> Martin WP Reid >> Training and Assessment Unit >> Riddle Hall >> Belfast >> >> tel: 02890 974477 >> >> >> ________________________________ >> >> From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - >> > Beach Access Software > >> Sent: Wed 09/08/2006 04:39 >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> >> >> I'll be damned. Who knew? >> >> When all else fails, read the manual? >> >> I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of >> Vodka as well). Might be able to pay off the debt as well next week. >> We're in Vancouver for the week. And are planning a day trip to >> Victoria. Maybe we can say hello. >> >> Best, >> >> Rocky >> >> >> >> MartyConnelly wrote: >> >> >>> All the docs on the calls are in C:\Program >>> Files\Seagull\BarTender\7.74\Automation.chm >>> The VB.Net code is almost same as VBA except instantiation. >>> >>> This runs and prints >>> >>> Sub testbar() >>> 'Declaring a BarTender application variable >>> Dim btApp As Object >>> 'Declaring a format variable >>> Dim btFormat As Object >>> 'Instantiating the BarTender object >>> Set btApp = CreateObject("BarTender.Application") >>> 'Setting the BarTender Application Visible >>> btApp.Visible = True >>> 'Setting the BarTender format to open >>> 'the .btw template file might have to be previously saved from Bartender >>> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >>> 'Printing the label format >>> Dim lRet As Long >>> lRet = btFormat.PrintOut(True, True) >>> 'Ending the BarTender process >>> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >>> End Sub >>> >>> >>> >>> Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>>> Shamil: >>>> >>>> I tried using late binding which would work real well but partway into >>>> the code I got an error. On the statement: >>>> >>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>> >>>> I get an 'argument not optional' error - don't know why. But the >>>> reference is to the Bartender.exe, if that makes any difference. Using >>>> early binding, this code works well. >>>> >>>> To change from early to late binding I changed >>>> >>>> Public BtApp As BarTender.Application >>>> Public BtFormat As BarTender.Format >>>> >>>> to >>>> >>>> Public BtApp As Object 'BarTender.Application >>>> Public BtFormat As Variant 'BarTender.Format >>>> >>>> and then in the load event: >>>> >>>> Set BtApp = CreateObject("BarTender.Application") >>>> >>>> There is no object model for Bartender so I don't know what it is >>>> expecting for BtFormat. >>>> >>>> But late binding would solve the problem. >>>> >>>> Any ideas? >>>> >>>> If I want to try your other solution I'll have some questions. It's a >>>> bit past my capabilities. >>>> >>>> Thanks and regards, >>>> >>>> Rocky >>>> >>>> >>>> Shamil Salakhetdinov wrote: >>>> >>>> >>>> >>>> >>>> >>>>> Rocky, >>>>> >>>>> I still think the easiest and the most reliable solution for your case >>>>> > is to > >>>>> use late binding. Did I miss something in this thread - why it didn't >>>>> > work > >>>>> for you? >>>>> >>>>> If you decide to not use late binding and if remove reference doesn't >>>>> > work > >>>>> for you - then you can use Add Reference (anyway your intention to use >>>>> Remove Reference forces your FE to loose its compiled state as well as >>>>> > Add > >>>>> Reference does). >>>>> >>>>> I mean the following: >>>>> >>>>> - put all your bar code printing code into a separate library/utility >>>>> database, set reference to bar code printing library in this database; >>>>> >>>>> - in your FE keep the code to check is it possible to create bar code >>>>> printing object or not; >>>>> >>>>> - if it's possible to create bar code printing object then add >>>>> > reference to > >>>>> its library (code to add reference MUST BE kept in another library >>>>> > database > >>>>> - if executed in FE such will force FEs global vars to loose their >>>>> > values); > >>>>> Etc. >>>>> >>>>> This above is a flexible solution but its above description isn't a >>>>> > full > >>>>> story - in this case if your FE uses global variables then you have to >>>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>>> commandbars... and use your current FE as a library database - then >>>>> CurrentDb if you use it becomes a problem etc. >>>>> >>>>> This above technique works very well - it was used in real life apps >>>>> > here > >>>>> and there back to the years 1998-2000 but program databases and their >>>>> > code > >>>>> should be refactored to be used within this technique.... >>>>> >>>>> It's very shortly described here - "A method to modularize MS Access >>>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>>> >>>>> But applying it for your case looks like using "cannons to shoot at >>>>> nightingales" - why not use simple and effective late binding? >>>>> >>>>> -- >>>>> Shamil >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>>> > - > >>>>> Beach Access Software >>>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Removing a missing reference >>>>> >>>>> Marty: >>>>> >>>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>>> > Object > >>>>> library not registered. >>>>> >>>>> 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 >> > > >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Wed Aug 9 10:50:55 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 19:50:55 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9FA31.2020908@san.rr.com> Message-ID: <002501c6bbcb$99e191d0$6401a8c0@nant> <<< Did anything develop for you over here that Might bring you our way? >>> No, Rocky, it didn't. Well, I have still an open US Visa and if I happen to make some good money till the next summer I'd definitely go to visit NYC. California and Pacific looks like a good place to visit too but these are for the next time to visit... I must say I have found Seattle/Bellvue area where I have been in the beginning of this summer too quiet to be good fit for me - I'm seems to be addicted forever to the big cities like St.Petersburg, Russia is... NYC would be a good fit for me I think... -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:07 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference (Well I didn't require you to drink it all at once.) I'm not likely to be in your neighborhood soon. Did anything develop for you over here that might bring you our way? Best, Rocky Shamil Salakhetdinov wrote: > Thank you, Rocky, > > A gallon of vodka would kill me. > A glass and in several shots with good snacks that would be enough. :) > In fact I prefer a few of good red wine or Tequila or Caperinja or Cointreau > or Whiskey or Martini - nothing special... > > -- > Shamil > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:40 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case >>>> > is to > >>>> use late binding. Did I miss something in this thread - why it didn't >>>> > work > >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't >>>> > work > >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as >>>> > Add > >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference >>>> > to > >>>> its library (code to add reference MUST BE kept in another library >>>> > database > >>>> - if executed in FE such will force FEs global vars to loose their >>>> > values); > >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps >>>> > here > >>>> and there back to the years 1998-2000 but program databases and their >>>> > code > >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>> > - > >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>> > Object > >>>> library not registered. >>>> >>>> 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 Chester_Kaup at kindermorgan.com Wed Aug 9 10:53:20 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 9 Aug 2006 10:53:20 -0500 Subject: [AccessD] Parameters to make table query Message-ID: I am trying to pass parameters to a make table query with the following code. The part that passes the parameters works fine for a select query. When I run the code the query still asks for input. What do I need to do different to make it work for a make table query? Set MyQDef5 = MyDb.QueryDefs("qry Injected Volume Total around Producer") PatternName = "PAT 145-4" Set myds2 = MyQDef2.OpenRecordset() WellName = myds2.Fields(1) MyQDef5.Parameters![Pattern Name] = PatternName MyQDef5.Parameters![WellName] = WellName DoCmd.OpenQuery "qry Injected Volume Total around Producer", acViewNormal, acEdit Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From shamil at users.mns.ru Wed Aug 9 10:50:05 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 19:50:05 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9FA5D.8050603@san.rr.com> Message-ID: <002401c6bbcb$7bf9ee10$6401a8c0@nant> <<< Read the manual. What a concept! >>> Yes, Rocky, when younger we used to say RTFM (sorry) as soon as you see that you're getting stuck with your "brute force attack"... -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:08 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Read the manual. What a concept! Rocky Shamil Salakhetdinov wrote: > Hello Rocky, > > I did first try to use the code without optional parameters and I have found > (as you did) that it doesn't run well in late binding mode. That was strange > because in general case such code should have run well. Therefore I made an > assumption that they have done something wrong in their type library > definitions (type library is embedded into their ActiveX bartender.exe and > it's also supplied separated as a .tlb file but this one isn't registered > and can be investigated only using OleView - a utility from VS6). > > Then I did have a look through BarTender installation directory and I did > find their manual, from which I have got VB.Net sample, which I have got > adjusted to VBA/VB6 and posted here... > > <<< > How did you determine that btApp.Quit 1 needed the '1'? > > You can see the actual value for BarTender.BtSaveOptions.btDoNotSaveChanges > in the Object Browser or when in early binding mode you can just copy and > paste it into immediate window and push [Enter]: > > ?BarTender.BtSaveOptions.btDoNotSaveChanges > 1 > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:34 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > Well, it works. As you knew it would. :-) I am in awe. Couldn't > have taken you more then 15 minutes! > > Questions: how did you determine that the > > Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") > > needed two more arguments (False and "")? > > How did you determine that PrintOut needed two more arguments? > > btFormat.PrintOut False, False > > How did you determine that btApp.Quit 1 needed the '1'? > > Thanks and best regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> This code should work OK with late binding(watch code lines wraps): >> >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> >> As you were recommended here you can use conditional compilation and early >> binding to have intellisense while developing/testing and to compile and >> > run > >> using late binding when preparing/using a production version: >> >> #if PRODUCTION_VERSION then >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> #else >> 'Declaring a BarTender application variable >> Dim btApp As BarTender.Application >> 'Declaring a format variable >> Dim btFormat as BarTender.Format >> #endif >> 'Instantiating the BarTender object >> Set btApp = GetBarTenderApp() >> If Not btApp is Nothing then >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> End if >> >> ... >> >> Private function GetBarTenderApp() as object >> On error resume next >> Set GetBarTenderApp = CreateObject("BarTender.Application") >> End function >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 09, 2006 12:36 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is >>> >>> >> to >> >> >>> use late binding. Did I miss something in this thread - why it didn't >>> > work > >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't >>> > work > >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as >>> > Add > >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference >>> >>> >> to >> >> >>> its library (code to add reference MUST BE kept in another library >>> >>> >> database >> >> >>> - if executed in FE such will force FEs global vars to loose their >>> >>> >> values); >> >> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their >>> > code > >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - >>> >>> >> Object >> >> >>> library not registered. >>> >>> 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 garykjos at gmail.com Wed Aug 9 11:06:54 2006 From: garykjos at gmail.com (Gary Kjos) Date: Wed, 9 Aug 2006 11:06:54 -0500 Subject: [AccessD] Removing a missing reference In-Reply-To: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> References: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> Message-ID: It's a state by state thing. 28 states say you can't ship it according to this.... http://www.legalaffairs.org/issues/March-April-2003/story_marapr03_garrone.msp Minnesota does not allow it I don't think because our state adds it's own tax to Liquor and so if it gets shipped in the state isn't getting it's taste of the action. GK On 8/9/06, Susan Harkins wrote: > Really? I had thought we checked UPS, but maybe we didn't... I'll check into > it. Thanks Ed. :) > > Susan H. > > But you can send it using UPS and maybe FedEx, not sure about FedEx though. > > > Unfortunately, you can't send liquor through the mail. :( > > -- > 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 carbonnb at sympatico.ca Wed Aug 9 11:07:57 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Wed, 09 Aug 2006 12:07:57 -0400 Subject: [AccessD] Groupwise version 7 In-Reply-To: <011101c6bbc8$efdd5130$6502a8c0@ScuzzPaq> References: , <011101c6bbc8$efdd5130$6502a8c0@ScuzzPaq> Message-ID: On 9 Aug 2006 at 10:31, John Bartow wrote: > Well come on now Bryan, do a quick upgrade and help a guy out hey! > ;o) Ifn' I could I would. But definitely not this week. I'm on vacation man. Not thinking about work until oh, late next week sometime, even though I'm back in the office on Monday :) -- Bryan Carbonnell - carbonnb at sympatico.ca Every time I walk into a singles bar I can hear Mom's wise words: "Don't pick that up, you don't know where it's been." From Gustav at cactus.dk Wed Aug 9 11:53:48 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Wed, 09 Aug 2006 18:53:48 +0200 Subject: [AccessD] Parameters to make table query Message-ID: Hi Chester You are opening a second instance of the query with DoCmd. .. Replace it with: MyQDef5.Execute /gustav >>> Chester_Kaup at kindermorgan.com 09-08-2006 17:53:20 >>> I am trying to pass parameters to a make table query with the following code. The part that passes the parameters works fine for a select query. When I run the code the query still asks for input. What do I need to do different to make it work for a make table query? Set MyQDef5 = MyDb.QueryDefs("qry Injected Volume Total around Producer") PatternName = "PAT 145-4" Set myds2 = MyQDef2.OpenRecordset() WellName = myds2.Fields(1) MyQDef5.Parameters![Pattern Name] = PatternName MyQDef5.Parameters![WellName] = WellName DoCmd.OpenQuery "qry Injected Volume Total around Producer", acViewNormal, acEdit Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 From Chester_Kaup at kindermorgan.com Wed Aug 9 12:46:02 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 9 Aug 2006 12:46:02 -0500 Subject: [AccessD] Parameters to make table query In-Reply-To: Message-ID: Thanks! Works great. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, August 09, 2006 11:54 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Parameters to make table query Hi Chester You are opening a second instance of the query with DoCmd. .. Replace it with: MyQDef5.Execute /gustav >>> Chester_Kaup at kindermorgan.com 09-08-2006 17:53:20 >>> I am trying to pass parameters to a make table query with the following code. The part that passes the parameters works fine for a select query. When I run the code the query still asks for input. What do I need to do different to make it work for a make table query? Set MyQDef5 = MyDb.QueryDefs("qry Injected Volume Total around Producer") PatternName = "PAT 145-4" Set myds2 = MyQDef2.OpenRecordset() WellName = myds2.Fields(1) MyQDef5.Parameters![Pattern Name] = PatternName MyQDef5.Parameters![WellName] = WellName DoCmd.OpenQuery "qry Injected Volume Total around Producer", acViewNormal, acEdit Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at earthlink.net Wed Aug 9 13:26:26 2006 From: jimdettman at earthlink.net (Jim Dettman) Date: Wed, 9 Aug 2006 14:26:26 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9448F.4090703@shaw.ca> Message-ID: <200608091821.k79IKpxP024647@mx.911domain.com> <> I thought this app sounded familiar. I used it about 10 years ago. They (Seagull Scientific) were the only ones with Windows drivers for Zebra bar code printers at the time. I used them and Bartender out on a production line. Nice to see their still in business. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Tuesday, August 08, 2006 10:13 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference All the docs on the calls are in C:\Program Files\Seagull\BarTender\7.74\Automation.chm The VB.Net code is almost same as VBA except instantiation. This runs and prints Sub testbar() 'Declaring a BarTender application variable Dim btApp As Object 'Declaring a format variable Dim btFormat As Object 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open 'the .btw template file might have to be previously saved from Bartender Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") 'Printing the label format Dim lRet As Long lRet = btFormat.PrintOut(True, True) 'Ending the BarTender process btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) End Sub Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case is to >>use late binding. Did I miss something in this thread - why it didn't work >>for you? >> >>If you decide to not use late binding and if remove reference doesn't work >>for you - then you can use Add Reference (anyway your intention to use >>Remove Reference forces your FE to loose its compiled state as well as Add >>Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a full >>story - in this case if your FE uses global variables then you have to >>create another "proxy" FE to keep start-up code, (dynamic) references, >>commandbars... and use your current FE as a library database - then >>CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps here >>and there back to the years 1998-2000 but program databases and their code >>should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- 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 Wed Aug 9 13:30:57 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Wed, 9 Aug 2006 11:30:57 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <200608091821.k79IKpxP024647@mx.911domain.com> Message-ID: I thought bartender exe was for when all code was fixed and done. Joe Hecht jmhecht at earthlink.net -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Wednesday, August 09, 2006 11:26 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Removing a missing reference <> I thought this app sounded familiar. I used it about 10 years ago. They (Seagull Scientific) were the only ones with Windows drivers for Zebra bar code printers at the time. I used them and Bartender out on a production line. Nice to see their still in business. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Tuesday, August 08, 2006 10:13 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference All the docs on the calls are in C:\Program Files\Seagull\BarTender\7.74\Automation.chm The VB.Net code is almost same as VBA except instantiation. This runs and prints Sub testbar() 'Declaring a BarTender application variable Dim btApp As Object 'Declaring a format variable Dim btFormat As Object 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open 'the .btw template file might have to be previously saved from Bartender Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") 'Printing the label format Dim lRet As Long lRet = btFormat.PrintOut(True, True) 'Ending the BarTender process btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) End Sub Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application Public BtFormat As >Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case >>is to >>use late binding. Did I miss something in this thread - why it didn't >>work for you? >> >>If you decide to not use late binding and if remove reference doesn't >>work for you - then you can use Add Reference (anyway your intention >>to use Remove Reference forces your FE to loose its compiled state as >>well as Add Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add >>reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a >>full story - in this case if your FE uses global variables then you >>have to create another "proxy" FE to keep start-up code, (dynamic) >>references, commandbars... and use your current FE as a library >>database - then CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps >>here and there back to the years 1998-2000 but program databases and >>their code should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>Smolin - Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- 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 From bchacc at san.rr.com Wed Aug 9 13:39:18 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 11:39:18 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <002501c6bbcb$99e191d0$6401a8c0@nant> References: <002501c6bbcb$99e191d0$6401a8c0@nant> Message-ID: <44DA2BD6.3050204@san.rr.com> I know what you mean. I grew up in Chicago. I'm an urban guy. Where we are now, however, kind of in the suburbs is a good fit. New York would be an exciting place to live. Rocky Shamil Salakhetdinov wrote: > <<< > Did anything develop for you over here that > Might bring you our way? > > No, Rocky, it didn't. > > Well, I have still an open US Visa and if I happen to make some good money > till the next summer I'd definitely go to visit NYC. California and Pacific > looks like a good place to visit too but these are for the next time to > visit... > > I must say I have found Seattle/Bellvue area where I have been in the > beginning of this summer too quiet to be good fit for me - I'm seems to be > addicted forever to the big cities like St.Petersburg, Russia is... > > NYC would be a good fit for me I think... > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:07 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > (Well I didn't require you to drink it all at once.) > > I'm not likely to be in your neighborhood soon. Did anything develop > for you over here that might bring you our way? > > Best, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Thank you, Rocky, >> >> A gallon of vodka would kill me. >> A glass and in several shots with good snacks that would be enough. :) >> In fact I prefer a few of good red wine or Tequila or Caperinja or >> > Cointreau > >> or Whiskey or Martini - nothing special... >> >> -- >> Shamil >> >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 09, 2006 7:40 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> I'll be damned. Who knew? >> >> When all else fails, read the manual? >> >> I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of >> Vodka as well). Might be able to pay off the debt as well next week. >> We're in Vancouver for the week. And are planning a day trip to >> Victoria. Maybe we can say hello. >> >> Best, >> >> Rocky >> >> >> >> MartyConnelly wrote: >> >> >>> All the docs on the calls are in C:\Program >>> Files\Seagull\BarTender\7.74\Automation.chm >>> The VB.Net code is almost same as VBA except instantiation. >>> >>> This runs and prints >>> >>> Sub testbar() >>> 'Declaring a BarTender application variable >>> Dim btApp As Object >>> 'Declaring a format variable >>> Dim btFormat As Object >>> 'Instantiating the BarTender object >>> Set btApp = CreateObject("BarTender.Application") >>> 'Setting the BarTender Application Visible >>> btApp.Visible = True >>> 'Setting the BarTender format to open >>> 'the .btw template file might have to be previously saved from Bartender >>> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >>> 'Printing the label format >>> Dim lRet As Long >>> lRet = btFormat.PrintOut(True, True) >>> 'Ending the BarTender process >>> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >>> End Sub >>> >>> >>> >>> Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>>> Shamil: >>>> >>>> I tried using late binding which would work real well but partway into >>>> the code I got an error. On the statement: >>>> >>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>> >>>> I get an 'argument not optional' error - don't know why. But the >>>> reference is to the Bartender.exe, if that makes any difference. Using >>>> early binding, this code works well. >>>> >>>> To change from early to late binding I changed >>>> >>>> Public BtApp As BarTender.Application >>>> Public BtFormat As BarTender.Format >>>> >>>> to >>>> >>>> Public BtApp As Object 'BarTender.Application >>>> Public BtFormat As Variant 'BarTender.Format >>>> >>>> and then in the load event: >>>> >>>> Set BtApp = CreateObject("BarTender.Application") >>>> >>>> There is no object model for Bartender so I don't know what it is >>>> expecting for BtFormat. >>>> >>>> But late binding would solve the problem. >>>> >>>> Any ideas? >>>> >>>> If I want to try your other solution I'll have some questions. It's a >>>> bit past my capabilities. >>>> >>>> Thanks and regards, >>>> >>>> Rocky >>>> >>>> >>>> Shamil Salakhetdinov wrote: >>>> >>>> >>>> >>>> >>>> >>>>> Rocky, >>>>> >>>>> I still think the easiest and the most reliable solution for your case >>>>> >>>>> >> is to >> >> >>>>> use late binding. Did I miss something in this thread - why it didn't >>>>> >>>>> >> work >> >> >>>>> for you? >>>>> >>>>> If you decide to not use late binding and if remove reference doesn't >>>>> >>>>> >> work >> >> >>>>> for you - then you can use Add Reference (anyway your intention to use >>>>> Remove Reference forces your FE to loose its compiled state as well as >>>>> >>>>> >> Add >> >> >>>>> Reference does). >>>>> >>>>> I mean the following: >>>>> >>>>> - put all your bar code printing code into a separate library/utility >>>>> database, set reference to bar code printing library in this database; >>>>> >>>>> - in your FE keep the code to check is it possible to create bar code >>>>> printing object or not; >>>>> >>>>> - if it's possible to create bar code printing object then add >>>>> > reference > >>>>> >>>>> >> to >> >> >>>>> its library (code to add reference MUST BE kept in another library >>>>> >>>>> >> database >> >> >>>>> - if executed in FE such will force FEs global vars to loose their >>>>> >>>>> >> values); >> >> >>>>> Etc. >>>>> >>>>> This above is a flexible solution but its above description isn't a >>>>> > full > >>>>> story - in this case if your FE uses global variables then you have to >>>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>>> commandbars... and use your current FE as a library database - then >>>>> CurrentDb if you use it becomes a problem etc. >>>>> >>>>> This above technique works very well - it was used in real life apps >>>>> >>>>> >> here >> >> >>>>> and there back to the years 1998-2000 but program databases and their >>>>> >>>>> >> code >> >> >>>>> should be refactored to be used within this technique.... >>>>> >>>>> It's very shortly described here - "A method to modularize MS Access >>>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>>> >>>>> But applying it for your case looks like using "cannons to shoot at >>>>> nightingales" - why not use simple and effective late binding? >>>>> >>>>> -- >>>>> Shamil >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>>> >>>>> >> - >> >> >>>>> Beach Access Software >>>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Removing a missing reference >>>>> >>>>> Marty: >>>>> >>>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>>> >>>>> >> Object >> >> >>>>> library not registered. >>>>> >>>>> Rocky >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Wed Aug 9 13:58:50 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Wed, 9 Aug 2006 14:58:50 -0400 Subject: [AccessD] Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A64B@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357AB@ADGSERVER> Charlotte, Thanks for the pointers. What I was doing was using resume next and looking at the error code myself and deciding whether or not to raise the same error. So I went back and used an error handler and had the logic in the error handler to raise the error again and it works as I expected. Thanks again, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 5:21 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... Importance: Low Bobby, I just looked at your code again instread of just at the error handling. You have On Error Resume Next set, which clears the error. If you want to raise an error, you have to use an error handler and raise the error from there. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby From cfoust at infostatsystems.com Wed Aug 9 17:04:46 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 9 Aug 2006 15:04:46 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> Message-ID: Well SOMEBODY ships liquor to the retailers! Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins Sent: Wednesday, August 09, 2006 8:39 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Removing a missing reference Really? I had thought we checked UPS, but maybe we didn't... I'll check into it. Thanks Ed. :) Susan H. But you can send it using UPS and maybe FedEx, not sure about FedEx though. > Unfortunately, you can't send liquor through the mail. :( -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Wed Aug 9 17:07:50 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 9 Aug 2006 15:07:50 -0700 Subject: [AccessD] Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D357AB@ADGSERVER> Message-ID: I should have caught that the first time. Using Resume Next means that all errors in the routine get absorbed, including the ones you try to raise. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Wednesday, August 09, 2006 11:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Raising errors... Charlotte, Thanks for the pointers. What I was doing was using resume next and looking at the error code myself and deciding whether or not to raise the same error. So I went back and used an error handler and had the logic in the error handler to raise the error again and it works as I expected. Thanks again, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 5:21 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... Importance: Low Bobby, I just looked at your code again instread of just at the error handling. You have On Error Resume Next set, which clears the error. If you want to raise an error, you have to use an error handler and raise the error from there. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From ssharkins at setel.com Wed Aug 9 17:31:44 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 9 Aug 2006 18:31:44 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: <001601c6bc03$97ff42d0$0301a8c0@SUSANONE> I've gotta find me an UPS man... ;) Susan H. Well SOMEBODY ships liquor to the retailers! From darrend at nimble.com.au Wed Aug 9 20:39:03 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 10 Aug 2006 11:39:03 +1000 Subject: [AccessD] OT: Reporting Services Guru Required Message-ID: <20060810013903.CRCI10893.omta02ps.mx.bigpond.com@DENZILLAP> Hi Team CROSS POSTED A bit OT I know - so please respond off-list - thanks Our firm needs to find a Sydney based Reporting Services Guru we can call on from time to time to assist with various things who from time to time may be required to come on-site with us to some of our clients If you or someone you know fits the bill - can you get them to contact me off list please at darrend @ nimble.com.au? Many thanks See y'all Darren From bheid at appdevgrp.com Thu Aug 10 07:32:50 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 10 Aug 2006 08:32:50 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A7F5@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357B1@ADGSERVER> Well, that's just asinine! LOL. I did not know that. Have to store that info away. Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Wednesday, August 09, 2006 6:08 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low I should have caught that the first time. Using Resume Next means that all errors in the routine get absorbed, including the ones you try to raise. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Wednesday, August 09, 2006 11:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Raising errors... Charlotte, Thanks for the pointers. What I was doing was using resume next and looking at the error code myself and deciding whether or not to raise the same error. So I went back and used an error handler and had the logic in the error handler to raise the error again and it works as I expected. Thanks again, Bobby From bchacc at san.rr.com Thu Aug 10 11:09:22 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 09:09:22 -0700 Subject: [AccessD] Trigger code every day Message-ID: <44DB5A32.8040104@san.rr.com> Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bill_Patten at earthlink.net Thu Aug 10 11:23:54 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 10 Aug 2006 09:23:54 -0700 Subject: [AccessD] Trigger code every day References: <44DB5A32.8040104@san.rr.com> Message-ID: <001701c6bc99$615fe310$6401a8c0@BPCS> Hi Rocky, With out knowing all the details, I'd be tempted to use Windows Schedule tasks and let it do the work. You can pick times days etc. HTH Bill ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 9:09 AM Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 rusty.hammond at cpiqpc.com Thu Aug 10 11:24:55 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Thu, 10 Aug 2006 11:24:55 -0500 Subject: [AccessD] Trigger code every day Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A1@cpixchng-1.cpiqpc.net> Rocky, Don't know how bad it's going to affect the server by running it directly on it with one process a day, but what we have done is setup another workstation that runs these type of things. Seems like once you automate one thing, then other items could suddenly be automated that noone had thought of before, then you could run into server issues with multiple processes running throughout the day. We're using MS Access with the OnTimer event and time checking just like you suggest. Pretty solid solution. HTH Rusty -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Thursday, August 10, 2006 11:09 AM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 ********************************************************************** 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 Thu Aug 10 11:29:01 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 09:29:01 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A1@cpixchng-1.cpiqpc.net> References: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A1@cpixchng-1.cpiqpc.net> Message-ID: <44DB5ECD.7000103@san.rr.com> Since the back end where the data to export resides is currently linked to the front end (both the regular app and the other stand-alone exporter) I suppose it would be best not to put it on the server, yes? Rocky rusty.hammond at cpiqpc.com wrote: > Rocky, > > Don't know how bad it's going to affect the server by running it directly on > it with one process a day, but what we have done is setup another > workstation that runs these type of things. Seems like once you automate > one thing, then other items could suddenly be automated that noone had > thought of before, then you could run into server issues with multiple > processes running throughout the day. We're using MS Access with the > OnTimer event and time checking just like you suggest. Pretty solid > solution. > > HTH > > Rusty > > -----Original Message----- > From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] > Sent: Thursday, August 10, 2006 11:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Thu Aug 10 11:46:52 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 09:46:52 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <001701c6bc99$615fe310$6401a8c0@BPCS> References: <44DB5A32.8040104@san.rr.com> <001701c6bc99$615fe310$6401a8c0@BPCS> Message-ID: <44DB62FC.50603@san.rr.com> Bill: Never used Windows Scheduler before but it looked pretty simple so I set up a task and pointed to the mdb and set the time for two minutes later than the current clock. But it didn't run because I didn't specify a user account password. But there is no password for this machine. Just the default account 'HAL9004\Rocky' but I don't have a password. Do I need to set a password in order to use the scheduler? Thanks and regards, Rocky Bill Patten wrote: > Hi Rocky, > > With out knowing all the details, I'd be tempted to use Windows Schedule > tasks and let it do the work. You can pick times days etc. > > HTH > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Thursday, August 10, 2006 9:09 AM > Subject: [AccessD] Trigger code every day > > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Thu Aug 10 12:12:22 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Thu, 10 Aug 2006 21:12:22 +0400 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: <000301c6bca0$24f58fe0$6401a8c0@nant> Rocky, I'd use Windows Scheduler - http://www.iopus.com/guides/winscheduler.htm -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 10, 2006 8:09 PM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 jwcolby at colbyconsulting.com Thu Aug 10 12:10:53 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 10 Aug 2006 13:10:53 -0400 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: <006f01c6bc9f$f18a4330$657aa8c0@m6805> Rocky, It isn't going to suck up a lot of server time, remember that Access is a file server database. What will happen is that it will run on EVERY front end, possibly running more than once if you have several users and each user's workstation is doing this. You can get around that by causing it to only run on a single specific workstation but then that workstation has to be turned on and logged in to. I built what I called a "server app", which is an FE that runs on the server. Since only a single instance is running, it now runs only a single time per day / hour / whatever time interval you choose here. The up side is it runs regardless of who or how many users are running your application out on workstations, and only a single instance is run. The down side is that the server has to be logged in to and that user on the server has to run the application. If the server reboots and no one logs in, then the app doesn't run. Access cannot directly run as a service. This down side also causes a couple of other inconveniences. Because I set the server login to run the app in the startup, if I log in remotely, a second instance starts up. It is not immediately obvious that it is a second instance since you cannot see tasks already running under another user without looking at the task manager. I have been known to leave two instances running accidentally, and I have also been known to shut down the instance running under the other user (the user logged in from the server console) and then log off my remote desktop and not fire up the app again for the still logged in main user. In fact to do that you have to use VNC to log back in to the main user's login and start the program. This method can also cause problems if you use an open table to speed things up and then want to compact / repair the BE. All of your other workstations can be out of the db but the ServerApp is still logged in and so the BE can't be compacted. All in all though, this strategy does work and that is how I handle it. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 10, 2006 12:09 PM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 markamatte at hotmail.com Thu Aug 10 12:16:37 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Thu, 10 Aug 2006 17:16:37 +0000 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: <006f01c6bc9f$f18a4330$657aa8c0@m6805> Message-ID: Hello All, Other than creating a query that gets the sum and join it to the query I'm using as a recordsource...Is there a way to sort by the sum on a footer in a report...sorting/grouping doesn't seem to like the idea...any ideas? Thanks, Mark A. Matte From bchacc at san.rr.com Thu Aug 10 12:29:05 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 10:29:05 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <006f01c6bc9f$f18a4330$657aa8c0@m6805> References: <006f01c6bc9f$f18a4330$657aa8c0@m6805> Message-ID: <44DB6CE1.1000405@san.rr.com> John: It would seem that putting this front end on a workstation (it's linked to the BE on the server) and using Windows Scheduler would be another alternative. It tried this and it works if I put a password on my account (which is a PITA because now I have to enter the PW when I start up the box and I'm the only user). Do you know of any downside to using Windows Scheduler? Thanks and regards, Rocky JWColby wrote: > Rocky, > > It isn't going to suck up a lot of server time, remember that Access is a > file server database. What will happen is that it will run on EVERY front > end, possibly running more than once if you have several users and each > user's workstation is doing this. You can get around that by causing it to > only run on a single specific workstation but then that workstation has to > be turned on and logged in to. > > I built what I called a "server app", which is an FE that runs on the > server. Since only a single instance is running, it now runs only a single > time per day / hour / whatever time interval you choose here. > > The up side is it runs regardless of who or how many users are running your > application out on workstations, and only a single instance is run. > > The down side is that the server has to be logged in to and that user on the > server has to run the application. If the server reboots and no one logs > in, then the app doesn't run. Access cannot directly run as a service. > > This down side also causes a couple of other inconveniences. Because I set > the server login to run the app in the startup, if I log in remotely, a > second instance starts up. It is not immediately obvious that it is a > second instance since you cannot see tasks already running under another > user without looking at the task manager. I have been known to leave two > instances running accidentally, and I have also been known to shut down the > instance running under the other user (the user logged in from the server > console) and then log off my remote desktop and not fire up the app again > for the still logged in main user. In fact to do that you have to use VNC > to log back in to the main user's login and start the program. > > This method can also cause problems if you use an open table to speed things > up and then want to compact / repair the BE. All of your other workstations > can be out of the db but the ServerApp is still logged in and so the BE > can't be compacted. > > All in all though, this strategy does work and that is how I handle it. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 10, 2006 12:09 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export some > files. I'm thinking that I use the OnTimer event with some timer interval > (like 5 minutes) and check the clock to see if it's time to do the export. > This app will run all the time in the background and reside probably on > their server. Is this going to suck up a lot of server cycles? Is there a > better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Thu Aug 10 12:30:05 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 10:30:05 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <000301c6bca0$24f58fe0$6401a8c0@nant> References: <000301c6bca0$24f58fe0$6401a8c0@nant> Message-ID: <44DB6D1D.2050902@san.rr.com> Tried it. It works. Seems too easy. Only thing is you have to have a password on the account to schedule a task which I didn't have. Now I have this password and I have to enter it when I start up the machine. Thanks Rocky Shamil Salakhetdinov wrote: > Rocky, > > I'd use Windows Scheduler - http://www.iopus.com/guides/winscheduler.htm > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 10, 2006 8:09 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bill_Patten at earthlink.net Thu Aug 10 12:54:33 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 10 Aug 2006 10:54:33 -0700 Subject: [AccessD] Trigger code every day References: <44DB5A32.8040104@san.rr.com> <001701c6bc99$615fe310$6401a8c0@BPCS> <44DB62FC.50603@san.rr.com> Message-ID: <001f01c6bca6$0a3471c0$6401a8c0@BPCS> I don't know about the no password, it seems that if it is empty and works for other things it should work but .... You can test it by right clicking and then run so you don't have to mess with the time thing. You might try right clicking on it, going to properties and entering System in the run as and try that. I did that on a test running a test batch file, and the name was changed to NT AUTHORITY\SYSTEM and see if that works. Bill ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 9:46 AM Subject: Re: [AccessD] Trigger code every day Bill: Never used Windows Scheduler before but it looked pretty simple so I set up a task and pointed to the mdb and set the time for two minutes later than the current clock. But it didn't run because I didn't specify a user account password. But there is no password for this machine. Just the default account 'HAL9004\Rocky' but I don't have a password. Do I need to set a password in order to use the scheduler? Thanks and regards, Rocky Bill Patten wrote: > Hi Rocky, > > With out knowing all the details, I'd be tempted to use Windows Schedule > tasks and let it do the work. You can pick times days etc. > > HTH > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Thursday, August 10, 2006 9:09 AM > Subject: [AccessD] Trigger code every day > > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 rusty.hammond at cpiqpc.com Thu Aug 10 12:55:21 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Thu, 10 Aug 2006 12:55:21 -0500 Subject: [AccessD] Trigger code every day Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A3@cpixchng-1.cpiqpc.net> The only reason we didn't go with windows scheduler is the access app writes to a text file every time the OnTimer event fires and logs when a process was started. This is so another computer can check that file to see if it's being updated. If it isn't we get notified. We have critical apps that get started/automated on these machines (we actually have 3 of them running right now). For applications that aren't so critical we have set them up on Windows scheduler and it works just fine. Rusty -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Thursday, August 10, 2006 12:29 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Trigger code every day John: It would seem that putting this front end on a workstation (it's linked to the BE on the server) and using Windows Scheduler would be another alternative. It tried this and it works if I put a password on my account (which is a PITA because now I have to enter the PW when I start up the box and I'm the only user). Do you know of any downside to using Windows Scheduler? Thanks and regards, Rocky JWColby wrote: > Rocky, > > It isn't going to suck up a lot of server time, remember that Access is a > file server database. What will happen is that it will run on EVERY front > end, possibly running more than once if you have several users and each > user's workstation is doing this. You can get around that by causing it to > only run on a single specific workstation but then that workstation has to > be turned on and logged in to. > > I built what I called a "server app", which is an FE that runs on the > server. Since only a single instance is running, it now runs only a single > time per day / hour / whatever time interval you choose here. > > The up side is it runs regardless of who or how many users are running your > application out on workstations, and only a single instance is run. > > The down side is that the server has to be logged in to and that user on the > server has to run the application. If the server reboots and no one logs > in, then the app doesn't run. Access cannot directly run as a service. > > This down side also causes a couple of other inconveniences. Because I set > the server login to run the app in the startup, if I log in remotely, a > second instance starts up. It is not immediately obvious that it is a > second instance since you cannot see tasks already running under another > user without looking at the task manager. I have been known to leave two > instances running accidentally, and I have also been known to shut down the > instance running under the other user (the user logged in from the server > console) and then log off my remote desktop and not fire up the app again > for the still logged in main user. In fact to do that you have to use VNC > to log back in to the main user's login and start the program. > > This method can also cause problems if you use an open table to speed things > up and then want to compact / repair the BE. All of your other workstations > can be out of the db but the ServerApp is still logged in and so the BE > can't be compacted. > > All in all though, this strategy does work and that is how I handle it. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 10, 2006 12:09 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export some > files. I'm thinking that I use the OnTimer event with some timer interval > (like 5 minutes) and check the clock to see if it's time to do the export. > This app will run all the time in the background and reside probably on > their server. Is this going to suck up a lot of server cycles? Is there a > better way to do this? > > MTIA > > 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 ********************************************************************** 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 john at winhaven.net Thu Aug 10 13:05:40 2006 From: john at winhaven.net (John Bartow) Date: Thu, 10 Aug 2006 13:05:40 -0500 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB62FC.50603@san.rr.com> Message-ID: <006a01c6bca7$979989a0$6501a8c0@ScuzzPaq> Rocky, Replace the 'HAL9004\Rocky' with 'NT Authority\System'. Then you don't have to be logged in. I do this for all the maintenance tasks I schedule like disk cleanup, defrag, spyware scans, etc. You could start the access app on the server via the server's scheduler and have it run the necessary code via code in the startup form. HTH John B. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software But it didn't run because I didn't specify a user account password. But there is no password for this machine. Just the default account 'HAL9004\Rocky' but I don't have a password. Do I need to set a password in order to use the scheduler? From accessd at shaw.ca Thu Aug 10 13:35:50 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 10 Aug 2006 11:35:50 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: <0J3S002IKOZC4ID0@l-daemon> Hi Rocky: Running the timer in the application can be complex, if the user is going in and out, has to be a specific user etc. You can use command line scheduling. On the older servers the "at" could be setup and on the new servers the "schtasks" can be used. Example: schtasks /create /tn "MyExportApplication" /tr c:\apps\myexport.exe /sc daily /sd 8/25/2006 /st 3:00 ...then it would run in the background with no processing time consumed. The above application, named "MyExportApplication", would run the application myexport (any executable, batch, script or even MSAccess app can be run), runs daily, starting 25 August 2006, at 3:00am in the morning. The schedule would be created by an admin person avoiding all the permissions issues. 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: Thursday, August 10, 2006 9:09 AM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 Thu Aug 10 14:51:50 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 12:51:50 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <0J3S002IKOZC4ID0@l-daemon> References: <0J3S002IKOZC4ID0@l-daemon> Message-ID: <44DB8E56.20404@san.rr.com> Thanks. I'll let the user's tech folks know. I'm sure they'll have questions. They're in Shanghai which makes it even more awkward. Rocky Jim Lawrence wrote: > Hi Rocky: > > Running the timer in the application can be complex, if the user is going in > and out, has to be a specific user etc. You can use command line scheduling. > On the older servers the "at" could be setup and on the new servers the > "schtasks" can be used. Example: > > schtasks /create /tn "MyExportApplication" /tr c:\apps\myexport.exe /sc > daily /sd 8/25/2006 /st 3:00 > > ...then it would run in the background with no processing time consumed. The > above application, named "MyExportApplication", would run the application > myexport (any executable, batch, script or even MSAccess app can be run), > runs daily, starting 25 August 2006, at 3:00am in the morning. The schedule > would be created by an admin person avoiding all the permissions issues. > > 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: Thursday, August 10, 2006 9:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Thu Aug 10 17:57:34 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 10 Aug 2006 15:57:34 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: The answer is "it depends." We created a couple of products that run like this. The big gotcha is that it doesn't run as a service, and it really isn't a good idea to install Access on a server. Yes, it sucks up cycles, not to mention the fact that when the server goes down, it will come back up but your application won't. The better way is not to use Access for the app. When you say the app is going to "export some files", what do you mean? Are these files created by the app or by some other application, with the desired program just checking for the existence of files and then moving them somewhere? 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, August 10, 2006 9:09 AM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 ssharkins at setel.com Thu Aug 10 18:03:09 2006 From: ssharkins at setel.com (Susan Harkins) Date: Thu, 10 Aug 2006 19:03:09 -0400 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: Message-ID: <001201c6bcd1$25b4caf0$0301a8c0@SUSANONE> So, you're sorting pages? Susan H. Other than creating a query that gets the sum and join it to the query I'm using as a recordsource...Is there a way to sort by the sum on a footer in a report...sorting/grouping doesn't seem to like the idea...any ideas? From bchacc at san.rr.com Thu Aug 10 18:44:37 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 16:44:37 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: References: Message-ID: <44DBC4E5.4050302@san.rr.com> The app creates the files. The app is actually my E-Z-MRP system and the third party is a company called Healex which makes a product called Nocturne. On a regular basis, in this case daily, the client exports files (from whatever manufacturing management system they're using, in this case mine) containing their parts, inventory, purchase orders, unmet demands, transactions, supplier info, etc. and the Nocturne program picks the data off of their server and passes it out to the suppliers who get daily updates on what their customer needs in the way of raw materials. It's a supply chain management thing. And generally it's used by really big companies. This outfit in Shanghai is real small - small enough for E-Z-MRP, but their only customer is Phillips - who uses Nocturne themselves. So Phillips insisted that this little company, a captive supplier, use Nocturne as well. So I wrote a routine inside E-Z-MRP to create these csv files for Nocturne and they could trigger the export whenever they wanted. But of course, once they saw how it worked, next thing they wanted was for it to be automated to run every day so they wouldn't have to remember to do it. So there's more than you probably wanted to know. Rocky Charlotte Foust wrote: > The answer is "it depends." We created a couple of products that run > like this. The big gotcha is that it doesn't run as a service, and it > really isn't a good idea to install Access on a server. Yes, it sucks > up cycles, not to mention the fact that when the server goes down, it > will come back up but your application won't. The better way is not to > use Access for the app. > > When you say the app is going to "export some files", what do you mean? > Are these files created by the app or by some other application, with > the desired program just checking for the existence of files and then > moving them somewhere? > > 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, August 10, 2006 9:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From kp at sdsonline.net Thu Aug 10 22:19:52 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 11 Aug 2006 13:19:52 +1000 Subject: [AccessD] code for font color on tab Message-ID: <002301c6bcf5$0398e900$6501a8c0@office> Does anyone know how to change the colour of the font on the tab caption in code? What I am trying to achieve is that in the tab's 'On change' event, depending on the value in one of the fields, I want certain other tabs to appear greyed out (not enabled) I can set the page to be not enabled using Me.PageCtlCM.Enabled = False, but the text on the tab caption itself stays normal - I would like it to look grey like to controls on it do. TIA ______________________________________ Kath Pelletti Software Design and Solutions Pty Ltd. Ph: 9505-6714 Fax: 9505-6430 Email: KP at SDSOnline.net From bchacc at san.rr.com Thu Aug 10 22:49:36 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 20:49:36 -0700 Subject: [AccessD] code for font color on tab In-Reply-To: <002301c6bcf5$0398e900$6501a8c0@office> References: <002301c6bcf5$0398e900$6501a8c0@office> Message-ID: <44DBFE50.9070508@san.rr.com> Kath: After struggling with issues around the tab labels I ended up eliminating the tab labels and using command buttons positioned over the tab form to look like tab labels. Then I could do with them whatever could be done with a command button including changing the fore color and disabling them. Rocky Kath Pelletti wrote: > Does anyone know how to change the colour of the font on the tab caption in code? > > What I am trying to achieve is that in the tab's 'On change' event, depending on the value in one of the fields, I want certain other tabs to appear greyed out (not enabled) > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = False, but the text on the tab caption itself stays normal - I would like it to look grey like to controls on it do. > > TIA > > ______________________________________ > Kath Pelletti > Software Design and Solutions Pty Ltd. > Ph: 9505-6714 > Fax: 9505-6430 > Email: KP at SDSOnline.net > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From kp at sdsonline.net Thu Aug 10 23:41:40 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 11 Aug 2006 14:41:40 +1000 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office> <44DBFE50.9070508@san.rr.com> Message-ID: <002001c6bd00$7078c350$6501a8c0@office> So you set the style of the tab control to none and then put command buttons on the background form? I'll do that too - if I can't find a code option - but surely there's a way? Kath ----- Original Message ----- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Friday, August 11, 2006 1:49 PM Subject: Re: [AccessD] code for font color on tab Kath: After struggling with issues around the tab labels I ended up eliminating the tab labels and using command buttons positioned over the tab form to look like tab labels. Then I could do with them whatever could be done with a command button including changing the fore color and disabling them. Rocky Kath Pelletti wrote: > Does anyone know how to change the colour of the font on the tab caption in code? > > What I am trying to achieve is that in the tab's 'On change' event, depending on the value in one of the fields, I want certain other tabs to appear greyed out (not enabled) > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = False, but the text on the tab caption itself stays normal - I would like it to look grey like to controls on it do. > > TIA > > ______________________________________ > Kath Pelletti > Software Design and Solutions Pty Ltd. > Ph: 9505-6714 > Fax: 9505-6430 > Email: KP at SDSOnline.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 lembit.dbamail at t-online.de Fri Aug 11 04:43:14 2006 From: lembit.dbamail at t-online.de (Lembit Soobik) Date: Fri, 11 Aug 2006 11:43:14 +0200 Subject: [AccessD] Trigger code every day References: <44DBC4E5.4050302@san.rr.com> Message-ID: <009b01c6bd2a$916b6b10$1400a8c0@v1000> Rocky, I understand its just the export of then existing files. In this case you can use Karen's Replicator http://www.karenware.com/powertools/ptreplicator.asp its free and you can schedule it as you like. I'm using it to copy files within my network on a regular basis. Lembit ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2006 1:44 AM Subject: Re: [AccessD] Trigger code every day > The app creates the files. The app is actually my E-Z-MRP system and > the third party is a company called Healex which makes a product called > Nocturne. On a regular basis, in this case daily, the client exports > files (from whatever manufacturing management system they're using, in > this case mine) containing their parts, inventory, purchase orders, > unmet demands, transactions, supplier info, etc. and the Nocturne > program picks the data off of their server and passes it out to the > suppliers who get daily updates on what their customer needs in the way > of raw materials. It's a supply chain management thing. > > And generally it's used by really big companies. This outfit in > Shanghai is real small - small enough for E-Z-MRP, but their only > customer is Phillips - who uses Nocturne themselves. So Phillips > insisted that this little company, a captive supplier, use Nocturne as > well. > > So I wrote a routine inside E-Z-MRP to create these csv files for > Nocturne and they could trigger the export whenever they wanted. But of > course, once they saw how it worked, next thing they wanted was for it > to be automated to run every day so they wouldn't have to remember to do > it. > > So there's more than you probably wanted to know. > > > Rocky > > > Charlotte Foust wrote: >> The answer is "it depends." We created a couple of products that run >> like this. The big gotcha is that it doesn't run as a service, and it >> really isn't a good idea to install Access on a server. Yes, it sucks >> up cycles, not to mention the fact that when the server goes down, it >> will come back up but your application won't. The better way is not to >> use Access for the app. >> >> When you say the app is going to "export some files", what do you mean? >> Are these files created by the app or by some other application, with >> the desired program just checking for the existence of files and then >> moving them somewhere? >> >> 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, August 10, 2006 9:09 AM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Trigger code every day >> >> Dear List: >> >> A client needs to run a program every day at the same time to export >> some files. I'm thinking that I use the OnTimer event with some timer >> interval (like 5 minutes) and check the clock to see if it's time to do >> the export. This app will run all the time in the background and reside >> probably on their server. Is this going to suck up a lot of server >> cycles? Is there a better way to do this? >> >> MTIA >> >> 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 > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.1.405 / Virus Database: 268.10.9/416 - Release Date: 10.08.2006 > > From jimdettman at earthlink.net Fri Aug 11 07:25:17 2006 From: jimdettman at earthlink.net (Jim Dettman) Date: Fri, 11 Aug 2006 08:25:17 -0400 Subject: [AccessD] Trigger code every day In-Reply-To: <44DBC4E5.4050302@san.rr.com> Message-ID: Rocky, I'd use the windows scheduler, passing in command line switches if the app needs to carry out different functions. It's simple enough and easy to fix if something doesn't work right. Plus, just about every flavor of Windows has some type of scheduler available. I have done things the other way too, which is to use an app that is continually open and checks for events (it was a poller for time clocks). Basically, I ended up building my own scheduler in Access as I had a multitude of different events (sync the clocks, back them up, download time clock data, set the date/time, etc). It worked well and I avoided the overhead of starting /stopping Access every time something needed to be done, but everything was wrapped up in the app. It was something that was not easy for a end user to control. Also, starting/stopping can work in your favor, especially if you trip over Access bugs. Memory leaks, etc are not a problem because you always start with a clean slate each time. One problem with the task scheduler approach; the thing is not too smart about starting the same app multiple times. For example, if your passing in command line arguments and hence have the same app defined across multiple schedules (you have multiple task entries), it can get fired off multiple times. To get around this, I wrote some code based on some work I did with VFP that generates a mutex resource lock as a semaphore flag. The app fires up, checks if another instance is running and if so, aborts. Handy for lots of things. I also use it for apps where I want the user to only be allowed one instance of an app per station. If they attempt to fire up a second copy, I tell them that they are already running and copy, and switch focus to it. I'm willing to share that with the list if anyone wants it. I've got a small sample of the poller code as well, but it's not as polished as the semaphore stuff. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 10, 2006 7:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Trigger code every day The app creates the files. The app is actually my E-Z-MRP system and the third party is a company called Healex which makes a product called Nocturne. On a regular basis, in this case daily, the client exports files (from whatever manufacturing management system they're using, in this case mine) containing their parts, inventory, purchase orders, unmet demands, transactions, supplier info, etc. and the Nocturne program picks the data off of their server and passes it out to the suppliers who get daily updates on what their customer needs in the way of raw materials. It's a supply chain management thing. And generally it's used by really big companies. This outfit in Shanghai is real small - small enough for E-Z-MRP, but their only customer is Phillips - who uses Nocturne themselves. So Phillips insisted that this little company, a captive supplier, use Nocturne as well. So I wrote a routine inside E-Z-MRP to create these csv files for Nocturne and they could trigger the export whenever they wanted. But of course, once they saw how it worked, next thing they wanted was for it to be automated to run every day so they wouldn't have to remember to do it. So there's more than you probably wanted to know. Rocky Charlotte Foust wrote: > The answer is "it depends." We created a couple of products that run > like this. The big gotcha is that it doesn't run as a service, and it > really isn't a good idea to install Access on a server. Yes, it sucks > up cycles, not to mention the fact that when the server goes down, it > will come back up but your application won't. The better way is not to > use Access for the app. > > When you say the app is going to "export some files", what do you mean? > Are these files created by the app or by some other application, with > the desired program just checking for the existence of files and then > moving them somewhere? > > 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, August 10, 2006 9:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 markamatte at hotmail.com Fri Aug 11 09:42:11 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 11 Aug 2006 14:42:11 +0000 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: <001201c6bcd1$25b4caf0$0301a8c0@SUSANONE> Message-ID: Sorry...Here's an example: NAME COUNT Bob 23 Bob 14 Mary 10 Mary 40 Each name has a footer that has Sum(count)...What is the easiest way to sort on this sum in the footer...so Mary's group would be listed first if sorting descending? Thanks, Mark >From: "Susan Harkins" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] Sort By Sum on Footer >Date: Thu, 10 Aug 2006 19:03:09 -0400 > >So, you're sorting pages? > >Susan H. > >Other than creating a query that gets the sum and join it to the query I'm >using as a recordsource...Is there a way to sort by the sum on a footer in >a >report...sorting/grouping doesn't seem to like the idea...any ideas? > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From ssharkins at setel.com Fri Aug 11 10:56:21 2006 From: ssharkins at setel.com (Susan Harkins) Date: Fri, 11 Aug 2006 11:56:21 -0400 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: Message-ID: <003301c6bd5e$b0bd2880$0301a8c0@SUSANONE> Frankly, I think I'd just build an invisible group. Susan H. Sorry...Here's an example: NAME COUNT Bob 23 Bob 14 Mary 10 Mary 40 Each name has a footer that has Sum(count)...What is the easiest way to sort on this sum in the footer...so Mary's group would be listed first if sorting descending? From markamatte at hotmail.com Fri Aug 11 11:07:43 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 11 Aug 2006 16:07:43 +0000 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: <003301c6bd5e$b0bd2880$0301a8c0@SUSANONE> Message-ID: Thanks Susan...but I'm not sure I follow what you mean by 'invisible group'. I still need to display the count values for each group...just need to sort on the sum of the counts for each group. Thanks, Mark >From: "Susan Harkins" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] Sort By Sum on Footer >Date: Fri, 11 Aug 2006 11:56:21 -0400 > >Frankly, I think I'd just build an invisible group. > >Susan H. > >Sorry...Here's an example: >NAME COUNT >Bob 23 >Bob 14 >Mary 10 >Mary 40 > > >Each name has a footer that has Sum(count)...What is the easiest way to >sort >on this sum in the footer...so Mary's group would be listed first if >sorting >descending? > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From ssharkins at setel.com Fri Aug 11 11:16:37 2006 From: ssharkins at setel.com (Susan Harkins) Date: Fri, 11 Aug 2006 12:16:37 -0400 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: Message-ID: <000301c6bd61$859fd640$0301a8c0@SUSANONE> I don't know itf it would work or not -- but I think I'd try to add a group with just the sum function, make it invisible and sort by that -- but still display the footer sum too -- I just haven't tried it so I don't know that it would work. Susan H. Thanks Susan...but I'm not sure I follow what you mean by 'invisible group'. I still need to display the count values for each group...just need to sort on the sum of the counts for each group. From prodevmg at yahoo.com Fri Aug 11 16:00:56 2006 From: prodevmg at yahoo.com (Lonnie Johnson) Date: Fri, 11 Aug 2006 14:00:56 -0700 (PDT) Subject: [AccessD] OT: VBA Skills in Excel Message-ID: <20060811210056.96525.qmail@web33108.mail.mud.yahoo.com> Does anyone have super Excel Developer skills? I have a small job for someone if interested. You can mail me off list at prodevmg at yahoo.com Lonnie May God bless you beyond your imagination! Lonnie Johnson ProDev, Professional Development of MS Access Databases Visit me at ==> http://www.prodev.us --------------------------------- Stay in the know. Pulse on the new Yahoo.com. Check it out. From martyconnelly at shaw.ca Sun Aug 13 10:45:01 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sun, 13 Aug 2006 08:45:01 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44DA029A.5090205@san.rr.com> References: <0J3Q00NWLLM92ZI0@l-daemon> <44DA029A.5090205@san.rr.com> Message-ID: <44DF48FD.5070107@shaw.ca> Yup I live in Victoria. If anyone is interested as to why it is a .exe file. These are usually called ActiveX exe's. I have seen them used for such things as running a background process, where you hand the request off to another machine across the network, to improve speed Say you have a 1000 user online game, in order not to slow down the game an activeX exe handles the logon with database verification on another machine. Rocky Smolin - Beach Access Software wrote: >Cool. Send me your phone number off-line and I'll give you a call if we >go. I thought Marty lived there as well. No? > >Rocky > > >Jim Lawrence wrote: > > >>Hi Rocky: >> >>If you ever make it over to Victoria you can look me up.... >> >>Jim >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Wednesday, August 09, 2006 6:20 AM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>You know I gotta admit I haven't studied a map yet. I know we'll be in >>Vancouver most of the time but we plan to take the ferry to Victoria one >>day. That's Vancouver Island, yes? Whereabouts does she live? >> >>Rocky >> >> >>Martin Reid wrote: >> >> >> >>>Rocky >>> >>>Tricias sister is living in Vancouver island. WIll you be over there? >>> >>>Martin >>> >>>Martin WP Reid >>>Training and Assessment Unit >>>Riddle Hall >>>Belfast >>> >>>tel: 02890 974477 >>> >>> >>>________________________________ >>> >>>From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - >>> >>> >>> >>Beach Access Software >> >> >> >>>Sent: Wed 09/08/2006 04:39 >>>To: Access Developers discussion and problem solving >>>Subject: Re: [AccessD] Removing a missing reference >>> >>> >>> >>>I'll be damned. Who knew? >>> >>>When all else fails, read the manual? >>> >>>I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of >>>Vodka as well). Might be able to pay off the debt as well next week. >>>We're in Vancouver for the week. And are planning a day trip to >>>Victoria. Maybe we can say hello. >>> >>>Best, >>> >>>Rocky >>> >>> >>> >>>MartyConnelly wrote: >>> >>> >>> >>> >>>>All the docs on the calls are in C:\Program >>>>Files\Seagull\BarTender\7.74\Automation.chm >>>>The VB.Net code is almost same as VBA except instantiation. >>>> >>>>This runs and prints >>>> >>>>Sub testbar() >>>>'Declaring a BarTender application variable >>>>Dim btApp As Object >>>>'Declaring a format variable >>>>Dim btFormat As Object >>>>'Instantiating the BarTender object >>>>Set btApp = CreateObject("BarTender.Application") >>>>'Setting the BarTender Application Visible >>>>btApp.Visible = True >>>>'Setting the BarTender format to open >>>>'the .btw template file might have to be previously saved from Bartender >>>>Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >>>>'Printing the label format >>>>Dim lRet As Long >>>>lRet = btFormat.PrintOut(True, True) >>>>'Ending the BarTender process >>>>btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >>>>End Sub >>>> >>>> >>>> >>>>Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>>>Shamil: >>>>> >>>>>I tried using late binding which would work real well but partway into >>>>>the code I got an error. On the statement: >>>>> >>>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>> >>>>>I get an 'argument not optional' error - don't know why. But the >>>>>reference is to the Bartender.exe, if that makes any difference. Using >>>>>early binding, this code works well. >>>>> >>>>>To change from early to late binding I changed >>>>> >>>>>Public BtApp As BarTender.Application >>>>>Public BtFormat As BarTender.Format >>>>> >>>>>to >>>>> >>>>>Public BtApp As Object 'BarTender.Application >>>>>Public BtFormat As Variant 'BarTender.Format >>>>> >>>>>and then in the load event: >>>>> >>>>>Set BtApp = CreateObject("BarTender.Application") >>>>> >>>>>There is no object model for Bartender so I don't know what it is >>>>>expecting for BtFormat. >>>>> >>>>>But late binding would solve the problem. >>>>> >>>>>Any ideas? >>>>> >>>>>If I want to try your other solution I'll have some questions. It's a >>>>>bit past my capabilities. >>>>> >>>>>Thanks and regards, >>>>> >>>>>Rocky >>>>> >>>>> >>>>>Shamil Salakhetdinov wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Rocky, >>>>>> >>>>>>I still think the easiest and the most reliable solution for your case >>>>>> >>>>>> >>>>>> >>is to >> >> >> >>>>>>use late binding. Did I miss something in this thread - why it didn't >>>>>> >>>>>> >>>>>> >>work >> >> >> >>>>>>for you? >>>>>> >>>>>>If you decide to not use late binding and if remove reference doesn't >>>>>> >>>>>> >>>>>> >>work >> >> >> >>>>>>for you - then you can use Add Reference (anyway your intention to use >>>>>>Remove Reference forces your FE to loose its compiled state as well as >>>>>> >>>>>> >>>>>> >>Add >> >> >> >>>>>>Reference does). >>>>>> >>>>>>I mean the following: >>>>>> >>>>>>- put all your bar code printing code into a separate library/utility >>>>>>database, set reference to bar code printing library in this database; >>>>>> >>>>>>- in your FE keep the code to check is it possible to create bar code >>>>>>printing object or not; >>>>>> >>>>>>- if it's possible to create bar code printing object then add >>>>>> >>>>>> >>>>>> >>reference to >> >> >> >>>>>>its library (code to add reference MUST BE kept in another library >>>>>> >>>>>> >>>>>> >>database >> >> >> >>>>>>- if executed in FE such will force FEs global vars to loose their >>>>>> >>>>>> >>>>>> >>values); >> >> >> >>>>>>Etc. >>>>>> >>>>>>This above is a flexible solution but its above description isn't a >>>>>> >>>>>> >>>>>> >>full >> >> >> >>>>>>story - in this case if your FE uses global variables then you have to >>>>>>create another "proxy" FE to keep start-up code, (dynamic) references, >>>>>>commandbars... and use your current FE as a library database - then >>>>>>CurrentDb if you use it becomes a problem etc. >>>>>> >>>>>>This above technique works very well - it was used in real life apps >>>>>> >>>>>> >>>>>> >>here >> >> >> >>>>>>and there back to the years 1998-2000 but program databases and their >>>>>> >>>>>> >>>>>> >>code >> >> >> >>>>>>should be refactored to be used within this technique.... >>>>>> >>>>>>It's very shortly described here - "A method to modularize MS Access >>>>>>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>>>> >>>>>>But applying it for your case looks like using "cannons to shoot at >>>>>>nightingales" - why not use simple and effective late binding? >>>>>> >>>>>>-- >>>>>>Shamil >>>>>> >>>>>>-----Original Message----- >>>>>>From: accessd-bounces at databaseadvisors.com >>>>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>>>> >>>>>> >>>>>> >>- >> >> >> >>>>>>Beach Access Software >>>>>>Sent: Tuesday, August 08, 2006 11:45 PM >>>>>>To: Access Developers discussion and problem solving >>>>>>Subject: Re: [AccessD] Removing a missing reference >>>>>> >>>>>>Marty: >>>>>> >>>>>>Access.References.Remove refCurr still generates error: -2147319779 - >>>>>> >>>>>> >>>>>> >>Object >> >> >> >>>>>>library not registered. >>>>>> >>>>>>Rocky >>>>>> >>>>>> -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Sun Aug 13 15:26:15 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 13 Aug 2006 16:26:15 -0400 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office><44DBFE50.9070508@san.rr.com> <002001c6bd00$7078c350$6501a8c0@office> Message-ID: <01eb01c6bf16$ba6ba3c0$153ce944@50NM721> http://www.lebans.com/tabcolors.htm ...when you're lost and all alone and no one seems to know the way ...Steve has been there, done that, and is just waiting for you to visit :) William ----- Original Message ----- From: "Kath Pelletti" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2006 12:41 AM Subject: Re: [AccessD] code for font color on tab > So you set the style of the tab control to none and then put command > buttons on the background form? I'll do that too - if I can't find a code > option - > but surely there's a way? > > Kath > ----- Original Message ----- > From: Rocky Smolin - Beach Access Software > To: Access Developers discussion and problem solving > Sent: Friday, August 11, 2006 1:49 PM > Subject: Re: [AccessD] code for font color on tab > > > Kath: > > After struggling with issues around the tab labels I ended up > eliminating the tab labels and using command buttons positioned over the > tab form to look like tab labels. Then I could do with them whatever > could be done with a command button including changing the fore color > and disabling them. > > Rocky > > > Kath Pelletti wrote: > > Does anyone know how to change the colour of the font on the tab > caption in code? > > > > What I am trying to achieve is that in the tab's 'On change' event, > depending on the value in one of the fields, I want certain other tabs to > appear greyed out (not enabled) > > > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = > False, but the text on the tab caption itself stays normal - I would like > it to look grey like to controls on it do. > > > > TIA > > > > ______________________________________ > > Kath Pelletti > > Software Design and Solutions Pty Ltd. > > Ph: 9505-6714 > > Fax: 9505-6430 > > Email: KP at SDSOnline.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 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From wdhindman at dejpolsystems.com Sun Aug 13 17:06:43 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 13 Aug 2006 18:06:43 -0400 Subject: [AccessD] Trigger code every day References: <44DB5A32.8040104@san.rr.com> Message-ID: <000d01c6bf24$c446cce0$153ce944@50NM721> Rocky ...I have a pretty simple program that does this that's been in production service since 2000 for a client ...it runs as a separate fe app on a dedicated work station and links to your be tables ...I can post a copy for dl if you'd like. ...but if I were doing it today from scratch I'd take a hard look at using FMS's Total Access Agent which will run as an NT Service and execute your exports in the background without other users even being aware anything is happening ...the advantages of such a program running as a service are significant but in short, it automatically restarts with every reboot and does not have the user or security vulnerabilities/problems that the Task Scheduler has, imnsho ...hth. William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 12:09 PM Subject: [AccessD] Trigger code every day > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 kp at sdsonline.net Sun Aug 13 19:54:47 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Mon, 14 Aug 2006 10:54:47 +1000 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office><44DBFE50.9070508@san.rr.com><002001c6bd00$7078c350$6501a8c0@office> <01eb01c6bf16$ba6ba3c0$153ce944@50NM721> Message-ID: <002a01c6bf3c$3e644720$6501a8c0@office> thanks William........that one takes a bit of digesting, doesn't it? Kath ----- Original Message ----- From: William Hindman To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 6:26 AM Subject: Re: [AccessD] code for font color on tab http://www.lebans.com/tabcolors.htm ...when you're lost and all alone and no one seems to know the way ...Steve has been there, done that, and is just waiting for you to visit :) William ----- Original Message ----- From: "Kath Pelletti" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2006 12:41 AM Subject: Re: [AccessD] code for font color on tab > So you set the style of the tab control to none and then put command > buttons on the background form? I'll do that too - if I can't find a code > option - > but surely there's a way? > > Kath > ----- Original Message ----- > From: Rocky Smolin - Beach Access Software > To: Access Developers discussion and problem solving > Sent: Friday, August 11, 2006 1:49 PM > Subject: Re: [AccessD] code for font color on tab > > > Kath: > > After struggling with issues around the tab labels I ended up > eliminating the tab labels and using command buttons positioned over the > tab form to look like tab labels. Then I could do with them whatever > could be done with a command button including changing the fore color > and disabling them. > > Rocky > > > Kath Pelletti wrote: > > Does anyone know how to change the colour of the font on the tab > caption in code? > > > > What I am trying to achieve is that in the tab's 'On change' event, > depending on the value in one of the fields, I want certain other tabs to > appear greyed out (not enabled) > > > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = > False, but the text on the tab caption itself stays normal - I would like > it to look grey like to controls on it do. > > > > TIA > > > > ______________________________________ > > Kath Pelletti > > Software Design and Solutions Pty Ltd. > > Ph: 9505-6714 > > Fax: 9505-6430 > > Email: KP at SDSOnline.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 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 dejpolsystems.com Sun Aug 13 20:34:15 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 13 Aug 2006 21:34:15 -0400 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office><44DBFE50.9070508@san.rr.com><002001c6bd00$7078c350$6501a8c0@office><01eb01c6bf16$ba6ba3c0$153ce944@50NM721> <002a01c6bf3c$3e644720$6501a8c0@office> Message-ID: <000901c6bf41$c1cd6240$153ce944@50NM721> ...he is a step beyond the average Access developer ...but his stuff works ...not always the simplest solutions but he does his homework ...over the years I've incorporated a number of his solutions in my templates ...along with those of Dev, Nyberg, Browne, and JC among others ...and if you need help digesting them, Leban's a regular in the Microsoft.public.access groups and a number of other users will help as well there on his code ...or you can ask here and if you're specific enough, someone will always tackle it. ...of course then there are always the 3rd party tab controls available :) William ----- Original Message ----- From: "Kath Pelletti" To: "Access Developers discussion and problem solving" Sent: Sunday, August 13, 2006 8:54 PM Subject: Re: [AccessD] code for font color on tab > thanks William........that one takes a bit of digesting, doesn't it? > > Kath > ----- Original Message ----- > From: William Hindman > To: Access Developers discussion and problem solving > Sent: Monday, August 14, 2006 6:26 AM > Subject: Re: [AccessD] code for font color on tab > > > http://www.lebans.com/tabcolors.htm > ...when you're lost and all alone and no one seems to know the way > ...Steve > has been there, done that, and is just waiting for you to visit :) > > William > > ----- Original Message ----- > From: "Kath Pelletti" > To: "Access Developers discussion and problem solving" > > Sent: Friday, August 11, 2006 12:41 AM > Subject: Re: [AccessD] code for font color on tab > > > > So you set the style of the tab control to none and then put command > > buttons on the background form? I'll do that too - if I can't find a > code > > option - > > but surely there's a way? > > > > Kath > > ----- Original Message ----- > > From: Rocky Smolin - Beach Access Software > > To: Access Developers discussion and problem solving > > Sent: Friday, August 11, 2006 1:49 PM > > Subject: Re: [AccessD] code for font color on tab > > > > > > Kath: > > > > After struggling with issues around the tab labels I ended up > > eliminating the tab labels and using command buttons positioned over > the > > tab form to look like tab labels. Then I could do with them whatever > > could be done with a command button including changing the fore color > > and disabling them. > > > > Rocky > > > > > > Kath Pelletti wrote: > > > Does anyone know how to change the colour of the font on the tab > > caption in code? > > > > > > What I am trying to achieve is that in the tab's 'On change' event, > > depending on the value in one of the fields, I want certain other tabs > to > > appear greyed out (not enabled) > > > > > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = > > False, but the text on the tab caption itself stays normal - I would > like > > it to look grey like to controls on it do. > > > > > > TIA > > > > > > ______________________________________ > > > Kath Pelletti > > > Software Design and Solutions Pty Ltd. > > > Ph: 9505-6714 > > > Fax: 9505-6430 > > > Email: KP at SDSOnline.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 > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From kp at sdsonline.net Sun Aug 13 21:14:24 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Mon, 14 Aug 2006 12:14:24 +1000 Subject: [AccessD] code for font color on tab Message-ID: <000801c6bf47$5d2a6300$6501a8c0@office> ...he is a step beyond the average Access developer ...but his stuff works ...not always the simplest solutions but he does his homework ...over the years I've incorporated a number of his solutions in my templates ...along with those of Dev, Nyberg, Browne, and JC among others ...and if you need help digesting them, Leban's a regular in the Microsoft.public.access groups and a number of other users will help as well there on his code ...or you can ask here and if you're specific enough, someone will always tackle it....of course then there are always the 3rd party tab controls available :) William ______________________________________ Kath Pelletti Software Design and Solutions Pty Ltd. Ph: 9505-6714 Fax: 9505-6430 Email: KP at SDSOnline.net From kp at sdsonline.net Sun Aug 13 21:16:12 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Mon, 14 Aug 2006 12:16:12 +1000 Subject: [AccessD] code for font color on tab Message-ID: <001101c6bf47$9d470ba0$6501a8c0@office> Thanks - :) Kath -------------------------------------------------------------------------------- ..he is a step beyond the average Access developer ...but his stuff works ...not always the simplest solutions but he does his homework ...over the years I've incorporated a number of his solutions in my templates ...along with those of Dev, Nyberg, Browne, and JC among others ...and if you need help digesting them, Leban's a regular in the Microsoft.public.access groups and a number of other users will help as well there on his code ...or you can ask here and if you're specific enough, someone will always tackle it. ...of course then there are always the 3rd party tab controls available :) William From cfoust at infostatsystems.com Mon Aug 14 10:29:10 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 14 Aug 2006 08:29:10 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E9BF.7030709@san.rr.com> Message-ID: Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky MartyConnelly wrote: > Grr, I am always mixing up Reference and References collection Could > try disambiguating the code like this > > Dim refCurr As Access.Reference > Dim intCount As Integer > > > For intCount = Access.References.Count To 1 Step -1 > Set refCurr = Access.References(intCount) > If Not refCurr.BuiltIn Then > If refCurr.IsBroken Then > 'might want to check if it has a valid name otherwise skip > 'or use on error next > ' debug.print refCurr.name > > Access.References.Remove refCurr > End If > End If > Next > > > > Rocky Smolin - Beach Access Software wrote: > > >> P.S. This reference, when it's there, references a .exe. Don't know >> if that makes any difference. >> >> Rocky >> >> >> Gustav Brock wrote: >> >> >> >>> Hi Rocky >>> >>> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >>> >>> Public Function ReferencesClean() As Boolean >>> >>> ' Remove all missing references. >>> ' Return True if no reference was removed. >>> ' >>> ' 2001-08-20. Cactus Data ApS, CPH. >>> >>> Dim ref As Reference >>> Dim lngItem As Long >>> Dim booMissing As Boolean >>> >>> With References >>> For lngItem = .Count To 1 Step -1 >>> Set ref = .Item(lngItem) >>> If ref.BuiltIn = True Then >>> ' No need to check built in reference. >>> ElseIf IsBroken97(ref) Then >>> .Remove ref >>> booMissing = True >>> End If >>> Next >>> End With >>> >>> Set ref = Nothing >>> >>> ReferencesClean = Not booMissing >>> >>> End Function >>> >>> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>> "Broken References in Runtime AXP and A97" >>> >>> /gustav >>> >>> >>> >>> >>> >>>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>>> >>>>>> >>>>>> >>>>>> >>> Dear List: >>> >>> Still struggling with this references thing. It seem the easiest >>> thing to do would be to remove the missing reference in the Open >>> event of the opening form in the event the app is loaded onto a >>> machine which doesn't have the library. However, all the code that >>> I've seen to remove missing references fail. Code like: >>> >>> Dim refCurr As Reference >>> For Each refCurr In References >>> If refCurr.IsBroken Then >>> References.Remove refCurr >>> End If >>> Next >>> >>> Seems straightforward but when it comes to the missing reference it >>> errors out on the .Remove line because it doesn't have a name. So. >>> How do you remove a missing reference when the application the >>> reference is referring to doesn't exist? >>> >>> MTIA >>> >>> 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 Mon Aug 14 10:39:21 2006 From: bchacc at san.rr.com (bchacc at san.rr.com) Date: Mon, 14 Aug 2006 11:39:21 -0400 Subject: [AccessD] Trigger code every day Message-ID: <380-220068114153921671@M2W029.mail2web.com> I'm going to hold your marker on that William. So far, Widnows Scheduler seems to be in the lead and it's one less thing I'll have to support in Shanghai. I'm in Vancouver for the week anyway and won't really be looking at this again untilo I get back. Thanks. Rocky Original Message: ----------------- From: William Hindman wdhindman at dejpolsystems.com Date: Sun, 13 Aug 2006 18:06:43 -0400 To: accessd at databaseadvisors.com Subject: Re: [AccessD] Trigger code every day Rocky ...I have a pretty simple program that does this that's been in production service since 2000 for a client ...it runs as a separate fe app on a dedicated work station and links to your be tables ...I can post a copy for dl if you'd like. ...but if I were doing it today from scratch I'd take a hard look at using FMS's Total Access Agent which will run as an NT Service and execute your exports in the background without other users even being aware anything is happening ...the advantages of such a program running as a service are significant but in short, it automatically restarts with every reboot and does not have the user or security vulnerabilities/problems that the Task Scheduler has, imnsho ...hth. William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 12:09 PM Subject: [AccessD] Trigger code every day > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -------------------------------------------------------------------- mail2web - Check your email from the web at http://mail2web.com/ . From tinanfields at torchlake.com Mon Aug 14 12:44:49 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 13:44:49 -0400 Subject: [AccessD] Background color on a tab control Message-ID: <44E0B691.6020601@torchlake.com> How can one set the background color on a tab control? I have a form with a tab control with four pages that is not the same color as the form's detail section. I haven't looked at this form for a while, but my recollection is that the form detail section and the tab control were the same color - now they are not - and I do not find an appropriate property for changing the tab control's background color. What am I missing here? TIA for any help, Tina From Lambert.Heenan at AIG.com Mon Aug 14 13:13:57 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Mon, 14 Aug 2006 14:13:57 -0400 Subject: [AccessD] Background color on a tab control Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> Well the simplest thing to do would be to set the tab control's Back Style to Transparent. Then you will see the containing form's background through the tab control. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: Monday, August 14, 2006 1:45 PM To: DatabaseAdvisors-Access Subject: [AccessD] Background color on a tab control How can one set the background color on a tab control? I have a form with a tab control with four pages that is not the same color as the form's detail section. I haven't looked at this form for a while, but my recollection is that the form detail section and the tab control were the same color - now they are not - and I do not find an appropriate property for changing the tab control's background color. What am I missing here? TIA for any help, Tina -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From tinanfields at torchlake.com Mon Aug 14 14:21:13 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 15:21:13 -0400 Subject: [AccessD] Background color on a tab control In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> Message-ID: <44E0CD29.8040401@torchlake.com> I did try that, without success. Something seems to be wrong with this form - I just opened an older version of the database and found the form and its tab control to be the same color. So, uh-oh, do I have a corrupted form here? How would I be sure? Tina Heenan, Lambert wrote: > Well the simplest thing to do would be to set the tab control's Back Style > to Transparent. Then you will see the containing form's background through > the tab control. > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris > Fields > Sent: Monday, August 14, 2006 1:45 PM > To: DatabaseAdvisors-Access > Subject: [AccessD] Background color on a tab control > > > How can one set the background color on a tab control? I have a form > with a tab control with four pages that is not the same color as the > form's detail section. I haven't looked at this form for a while, but > my recollection is that the form detail section and the tab control were > the same color - now they are not - and I do not find an appropriate > property for changing the tab control's background color. What am I > missing here? > TIA for any help, > Tina > From andy at minstersystems.co.uk Mon Aug 14 15:05:34 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Mon, 14 Aug 2006 21:05:34 +0100 Subject: [AccessD] Background color on a tab control In-Reply-To: <44E0CD29.8040401@torchlake.com> Message-ID: <001701c6bfdd$00f7b830$53e30651@minster33c3r25> In A97 I think all tabs are light grey regardless. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Tina Norris Fields > Sent: 14 August 2006 20:21 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Background color on a tab control > > > I did try that, without success. Something seems to be wrong > with this > form - I just opened an older version of the database and > found the form > and its tab control to be the same color. So, uh-oh, do I have a > corrupted form here? How would I be sure? > Tina > > Heenan, Lambert wrote: > > Well the simplest thing to do would be to set the tab > control's Back > > Style to Transparent. Then you will see the containing form's > > background through the tab control. > > > > Lambert > > > > -----Original Message----- > > From: accessd-bounces at databaseadvisors.com > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Tina Norris > > Fields > > Sent: Monday, August 14, 2006 1:45 PM > > To: DatabaseAdvisors-Access > > Subject: [AccessD] Background color on a tab control > > > > > > How can one set the background color on a tab control? I > have a form > > with a tab control with four pages that is not the same > color as the > > form's detail section. I haven't looked at this form for a > while, but > > my recollection is that the form detail section and the tab > control were > > the same color - now they are not - and I do not find an > appropriate > > property for changing the tab control's background color. > What am I > > missing here? > > TIA for any help, > > Tina > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From martyconnelly at shaw.ca Mon Aug 14 15:13:31 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 14 Aug 2006 13:13:31 -0700 Subject: [AccessD] Access and Vista In-Reply-To: <380-220068114153921671@M2W029.mail2web.com> References: <380-220068114153921671@M2W029.mail2web.com> Message-ID: <44E0D96B.9090903@shaw.ca> Just came across this for those of you planning down the road . Yes it's true: MSDE 1.0 and 2000 will not be supported on Windows Vista http://blogs.msdn.com/sqlexpress/default.aspx What about Access 2003? Access 2003 already supports using SQL Express, no patching required. There are a couple known issues when paring these two products: ? The SQL designers in Access 2003 do not work against SQL 2005. This is true for Access, Visual Studio 2003 and any other product that uses the VS designers from the 2003 product line. You can still use the text based designers in Access 2003 or you can use Management Studio Express, which can be downloaded free of charge from the download link above. ? Access 2003 does not understand the new User-Schema separation implemented in SQL Server 2005. Databases migrated from SQL Server 2000 to SQL Server 2005 will still work as expected. You should have no problems working with new database in SQL Server 2005 as long as you don't use User-Schema separation. ? Access 2003 doesn't know about the new SQL Server 2005 data types. In my experience, the new types are shown as Memo when part of a Linked Table Access 2007 has been updated to address these issues. -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Mon Aug 14 15:22:56 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 14 Aug 2006 16:22:56 -0400 Subject: [AccessD] Background color on a tab control References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com> Message-ID: <000901c6bfdf$6ea272b0$153ce944@50NM721> ...is the newer one in A2003 format with themed controls turned on? William ----- Original Message ----- From: "Tina Norris Fields" To: "Access Developers discussion and problem solving" Sent: Monday, August 14, 2006 3:21 PM Subject: Re: [AccessD] Background color on a tab control >I did try that, without success. Something seems to be wrong with this > form - I just opened an older version of the database and found the form > and its tab control to be the same color. So, uh-oh, do I have a > corrupted form here? How would I be sure? > Tina > > Heenan, Lambert wrote: >> Well the simplest thing to do would be to set the tab control's Back >> Style >> to Transparent. Then you will see the containing form's background >> through >> the tab control. >> >> Lambert >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris >> Fields >> Sent: Monday, August 14, 2006 1:45 PM >> To: DatabaseAdvisors-Access >> Subject: [AccessD] Background color on a tab control >> >> >> How can one set the background color on a tab control? I have a form >> with a tab control with four pages that is not the same color as the >> form's detail section. I haven't looked at this form for a while, but >> my recollection is that the form detail section and the tab control were >> the same color - now they are not - and I do not find an appropriate >> property for changing the tab control's background color. What am I >> missing here? >> TIA for any help, >> Tina >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From tinanfields at torchlake.com Mon Aug 14 15:37:25 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 16:37:25 -0400 Subject: [AccessD] Background color on a tab control In-Reply-To: <001701c6bfdd$00f7b830$53e30651@minster33c3r25> References: <001701c6bfdd$00f7b830$53e30651@minster33c3r25> Message-ID: <44E0DF05.1020903@torchlake.com> Hi Andy, This is a database in A2K format. The organization uses a grey and purple basic color combination, with some things in green. The form is a student information form with grey detail section and a purple header. The tab control was grey - just by being placed on the form. Its background is set to transparent, and in the earlier versions of this database that I went back to check on, the tab control is grey, just like the form, just as it is supposed to be. In the newest version, all of a sudden, my tab control is white. I don't know why. When I tried to fix it by deleting this form and importing the same form from an earlier version, the newly-imported form had the same problem - the tab control is white, not grey. I've compacted and recompiled. The tab control stays white. Something is wrong here and I don't know what it is. I've tried creating a new blank database and importing everything into it - that didn't help. I'm not looking forward to importing objects one by one to see who is messing up my tab control, but it's starting to look as though I will have to. I do the development work on my box, make a patch database with the new or modified objects, then import those changes into the database onsite. The last time I did that, we made some further changes to the onsite database, which I put into a patch database to bring back to my own box. It seems that the problem arose when I imported those changes into my database. They are using Win2K Pro and I am using WinXP Pro. They are using A2K and I am using A2K3. The database format is A2K. I have been able to update the onsite database with my patches with no problem. Is there a problem I should have known about in importing patches back from their copy of the database? Thanks, Tina Andy Lacey wrote: > In A97 I think all tabs are light grey regardless. > > -- Andy Lacey > http://www.minstersystems.co.uk > > >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >> Tina Norris Fields >> Sent: 14 August 2006 20:21 >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Background color on a tab control >> >> >> I did try that, without success. Something seems to be wrong >> with this >> form - I just opened an older version of the database and >> found the form >> and its tab control to be the same color. So, uh-oh, do I have a >> corrupted form here? How would I be sure? >> Tina >> >> Heenan, Lambert wrote: >> >>> Well the simplest thing to do would be to set the tab >>> >> control's Back >> >>> Style to Transparent. Then you will see the containing form's >>> background through the tab control. >>> >>> Lambert >>> >>> > From tinanfields at torchlake.com Mon Aug 14 15:44:45 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 16:44:45 -0400 Subject: [AccessD] Background color on a tab control In-Reply-To: <000901c6bfdf$6ea272b0$153ce944@50NM721> References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com> <000901c6bfdf$6ea272b0$153ce944@50NM721> Message-ID: <44E0E0BD.2080602@torchlake.com> Hi William, Thank you - the database is in A2000 format, but I am working on it in A2003. I just went to check, and yes, there was a checkmark in the checkbox to use Windows themed controls on forms! I didn't even know that sucker existed! Clearing that checkmark has fixed the problem. Thanks again, Tina William Hindman wrote: > ...is the newer one in A2003 format with themed controls turned on? > > William > > ----- Original Message ----- > From: "Tina Norris Fields" > To: "Access Developers discussion and problem solving" > > Sent: Monday, August 14, 2006 3:21 PM > Subject: Re: [AccessD] Background color on a tab control > > > >> I did try that, without success. Something seems to be wrong with this >> form - I just opened an older version of the database and found the form >> and its tab control to be the same color. So, uh-oh, do I have a >> corrupted form here? How would I be sure? >> Tina >> >> > From wdhindman at dejpolsystems.com Mon Aug 14 16:12:30 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 14 Aug 2006 17:12:30 -0400 Subject: [AccessD] Background color on a tab control References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com><000901c6bfdf$6ea272b0$153ce944@50NM721> <44E0E0BD.2080602@torchlake.com> Message-ID: <000e01c6bfe6$5aad7be0$153ce944@50NM721> ...one of MS's half-hatched attempts to put some order into Access designs ...problem of course is that it doesn't work on too many controls to really use it across the board ...I've been delving into using windows system colors set by the Control Panel Display settings to do this with mixed success ...no wizard out there really does that although Feddema and v-tools make baby steps toward it ...but then you have odd ball controls like the tab that don't follow the Access color scheme to begin with and the whole house of cards comes tumbling down :( William ----- Original Message ----- From: "Tina Norris Fields" To: "Access Developers discussion and problem solving" Sent: Monday, August 14, 2006 4:44 PM Subject: Re: [AccessD] Background color on a tab control > Hi William, > > Thank you - the database is in A2000 format, but I am working on it in > A2003. I just went to check, and yes, there was a checkmark in the > checkbox to use Windows themed controls on forms! I didn't even know > that sucker existed! Clearing that checkmark has fixed the problem. > > Thanks again, > Tina > > William Hindman wrote: >> ...is the newer one in A2003 format with themed controls turned on? >> >> William >> >> ----- Original Message ----- >> From: "Tina Norris Fields" >> To: "Access Developers discussion and problem solving" >> >> Sent: Monday, August 14, 2006 3:21 PM >> Subject: Re: [AccessD] Background color on a tab control >> >> >> >>> I did try that, without success. Something seems to be wrong with this >>> form - I just opened an older version of the database and found the form >>> and its tab control to be the same color. So, uh-oh, do I have a >>> corrupted form here? How would I be sure? >>> Tina >>> >>> >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From kp at sdsonline.net Mon Aug 14 18:17:32 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Tue, 15 Aug 2006 09:17:32 +1000 Subject: [AccessD] Background color on a tab control References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com><000901c6bfdf$6ea272b0$153ce944@50NM721> <44E0E0BD.2080602@torchlake.com> Message-ID: <004401c6bff7$d290f360$6501a8c0@office> I haven't done much development in 2003 yet - but there must be some code that would allow you to turn that off in the app for distribution? Kath ----- Original Message ----- From: Tina Norris Fields To: Access Developers discussion and problem solving Sent: Tuesday, August 15, 2006 6:44 AM Subject: Re: [AccessD] Background color on a tab control Hi William, Thank you - the database is in A2000 format, but I am working on it in A2003. I just went to check, and yes, there was a checkmark in the checkbox to use Windows themed controls on forms! I didn't even know that sucker existed! Clearing that checkmark has fixed the problem. Thanks again, Tina William Hindman wrote: > ...is the newer one in A2003 format with themed controls turned on? > > William > > ----- Original Message ----- > From: "Tina Norris Fields" > To: "Access Developers discussion and problem solving" > > Sent: Monday, August 14, 2006 3:21 PM > Subject: Re: [AccessD] Background color on a tab control > > > >> I did try that, without success. Something seems to be wrong with this >> form - I just opened an older version of the database and found the form >> and its tab control to be the same color. So, uh-oh, do I have a >> corrupted form here? How would I be sure? >> Tina >> >> > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Mon Aug 14 18:26:59 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Tue, 15 Aug 2006 09:26:59 +1000 Subject: [AccessD] Form flicker - 2003 References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com><000901c6bfdf$6ea272b0$153ce944@50NM721> <44E0E0BD.2080602@torchlake.com> Message-ID: <005101c6bff9$248fe5d0$6501a8c0@office> I was looking for some code for Tina's problem and stumbled across this - I haven't had this problem but I have seen at - good to know how the workaround. http://www.everythingaccess.com/tutorials.asp?ID=Bug%3A-Flickering-tab-controls-in-Access-2003 Kath Pelletti From jwcolby at colbyconsulting.com Mon Aug 14 18:54:42 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 14 Aug 2006 19:54:42 -0400 Subject: [AccessD] Form flicker - 2003 In-Reply-To: <005101c6bff9$248fe5d0$6501a8c0@office> Message-ID: <006b01c6bffd$03c87de0$657aa8c0@m6805> It seems that this could also be solved by actually creating a text box for the label and attach the label to the text box. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti Sent: Monday, August 14, 2006 7:27 PM To: Access Developers discussion and problem solving Subject: [AccessD] Form flicker - 2003 I was looking for some code for Tina's problem and stumbled across this - I haven't had this problem but I have seen at - good to know how the workaround. http://www.everythingaccess.com/tutorials.asp?ID=Bug%3A-Flickering-tab-contr ols-in-Access-2003 Kath Pelletti -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Mon Aug 14 19:50:04 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Tue, 15 Aug 2006 10:50:04 +1000 Subject: [AccessD] Form flicker - 2003 References: <006b01c6bffd$03c87de0$657aa8c0@m6805> Message-ID: <007a01c6c004$bf8e3d10$6501a8c0@office> That's right. It is an error that I would have hit sooner or later as I often disconnect labels from text boxes so that it's easier to move them around independently. In fact if I'm working on a new form I often select a whole block of labels and cut and paste them back to get them to be independent. They would now have to be text boxes in 2003. Kath Pelletti ----- Original Message ----- From: JWColby To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 15, 2006 9:54 AM Subject: Re: [AccessD] Form flicker - 2003 It seems that this could also be solved by actually creating a text box for the label and attach the label to the text box. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti Sent: Monday, August 14, 2006 7:27 PM To: Access Developers discussion and problem solving Subject: [AccessD] Form flicker - 2003 I was looking for some code for Tina's problem and stumbled across this - I haven't had this problem but I have seen at - good to know how the workaround. http://www.everythingaccess.com/tutorials.asp?ID=Bug%3A-Flickering-tab-contr ols-in-Access-2003 Kath Pelletti -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 15 02:08:12 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Tue, 15 Aug 2006 08:08:12 +0100 Subject: [AccessD] Background color on a tab control In-Reply-To: <004401c6bff7$d290f360$6501a8c0@office> Message-ID: <000001c6c039$92249e20$52980c54@minster33c3r25> Good call William. Never having got beyond A97 I've not come across that 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 > Kath Pelletti > Sent: 15 August 2006 00:18 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Background color on a tab control > > > I haven't done much development in 2003 yet - but there must > be some code that would allow you to turn that off in the app > for distribution? > > Kath > ----- Original Message ----- > From: Tina Norris Fields > To: Access Developers discussion and problem solving > Sent: Tuesday, August 15, 2006 6:44 AM > Subject: Re: [AccessD] Background color on a tab control > > > Hi William, > > Thank you - the database is in A2000 format, but I am > working on it in > A2003. I just went to check, and yes, there was a checkmark in the > checkbox to use Windows themed controls on forms! I didn't > even know > that sucker existed! Clearing that checkmark has fixed the problem. > > Thanks again, > Tina > > William Hindman wrote: > > ...is the newer one in A2003 format with themed controls > turned on? > > > > William > > > > ----- Original Message ----- > > From: "Tina Norris Fields" > > To: "Access Developers discussion and problem solving" > > > > Sent: Monday, August 14, 2006 3:21 PM > > Subject: Re: [AccessD] Background color on a tab control > > > > > > > >> I did try that, without success. Something seems to be > wrong with this > >> form - I just opened an older version of the database > and found the form > >> and its tab control to be the same color. So, uh-oh, do I have a > >> corrupted form here? How would I be sure? > >> 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 cfoust at infostatsystems.com Tue Aug 15 09:48:43 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 15 Aug 2006 07:48:43 -0700 Subject: [AccessD] Background color on a tab control In-Reply-To: <000001c6c039$92249e20$52980c54@minster33c3r25> Message-ID: It may be a property of the control itself. It certainly is in .Net controls. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Tuesday, August 15, 2006 12:08 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Background color on a tab control Good call William. Never having got beyond A97 I've not come across that 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 Kath > Pelletti > Sent: 15 August 2006 00:18 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Background color on a tab control > > > I haven't done much development in 2003 yet - but there must be some > code that would allow you to turn that off in the app for > distribution? > > Kath > ----- Original Message ----- > From: Tina Norris Fields > To: Access Developers discussion and problem solving > Sent: Tuesday, August 15, 2006 6:44 AM > Subject: Re: [AccessD] Background color on a tab control > > > Hi William, > > Thank you - the database is in A2000 format, but I am working on it > in > A2003. I just went to check, and yes, there was a checkmark in the > checkbox to use Windows themed controls on forms! I didn't even > know > that sucker existed! Clearing that checkmark has fixed the problem. > > Thanks again, > Tina > > William Hindman wrote: > > ...is the newer one in A2003 format with themed controls turned > on? > > > > William > > > > ----- Original Message ----- > > From: "Tina Norris Fields" > > To: "Access Developers discussion and problem solving" > > > > Sent: Monday, August 14, 2006 3:21 PM > > Subject: Re: [AccessD] Background color on a tab control > > > > > > > >> I did try that, without success. Something seems to be wrong > with this > >> form - I just opened an older version of the database and found > the form > >> and its tab control to be the same color. So, uh-oh, do I have a > >> corrupted form here? How would I be sure? > >> 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 > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From tinanfields at torchlake.com Tue Aug 15 10:53:16 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 15 Aug 2006 11:53:16 -0400 Subject: [AccessD] My Iif expression isn't right Message-ID: <44E1EDEC.10605@torchlake.com> Hi all, Well, you helped me yesterday with my tab control background color issue. I've got another one to solve pronto. My client wanted three yes/no checkboxes for each student, labeled IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP evaluation had been carried out for the student and in which grade, 10, 11, or 12. At the time, I was assured this was never going to be used for sorting. Riiiiight! So, there are three separate fields in the student table. Now, we need to create a report showing all students for whom the IEP has been carried out, and - you guessed it - sort first on the IEP grade (10, 11, or 12), and then alphabetically by student name. I decided to add a computed field to my query that looks for a "Yes" in any of the three fields, and to give a value to that field based on which IEP field was "Yes" like so: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, Iif([IEP-12]="Yes", 12, ""))) The idea then, is to sort on the computed field. The query finds the records and fills in all the fields correctly except for my IEP-Sort field - there it gives me the #Error. Okay, I don't know what my error is. Please, how do I figure out my goof and fix it? I will be watching for a reply and trying to think it out at the same time. Any help appreciated. Thanks, Tina From tinanfields at torchlake.com Tue Aug 15 11:02:06 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 15 Aug 2006 12:02:06 -0400 Subject: [AccessD] My Iif expression isn't right In-Reply-To: <44E1EDEC.10605@torchlake.com> References: <44E1EDEC.10605@torchlake.com> Message-ID: <44E1EFFE.8080400@torchlake.com> Hi again, Okay, I think I've got the solution - use the -1 value instead of "Yes" for the criteria - that makes my IEP-Sort field get the number I want. But, why doesn't the other way around work? Tina Tina Norris Fields wrote: > Hi all, > > Well, you helped me yesterday with my tab control background color issue. > > I've got another one to solve pronto. > > My client wanted three yes/no checkboxes for each student, labeled > IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP > evaluation had been carried out for the student and in which grade, 10, > 11, or 12. At the time, I was assured this was never going to be used > for sorting. Riiiiight! So, there are three separate fields in the > student table. > > Now, we need to create a report showing all students for whom the IEP > has been carried out, and - you guessed it - sort first on the IEP > grade (10, 11, or 12), and then alphabetically by student name. > > I decided to add a computed field to my query that looks for a "Yes" in > any of the three fields, and to give a value to that field based on > which IEP field was "Yes" like so: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, > Iif([IEP-12]="Yes", 12, ""))) > > The idea then, is to sort on the computed field. The query finds the > records and fills in all the fields correctly except for my IEP-Sort > field - there it gives me the #Error. Okay, I don't know what my error > is. Please, how do I figure out my goof and fix it? I will be watching > for a reply and trying to think it out at the same time. Any help > appreciated. > > Thanks, > Tina > > > From Gustav at cactus.dk Tue Aug 15 11:03:18 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 15 Aug 2006 18:03:18 +0200 Subject: [AccessD] My Iif expression isn't right Message-ID: Hi Tina If checkboxes, why not just sort on the values: ORDER BY ABS([IEP-10]) DESC, ABS([IEP-11]) DESC, ABS([IEP-12]) DESC /gustav >>> tinanfields at torchlake.com 15-08-2006 17:53:16 >>> Hi all, Well, you helped me yesterday with my tab control background color issue. I've got another one to solve pronto. My client wanted three yes/no checkboxes for each student, labeled IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP evaluation had been carried out for the student and in which grade, 10, 11, or 12. At the time, I was assured this was never going to be used for sorting. Riiiiight! So, there are three separate fields in the student table. Now, we need to create a report showing all students for whom the IEP has been carried out, and - you guessed it - sort first on the IEP grade (10, 11, or 12), and then alphabetically by student name. I decided to add a computed field to my query that looks for a "Yes" in any of the three fields, and to give a value to that field based on which IEP field was "Yes" like so: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, Iif([IEP-12]="Yes", 12, ""))) The idea then, is to sort on the computed field. The query finds the records and fills in all the fields correctly except for my IEP-Sort field - there it gives me the #Error. Okay, I don't know what my error is. Please, how do I figure out my goof and fix it? I will be watching for a reply and trying to think it out at the same time. Any help appreciated. Thanks, Tina From Robin at rolledgold.net Tue Aug 15 10:49:59 2006 From: Robin at rolledgold.net (Robin ) Date: Tue, 15 Aug 2006 16:49:59 +0100 Subject: [AccessD] My Iif expression isn't right Message-ID: <560E2B80EC8F624B93A87B943B7A9CD54242D8@rgiserv.rg.local> Tina, Try taking the quotes out around True - it's not a string value.. Rgds Robin Lawrence -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: 15 August 2006 17:02 To: Access Developers discussion and problem solving Subject: Re: [AccessD] My Iif expression isn't right Hi again, Okay, I think I've got the solution - use the -1 value instead of "Yes" for the criteria - that makes my IEP-Sort field get the number I want. But, why doesn't the other way around work? Tina Tina Norris Fields wrote: > Hi all, > > Well, you helped me yesterday with my tab control background color > issue. > > I've got another one to solve pronto. > > My client wanted three yes/no checkboxes for each student, labeled > IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP > evaluation had been carried out for the student and in which grade, 10, > 11, or 12. At the time, I was assured this was never going to be used > for sorting. Riiiiight! So, there are three separate fields in the > student table. > > Now, we need to create a report showing all students for whom the IEP > has been carried out, and - you guessed it - sort first on the IEP > grade (10, 11, or 12), and then alphabetically by student name. > > I decided to add a computed field to my query that looks for a "Yes" > in > any of the three fields, and to give a value to that field based on > which IEP field was "Yes" like so: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, > Iif([IEP-12]="Yes", 12, ""))) > > The idea then, is to sort on the computed field. The query finds the > records and fills in all the fields correctly except for my IEP-Sort > field - there it gives me the #Error. Okay, I don't know what my error > is. Please, how do I figure out my goof and fix it? I will be watching > for a reply and trying to think it out at the same time. Any help > appreciated. > > Thanks, > Tina > > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bheid at appdevgrp.com Tue Aug 15 11:11:24 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 15 Aug 2006 12:11:24 -0400 Subject: [AccessD] [SPAM SUSPECT] My Iif expression isn't right In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0AD2C@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357D9@ADGSERVER> Try something like: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes",11,12)) I never use "yes" or "no" in a query. I use True and False. So if the above does not work, try changing it to: IEP-Sort:Iif([IEP-10]=true, 10, Iif([IEP-11] = true, 11,12)) Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: Tuesday, August 15, 2006 11:53 AM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] [AccessD] My Iif expression isn't right Importance: Low Hi all, Well, you helped me yesterday with my tab control background color issue. I've got another one to solve pronto. My client wanted three yes/no checkboxes for each student, labeled IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP evaluation had been carried out for the student and in which grade, 10, 11, or 12. At the time, I was assured this was never going to be used for sorting. Riiiiight! So, there are three separate fields in the student table. Now, we need to create a report showing all students for whom the IEP has been carried out, and - you guessed it - sort first on the IEP grade (10, 11, or 12), and then alphabetically by student name. I decided to add a computed field to my query that looks for a "Yes" in any of the three fields, and to give a value to that field based on which IEP field was "Yes" like so: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, Iif([IEP-12]="Yes", 12, ""))) The idea then, is to sort on the computed field. The query finds the records and fills in all the fields correctly except for my IEP-Sort field - there it gives me the #Error. Okay, I don't know what my error is. Please, how do I figure out my goof and fix it? I will be watching for a reply and trying to think it out at the same time. Any help appreciated. Thanks, Tina From tinanfields at torchlake.com Tue Aug 15 11:33:11 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 15 Aug 2006 12:33:11 -0400 Subject: [AccessD] [SPAM SUSPECT] My Iif expression isn't right In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D357D9@ADGSERVER> References: <916187228923D311A6FE00A0CC3FAA30D357D9@ADGSERVER> Message-ID: <44E1F747.8030806@torchlake.com> Thanks for all the good advice, everyone. It is working well, now. I really appreciate how hitting the SEND button turns on the brain! Tina Bobby Heid wrote: > Try something like: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes",11,12)) > > I never use "yes" or "no" in a query. I use True and False. So if the > above does not work, try changing it to: > IEP-Sort:Iif([IEP-10]=true, 10, Iif([IEP-11] = true, 11,12)) > > Bobby > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris > Fields > Sent: Tuesday, August 15, 2006 11:53 AM > To: Access Developers discussion and problem solving > Subject: [SPAM SUSPECT] [AccessD] My Iif expression isn't right > Importance: Low > > > Hi all, > > Well, you helped me yesterday with my tab control background color issue. > > I've got another one to solve pronto. > > My client wanted three yes/no checkboxes for each student, labeled > IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP > evaluation had been carried out for the student and in which grade, 10, > 11, or 12. At the time, I was assured this was never going to be used > for sorting. Riiiiight! So, there are three separate fields in the > student table. > > Now, we need to create a report showing all students for whom the IEP > has been carried out, and - you guessed it - sort first on the IEP > grade (10, 11, or 12), and then alphabetically by student name. > > I decided to add a computed field to my query that looks for a "Yes" in > any of the three fields, and to give a value to that field based on > which IEP field was "Yes" like so: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, > Iif([IEP-12]="Yes", 12, ""))) > > The idea then, is to sort on the computed field. The query finds the > records and fills in all the fields correctly except for my IEP-Sort > field - there it gives me the #Error. Okay, I don't know what my error > is. Please, how do I figure out my goof and fix it? I will be watching > for a reply and trying to think it out at the same time. Any help > appreciated. > > Thanks, > Tina > > From adtp at hotmail.com Tue Aug 15 14:12:05 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Wed, 16 Aug 2006 00:42:05 +0530 Subject: [AccessD] Removing a missing reference References: Message-ID: Rocky, If it is a question of merely clearing the check box for each missing reference, skeleton subroutine as given below, is found to do the job. Command button named CmdTest is located on a plain form with no other code in its module that is in any way dependant upon any of the likely missing references (This ensures that there is no problem in running the particular subroutine in question). Best wishes, A.D.Tejpal --------------- Code in test form's module ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" References.Remove ref ' Statement (A) below gives compile Error ' However, the purpose is served ' even if it is kept disabled ' RemoveReference = True (A) End If Next End Sub ======================================= ----- Original Message ----- From: Charlotte Foust To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 20:59 Subject: Re: [AccessD] Removing a missing reference Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky From adtp at hotmail.com Tue Aug 15 14:41:46 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Wed, 16 Aug 2006 01:11:46 +0530 Subject: [AccessD] Removing a missing reference References: Message-ID: Rocky, Revised sample code in command button's click event is given below. A.D.Tejpal --------------- ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" Application.References.Remove ref End If Next End Sub ======================================= ----- Original Message ----- From: A.D.TEJPAL To: Access Developers discussion and problem solving Cc: ADT Sent: Wednesday, August 16, 2006 00:42 Subject: Re: [AccessD] Removing a missing reference Rocky, If it is a question of merely clearing the check box for each missing reference, skeleton subroutine as given below, is found to do the job. Command button named CmdTest is located on a plain form with no other code in its module that is in any way dependant upon any of the likely missing references (This ensures that there is no problem in running the particular subroutine in question). Best wishes, A.D.Tejpal --------------- Code in test form's module ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" References.Remove ref ' Statement (A) below gives compile Error ' However, the purpose is served ' even if it is kept disabled ' RemoveReference = True (A) End If Next End Sub ======================================= ----- Original Message ----- From: Charlotte Foust To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 20:59 Subject: Re: [AccessD] Removing a missing reference Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky From pedro at plex.nl Wed Aug 16 10:58:49 2006 From: pedro at plex.nl (pedro at plex.nl) Date: Wed, 16 Aug 2006 10:58:49 (MET DST) Subject: [AccessD] date query Message-ID: <200608160858.k7G8wnKV017324@mailhostC.plex.net> Hello Group, it has been a long time since my last participation on this group, but now i have a question. I have a table (BVO) with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date field I need the records of which the date of [Datum2] is later then 10 days from [Datum1], per Month. Thanks Pedro Janssen From prodevmg at yahoo.com Wed Aug 16 07:50:09 2006 From: prodevmg at yahoo.com (Lonnie Johnson) Date: Wed, 16 Aug 2006 05:50:09 -0700 (PDT) Subject: [AccessD] date query In-Reply-To: <200608160858.k7G8wnKV017324@mailhostC.plex.net> Message-ID: <20060816125009.46003.qmail@web33101.mail.mud.yahoo.com> SELECT Rapnaam, Datum1, Datum2 FROM BVO WHERE Datum2>[Datum1]+10 pedro at plex.nl wrote: Hello Group, it has been a long time since my last participation on this group, but now i have a question. I have a table (BVO) with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date field I need the records of which the date of [Datum2] is later then 10 days from [Datum1], per Month. Thanks Pedro Janssen -- 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 __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From bheid at appdevgrp.com Wed Aug 16 08:09:22 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Wed, 16 Aug 2006 09:09:22 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: date query In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0AE3C@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357E2@ADGSERVER> Try something like: SELECT * FROM BVO WHERE datediff("d",[Datum1],[Datum2])>10 You might have to switch the dates, I can't remember at the moment the proper order. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson Sent: Wednesday, August 16, 2006 8:50 AM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] date query Importance: Low SELECT Rapnaam, Datum1, Datum2 FROM BVO WHERE Datum2>[Datum1]+10 pedro at plex.nl wrote: Hello Group, it has been a long time since my last participation on this group, but now i have a question. I have a table (BVO) with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date field I need the records of which the date of [Datum2] is later then 10 days from [Datum1], per Month. Thanks Pedro Janssen -- 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 __________________________________________________ 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 bchacc at san.rr.com Wed Aug 16 09:18:46 2006 From: bchacc at san.rr.com (bchacc at san.rr.com) Date: Wed, 16 Aug 2006 10:18:46 -0400 Subject: [AccessD] Removing a missing reference Message-ID: <380-2200683161418460@M2W022.mail2web.com> A.D.: Thank you for the routine. I'm out of town this week but will incorporate it into the app when I return and give it a test. Best regards, Rocky Original Message: ----------------- From: A.D.TEJPAL adtp at hotmail.com Date: Wed, 16 Aug 2006 01:11:46 +0530 To: accessd at databaseadvisors.com, adtp at airtelbroadband.in Subject: Re: [AccessD] Removing a missing reference Rocky, Revised sample code in command button's click event is given below. A.D.Tejpal --------------- ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" Application.References.Remove ref End If Next End Sub ======================================= ----- Original Message ----- From: A.D.TEJPAL To: Access Developers discussion and problem solving Cc: ADT Sent: Wednesday, August 16, 2006 00:42 Subject: Re: [AccessD] Removing a missing reference Rocky, If it is a question of merely clearing the check box for each missing reference, skeleton subroutine as given below, is found to do the job. Command button named CmdTest is located on a plain form with no other code in its module that is in any way dependant upon any of the likely missing references (This ensures that there is no problem in running the particular subroutine in question). Best wishes, A.D.Tejpal --------------- Code in test form's module ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" References.Remove ref ' Statement (A) below gives compile Error ' However, the purpose is served ' even if it is kept disabled ' RemoveReference = True (A) End If Next End Sub ======================================= ----- Original Message ----- From: Charlotte Foust To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 20:59 Subject: Re: [AccessD] Removing a missing reference Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -------------------------------------------------------------------- mail2web - Check your email from the web at http://mail2web.com/ . From adtp at hotmail.com Wed Aug 16 09:33:05 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Wed, 16 Aug 2006 20:03:05 +0530 Subject: [AccessD] Sort By Sum on Footer References: Message-ID: Mark, On a report having group header & footer for names, you wish to sort this group as per descending order of sum displayed in its footer. Two alternative solutions are available for getting the desired results. First solution: (1) In the Sorting & Grouping dialog box create a group with following entry in the first column (titled Field/Expression): =Format(Nz(DSum("Score","T_Data","PName = '" & [PName] & "'"),0),"0000") & [PName] (2) In the second column (titled Sort Order), select Descending. (3) Treat this group header & footer just as if it were for PName. Note: (a) You could substitute DSum() function by a user defined one, if so desired. (b) It is presumed that the sum would not exceed 4 digits. Otherwise, format string used above, can be expanded suitably. (c) Field names have been changed to PName & Score respectively so as to avoid any potential conflict with reserved words. T_Data is the assumed name of source table. Second solution: (1) Add a calculated field named TotScorePName in the source query, as per sample SQL given below. (2) In the report, create a group as per TotScorePName (Descending) - with group header & footer. (3) Treat this group header & Footer just as if it were for PName. Note: (a) You could substitute DSum() function by a user defined one, if so desired. However, use of a subquery is not recommended as such queries are found to cause problems when used as record source for reports involving group levels. (b) Other points are similar to those mentioned against first solution. Best wishes, A.D.Tejpal --------------- Sample query - (As record source for the report) ===================================== SELECT T_Data.*, Format(Nz(DSum("Score","T_Data","PName = '" & [PName] & "'"),0),"0000") & [PName] AS TotScoreName FROM T_Data; ===================================== ----- Original Message ----- From: Mark A Matte To: accessd at databaseadvisors.com Sent: Friday, August 11, 2006 20:12 Subject: Re: [AccessD] Sort By Sum on Footer Sorry...Here's an example: NAME COUNT Bob 23 Bob 14 Mary 10 Mary 40 Each name has a footer that has Sum(count)...What is the easiest way to sort on this sum in the footer...so Mary's group would be listed first if sorting descending? Thanks, Mark >From: "Susan Harkins" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] Sort By Sum on Footer >Date: Thu, 10 Aug 2006 19:03:09 -0400 > >So, you're sorting pages? > >Susan H. > >Other than creating a query that gets the sum and join it to the query I'm using as a recordsource...Is there a way to sort by the sum on a footer in a report...sorting/grouping doesn't seem to like the idea...any ideas? From Chester_Kaup at kindermorgan.com Wed Aug 16 10:18:14 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 16 Aug 2006 10:18:14 -0500 Subject: [AccessD] VBA Runtime Error Message-ID: Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From andy at minstersystems.co.uk Wed Aug 16 11:30:18 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Wed, 16 Aug 2006 16:30:18 +0000 Subject: [AccessD] VBA Runtime Error Message-ID: <20060816153023.A33CB27310C@smtp.nildram.co.uk> Hi Chester Lots on this error here http://www.codecomments.com/archive336-2005-6-374233.html You might want to post the code around the line that errors. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: [AccessD] VBA Runtime Error Date: 16/08/06 15:21 Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- 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 Wed Aug 16 10:39:53 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 16 Aug 2006 11:39:53 -0400 Subject: [AccessD] VBA Runtime Error In-Reply-To: Message-ID: <000601c6c14a$39131390$657aa8c0@m6805> Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or one time? Perhaps a bad NIC or other network problem. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Wednesday, August 16, 2006 11:18 AM To: Access Developers discussion and problem solving Subject: [AccessD] VBA Runtime Error Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From pedro at plex.nl Wed Aug 16 12:36:18 2006 From: pedro at plex.nl (Pedro Janssen) Date: Wed, 16 Aug 2006 19:36:18 +0200 Subject: [AccessD] date query References: <20060816125009.46003.qmail@web33101.mail.mud.yahoo.com> Message-ID: <006e01c6c15a$7b493310$4101a8c0@qmotionfaa3ad9> Hello Lonnie and Bobby, thanks for the help. Pedro ----- Original Message ----- From: "Lonnie Johnson" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 16, 2006 2:50 PM Subject: Re: [AccessD] date query > SELECT Rapnaam, Datum1, Datum2 > FROM BVO > WHERE Datum2>[Datum1]+10 > > pedro at plex.nl wrote: Hello Group, > > it has been a long time since my last participation on this group, but now > i have a question. > > I have a table (BVO) > with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date > field > > I need the records of which the date of [Datum2] is later then 10 days > from [Datum1], per Month. > > Thanks > > Pedro Janssen > -- > 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 > > > > > > > > > > > > __________________________________________________ > 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 Chester_Kaup at kindermorgan.com Wed Aug 16 12:41:19 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 16 Aug 2006 12:41:19 -0500 Subject: [AccessD] VBA Runtime Error In-Reply-To: <000601c6c14a$39131390$657aa8c0@m6805> Message-ID: This is a single database thus front end back end. It stops in the same place every time. I think I may have solved the problem. I did not dim a date variable - just let access do it. I dimmed it and code is now running. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Wednesday, August 16, 2006 10:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] VBA Runtime Error Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or one time? Perhaps a bad NIC or other network problem. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Wednesday, August 16, 2006 11:18 AM To: Access Developers discussion and problem solving Subject: [AccessD] VBA Runtime Error Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 16 13:53:42 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Wed, 16 Aug 2006 11:53:42 -0700 Subject: [AccessD] VBA Runtime Error In-Reply-To: References: Message-ID: <44E369B6.3050006@shaw.ca> You might want to put statement Option Explicit in all your modules to force variable declaration and recompile Kaup, Chester wrote: >This is a single database thus front end back end. It stops in the same >place every time. I think I may have solved the problem. I did not dim a >date variable - just let access do it. I dimmed it and code is now >running. > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >Sent: Wednesday, August 16, 2006 10:40 AM >To: 'Access Developers discussion and problem solving' >Subject: Re: [AccessD] VBA Runtime Error > >Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >one >time? Perhaps a bad NIC or other network problem. > > >John W. Colby >Colby Consulting >www.ColbyConsulting.com > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester >Sent: Wednesday, August 16, 2006 11:18 AM >To: Access Developers discussion and problem solving >Subject: [AccessD] VBA Runtime Error > >Had the following error come up when running VBA code in a module. Line >it >stopped on set a variable to a table field in a native table. What does >it >mean? > > > >Run-time error '-2147417848(80010108)' > > > >Automation error > >The object invoked has disconnected from its clients. > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number >of electrons were terribly inconvenienced. > > > >-- >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 cjeris at fas.harvard.edu Wed Aug 16 14:52:13 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Wed, 16 Aug 2006 15:52:13 -0400 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: <44E3776D.2040109@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 This is probably fairly simple but I haven't gotten far with the help and Google. Access XP. I have an unbound form containing several textboxes and some action buttons. Based on which action button the user presses, I want some of the textboxes to become non-writable and others to remain writable. When a record is loaded into the form, the textboxes are initialized using statements of the form acForm![faaCustomerID].Value = "1264" and each such textbox has its Locked property set to False. Later, in a function called from one of the command buttons' _Click() handlers, I attempt to do acForm![faaCustomerID].Locked = True and receive Run-time error 2166: You can't lock a control that has unsaved changes. Now from the help for the properties TextBox.Text, TextBox.Value, it seems that "unsaved changes" means that .Text <> .Value . That isn't true here, as far as I can tell, since nothing has acted to edit the control since I set its .Value property. What don't I understand here? How can I convince Access to let me lock these controls? thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE43dt5ICCNV0oGWARAtDmAJ9FkL34t0JSslMk543a38eEPTsTFACglP/r 4LGdbgGO8au1fZJ00xUu6uY= =2t6Q -----END PGP SIGNATURE----- From jwcolby at colbyconsulting.com Wed Aug 16 14:59:54 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 16 Aug 2006 15:59:54 -0400 Subject: [AccessD] VBA Runtime Error In-Reply-To: <44E369B6.3050006@shaw.ca> Message-ID: <001501c6c16e$8c229dc0$657aa8c0@m6805> Boy howdy, I second THAT one. Option explicit is a requirement in my book. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Wednesday, August 16, 2006 2:54 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Runtime Error You might want to put statement Option Explicit in all your modules to force variable declaration and recompile Kaup, Chester wrote: >This is a single database thus front end back end. It stops in the same >place every time. I think I may have solved the problem. I did not dim >a date variable - just let access do it. I dimmed it and code is now >running. > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >Sent: Wednesday, August 16, 2006 10:40 AM >To: 'Access Developers discussion and problem solving' >Subject: Re: [AccessD] VBA Runtime Error > >Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >one time? Perhaps a bad NIC or other network problem. > > >John W. Colby >Colby Consulting >www.ColbyConsulting.com > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >Chester >Sent: Wednesday, August 16, 2006 11:18 AM >To: Access Developers discussion and problem solving >Subject: [AccessD] VBA Runtime Error > >Had the following error come up when running VBA code in a module. Line >it stopped on set a variable to a table field in a native table. What >does it mean? > > > >Run-time error '-2147417848(80010108)' > > > >Automation error > >The object invoked has disconnected from its clients. > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number of electrons were terribly inconvenienced. > > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com > > > -- 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 wdhindman at dejpolsystems.com Wed Aug 16 16:26:09 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Wed, 16 Aug 2006 17:26:09 -0400 Subject: [AccessD] VBA Runtime Error References: <001501c6c16e$8c229dc0$657aa8c0@m6805> Message-ID: <001701c6c17a$97e66ef0$153ce944@50NM721> ...I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ...but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ...I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ...sorta choked me up ...lost a diet coke all over the screen, I did. ...and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > 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 > From shamil at users.mns.ru Wed Aug 16 16:38:30 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Thu, 17 Aug 2006 01:38:30 +0400 Subject: [AccessD] How to position forms by VB/VBA code on dual monitor system? Message-ID: <000c01c6c17c$51334da0$6401a8c0@nant> Hi All, Does anybody have any working sample code to position/move forms by VB/VBA code on dual monitor system? Thank you. -- Shamil From wdhindman at dejpolsystems.com Wed Aug 16 17:13:50 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Wed, 16 Aug 2006 18:13:50 -0400 Subject: [AccessD] Locking a textbox based on other form controls References: <44E3776D.2040109@fas.harvard.edu> Message-ID: <006d01c6c181$418672b0$153ce944@50NM721> ...a textbox has two properties that can be confusing ..."text" is the data currently in the control while "value" is the data last saved for the control ...in an unbound form you have to save the text data for it to become the value data ...you might try saving the data before locking the text box ...hth. William ----- Original Message ----- From: "Christopher Jeris" To: Sent: Wednesday, August 16, 2006 3:52 PM Subject: [AccessD] Locking a textbox based on other form controls > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > This is probably fairly simple but I haven't gotten far with the help and > Google. > > Access XP. I have an unbound form containing several textboxes and some > action buttons. Based on which action button the user presses, I want > some > of the textboxes to become non-writable and others to remain writable. > > When a record is loaded into the form, the textboxes are initialized using > statements of the form > > acForm![faaCustomerID].Value = "1264" > > and each such textbox has its Locked property set to False. > > Later, in a function called from one of the command buttons' _Click() > handlers, I attempt to do > > acForm![faaCustomerID].Locked = True > > and receive > > Run-time error 2166: You can't lock a control that has unsaved changes. > > Now from the help for the properties TextBox.Text, TextBox.Value, it seems > that "unsaved changes" means that .Text <> .Value . That isn't true here, > as far as I can tell, since nothing has acted to edit the control since I > set its .Value property. > > What don't I understand here? How can I convince Access to let me lock > these controls? > > thanks, Chris Jeris > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.4.2.2 (MingW32) > Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org > > iD8DBQFE43dt5ICCNV0oGWARAtDmAJ9FkL34t0JSslMk543a38eEPTsTFACglP/r > 4LGdbgGO8au1fZJ00xUu6uY= > =2t6Q > -----END PGP SIGNATURE----- > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From darrend at nimble.com.au Wed Aug 16 22:25:36 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 17 Aug 2006 13:25:36 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: <20060817032540.NOEC6498.omta03ps.mx.bigpond.com@DENZILLAP> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From Gustav at cactus.dk Thu Aug 17 01:45:55 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 08:45:55 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From Gustav at cactus.dk Thu Aug 17 02:04:06 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 09:04:06 +0200 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: Hi Chris This should be possible. You can even change the value of a locked textbox via code. Something else must be going on. Are you sure the form - not only the textboxes - is unbound? /gustav >>> cjeris at fas.harvard.edu 16-08-2006 21:52:13 >>> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 This is probably fairly simple but I haven't gotten far with the help and Google. Access XP. I have an unbound form containing several textboxes and some action buttons. Based on which action button the user presses, I want some of the textboxes to become non-writable and others to remain writable. When a record is loaded into the form, the textboxes are initialized using statements of the form acForm![faaCustomerID].Value = "1264" and each such textbox has its Locked property set to False. Later, in a function called from one of the command buttons' _Click() handlers, I attempt to do acForm![faaCustomerID].Locked = True and receive Run-time error 2166: You can't lock a control that has unsaved changes. Now from the help for the properties TextBox.Text, TextBox.Value, it seems that "unsaved changes" means that .Text <> .Value . That isn't true here, as far as I can tell, since nothing has acted to edit the control since I set its .Value property. What don't I understand here? How can I convince Access to let me lock these controls? thanks, Chris Jeris From artful at rogers.com Thu Aug 17 03:56:21 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 17 Aug 2006 01:56:21 -0700 (PDT) Subject: [AccessD] VBA Runtime Error In-Reply-To: <001701c6c17a$97e66ef0$153ce944@50NM721> Message-ID: <20060817085621.3785.qmail@web88212.mail.re2.yahoo.com> I don't know a soul on the MS development team, but my conclusion from the outside is that Access is regarded as a toy by those within (not its developers, those around and above them). The toy got uppity and developed a following (us), and Microsoft seniors didn't and still don't know what to do about it. So they go along, within limits, but to the extent that Access succeeds as a professional development platform, it undermines the much pricier products llike VS.NET. Of course, Access cannot do things such as install your app as a Windows service, and lots of other things too -- but this reinforces my point. I'm sure the Access dev team could supply this functionality, but they are not allowed to. A. ----- Original Message ---- From: William Hindman To: Access Developers discussion and problem solving Sent: Wednesday, August 16, 2006 5:26:09 PM Subject: Re: [AccessD] VBA Runtime Error ...I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ...but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ...I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ...sorta choked me up ...lost a diet coke all over the screen, I did. ...and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Thu Aug 17 04:06:51 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Thu, 17 Aug 2006 11:06:51 +0200 (CEST) Subject: [AccessD] OT - Checkbox on Visual Basic Datagrid Message-ID: <10258921.1155805611761.JavaMail.www@wwinf3004.me-wanadoo.net> To all, Have posted this here as don't seem to be getting any mail etc from the VB section....I have a bit column in SQL Server and a query on the data environment in VB6 which returns this and a few other columns. I put a datagrid onto a form set it to use this query and for the bit column I changed the format to checkbox. The problem is that when I open the form the bit column just says either 1 or 0 instead of a checked/unchecked checkbox as expected, has anyone come across this on VB6, if so can you point me in the right direction on how to show a column as a checkbox on a visual basic datagrid. Thanks in advance for any help on this. Paul Hartland From andy at minstersystems.co.uk Thu Aug 17 05:46:36 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Thu, 17 Aug 2006 10:46:36 +0000 Subject: [AccessD] VBA Runtime Error Message-ID: <20060817094639.2713627359B@smtp.nildram.co.uk> Chester I can only speak for A97 but if, in Tools Options, you go to Modules tab and tick 'Require Variable Declaration' then Option Explicit gets placed automagically into every new module. You'd be well advised to do this. -- Andy Lacey http://www.minstersystems.co.uk ----- Original Message ---- From: William Hindman To: Access Developers discussion and problem solving Sent: Wednesday, August 16, 2006 5:26:09 PM Subject: Re: [AccessD] VBA Runtime Error ....I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ....but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ....I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ....sorta choked me up ...lost a diet coke all over the screen, I did. ....and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > Marty Connelly > Victoria, B.C. > Canada > ________________________________________________ Message sent using UebiMiau 2.7.2 From accessd at shaw.ca Thu Aug 17 06:07:38 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 17 Aug 2006 04:07:38 -0700 Subject: [AccessD] VBA Runtime Error In-Reply-To: <20060817085621.3785.qmail@web88212.mail.re2.yahoo.com> Message-ID: <0J450052J2W1P3D0@l-daemon> ... Of course, Access cannot do things such as install your app as a Windows service.. ...but with an A2K managed VBS script it can; example: ' This code creates and starts the MyMonitor Perl service ' --------------------------------------------------------------- ' From the book "Windows Server Cookbook" by Robbie Allen ' Publisher: O'Reilly Media ' ISBN: 0-596-00633-0 ' Book web site: http://rallenhome.com/books/winsckbk/code.html ' --------------------------------------------------------------- ' ------ SCRIPT CONFIGURATION ------ strComputer = "." strSvcName = "MyMonitor" strSrvAnyPath = "c:\Windows Resource Kits\Tools\srvany.exe" strPerlPath = "c:\perl\bin\perl.exe" strPerlScript = "c:\scripts\monitor.pl" ' ------ END CONFIGURATION --------- const HKLM = &H80000002 ' Service Type Const KERNEL_DRIVER = 1 Const FS_DRIVER = 2 Const ADAPTER = 4 Const RECOGNIZER_DRIVER = 8 Const OWN_PROCESS = 16 Const SHARE_PROCESS = 32 Const INTERACTIVE_PROCESS = 256 INTERACT_WITH_DESKTOP = FALSE ' Error Control Const NOT_NOTIFIED = 0 Const USER_NOTIFIED = 1 Const SYSTEM_RESTARTED = 2 Const SYSTEM_STARTS = 3 set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") set objService = objWMI.Get("Win32_Service") intRC = objService.Create(strSvcName, _ strSvcName, _ strSrvAnyPath, _ OWN_PROCESS, _ NOT_NOTIFED, _ "Automatic", _ INTERACT_WITH_DESKTOP, _ "NT AUTHORITY\LocalService",_ "") if intRC > 0 then WScript.Echo "Error creating service: " & intRC WScript.Quit else WScript.Echo "Successfully created service" end if strKeyPath = "SYSTEM\CurrentControlSet\Services\" & _ strSvcName & "\Parameters" set objReg = GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") objReg.CreateKey HKLM,strKeyPath objReg.SetStringValue HKLM,strKeyPath,"Application",strPerlPath objReg.SetStringValue HKLM,strKeyPath,"AppParameters",strPerlScript WScript.Echo "Created registry values" set objService = objWMI.Get("Win32_Service.Name='" & strSvcName & "'") intRC = objService.StartService if intRC > 0 then WScript.Echo "Error starting service: " & intRC else WScript.Echo "Successfully started service" end if Just a comment. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 17, 2006 1:56 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Runtime Error I don't know a soul on the MS development team, but my conclusion from the outside is that Access is regarded as a toy by those within (not its developers, those around and above them). The toy got uppity and developed a following (us), and Microsoft seniors didn't and still don't know what to do about it. So they go along, within limits, but to the extent that Access succeeds as a professional development platform, it undermines the much pricier products llike VS.NET. Of course, Access cannot do things such as install your app as a Windows service, and lots of other things too -- but this reinforces my point. I'm sure the Access dev team could supply this functionality, but they are not allowed to. A. ----- Original Message ---- From: William Hindman To: Access Developers discussion and problem solving Sent: Wednesday, August 16, 2006 5:26:09 PM Subject: Re: [AccessD] VBA Runtime Error ...I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ...but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ...I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ...sorta choked me up ...lost a diet coke all over the screen, I did. ...and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rlavsa at tigg.com Thu Aug 17 07:53:01 2006 From: rlavsa at tigg.com (Richard Lavsa) Date: Thu, 17 Aug 2006 08:53:01 -0400 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: <001501c6c16e$8c229dc0$657aa8c0@m6805> Message-ID: Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich From darrend at nimble.com.au Thu Aug 17 08:18:54 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 17 Aug 2006 23:18:54 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060817131857.HUID2500.omta03sl.mx.bigpond.com@DENZILLAP> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Thu Aug 17 08:34:24 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 15:34:24 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From darrend at nimble.com.au Thu Aug 17 08:41:14 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 17 Aug 2006 23:41:14 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060817134117.IEAY2500.omta03sl.mx.bigpond.com@DENZILLAP> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Thu Aug 17 09:04:04 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 16:04:04 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From cjeris at fas.harvard.edu Thu Aug 17 09:49:27 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 10:49:27 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <006d01c6c181$418672b0$153ce944@50NM721> References: <44E3776D.2040109@fas.harvard.edu> <006d01c6c181$418672b0$153ce944@50NM721> Message-ID: <44E481F7.7070006@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 William Hindman wrote: > ...a textbox has two properties that can be confusing ..."text" is the > data currently in the control while "value" is the data last saved for > the control ...in an unbound form you have to save the text data for it > to become the value data ...you might try saving the data before locking > the text box ...hth. "Save" how? I never assign to the .Text property; I initialize the control by assigning to its .Value property. I tried writing acForm![faaCustomerID].Value = acForm![faaCustomerID].Text but got a different error: the .Text property cannot be read unless the control in question has the focus. As I don't want to flicker the input focus over a group of controls in succession, this is out too. Gustav Brock wrote: > This should be possible. You can even change the value of a locked > textbox via code. Something else must be going on. Are you sure the > form - not only the textboxes - is unbound? The form's .RecordSource property is blank; that makes the form unbound, right? peace, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5IH35ICCNV0oGWARApicAJ442hQ6kDdro9CJP2ERl+W+SodDKwCeNyoo pjCMD05brLe1V5E8xi3gvKw= =qv1Z -----END PGP SIGNATURE----- From iggy at nanaimo.ark.com Thu Aug 17 09:56:20 2006 From: iggy at nanaimo.ark.com (Tony Septav) Date: Thu, 17 Aug 2006 07:56:20 -0700 Subject: [AccessD] Saved Form will not release focus Message-ID: <44E48394.6070306@nanaimo.ark.com> Hey All This first occurred when I was updating an Access97 (mdb) application to Access2000 on my WINXP machine, but is now occurring in a different Access97 (mdb) application that I am updating in Access97 and which I copied from my old Windows 98 machine onto another (different) WINXP machine. If I go into design mode and edit a form and then save it, when I come back to the main database form I cannot use the scroll bar or select another form to edit/work on. If I click on either it opens the previous form I just saved. I have to basically select the query or report tab and then the form tab to be able to scroll or select another form. I can open forms in the design mode and simply close them and I am fine, no sticking. I thought it was just something flaky with Access2000, but it seems to have occurred on the Access97 (XP) application after I decompiled it. The old version does not have this problem. I have followed all the rules of decompling, creating a new MDB and coping over all components and checking for viruses. The weird thing is if I copy the problem Acess97 MDB to my WindowsNT machine it works fine no sticking. Also all my progress bars freeze after displaying 15 to 20 % of the total progress, I now have to use DoEvents to enable them to display the ongoing progress. Is there something specific that I need to be aware of when working in the WinXP environment??? Is there something I have unwittingly done or twittingly done, this has got me baffled. I also tried creating a new MDB and just copying only some of the forms over to it, sticking still occurs. From Gustav at cactus.dk Thu Aug 17 09:57:27 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 16:57:27 +0200 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: Hi Chris Yes. So something else is happening. /gustav >>> cjeris at fas.harvard.edu 17-08-2006 16:49:27 >>> The form's .RecordSource property is blank; that makes the form unbound, right? From cfoust at infostatsystems.com Thu Aug 17 09:59:36 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 07:59:36 -0700 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: Message-ID: The # signs are compiler conditional indicators. They tell the compiler to execute the If-End IF under specified conditions only. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 5:53 AM To: Access Developers discussion and problem solving Subject: [AccessD] Vberrorhandler download "trace logging code" Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Thu Aug 17 10:04:51 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 08:04:51 -0700 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E481F7.7070006@fas.harvard.edu> Message-ID: Only if you don't set the form's recordset or RecordSource property from code. And Text is a read only property of Access textboxes. It can only be read when the control has the focus. Otherwise, you have to use the Value property. What you're describing sounds a lot like what happens when a bound textbox has a change made in code to the underlying recordset and the user then tries to change the value from the UI and save the record. The two changes collide and Access complains mightily. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christopher Jeris Sent: Thursday, August 17, 2006 7:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Locking a textbox based on other form controls The form's .RecordSource property is blank; that makes the form unbound, right? peace, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5IH35ICCNV0oGWARApicAJ442hQ6kDdro9CJP2ERl+W+SodDKwCeNyoo pjCMD05brLe1V5E8xi3gvKw= =qv1Z -----END PGP SIGNATURE----- -- From cfoust at infostatsystems.com Thu Aug 17 10:09:05 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 08:09:05 -0700 Subject: [AccessD] Saved Form will not release focus In-Reply-To: <44E48394.6070306@nanaimo.ark.com> Message-ID: It isn't a WinXP issue exactly. At least I've never seen anything like that on any of the XP machines I've used, and I run 3 or more versions of Access on them. However, WinXP does have some pesky "sticky" settings that can present bizarre behavior. Open up the Accessibility Options in the Control Panel, go through all the tabs, and turn off all the "sticky" settings and see if that makes a difference. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tony Septav Sent: Thursday, August 17, 2006 7:56 AM To: accessd at databaseadvisors.com Subject: [AccessD] Saved Form will not release focus Hey All This first occurred when I was updating an Access97 (mdb) application to Access2000 on my WINXP machine, but is now occurring in a different Access97 (mdb) application that I am updating in Access97 and which I copied from my old Windows 98 machine onto another (different) WINXP machine. If I go into design mode and edit a form and then save it, when I come back to the main database form I cannot use the scroll bar or select another form to edit/work on. If I click on either it opens the previous form I just saved. I have to basically select the query or report tab and then the form tab to be able to scroll or select another form. I can open forms in the design mode and simply close them and I am fine, no sticking. I thought it was just something flaky with Access2000, but it seems to have occurred on the Access97 (XP) application after I decompiled it. The old version does not have this problem. I have followed all the rules of decompling, creating a new MDB and coping over all components and checking for viruses. The weird thing is if I copy the problem Acess97 MDB to my WindowsNT machine it works fine no sticking. Also all my progress bars freeze after displaying 15 to 20 % of the total progress, I now have to use DoEvents to enable them to display the ongoing progress. Is there something specific that I need to be aware of when working in the WinXP environment??? Is there something I have unwittingly done or twittingly done, this has got me baffled. I also tried creating a new MDB and just copying only some of the forms over to it, sticking still occurs. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cjeris at fas.harvard.edu Thu Aug 17 10:13:59 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 11:13:59 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: References: Message-ID: <44E487B7.1070107@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property from > code. And Text is a read only property of Access textboxes. It can > only be read when the control has the focus. Otherwise, you have to use > the Value property. What you're describing sounds a lot like what > happens when a bound textbox has a change made in code to the underlying > recordset and the user then tries to change the value from the UI and > save the record. The two changes collide and Access complains mightily. I can see that -- but every textbox in my form is unbound (in the Form Designer UI, the textbox displays 'Unbound' inside it, and the 'Control Source' property on the 'Data' tab is blank), the form itself is unbound, and the string 'RecordSource' does not appear anywhere in my VB code! If there's any place in my project where a form or control is bound to a recordset, I don't know how it got there or how to find it. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5Ie35ICCNV0oGWARAg0kAJ9kdSJ24ZoJL788ecwVyxLmeuaDaACghzQ1 max6AjzOIKi5WzPXxLQoDo0= =kHDS -----END PGP SIGNATURE----- From rlavsa at tigg.com Thu Aug 17 10:14:23 2006 From: rlavsa at tigg.com (Richard Lavsa) Date: Thu, 17 Aug 2006 11:14:23 -0400 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: Message-ID: Thanks, for the response.. Any way to tell what those specified conditions are? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, August 17, 2006 11:00 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Vberrorhandler download "trace logging code" The # signs are compiler conditional indicators. They tell the compiler to execute the If-End IF under specified conditions only. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 5:53 AM To: Access Developers discussion and problem solving Subject: [AccessD] Vberrorhandler download "trace logging code" Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 17 10:25:43 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 08:25:43 -0700 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: Message-ID: If they're preset in the database, you can open the project properties from the Tools menu in the VBE and look at the general tab. Conditional Compiler arguments are at the bottom of the dialog. However, if they're being passed in from outside or are intended to be. You can also declare compiler constants in code. They're prefaced with a # as well. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 8:14 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Vberrorhandler download "trace logging code" Thanks, for the response.. Any way to tell what those specified conditions are? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, August 17, 2006 11:00 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Vberrorhandler download "trace logging code" The # signs are compiler conditional indicators. They tell the compiler to execute the If-End IF under specified conditions only. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 5:53 AM To: Access Developers discussion and problem solving Subject: [AccessD] Vberrorhandler download "trace logging code" Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cjeris at fas.harvard.edu Thu Aug 17 10:40:19 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 11:40:19 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: References: Message-ID: <44E48DE3.208@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property from > code. And Text is a read only property of Access textboxes. It can > only be read when the control has the focus. Otherwise, you have to use > the Value property. What you're describing sounds a lot like what > happens when a bound textbox has a change made in code to the underlying > recordset and the user then tries to change the value from the UI and > save the record. The two changes collide and Access complains mightily. Okay, here's a minimal example that illustrates the problem. Create a blank form Form1 in Access XP. Add two controls to it: text-boxes Text0 and Text2. The entire content of the VB module Form_Form1 is as follows. Option Compare Database Option Explicit ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub Save this form and module. Open the form in Form View. Then click in Text2 and try to change the populated value. Run-time error '2166': You can't lock a control while it has unsaved changes. What unsaved changes? No value has ever been typed or set into Text0 for the entire lifetime of this database file! What am I missing here? thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5I3j5ICCNV0oGWARAiTLAJwIeLB25P4ShbNoj86qpEyYzoEBAACaAp4m 5l1fYQa2SPf+xL1njBiyn84= =9UY7 -----END PGP SIGNATURE----- From cjeris at fas.harvard.edu Thu Aug 17 10:42:52 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 11:42:52 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E48DE3.208@fas.harvard.edu> References: <44E48DE3.208@fas.harvard.edu> Message-ID: <44E48E7C.6030702@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Christopher Jeris wrote: > Save this form and module. Open the form in Form View. Then click in > Text2 and try to change the populated value. Sorry, 'populated' is a typo here -- Text2 is blank, as is Text0. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5I585ICCNV0oGWARAg90AJ9RsibSsY3/29CnyvLfljqZHOG+1ACdFh1D UFEg6mYGBxaG4rTlj8mbP30= =dZ1u -----END PGP SIGNATURE----- From iggy at nanaimo.ark.com Thu Aug 17 10:53:47 2006 From: iggy at nanaimo.ark.com (Tony Septav) Date: Thu, 17 Aug 2006 08:53:47 -0700 Subject: [AccessD] Saved Form will not release focus Message-ID: <44E4910B.6020507@nanaimo.ark.com> ThankYou Charlotte Open up the Accessibility Options in the Control Panel, go through all the tabs, and turn off all the "sticky" settings and see if that makes a difference. I checked as you advised and nothing was turned on. From cfoust at infostatsystems.com Thu Aug 17 11:09:38 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 09:09:38 -0700 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E48DE3.208@fas.harvard.edu> Message-ID: The Change event happens on every keystroke, including the first one. Type "a" and that's a change and you're trying to lock the control you just typed an "a" into without leaving the control and committing the value. That's what the message means. I think you want the afterupdate event of the control, not the change event. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christopher Jeris Sent: Thursday, August 17, 2006 8:40 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Locking a textbox based on other form controls -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property > from code. And Text is a read only property of Access textboxes. It > can only be read when the control has the focus. Otherwise, you have > to use the Value property. What you're describing sounds a lot like > what happens when a bound textbox has a change made in code to the > underlying recordset and the user then tries to change the value from > the UI and save the record. The two changes collide and Access complains mightily. Okay, here's a minimal example that illustrates the problem. Create a blank form Form1 in Access XP. Add two controls to it: text-boxes Text0 and Text2. The entire content of the VB module Form_Form1 is as follows. Option Compare Database Option Explicit ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub Save this form and module. Open the form in Form View. Then click in Text2 and try to change the populated value. Run-time error '2166': You can't lock a control while it has unsaved changes. What unsaved changes? No value has ever been typed or set into Text0 for the entire lifetime of this database file! What am I missing here? thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5I3j5ICCNV0oGWARAiTLAJwIeLB25P4ShbNoj86qpEyYzoEBAACaAp4m 5l1fYQa2SPf+xL1njBiyn84= =9UY7 -----END PGP SIGNATURE----- -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Thu Aug 17 11:11:25 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 18:11:25 +0200 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: Hi Chris Oh, this is completely different from what you originally told you were doing - clicking a button to set the locking ... Try to move your code from the Change to the AfterUpdate event of the textbox. /gustav >>> cjeris at fas.harvard.edu 17-08-2006 17:40:19 >>> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property from > code. And Text is a read only property of Access textboxes. It can > only be read when the control has the focus. Otherwise, you have to use > the Value property. What you're describing sounds a lot like what > happens when a bound textbox has a change made in code to the underlying > recordset and the user then tries to change the value from the UI and > save the record. The two changes collide and Access complains mightily. Okay, here's a minimal example that illustrates the problem. Create a blank form Form1 in Access XP. Add two controls to it: text-boxes Text0 and Text2. The entire content of the VB module Form_Form1 is as follows. Option Compare Database Option Explicit ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub Save this form and module. Open the form in Form View. Then click in Text2 and try to change the populated value. Run-time error '2166': You can't lock a control while it has unsaved changes. What unsaved changes? No value has ever been typed or set into Text0 for the entire lifetime of this database file! What am I missing here? thanks, Chris Jeris From cjeris at fas.harvard.edu Thu Aug 17 11:18:35 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 12:18:35 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: References: Message-ID: <44E496DB.5070309@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > The Change event happens on every keystroke, including the first one. > Type "a" and that's a change and you're trying to lock the control you > just typed an "a" into without leaving the control and committing the > value. That's what the message means. I think you want the afterupdate > event of the control, not the change event. But that's not what I wrote, and not the problem. If I were trying to lock Text2 when I typed into Text2, the message would make perfect sense. In fact, when I type into Text2, I'm trying to lock the OTHER box, Text0: ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub This is exactly why I'm so confused. When the complaint comes up, "You can't lock a control while it has unsaved changes", the control I'm trying to lock has _never_been_changed_. It's possible the AfterUpdate event is what I want, but I'd still like to figure out what's going on here. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5Jba5ICCNV0oGWARAjLeAJ0R+LbbUF7K+8n118rsUY1VNBZQlgCfQq9g yzPWdkBGLW6kdjygZXWFOMk= =+r0f -----END PGP SIGNATURE----- From cfoust at infostatsystems.com Thu Aug 17 11:27:38 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 09:27:38 -0700 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E496DB.5070309@fas.harvard.edu> Message-ID: OK, the message is misleading, but it still boils down to the same problem. You're in the middle of modifying a value in one control, so you can't go off and lock the other one. Some things HAVE to be done in afterupdate. I'll let someone else figure out the messy details of why it behaves this way. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christopher Jeris Sent: Thursday, August 17, 2006 9:19 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Locking a textbox based on other form controls -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > The Change event happens on every keystroke, including the first one. > Type "a" and that's a change and you're trying to lock the control you > just typed an "a" into without leaving the control and committing the > value. That's what the message means. I think you want the > afterupdate event of the control, not the change event. But that's not what I wrote, and not the problem. If I were trying to lock Text2 when I typed into Text2, the message would make perfect sense. In fact, when I type into Text2, I'm trying to lock the OTHER box, Text0: ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub This is exactly why I'm so confused. When the complaint comes up, "You can't lock a control while it has unsaved changes", the control I'm trying to lock has _never_been_changed_. It's possible the AfterUpdate event is what I want, but I'd still like to figure out what's going on here. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5Jba5ICCNV0oGWARAjLeAJ0R+LbbUF7K+8n118rsUY1VNBZQlgCfQq9g yzPWdkBGLW6kdjygZXWFOMk= =+r0f -----END PGP SIGNATURE----- -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dw-murphy at cox.net Thu Aug 17 19:01:52 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Thu, 17 Aug 2006 17:01:52 -0700 Subject: [AccessD] SQL Express upgrade to Developer In-Reply-To: Message-ID: <002b01c6c259$82b166e0$0200a8c0@murphy3234aaf1> Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug From dwaters at usinternet.com Thu Aug 17 19:13:18 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 17 Aug 2006 19:13:18 -0500 Subject: [AccessD] SQL Express upgrade to Developer In-Reply-To: <7205805.1155859720155.JavaMail.root@sniper38> Message-ID: <001201c6c25b$1c150570$0200a8c0@danwaters> Doug, There is a Management Studio GUI specifically for Express. There is also a version of BOL for Express too. These need to be downloaded separately from MS. There are other downloads too - such as the sample db Adventureworks. Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Thursday, August 17, 2006 7:02 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] SQL Express upgrade to Developer Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Thu Aug 17 20:49:54 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 18 Aug 2006 11:49:54 +1000 Subject: [AccessD] SQL Express upgrade to Developer References: <002b01c6c259$82b166e0$0200a8c0@murphy3234aaf1> Message-ID: <008e01c6c268$9c01f880$6501a8c0@office> Hi Doug - If I were you I wouldn't bother uninstalling the Express version - just install the developer version over the top and you will then have access to Management Studio which gives you the interface to the tools you need. I am by no means very experienced with this but this is what I have done on my main machine ands it works fine. I seem to recall having problems on my laptop having tried to uninstall the Express version....... Kath ----- Original Message ----- From: Doug Murphy To: 'Access Developers discussion and problem solving' Sent: Friday, August 18, 2006 10:01 AM Subject: [AccessD] SQL Express upgrade to Developer Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Fri Aug 18 01:58:47 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 18 Aug 2006 02:58:47 -0400 Subject: [AccessD] ...a new tool? References: <002b01c6c259$82b166e0$0200a8c0@murphy3234aaf1> <008e01c6c268$9c01f880$6501a8c0@office> Message-ID: <000301c6c293$c127f440$153ce944@50NM721> http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From Gustav at cactus.dk Fri Aug 18 04:26:57 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 18 Aug 2006 11:26:57 +0200 Subject: [AccessD] ...a new tool? Message-ID: Hi Willian Eh ...: Page not Found /gustav >>> wdhindman at dejpolsystems.com 18-08-2006 08:58:47 >>> http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From shamil at users.mns.ru Fri Aug 18 06:11:05 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Fri, 18 Aug 2006 15:11:05 +0400 Subject: [AccessD] OT:From Russia with love and Friday humor about Russians (sorry a little bit rude sometimes - do not show it to the kids.) Message-ID: <001a01c6c2b7$014f8470$6401a8c0@nant> Only in Russia * A guy drinks a glass of vodka going on appointment with a girl. * Run in the bus and then ask what the number of its route is. * Buses go with three various numbers of routes, and are always full. * The cop, selecting on the street a drunken man, will drink with him "for departure". * Laying 100 meters of a copper wire, 95 will be hand over and will be sold. * All the words having syllables 'hom', 'mood', 'gond' and 'ahoo', are considered ridiculous and abusive by definition. * Drink on Fridays so, that wake up only on Sunday in the evening. * The wife will rise on protection of the husband even if he fights with her lover. * The third question in conversation between people from different cities - about weather. * In shops on one shelf put a set of chocolates, eau du cologne and a toilet paper. * Compete with the neighbors by the amount of stuff stolen from workplace. * Nobody ever saw a Chuktcha alive, but all laugh at him. * Do not travel to Estonia because consider it's too ridiculous. * Each man knows how to put things in order in the country. * Each patient in the hospital has medical education. * The nurse in hospital always has a spirit. And with it is always possible to drink with her. * At any salute the crowd of people gathers and shouts Hurrah! * Hands wash after meal, instead of doing that before. * Man's socks should smell, otherwise these are female socks. * Casual drinking is a valid reason to not be at work the next day. * All secret military factories are known to all the population. * Steal vodka to sell and use all that money to spend on drinking vodka. * Everyone is capable to solve the troubles with any gangsters without the help of cops. * The word "kapetz" means good things and bad things simultaneously, and this word cannot be translated to any other language of the world. * Cactus is considered the best means from radiation. http://smsconsulting.spb.ru/humor/OnlyInRussia.htm -- Shamil From bheid at appdevgrp.com Fri Aug 18 07:42:50 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Fri, 18 Aug 2006 08:42:50 -0400 Subject: [AccessD] ...a new tool? In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0B13B@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357EB@ADGSERVER> Loaded fine for me. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 18, 2006 5:27 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] ...a new tool? Hi Willian Eh ...: Page not Found /gustav >>> wdhindman at dejpolsystems.com 18-08-2006 08:58:47 >>> http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From garykjos at gmail.com Fri Aug 18 07:43:35 2006 From: garykjos at gmail.com (Gary Kjos) Date: Fri, 18 Aug 2006 07:43:35 -0500 Subject: [AccessD] ...a new tool? In-Reply-To: References: Message-ID: The link worked fine for me. GK On 8/18/06, Gustav Brock wrote: > Hi Willian > > Eh ...: Page not Found > > /gustav > > >>> wdhindman at dejpolsystems.com 18-08-2006 08:58:47 >>> > http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp > > ...anyone have a better idea on how to do this? > > William > > -- > 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 bchacc at san.rr.com Fri Aug 18 08:41:40 2006 From: bchacc at san.rr.com (bchacc at san.rr.com) Date: Fri, 18 Aug 2006 09:41:40 -0400 Subject: [AccessD] ...a new tool? Message-ID: <380-220068518134140703@M2W003.mail2web.com> If the point of this is to save a couple of megabytes then I wouldn't do it at all. Otherwise, it seems that importing all the objects into an empty database by using 'select all' on each tab is a 1/2 minute process. So unless I'm missing something (quite likely) this is cool but kind of a bus man's holiday? Rocky Original Message: ----------------- From: William Hindman wdhindman at dejpolsystems.com Date: Fri, 18 Aug 2006 02:58:47 -0400 To: accessd at databaseadvisors.com Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -------------------------------------------------------------------- mail2web - Check your email from the web at http://mail2web.com/ . From dwaters at usinternet.com Fri Aug 18 09:20:52 2006 From: dwaters at usinternet.com (Dan Waters) Date: Fri, 18 Aug 2006 09:20:52 -0500 Subject: [AccessD] ...a new tool? In-Reply-To: <26796386.1155884624729.JavaMail.root@sniper23> Message-ID: <001a01c6c2d1$838458c0$0200a8c0@danwaters> This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From cfoust at infostatsystems.com Fri Aug 18 10:15:30 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 18 Aug 2006 08:15:30 -0700 Subject: [AccessD] ...a new tool? In-Reply-To: <000301c6c293$c127f440$153ce944@50NM721> Message-ID: I didn't understand why he would do this in the first place. If the objects are no longer required, delete them. He seems to have found a complicated way to do something that is easily done by creating a new database and importing all from the old one with the options set to include the relationships, menus and toolbars and IMEX specs. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman Sent: Thursday, August 17, 2006 11:59 PM To: Access Developers discussion and problem solving Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Fri Aug 18 10:17:17 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 18 Aug 2006 08:17:17 -0700 Subject: [AccessD] ...a new tool? In-Reply-To: <001a01c6c2d1$838458c0$0200a8c0@danwaters> Message-ID: We run our apps through a process, but it operates against a database that has already been compacted out of source safe and needs to have security set, links removed, and certain data in the tables cleared or set. I don't see much point in what he's doing. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Friday, August 18, 2006 7:21 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...a new tool? This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Fri Aug 18 10:46:10 2006 From: dwaters at usinternet.com (Dan Waters) Date: Fri, 18 Aug 2006 10:46:10 -0500 Subject: [AccessD] ...a new tool? In-Reply-To: <26970178.1155914876721.JavaMail.root@sniper19> Message-ID: <001b01c6c2dd$6de0fc60$0200a8c0@danwaters> If you have a number of extra steps that he couldn't have foreseen, then you're right - this isn't the tool for you. But, since you do have more steps, there is even more reason for you to have an automated method to prepare a database for release (computers are more reliable than people!). And, his source code is available, so could you add capability to his code and have a tool that works well in your environment? Dan Waters -----Original Message----- Subject: Re: [AccessD] ...a new tool? We run our apps through a process, but it operates against a database that has already been compacted out of source safe and needs to have security set, links removed, and certain data in the tables cleared or set. I don't see much point in what he's doing. Charlotte Foust -----Original Message----- Subject: Re: [AccessD] ...a new tool? This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From cfoust at infostatsystems.com Fri Aug 18 10:56:47 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 18 Aug 2006 08:56:47 -0700 Subject: [AccessD] ...a new tool? In-Reply-To: <001b01c6c2dd$6de0fc60$0200a8c0@danwaters> Message-ID: We already have a tool that works for us. However, we aren't trying to automate the things he seems to feel are important. We simply compact out a copy of our database and run it through a process to set its security, remove any linked tables, scrub and sanitize the thing, and get it ready to go out the door, including decompiling and recompiling it, compacting it, etc. I see no point in importing stuff into another database like that. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Friday, August 18, 2006 8:46 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...a new tool? If you have a number of extra steps that he couldn't have foreseen, then you're right - this isn't the tool for you. But, since you do have more steps, there is even more reason for you to have an automated method to prepare a database for release (computers are more reliable than people!). And, his source code is available, so could you add capability to his code and have a tool that works well in your environment? Dan Waters -----Original Message----- Subject: Re: [AccessD] ...a new tool? We run our apps through a process, but it operates against a database that has already been compacted out of source safe and needs to have security set, links removed, and certain data in the tables cleared or set. I don't see much point in what he's doing. Charlotte Foust -----Original Message----- Subject: Re: [AccessD] ...a new tool? This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dw-murphy at cox.net Fri Aug 18 11:40:46 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Fri, 18 Aug 2006 09:40:46 -0700 Subject: [AccessD] SQL Express upgrade to Developer In-Reply-To: <008e01c6c268$9c01f880$6501a8c0@office> Message-ID: <004901c6c2e5$0e0c3c20$0200a8c0@murphy3234aaf1> Thanks Kath, I seem to remember some negative experiences that folks on this list had when Express first came out. Think it had to do with interfering with older versions of SQL Server on the machine. Since this is a new machine I don't have that problem. I'll try your approach. I'll ghost the drive first just in case. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti Sent: Thursday, August 17, 2006 6:50 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Express upgrade to Developer Hi Doug - If I were you I wouldn't bother uninstalling the Express version - just install the developer version over the top and you will then have access to Management Studio which gives you the interface to the tools you need. I am by no means very experienced with this but this is what I have done on my main machine ands it works fine. I seem to recall having problems on my laptop having tried to uninstall the Express version....... Kath ----- Original Message ----- From: Doug Murphy To: 'Access Developers discussion and problem solving' Sent: Friday, August 18, 2006 10:01 AM Subject: [AccessD] SQL Express upgrade to Developer Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 dejpolsystems.com Fri Aug 18 12:24:29 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 18 Aug 2006 13:24:29 -0400 Subject: [AccessD] ...a new tool? References: Message-ID: <006f01c6c2eb$2a37f050$153ce944@50NM721> ...for those of us without such a tool ...or for those of us who prefer doing it with Access when we can, this appears to be a code set that can be customized to suit our individual needs and modified as need be ...its certainly not going to replace professional third party tools in every instance nor is it so intended. ...as for the export/import I don't track that ...I routinely do that to app versions I'm preparing for release to a client ...it may be overkill but it only takes one bad release to justify the extra step in my routine ...this simply provides code to automate that process along with a number of others that can be added. William ----- Original Message ----- From: "Charlotte Foust" To: "Access Developers discussion and problem solving" Sent: Friday, August 18, 2006 11:56 AM Subject: Re: [AccessD] ...a new tool? > We already have a tool that works for us. However, we aren't trying to > automate the things he seems to feel are important. We simply compact > out a copy of our database and run it through a process to set its > security, remove any linked tables, scrub and sanitize the thing, and > get it ready to go out the door, including decompiling and recompiling > it, compacting it, etc. I see no point in importing stuff into another > database like that. > > Charlotte Foust > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters > Sent: Friday, August 18, 2006 8:46 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...a new tool? > > If you have a number of extra steps that he couldn't have foreseen, then > you're right - this isn't the tool for you. > > But, since you do have more steps, there is even more reason for you to > have an automated method to prepare a database for release (computers > are more reliable than people!). And, his source code is available, so > could you add capability to his code and have a tool that works well in > your environment? > > Dan Waters > > > -----Original Message----- > Subject: Re: [AccessD] ...a new tool? > > We run our apps through a process, but it operates against a database > that has already been compacted out of source safe and needs to have > security set, links removed, and certain data in the tables cleared or > set. I don't see much point in what he's doing. > > Charlotte Foust > > -----Original Message----- > Subject: Re: [AccessD] ...a new tool? > > This looks like a tool that would introduce a consistent mechanism for > preparing to release a database. Looks good - I'll try it. > > Dan Waters > > -----Original Message----- > Subject: [AccessD] ...a new tool? > > http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp > > ...anyone have a better idea on how to do this? > > 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 markamatte at hotmail.com Fri Aug 18 12:56:24 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 18 Aug 2006 17:56:24 +0000 Subject: [AccessD] (no subject) In-Reply-To: <006f01c6c2eb$2a37f050$153ce944@50NM721> Message-ID: Hello All, I have a scenario where I get a feed of data...from theis letter I print letters and postcards. I have the logic that tells what phone numbers/text needs to change for each letter type. All of the letters were formatted in word. I was planning on recreating the word docs as reports in a db. Is this the best approach...or is there a better approach using 'mail merge' or something like that? Thanks, Mark A. Matte P.S...With either approach...the end product will just be a button that prints all reports and postcards. From markamatte at hotmail.com Fri Aug 18 12:56:44 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 18 Aug 2006 17:56:44 +0000 Subject: [AccessD] db reports or mail merge? In-Reply-To: <006f01c6c2eb$2a37f050$153ce944@50NM721> Message-ID: Hello All, I have a scenario where I get a feed of data...from theis letter I print letters and postcards. I have the logic that tells what phone numbers/text needs to change for each letter type. All of the letters were formatted in word. I was planning on recreating the word docs as reports in a db. Is this the best approach...or is there a better approach using 'mail merge' or something like that? Thanks, Mark A. Matte P.S...With either approach...the end product will just be a button that prints all reports and postcards. From eric.starkenburg at home.nl Fri Aug 18 13:47:04 2006 From: eric.starkenburg at home.nl (Eric Starkenburg) Date: Fri, 18 Aug 2006 20:47:04 +0200 Subject: [AccessD] db reports or mail merge? In-Reply-To: Message-ID: <000001c6c2f6$b2baae80$0201a8c0@PC1> Hi Mark, In my opinion you should stick with the letters which are already there and use a mailmerge. It's easier to maintain by others that just the programmer and in Word you have far more letter options than in an Access report. Good luck:) Eric Starkenburg -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte Sent: Friday, August 18, 2006 7:57 PM To: accessd at databaseadvisors.com Subject: [AccessD] db reports or mail merge? Hello All, I have a scenario where I get a feed of data...from theis letter I print letters and postcards. I have the logic that tells what phone numbers/text needs to change for each letter type. All of the letters were formatted in word. I was planning on recreating the word docs as reports in a db. Is this the best approach...or is there a better approach using 'mail merge' or something like that? Thanks, Mark A. Matte P.S...With either approach...the end product will just be a button that prints all reports and postcards. -- 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): 0633-4, 18-08-2006 Getest op: 18-08-2006 20:47:04 uur avast! auteursrecht (c) 1988-2006 ALWIL Software. http://www.avast.com From martyconnelly at shaw.ca Fri Aug 18 14:06:12 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Fri, 18 Aug 2006 12:06:12 -0700 Subject: [AccessD] db reports or mail merge? In-Reply-To: <000001c6c2f6$b2baae80$0201a8c0@PC1> References: <000001c6c2f6$b2baae80$0201a8c0@PC1> Message-ID: <44E60FA4.3080208@shaw.ca> There are some examples here of driving word mail merge from access http://www.helenfeddema.com/CodeSamples.htm http://www.helenfeddema.com/access.htm Eric Starkenburg wrote: >Hi Mark, > >In my opinion you should stick with the letters which are already there and >use a mailmerge. It's easier to maintain by others that just the programmer >and in Word you have far more letter options than in an Access report. > > >Good luck:) >Eric Starkenburg > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte >Sent: Friday, August 18, 2006 7:57 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] db reports or mail merge? > >Hello All, > >I have a scenario where I get a feed of data...from theis letter I print >letters and postcards. I have the logic that tells what phone numbers/text >needs to change for each letter type. All of the letters were formatted in >word. I was planning on recreating the word docs as reports in a db. > >Is this the best approach...or is there a better approach using 'mail merge' > >or something like that? > >Thanks, > >Mark A. Matte > >P.S...With either approach...the end product will just be a button that >prints all reports and postcards. > > > > -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Fri Aug 18 19:04:43 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 18 Aug 2006 20:04:43 -0400 Subject: [AccessD] db reports or mail merge? References: <000001c6c2f6$b2baae80$0201a8c0@PC1> <44E60FA4.3080208@shaw.ca> Message-ID: <001701c6c323$13cc0fd0$153ce944@50NM721> ...our own Bryan has some really good word/access stuff here http://www3.sympatico.ca/carbonnb/bryan/index.html (check out his treeview switchboard as well) ...and this is also a fount of word and mail merge resources http://word.mvps.org/ William ----- Original Message ----- From: "MartyConnelly" To: "Access Developers discussion and problem solving" Sent: Friday, August 18, 2006 3:06 PM Subject: Re: [AccessD] db reports or mail merge? > There are some examples here of driving word mail merge from access > http://www.helenfeddema.com/CodeSamples.htm > http://www.helenfeddema.com/access.htm > > Eric Starkenburg wrote: > >>Hi Mark, >> >>In my opinion you should stick with the letters which are already there >>and >>use a mailmerge. It's easier to maintain by others that just the >>programmer >>and in Word you have far more letter options than in an Access report. >> >> >>Good luck:) >>Eric Starkenburg >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte >>Sent: Friday, August 18, 2006 7:57 PM >>To: accessd at databaseadvisors.com >>Subject: [AccessD] db reports or mail merge? >> >>Hello All, >> >>I have a scenario where I get a feed of data...from theis letter I print >>letters and postcards. I have the logic that tells what phone >>numbers/text >>needs to change for each letter type. All of the letters were formatted >>in >>word. I was planning on recreating the word docs as reports in a db. >> >>Is this the best approach...or is there a better approach using 'mail >>merge' >> >>or something like that? >> >>Thanks, >> >>Mark A. Matte >> >>P.S...With either approach...the end product will just be a button that >>prints all reports and postcards. >> >> >> >> > > -- > 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 wdhindman at dejpolsystems.com Sat Aug 19 01:02:44 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sat, 19 Aug 2006 02:02:44 -0400 Subject: [AccessD] US Zip Codes with long/lat, time zones, and dst References: <000001c6c2f6$b2baae80$0201a8c0@PC1> <44E60FA4.3080208@shaw.ca> <001701c6c323$13cc0fd0$153ce944@50NM721> Message-ID: <000301c6c355$174915e0$153ce944@50NM721> http://civicspacelabs.org/home/developers/download ...is in csv format down in the middle of the page. ...not as current (2004) as commercial sources but its free and a compare with an Aug 2006 commercial source shows <1% differences ...except in Indiana which switched to dst this year. ...much more current than the free Access mdb that is found on a few sies. William From carbonnb at gmail.com Sat Aug 19 13:46:49 2006 From: carbonnb at gmail.com (Bryan Carbonnell) Date: Sat, 19 Aug 2006 14:46:49 -0400 Subject: [AccessD] db reports or mail merge? In-Reply-To: <001701c6c323$13cc0fd0$153ce944@50NM721> References: <000001c6c2f6$b2baae80$0201a8c0@PC1> <44E60FA4.3080208@shaw.ca> <001701c6c323$13cc0fd0$153ce944@50NM721> Message-ID: On 8/18/06, William Hindman wrote: > ...our own Bryan has some really good word/access stuff here > http://www3.sympatico.ca/carbonnb/bryan/index.html > (check out his treeview switchboard as well) Well, since William brought it up, have a look at the articles I wrote for DBA's Many-To-Many e-zine quite a while ago about putting data into Word: http://www.databaseadvisors.com/newsletters/newsletter072002.htm One of the things I don't like about mail merge (and have never looked hard enough at seeing if it's something I'm missing) is that if you do a merge and want electronic docs at the end, you get one big long doc with all the merged data in it. The data is separate for each record, but all 5 reports are in 1 big doc. Like I said, it may be a case of me not looking hard enough for the setting. -- 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 EdTesiny at oasas.state.ny.us Mon Aug 21 10:01:52 2006 From: EdTesiny at oasas.state.ny.us (Tesiny, Ed) Date: Mon, 21 Aug 2006 11:01:52 -0400 Subject: [AccessD] FYI - Access Reports & Printers Message-ID: Hi All, I'm posting this as an FYI and hopefully will keep someone else from having a very bad day. I have a fairly large Access database that I use on a regular basis. On Friday afternoon, doesn't it always happen late Friday afternoon...I tried to edit a report but I couldn't access the report, couldn't run it, couldn't view it in design mode, nothing. All the tables, queries and forms were accessible, data was there and you could go into design mode. Tried all the usual fixes, compact and repair, reboot, create a new database and import all the objects, etc., still nothing, reports were not accessible. Copied the database to a shared network drive and two colleagues could run the reports and view them in design mode. I sent this info to the OT list and Gary Kjos kindly responded asking if I had changed my default printer. Well I didn't "change" my default printer BUT MIS replaced my default printer with a newer model but kept the same network name. I deleted my default printer and then added it again, walla all my reports work again. Hopefully this might save someone a headache in the future. Regards, Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us From accessd at shaw.ca Mon Aug 21 11:18:19 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Mon, 21 Aug 2006 09:18:19 -0700 Subject: [AccessD] FYI - Access Reports & Printers In-Reply-To: Message-ID: <0J4C00D59VXB6KG0@l-daemon> Thanks for the FYI blurb... Have been there, done it and in my case, took about a week to discover the reason. This will definitely help someone in the future. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tesiny, Ed Sent: Monday, August 21, 2006 8:02 AM To: Access Developers discussion and problem solving Subject: [AccessD] FYI - Access Reports & Printers Hi All, I'm posting this as an FYI and hopefully will keep someone else from having a very bad day. I have a fairly large Access database that I use on a regular basis. On Friday afternoon, doesn't it always happen late Friday afternoon...I tried to edit a report but I couldn't access the report, couldn't run it, couldn't view it in design mode, nothing. All the tables, queries and forms were accessible, data was there and you could go into design mode. Tried all the usual fixes, compact and repair, reboot, create a new database and import all the objects, etc., still nothing, reports were not accessible. Copied the database to a shared network drive and two colleagues could run the reports and view them in design mode. I sent this info to the OT list and Gary Kjos kindly responded asking if I had changed my default printer. Well I didn't "change" my default printer BUT MIS replaced my default printer with a newer model but kept the same network name. I deleted my default printer and then added it again, walla all my reports work again. Hopefully this might save someone a headache in the future. Regards, Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From askolits at ot.com Mon Aug 21 14:46:16 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 15:46:16 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <0J4C00D59VXB6KG0@l-daemon> Message-ID: <004d01c6c55a$7baf1c80$6701a8c0@LaptopXP> I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John From dwaters at usinternet.com Mon Aug 21 14:58:17 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 14:58:17 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <23763101.1156190046310.JavaMail.root@sniper23> Message-ID: <002001c6c55c$25c68c70$0200a8c0@danwaters> John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John From askolits at ot.com Mon Aug 21 15:17:59 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 16:17:59 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002001c6c55c$25c68c70$0200a8c0@danwaters> Message-ID: <000201c6c55e$e8ddde50$800101df@officexp> Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Mon Aug 21 15:34:51 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 15:34:51 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <1377707.1156191718579.JavaMail.root@sniper16> Message-ID: <002401c6c561$41257030$0200a8c0@danwaters> It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From askolits at ot.com Mon Aug 21 15:51:19 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 16:51:19 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002401c6c561$41257030$0200a8c0@danwaters> Message-ID: <000501c6c563$9093d740$800101df@officexp> Boy, I kind of feel it's dangerous not to be more explicit when identifying a particular control. I've been using access since it's birth and hardly see any code examples that don't include some type of identifier. Am I losing it or something. Anyone else have any input? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 4:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Erwin.Craps at ithelps.be Mon Aug 21 16:44:09 2006 From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps) Date: Mon, 21 Aug 2006 23:44:09 +0200 Subject: [AccessD] Bang and Dot operator in Runtimes. Message-ID: When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Mon Aug 21 17:02:55 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 17:02:55 -0500 Subject: [AccessD] Pretty Code - An Alternate? Message-ID: <002501c6c56d$8f07d480$0200a8c0@danwaters> I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan From dwaters at usinternet.com Mon Aug 21 17:28:16 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 17:28:16 -0500 Subject: [AccessD] Programmatically Capturing Form (and Report?) Screens With SnagIt Message-ID: <002601c6c571$19b77e70$0200a8c0@danwaters> Just FYI - On this page: http://www.igetit.net/SampleCode/snagit_vba_code.asp a code listing is given which programmatically goes through all the forms in an Access database and captures images of them using VBA methods and properties of SnagIt. Could be speedy! Dan From dmcafee at pacbell.net Mon Aug 21 18:46:37 2006 From: dmcafee at pacbell.net (David Mcafee) Date: Mon, 21 Aug 2006 16:46:37 -0700 (PDT) Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <002501c6c56d$8f07d480$0200a8c0@danwaters> Message-ID: <20060821234637.16285.qmail@web80830.mail.yahoo.com> I once wrote a macro in word called colorVBA. I simply pasted the code into word and ran the macro. The macro (I cant find it at the moment) simply looked for certain keywords and colored them blue. If it found an apostrophe, it colored the rest of the line green. It wasn't pretty, but it was free :) I still don't know after years and years or programming, why MS doesnt allow a print code (in color) option. David ----- Original Message ---- From: Dan Waters To: Access Developers discussion and problem solving Sent: Monday, August 21, 2006 3:02:55 PM Subject: [AccessD] Pretty Code - An Alternate? I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Mon Aug 21 18:54:17 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 18:54:17 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <21623074.1156204222470.JavaMail.root@sniper18> Message-ID: <000301c6c57d$1e162730$0200a8c0@danwaters> Yea - sometimes MS is pretty stingy. Maybe it'll be in Office 2007. Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I once wrote a macro in word called colorVBA. I simply pasted the code into word and ran the macro. The macro (I cant find it at the moment) simply looked for certain keywords and colored them blue. If it found an apostrophe, it colored the rest of the line green. It wasn't pretty, but it was free :) I still don't know after years and years or programming, why MS doesnt allow a print code (in color) option. David ----- Original Message ---- Subject: [AccessD] Pretty Code - An Alternate? I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan From darrend at nimble.com.au Mon Aug 21 18:55:25 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 22 Aug 2006 09:55:25 +1000 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <002501c6c56d$8f07d480$0200a8c0@danwaters> Message-ID: <20060821235528.ADC6498.omta03ps.mx.bigpond.com@DENZILLAP> Crimson editor - it's free and loves SQL http://www.crimsoneditor.com/ Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, 22 August 2006 8:03 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Pretty Code - An Alternate? I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan -- 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 Aug 21 19:30:39 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Tue, 22 Aug 2006 10:30:39 +1000 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <20060821235528.ADC6498.omta03ps.mx.bigpond.com@DENZILLAP> References: <002501c6c56d$8f07d480$0200a8c0@danwaters>, <20060821235528.ADC6498.omta03ps.mx.bigpond.com@DENZILLAP> Message-ID: <44EADCCF.25873.69AB73@stuart.lexacorp.com.pg> On 22 Aug 2006 at 9:55, Darren DICK wrote: > Crimson editor - it's free and loves SQL > > http://www.crimsoneditor.com/ > I second that. I used to use Notetab for everything, but started using CE as my editor for AutoIt a couple of years ago. I found myself using CE more and more and Notetab less and less and now use it almost exclusively for text editing. -- Stuart McLachlan From askolits at ot.com Mon Aug 21 21:09:22 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 22:09:22 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: Message-ID: <001001c6c58f$fc5e46f0$6701a8c0@LaptopXP> Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 22 00:42:51 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 21 Aug 2006 22:42:51 -0700 Subject: [AccessD] [Fwd: Word XP and access] Message-ID: <44EA995B.50409@san.rr.com> Dear List: My client writes: I have a template that has mail merge codes in it. I have a one-table Access mdb to which the template is linked. My regular access program empties and reloads the single table in the one-table mdb. Then my regular Access program opens the template and saves it to a predetermined .doc file... The only problem is when the template is being opened, I get a MS Word message that says: "Opening this document will run the following SQL command. Etc. Question: How do I prevent that screen warning? Anybody know the answer? MTIA, Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From adtp at hotmail.com Tue Aug 22 01:47:16 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Tue, 22 Aug 2006 12:17:16 +0530 Subject: [AccessD] Bang and Dot operator in Runtimes. References: <001001c6c58f$fc5e46f0$6701a8c0@LaptopXP> Message-ID: John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John From artful at rogers.com Tue Aug 22 03:36:56 2006 From: artful at rogers.com (artful at rogers.com) Date: Tue, 22 Aug 2006 01:36:56 -0700 (PDT) Subject: [AccessD] Save datasheet layout In-Reply-To: <20060817085621.3785.qmail@web88212.mail.re2.yahoo.com> Message-ID: <20060822083656.52946.qmail@web88205.mail.re2.yahoo.com> Ever wanted to save a datasheet layout in an MDE? This code shows how: http://www.databasejournal.com/features/msaccess/article.php/3627056. Arthur From accessd at shaw.ca Tue Aug 22 03:39:24 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 22 Aug 2006 01:39:24 -0700 Subject: [AccessD] Filling a multi column combo box In-Reply-To: Message-ID: <0J4E00ERH5CD0990@l-daemon> Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA Jim From Robin at rolledgold.net Tue Aug 22 04:03:08 2006 From: Robin at rolledgold.net (Robin ) Date: Tue, 22 Aug 2006 10:03:08 +0100 Subject: [AccessD] Filling a multi column combo box Message-ID: <560E2B80EC8F624B93A87B943B7A9CD54242F1@rgiserv.rg.local> Jim, Put the text values (separated by semicolons) in the row source property in form design and set the row source type to value list.... Rgds Robin -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: 22 August 2006 09:39 To: 'Access Developers discussion and problem solving' Subject: [AccessD] Filling a multi column combo box Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA Jim -- 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 Aug 22 05:45:24 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Tue, 22 Aug 2006 10:45:24 +0000 Subject: [AccessD] Filling a multi column combo box Message-ID: <20060822094527.827D82742D9@smtp.nildram.co.uk> Jim Do you mean juts putting in a Value list? If so it's just a list of entried separated by semi-colons (or can be commas). The Number Of Columns property determines which fall in the same row and which in the next. So: Fred;Smith;Annie;Oakley with a Number Of columns of 1 will get you Fred Smith Annie Oakley but with Number Of Columns set to 2 will give you Fred Smith Annie Oakley Is that what you meant? HTH Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "'Access Developers discussion and problem solving'" Subject: [AccessD] Filling a multi column combo box Date: 22/08/06 08:40 Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA 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 wdhindman at dejpolsystems.com Tue Aug 22 05:34:35 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Tue, 22 Aug 2006 06:34:35 -0400 Subject: [AccessD] [Fwd: Word XP and access] References: <44EA995B.50409@san.rr.com> Message-ID: <000901c6c5d6$90a232e0$153ce944@50NM721> ...try something like Application.DisplayAlerts = wdAlertsNone Documents.Open FileName:="c:\my documents\testmerg.doc" Application.DisplayAlerts = wdAlertsAll ...hth William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Tuesday, August 22, 2006 1:42 AM Subject: [AccessD] [Fwd: Word XP and access] > Dear List: > > My client writes: > > I have a template that has mail merge codes in it. I have a one-table > Access mdb to which the template is linked. My regular access program > empties and reloads the single table in the one-table mdb. > > Then my regular Access program opens the template and saves it to a > predetermined .doc file... The only problem is when the template is > being opened, I get a MS Word message that says: "Opening this document > will run the following SQL command. Etc. > > Question: How do I prevent that screen warning? > > Anybody know the answer? > > MTIA, > > 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 Gustav at cactus.dk Tue Aug 22 08:11:24 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 15:11:24 +0200 Subject: [AccessD] DB2 and Ruby on Rails (was: Data interface The best way) Message-ID: Hi Shamil, Ken et al Just noticed this link to a free Starter Toolkit for DB2 on Rails: http://alphaworks.ibm.com/tech/db2onrails Starter Toolkit for DB2? on Rails is a conveniently-packaged set of products and technologies that enables the quick creation of a configuration for building DB2 Web applications using Ruby on Rails technology. Also note the free DB2 Express-C database engine: http://www-306.ibm.com/software/data/db2/udb/db2express/download.html /gustav >>> shamil at users.mns.ru 20-10-2005 00:02:47 >>> <<< Ruby on Rails is the prime example. >>> Ken, Believe or not but just yesterday I have bookmarked Ruby's main Web site: http://www.ruby-lang.org/en/ for investigations when (if ever) I will have free time. Yes, I have heard about Ruby or Rails and I also plan to give it a try. Ruby looks like being the most advanced modern OO language - it has amazing things like modifying class definition on-the-fly so it may happen a running application will have object instances of the same class with different call interfaces. I still to realize for what real-life applications such flexibility is needed... > Model-View-Controller model. Ruby on Rails is the prime example. Well, MS Avalon(Windows Presentation Foundation) has this model as one of its key concepts. And my own rather naive that times (1998) but so true as far as I see now VBA/VB6-programming concept I called "DEEP-object concept" (http://www.smsconsulting.spb.ru/shamil_s/articles/deepcnpt.htm) was partially about Model-View-Controller model partially about what is called "low coupling" and "high cohesion" OOP concepts and related stuff.(I wasn't aware about that concepts that times, stupid me) It was developed later into several proprietary commercial frameworks - so it was never published. (Well, I did give it a try to develop open source very advanced VBA framework using MS Access 2000 summer 1999 but because it was a programming on the edge and because MS Access 97/2000 have "termination bug", which didn't have stable workaround it didn't work and I deleted/lost all the code I developed that times. Stupid me again. In MS Access XP/2003 the "termination bug" was finally fixed.) Well known here in AccessD VBA framework based on these concepts is John Colby's framework of course. > Since I have far from a deep understanding of MVC IMO it would have better called Model View Dispatcher model (or Model Dispatcher View). Or I don't understand English well to feel all the nuances or certain words - for me Controller is something that controls and Dispatcher is something that dispatches - and dispatching IMO implies no strict control at all and less coupling between Model and View. And in MVC model Controller's role is just to dispatch messages (calls) from View to Model or callbacks(events) from Model to View(s) - it doesn't control anything... Thank you for the links on Django and TurboGears but it looks like I will have time for them "in my next life only"... Shamil ----- Original Message ----- From: "Ken Ismert" To: "Access Developers discussion and problem solving" Sent: Wednesday, October 19, 2005 11:26 PM Subject: Re: [AccessD] Data interface The best way > > Shamil, > > >As for "an object design down to the lowest level" - > >this is still questionable here how it should be done - > >and it's getting the more questionable what this design > >should be the more I'm getting into the modern methods > >of OOP&D... > > Theoretical questions aside, the notable object-data systems doing > useful things now are the open-source web frameworks using the > Model-View-Controller model. Ruby on Rails is the prime example. > > Since I have far from a deep understanding of MVC, I will just point out > that the data objects are modeled in code, and changes in the data > objects are reflected to the table structure of the underlying database. > > > One challenge that future OO DBMS projects will have is equalling or > bettering the ease-of-use of these MVC frameworks. One thing is certain: > they'll never beat the price. > > Ruby on Rails > http://www.rubyonrails.org/ > > Django > http://www.djangoproject.com/ > > TurboGears > http://www.turbogears.org/ > > Ruby on Rails > Model-View-Controller Article > http://en.wikipedia.org/wiki/Ruby_On_Rails > > -Ken From jwcolby at colbyconsulting.com Tue Aug 22 08:22:37 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 09:22:37 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: Message-ID: <003801c6c5ee$0a7cd7c0$657aa8c0@m6805> In addition to this, you should understand the concepts. Starting (I believe) in Access97, Microsoft started trying to steer developers into a consistent usage of the Dot ( . ) and Bang ( ! ) operators. For backwards compatibility they left the ability to use either, but the DOT operator refers to PROPERTIES, throughout the language. You never see (for example) MyCombo!Value, and in fact that probably wouldn't even work. The PROPERTY Value is referred to using the DOT operator - MyCombo.Value. The BANG operator ( ! ) refers to OBJECTS, MyForm!MyTextBox (for example), where MyForm is an object (a form object) and MyTextBox is an object (a text box object). So the syntactically correct usage is MyForm!MyControl.SomeProperty, where SomeProperty is a property of the OBJECT MyControl contained in the (default) controls collection of the MyForm object. Notice that the same sequence is used recordsets (for example) MyRecordset!MyField[.SomeProperty] MyRecordset is an object. MyField is also AN OBJECT, it is a field object in the DAO (or ADO for that matter) programming syntax. You would then use it in a statement: MyRecordset!MyField = "Test" OR MyRecordset!MyField.Value = "Test" You may succeed in mixing them (bang and dot) up and still get the program to work, but it is only because VBA attempts to "guess" what you mean, and succeeds most of the time. It is those times when it fails that you get seemingly unexplainable results. It is our responsibility to use explicit syntax to TELL VBA what we mean, avoiding the guesswork. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of A.D.TEJPAL Sent: Tuesday, August 22, 2006 2:47 AM To: Access Developers discussion and problem solving Cc: ADT Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Tue Aug 22 08:39:43 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 08:39:43 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <28059409.1156253115983.JavaMail.root@sniper40> Message-ID: <000a01c6c5f0$6d62c410$0200a8c0@danwaters> Hello John, I do understand the difference between ! and . and how to use them. But on a form when all I want to do is set the value of a control on a bound form, what is wrong with just: txtPerson = "Dan Waters" A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. In addition to this, you should understand the concepts. Starting (I believe) in Access97, Microsoft started trying to steer developers into a consistent usage of the Dot ( . ) and Bang ( ! ) operators. For backwards compatibility they left the ability to use either, but the DOT operator refers to PROPERTIES, throughout the language. You never see (for example) MyCombo!Value, and in fact that probably wouldn't even work. The PROPERTY Value is referred to using the DOT operator - MyCombo.Value. The BANG operator ( ! ) refers to OBJECTS, MyForm!MyTextBox (for example), where MyForm is an object (a form object) and MyTextBox is an object (a text box object). So the syntactically correct usage is MyForm!MyControl.SomeProperty, where SomeProperty is a property of the OBJECT MyControl contained in the (default) controls collection of the MyForm object. Notice that the same sequence is used recordsets (for example) MyRecordset!MyField[.SomeProperty] MyRecordset is an object. MyField is also AN OBJECT, it is a field object in the DAO (or ADO for that matter) programming syntax. You would then use it in a statement: MyRecordset!MyField = "Test" OR MyRecordset!MyField.Value = "Test" You may succeed in mixing them (bang and dot) up and still get the program to work, but it is only because VBA attempts to "guess" what you mean, and succeeds most of the time. It is those times when it fails that you get seemingly unexplainable results. It is our responsibility to use explicit syntax to TELL VBA what we mean, avoiding the guesswork. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- From reuben at gfconsultants.com Tue Aug 22 08:39:16 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Tue, 22 Aug 2006 09:39:16 -0400 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <002501c6c56d$8f07d480$0200a8c0@danwaters> Message-ID: I use VBA Code Print from this company http://www.starprint2000.com/ 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: Monday, August 21, 2006 6:03 PM > To: 'Access Developers discussion and problem solving' > Subject: [AccessD] Pretty Code - An Alternate? > > > I would like to print out code that is colored and more useful > that what can > be done from the VBA IDE. Pretty Code for VBA looks great, but it's price > at $89 is not. > > Does anyone have an alternate recommendation? > > Thanks! > > Dan > > -- > 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 Tue Aug 22 08:46:57 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 09:46:57 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4C@EXCNYSM0A1AI.nysemail.nyenet> Hi all Is there a way to set the ODBC timeout default in the query properties from 60 to 6000 permanently? Most of our work is against our ORACLE databases, some Foxpro, and SqlServer. For every new query we do we have to remember to reset this before running otherwise we get a timeout. Does not matter how easy or hard the query is, If it isn't at least 600 then poof it stops. One person said that it would cause their MDB to corrupt but I haven't had that problem. The OPTIONS ADVANCED does not do this. I have looked almost everywhere but can't find out how to change the default. This would be for 2k or 2k3. Any help appreciated Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 bchacc at san.rr.com Tue Aug 22 08:49:00 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 22 Aug 2006 06:49:00 -0700 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <000901c6c5d6$90a232e0$153ce944@50NM721> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> Message-ID: <44EB0B4C.3030003@san.rr.com> Look right to me (what do I know?). I'll forward to the client and let him test it. T&R Rocky William Hindman wrote: > ...try something like > > Application.DisplayAlerts = wdAlertsNone > Documents.Open FileName:="c:\my documents\testmerg.doc" > Application.DisplayAlerts = wdAlertsAll > > ...hth > > William > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Tuesday, August 22, 2006 1:42 AM > Subject: [AccessD] [Fwd: Word XP and access] > > > >> Dear List: >> >> My client writes: >> >> I have a template that has mail merge codes in it. I have a one-table >> Access mdb to which the template is linked. My regular access program >> empties and reloads the single table in the one-table mdb. >> >> Then my regular Access program opens the template and saves it to a >> predetermined .doc file... The only problem is when the template is >> being opened, I get a MS Word message that says: "Opening this document >> will run the following SQL command. Etc. >> >> Question: How do I prevent that screen warning? >> >> Anybody know the answer? >> >> MTIA, >> >> 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 >> >> > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From ssharkins at setel.com Tue Aug 22 08:59:10 2006 From: ssharkins at setel.com (Susan Harkins) Date: Tue, 22 Aug 2006 09:59:10 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <000a01c6c5f0$6d62c410$0200a8c0@danwaters> Message-ID: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> Me isn't required anymore. You're right. Some people still use it out of habit, for backward compatibility, and for self-documentation purposes although I'm not sure I really get the latter point. Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Susan H. A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? From garykjos at gmail.com Tue Aug 22 09:10:49 2006 From: garykjos at gmail.com (Gary Kjos) Date: Tue, 22 Aug 2006 09:10:49 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4C@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4C@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: Which ODBC driver are you using? With the Oracle ODBC Driver for Oracle you can tell it to just NOT timeout by unchecking the Timeout checkbox. On 8/22/06, O'Connor, Patricia (OTDA) wrote: > Hi all > > Is there a way to set the ODBC timeout default in the query properties > from 60 to 6000 permanently? Most of our work is against our ORACLE > databases, some Foxpro, and SqlServer. For every new query we do we have > to remember to reset this before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at least 600 > then poof it stops. One person said that it would cause their MDB to > corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost everywhere > but can't find out how to change the default. This would be for 2k or > 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 > -- Gary Kjos garykjos at gmail.com From markamatte at hotmail.com Tue Aug 22 09:22:58 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 22 Aug 2006 14:22:58 +0000 Subject: [AccessD] A97 and confused??? In-Reply-To: <44EB0B4C.3030003@san.rr.com> Message-ID: Hello All, I have a table with 147 rows. If I open the table...there are no filters...only 147 rows. If I run a MakeTable or an APPEND query based on this table I get 147 rows...If I display the datasheet view of "DELETE tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I execute this exact same SQL...the message is I'm about to delete 3723 rows??? I haven't clicked yes...not really too concerned...just repair and compact...but very curious if anyone has an understanding/explanation of this? Thanks, Mark A. Matte From bchacc at san.rr.com Tue Aug 22 09:25:05 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 22 Aug 2006 07:25:05 -0700 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> References: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> Message-ID: <44EB13C1.6040609@san.rr.com> I use me. because of the autofill (auto-complete? Intellisense?). I tend to use long names and make typing errors. So that eliminates that problem and makes the coding go faster. Type me. and I get a pop-up with all the control names. Rocky Susan Harkins wrote: > Me isn't required anymore. You're right. Some people still use it out of > habit, for backward compatibility, and for self-documentation purposes > although I'm not sure I really get the latter point. > > Now, Me.txtPerson may be more efficient in that Access doesn't have to > resolve the reference because it's already there. How much the Me identifier > impacts performance with today's systems probably isn't worth the bother. A > lot of the things we use to do for the sake of efficiency just don't matter > anymore. > > Susan H. > > > A.D. said that using Me.txtPerson is more efficient, but how is it more > efficient, and is it so much more efficient that I should slow down my > programming to add all those Me.'s? Of is it just that if you're going to > use Me. or a M!, then Me. is better? > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From dwaters at usinternet.com Tue Aug 22 09:28:11 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 09:28:11 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <9499683.1156254271910.JavaMail.root@sniper17> Message-ID: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Hi Reuben, This looks like it has essentially the same features as PrettyCode, but is $30 less. Is there anything in VBA Code Print that should be there but isn't? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I use VBA Code Print from this company http://www.starprint2000.com/ Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > Subject: [AccessD] Pretty Code - An Alternate? > > > I would like to print out code that is colored and more useful > that what can > be done from the VBA IDE. Pretty Code for VBA looks great, but it's price > at $89 is not. > > Does anyone have an alternate recommendation? > > Thanks! > > Dan From dwaters at usinternet.com Tue Aug 22 09:28:11 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 09:28:11 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <15770438.1156255486617.JavaMail.root@sniper22> Message-ID: <000c01c6c5f7$32a2ec90$0200a8c0@danwaters> Thanks Susan! Dan Waters -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Me isn't required anymore. You're right. Some people still use it out of habit, for backward compatibility, and for self-documentation purposes although I'm not sure I really get the latter point. Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Susan H. A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Tue Aug 22 09:31:52 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 09:31:52 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <8955394.1156207501283.JavaMail.root@sniper39> Message-ID: <000d01c6c5f7$b65c8af0$0200a8c0@danwaters> For a free application Crimson Editor is quite a piece of work! I used it last night to print out 40 pages of colored code that I can review today. I do want to be able to page break at procedure headers, put lines between procedures, and have line connectors for Select Case and If/Else/End If statements. But if you write code in a text editor, this has to be great! Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? On 22 Aug 2006 at 9:55, Darren DICK wrote: > Crimson editor - it's free and loves SQL > > http://www.crimsoneditor.com/ > I second that. I used to use Notetab for everything, but started using CE as my editor for AutoIt a couple of years ago. I found myself using CE more and more and Notetab less and less and now use it almost exclusively for text editing. -- Stuart McLachlan From Gustav at cactus.dk Tue Aug 22 09:41:13 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 16:41:13 +0200 Subject: [AccessD] Change ODBC timeout default query property Message-ID: Hi Patricia You can set that property using DAO: CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 Of course, to carry this out create a loop that somehow filters only those querydefs that have to be modified. /gustav >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> Hi all Is there a way to set the ODBC timeout default in the query properties from 60 to 6000 permanently? Most of our work is against our ORACLE databases, some Foxpro, and SqlServer. For every new query we do we have to remember to reset this before running otherwise we get a timeout. Does not matter how easy or hard the query is, If it isn't at least 600 then poof it stops. One person said that it would cause their MDB to corrupt but I haven't had that problem. The OPTIONS ADVANCED does not do this. I have looked almost everywhere but can't find out how to change the default. This would be for 2k or 2k3. Any help appreciated Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.state.ny.us ************************************************** From jwcolby at colbyconsulting.com Tue Aug 22 09:50:18 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 10:50:18 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <000a01c6c5f0$6d62c410$0200a8c0@danwaters> Message-ID: <003a01c6c5fa$49e7c620$657aa8c0@m6805> Well, first of all it is me!txtPerson since txtPerson is an object and not a property. As for the rest, there is nothing wrong with using just txtPerson = "some value". It is syntactically correct. VBA does have to resolve the reference, i.e. it has to figure out what txtPerson is, whereas if you state me!txtPerson then VBA knows that txtPerson is an object and it goes to look directly in the collection of objects (the controls collection) without having to figure out that txtPerson is an object. Essentially VBA has to go LOOKING FOR txtPerson if you don't state me!txtPerson. Do you care? Probably not unless you have a very complex form that references a bunch of controls as the form opens or something, in which case you might use something like with me !txtPerson = XYZ !Salary=123.45 etc etc end with I do not use the Me operator except in such cases. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, August 22, 2006 9:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Hello John, I do understand the difference between ! and . and how to use them. But on a form when all I want to do is set the value of a control on a bound form, what is wrong with just: txtPerson = "Dan Waters" A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. In addition to this, you should understand the concepts. Starting (I believe) in Access97, Microsoft started trying to steer developers into a consistent usage of the Dot ( . ) and Bang ( ! ) operators. For backwards compatibility they left the ability to use either, but the DOT operator refers to PROPERTIES, throughout the language. You never see (for example) MyCombo!Value, and in fact that probably wouldn't even work. The PROPERTY Value is referred to using the DOT operator - MyCombo.Value. The BANG operator ( ! ) refers to OBJECTS, MyForm!MyTextBox (for example), where MyForm is an object (a form object) and MyTextBox is an object (a text box object). So the syntactically correct usage is MyForm!MyControl.SomeProperty, where SomeProperty is a property of the OBJECT MyControl contained in the (default) controls collection of the MyForm object. Notice that the same sequence is used recordsets (for example) MyRecordset!MyField[.SomeProperty] MyRecordset is an object. MyField is also AN OBJECT, it is a field object in the DAO (or ADO for that matter) programming syntax. You would then use it in a statement: MyRecordset!MyField = "Test" OR MyRecordset!MyField.Value = "Test" You may succeed in mixing them (bang and dot) up and still get the program to work, but it is only because VBA attempts to "guess" what you mean, and succeeds most of the time. It is those times when it fails that you get seemingly unexplainable results. It is our responsibility to use explicit syntax to TELL VBA what we mean, avoiding the guesswork. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Tue Aug 22 09:52:14 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 10:52:14 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> Message-ID: <003b01c6c5fa$8f0bf820$657aa8c0@m6805> >Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Agreed. VBA is extremely fast and often the time it takes to do something is overpowered by other things such as loading a recordset while loading the form. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins Sent: Tuesday, August 22, 2006 9:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Me isn't required anymore. You're right. Some people still use it out of habit, for backward compatibility, and for self-documentation purposes although I'm not sure I really get the latter point. Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Susan H. A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DWUTKA at marlow.com Tue Aug 22 09:53:02 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 22 Aug 2006 09:53:02 -0500 Subject: [AccessD] A97 and confused??? Message-ID: <17724746D360394AA3BFE5B8D40A9C1BEE8DDE@MARLOW_MAIN2.marlow.com> Have there been that many records before, that were deleted? Also, are you using the latest service pack for 97? Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Tuesday, August 22, 2006 9:23 AM To: accessd at databaseadvisors.com Subject: [AccessD] A97 and confused??? Hello All, I have a table with 147 rows. If I open the table...there are no filters...only 147 rows. If I run a MakeTable or an APPEND query based on this table I get 147 rows...If I display the datasheet view of "DELETE tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I execute this exact same SQL...the message is I'm about to delete 3723 rows??? I haven't clicked yes...not really too concerned...just repair and compact...but very curious if anyone has an understanding/explanation of this? Thanks, Mark A. Matte -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From reuben at gfconsultants.com Tue Aug 22 09:57:55 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Tue, 22 Aug 2006 10:57:55 -0400 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Message-ID: I can't think of anything that I have ever wished for, but never had. I think it's pretty complete. You can set many options to change how it prints your code. You can print an entire project, one procedure, or a selection. You can export any of the same to a pdf, html, or rtf. I like it. 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, August 22, 2006 10:28 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Pretty Code - An Alternate? > > > Hi Reuben, > > This looks like it has essentially the same features as PrettyCode, but is > $30 less. > > Is there anything in VBA Code Print that should be there but isn't? > > Thanks! > Dan > > > -----Original Message----- > Subject: Re: [AccessD] Pretty Code - An Alternate? > > I use VBA Code Print from this company http://www.starprint2000.com/ > > Reuben Cummings > GFC, LLC > 812.523.1017 > > > > -----Original Message----- > > Subject: [AccessD] Pretty Code - An Alternate? > > > > > > I would like to print out code that is colored and more useful > > that what can > > be done from the VBA IDE. Pretty Code for VBA looks great, but > it's price > > at $89 is not. > > > > Does anyone have an alternate recommendation? > > > > Thanks! > > > > Dan > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From dwaters at usinternet.com Tue Aug 22 10:06:14 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 10:06:14 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <32254225.1156259016708.JavaMail.root@sniper14> Message-ID: <000e01c6c5fc$8378cb80$0200a8c0@danwaters> Great! I'll give it a go! Dan Waters -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I can't think of anything that I have ever wished for, but never had. I think it's pretty complete. You can set many options to change how it prints your code. You can print an entire project, one procedure, or a selection. You can export any of the same to a pdf, html, or rtf. I like it. Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > Subject: Re: [AccessD] Pretty Code - An Alternate? > > > Hi Reuben, > > This looks like it has essentially the same features as PrettyCode, but is > $30 less. > > Is there anything in VBA Code Print that should be there but isn't? > > Thanks! > Dan > > > -----Original Message----- > Subject: Re: [AccessD] Pretty Code - An Alternate? > > I use VBA Code Print from this company http://www.starprint2000.com/ > > Reuben Cummings > GFC, LLC > 812.523.1017 > > > > -----Original Message----- > > Subject: [AccessD] Pretty Code - An Alternate? > > > > > > I would like to print out code that is colored and more useful > > that what can > > be done from the VBA IDE. Pretty Code for VBA looks great, but > it's price > > at $89 is not. > > > > Does anyone have an alternate recommendation? > > > > Thanks! > > > > Dan From markamatte at hotmail.com Tue Aug 22 10:14:27 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 22 Aug 2006 15:14:27 +0000 Subject: [AccessD] A97 and confused??? In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BEE8DDE@MARLOW_MAIN2.marlow.com> Message-ID: Drew, I don't believe its the latest service pack(machine at work)...and I know there were records there before...just not sure how many? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 09:53:02 -0500 > >Have there been that many records before, that were deleted? Also, are you >using the latest service pack for 97? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 9:23 AM >To: accessd at databaseadvisors.com >Subject: [AccessD] A97 and confused??? > >Hello All, > >I have a table with 147 rows. If I open the table...there are no >filters...only 147 rows. If I run a MakeTable or an APPEND query based on >this table I get 147 rows...If I display the datasheet view of "DELETE >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I >execute > >this exact same SQL...the message is I'm about to delete 3723 rows??? I >haven't clicked yes...not really too concerned...just repair and >compact...but very curious if anyone has an understanding/explanation of >this? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 22 10:20:57 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 22 Aug 2006 10:20:57 -0500 Subject: [AccessD] A97 and confused??? Message-ID: <17724746D360394AA3BFE5B8D40A9C1BDCFA@MARLOW_MAIN2.marlow.com> Access may be 'seeing' all the deleted records, they don't go away until you compact it. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Tuesday, August 22, 2006 10:14 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A97 and confused??? Drew, I don't believe its the latest service pack(machine at work)...and I know there were records there before...just not sure how many? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 09:53:02 -0500 > >Have there been that many records before, that were deleted? Also, are you >using the latest service pack for 97? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 9:23 AM >To: accessd at databaseadvisors.com >Subject: [AccessD] A97 and confused??? > >Hello All, > >I have a table with 147 rows. If I open the table...there are no >filters...only 147 rows. If I run a MakeTable or an APPEND query based on >this table I get 147 rows...If I display the datasheet view of "DELETE >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I >execute > >this exact same SQL...the message is I'm about to delete 3723 rows??? I >haven't clicked yes...not really too concerned...just repair and >compact...but very curious if anyone has an understanding/explanation of >this? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com -- 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 Tue Aug 22 10:47:31 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 11:47:31 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4E@EXCNYSM0A1AI.nysemail.nyenet> Gary Which driver do you use? And unclick works? We are using the ORACLE ODBC driver Ora 9i. But also happens against FOXPRO. I went to the Administrative tools, Data Sources(ODBC) and unclicked Query Time out. Opened the MDB and tried a pretty simple query without changing the Query Property Timeout over 60. It still timed out. I get the following message if I don't set the QUERY PROPERTY ODBC Timeout from 60 up to at least 500. I routinely set it at 6000. ODBC--Call failed. [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of current operation (#1013) I know immediately that I forgot to update the timeout by the message above. Many others do not understand so I am always checking out their queries and machines. I was wondering whether there was a change to Registry or some hidden MS change that would fix this. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Tuesday, August 22, 2006 10:11 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > Which ODBC driver are you using? With the Oracle ODBC Driver > for Oracle you can tell it to just NOT timeout by unchecking > the Timeout checkbox. > > On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > Hi all > > > > Is there a way to set the ODBC timeout default in the query > > properties from 60 to 6000 permanently? Most of our work > is against > > our ORACLE databases, some Foxpro, and SqlServer. For every > new query > > we do we have to remember to reset this before running > otherwise we get a timeout. > > Does not matter how easy or hard the query is, If it isn't at least > > 600 then poof it stops. One person said that it would > cause their MDB > > to corrupt but I haven't had that problem. > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > everywhere but can't find out how to change the default. > This would > > be for 2k or 2k3. > > Any help appreciated > > > > Thanks > > > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.state.ny.us > > ************************************************** > > -------------------------------------------------------- > -- > Gary Kjos > garykjos at gmail.com > -- From djkr at msn.com Tue Aug 22 10:49:01 2006 From: djkr at msn.com (DJK(John) Robinson) Date: Tue, 22 Aug 2006 16:49:01 +0100 Subject: [AccessD] A97 and confused??? In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BDCFA@MARLOW_MAIN2.marlow.com> Message-ID: I found a case (long time ago now - must have A97) where Access reported the wrong number of records in certain circumstances. It definitely involved deletion. Shamil was helpful in reproducing and confirming my observations, and we agreed it was an Access bug, though fortunately in an area that the 'user' shouldn't normally see, as in your case - just temporarily worrying to the developer. So don't worry about it! I did for a while, because it popped up in the middle of testing some code of mine that involved multiple overlapping (non-nested) transactions. Thought you'd like to know. ;-) John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com Sent: 22 August 2006 16:21 To: accessd at databaseadvisors.com Subject: Re: [AccessD] A97 and confused??? Access may be 'seeing' all the deleted records, they don't go away until you compact it. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Tuesday, August 22, 2006 10:14 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A97 and confused??? Drew, I don't believe its the latest service pack(machine at work)...and I know there were records there before...just not sure how many? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 09:53:02 -0500 > >Have there been that many records before, that were deleted? Also, are >you using the latest service pack for 97? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 9:23 AM >To: accessd at databaseadvisors.com >Subject: [AccessD] A97 and confused??? > >Hello All, > >I have a table with 147 rows. If I open the table...there are no >filters...only 147 rows. If I run a MakeTable or an APPEND query based >on this table I get 147 rows...If I display the datasheet view of >"DELETE >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I >execute > >this exact same SQL...the message is I'm about to delete 3723 rows??? >I haven't clicked yes...not really too concerned...just repair and >compact...but very curious if anyone has an understanding/explanation >of this? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- 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 Tue Aug 22 10:52:36 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 11:52:36 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4F@EXCNYSM0A1AI.nysemail.nyenet> Thanks Gustav But the problem is two fold. It is not for just existing queries but for when they are making new queries. Forget to update the query property and a special message pops up. I know immediately I forgot when I get the message and reset. Others don't understand the message and I usually have to remind them. I need a way to change this without having users run something special. ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > Gustav Brock > Sent: Tuesday, August 22, 2006 10:41 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia > > You can set that property using DAO: > > CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 > > Of course, to carry this out create a loop that somehow > filters only those querydefs that have to be modified. > > /gustav > > >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> > Hi all > > Is there a way to set the ODBC timeout default in the query > properties from 60 to 6000 permanently? Most of our work is > against our ORACLE databases, some Foxpro, and SqlServer. For > every new query we do we have to remember to reset this > before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at > least 600 then poof it stops. One person said that it would > cause their MDB to corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost > everywhere but can't find out how to change the default. > This would be for 2k or 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor From markamatte at hotmail.com Tue Aug 22 10:56:52 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 22 Aug 2006 15:56:52 +0000 Subject: [AccessD] A97 and confused??? In-Reply-To: <000e01c6c602$7d05bc80$5c00a8c0@dabsight> Message-ID: John, Thanks...I wasn't too concerned...just more curious...and maybe needed a little confirmation that I wasn't going insane. Thanks, Mark A. Matte >From: "DJK(John) Robinson" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 16:49:01 +0100 > >I found a case (long time ago now - must have A97) where Access reported >the >wrong number of records in certain circumstances. It definitely involved >deletion. > >Shamil was helpful in reproducing and confirming my observations, and we >agreed it was an Access bug, though fortunately in an area that the 'user' >shouldn't normally see, as in your case - just temporarily worrying to the >developer. > >So don't worry about it! I did for a while, because it popped up in the >middle of testing some code of mine that involved multiple overlapping >(non-nested) transactions. Thought you'd like to know. ;-) > >John > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >DWUTKA at marlow.com >Sent: 22 August 2006 16:21 >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? > > >Access may be 'seeing' all the deleted records, they don't go away until >you >compact it. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 10:14 AM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? > > >Drew, > >I don't believe its the latest service pack(machine at work)...and I know >there were records there before...just not sure how many? > >Thanks, > >Mark > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] A97 and confused??? > >Date: Tue, 22 Aug 2006 09:53:02 -0500 > > > >Have there been that many records before, that were deleted? Also, are > >you using the latest service pack for 97? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Tuesday, August 22, 2006 9:23 AM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] A97 and confused??? > > > >Hello All, > > > >I have a table with 147 rows. If I open the table...there are no > >filters...only 147 rows. If I run a MakeTable or an APPEND query based > >on this table I get 147 rows...If I display the datasheet view of > >"DELETE > >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I > >execute > > > >this exact same SQL...the message is I'm about to delete 3723 rows??? > >I haven't clicked yes...not really too concerned...just repair and > >compact...but very curious if anyone has an understanding/explanation > >of this? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.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 Aug 22 11:06:48 2006 From: garykjos at gmail.com (Gary Kjos) Date: Tue, 22 Aug 2006 11:06:48 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4E@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4E@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: I am currently using Oracle ODBC driver 9.02.00.54 Yep. unclicking the "Enable Query Timeout" box does the trick for me and my users. That is the only option we change from default when setting up the ODBC data source. We use System DSN's for all ODBC definitions. I wonder if your Oracle Database login has a defaulting timeout level that is biting you.. I have also used the Microsoft ODBC driver with good results. The only issue there was that if the Oracle Database login password was expired the Microsoft ODBC driver didn't prompt for entering a new password as the Oracle one did. that may have changed with a newer Microsoft driver though. We used to use a generic login and password for everyone's Access ODBC into Oracle stuff, but because of Sarbains/Oxley we were required to change to individual user logins that had expiring passwords. So that was when the Microsoft ODBC driver not prompting for new password became more of an issue. On 8/22/06, O'Connor, Patricia (OTDA) wrote: > Gary > > Which driver do you use? And unclick works? > > We are using the ORACLE ODBC driver Ora 9i. But also happens against > FOXPRO. > > I went to the Administrative tools, Data Sources(ODBC) and unclicked > Query Time out. Opened the MDB and tried a pretty simple query without > changing the Query Property Timeout over 60. It still timed out. > > I get the following message if I don't set the QUERY PROPERTY ODBC > Timeout from 60 up to at least 500. I routinely set it at 6000. > > ODBC--Call failed. > [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of > current operation (#1013) > > I know immediately that I forgot to update the timeout by the message > above. Many others do not understand so I am always checking out their > queries and machines. > > I was wondering whether there was a change to Registry or some hidden MS > change that would fix this. > > Thanks > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > Sent: Tuesday, August 22, 2006 10:11 AM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > Which ODBC driver are you using? With the Oracle ODBC Driver > > for Oracle you can tell it to just NOT timeout by unchecking > > the Timeout checkbox. > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > wrote: > > > Hi all > > > > > > Is there a way to set the ODBC timeout default in the query > > > properties from 60 to 6000 permanently? Most of our work > > is against > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > new query > > > we do we have to remember to reset this before running > > otherwise we get a timeout. > > > Does not matter how easy or hard the query is, If it isn't at least > > > 600 then poof it stops. One person said that it would > > cause their MDB > > > to corrupt but I haven't had that problem. > > > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > > everywhere but can't find out how to change the default. > > This would > > > be for 2k or 2k3. > > > Any help appreciated > > > > > > Thanks > > > > > > ************************************************** > > > * Patricia O'Connor > > > * Associate Computer Programmer Analyst > > > * OTDA - BDMA > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > ************************************************** > > > -------------------------------------------------------- > > -- > > Gary Kjos > > garykjos at gmail.com > > -- > -- > 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 Gustav at cactus.dk Tue Aug 22 11:37:28 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 18:37:28 +0200 Subject: [AccessD] Change ODBC timeout default query property Message-ID: Hi Patricia It should be this Registry entry: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\ODBC] "TraceODBCAPI"=dword:00000000 "DisableAsync"=dword:00000001 "TraceSQLMode"=dword:00000000 "QueryTimeout"=dword:0000003c "LoginTimeout"=dword:00000014 "ConnectionTimeout"=dword:00000258 "TryJetAuth"=dword:00000001 "FatBlastRows"=dword:ffffffff "FatBlastTimeout"=dword:00000003 "AsyncRetryInterval"=dword:000001f4 "AttachCaseSensitive"=dword:00000000 "FastRequery"=dword:00000000 "ODBCISAMAttach"=dword:00000000 "PreparedInsert"=dword:00000000 "PreparedUpdate"=dword:00000000 "SnapshotOnly"=dword:00000000 "AttachableObjects"="'TABLE','VIEW','SYSTEM TABLE','ALIAS','SYNONYM'" Change QueryTimeout from 3c (60) to 258 (600) or 1770 (6000) or another value of your choice. However, I just tried and it doesn't work for me with Access 2003 - maybe a reboot is needed. /gustav >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 17:52:36 >>> Thanks Gustav But the problem is two fold. It is not for just existing queries but for when they are making new queries. Forget to update the query property and a special message pops up. I know immediately I forgot when I get the message and reset. Others don't understand the message and I usually have to remind them. I need a way to change this without having users run something special. ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > Gustav Brock > Sent: Tuesday, August 22, 2006 10:41 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia > > You can set that property using DAO: > > CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 > > Of course, to carry this out create a loop that somehow > filters only those querydefs that have to be modified. > > /gustav > > >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> > Hi all > > Is there a way to set the ODBC timeout default in the query > properties from 60 to 6000 permanently? Most of our work is > against our ORACLE databases, some Foxpro, and SqlServer. For > every new query we do we have to remember to reset this > before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at > least 600 then poof it stops. One person said that it would > cause their MDB to corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost > everywhere but can't find out how to change the default. > This would be for 2k or 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor From Gustav at cactus.dk Tue Aug 22 11:55:14 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 18:55:14 +0200 Subject: [AccessD] Change ODBC timeout default query property Message-ID: Hi Patricia Just located this info: http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3B153756 This explains my observation as I didn't run a query, I only browsed the property sheet of a new query: NOTE: When using the steps contained within Method 2 to set the QueryTimeout value within the registry, any new and existing query within Microsoft Access will continue to display a value of 60 for the QueryTimeout property. If the value set within the registry is greater than the value defined within the individual query, Microsoft Access will use the value within the registry to determine how long to wait before a QueryTimeout occurs. Also, setting a value of 0 (zero) will inhibit a timeout. /gustav >>> Gustav at cactus.dk 22-08-2006 18:37:28 >>> Hi Patricia It should be this Registry entry: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\ODBC] "TraceODBCAPI"=dword:00000000 "DisableAsync"=dword:00000001 "TraceSQLMode"=dword:00000000 "QueryTimeout"=dword:0000003c "LoginTimeout"=dword:00000014 "ConnectionTimeout"=dword:00000258 "TryJetAuth"=dword:00000001 "FatBlastRows"=dword:ffffffff "FatBlastTimeout"=dword:00000003 "AsyncRetryInterval"=dword:000001f4 "AttachCaseSensitive"=dword:00000000 "FastRequery"=dword:00000000 "ODBCISAMAttach"=dword:00000000 "PreparedInsert"=dword:00000000 "PreparedUpdate"=dword:00000000 "SnapshotOnly"=dword:00000000 "AttachableObjects"="'TABLE','VIEW','SYSTEM TABLE','ALIAS','SYNONYM'" Change QueryTimeout from 3c (60) to 258 (600) or 1770 (6000) or another value of your choice. However, I just tried and it doesn't work for me with Access 2003 - maybe a reboot is needed. /gustav >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 17:52:36 >>> Thanks Gustav But the problem is two fold. It is not for just existing queries but for when they are making new queries. Forget to update the query property and a special message pops up. I know immediately I forgot when I get the message and reset. Others don't understand the message and I usually have to remind them. I need a way to change this without having users run something special. ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > Gustav Brock > Sent: Tuesday, August 22, 2006 10:41 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia > > You can set that property using DAO: > > CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 > > Of course, to carry this out create a loop that somehow > filters only those querydefs that have to be modified. > > /gustav > > >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> > Hi all > > Is there a way to set the ODBC timeout default in the query > properties from 60 to 6000 permanently? Most of our work is > against our ORACLE databases, some Foxpro, and SqlServer. For > every new query we do we have to remember to reset this > before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at > least 600 then poof it stops. One person said that it would > cause their MDB to corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost > everywhere but can't find out how to change the default. > This would be for 2k or 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor From ssharkins at setel.com Tue Aug 22 12:16:34 2006 From: ssharkins at setel.com (Susan Harkins) Date: Tue, 22 Aug 2006 13:16:34 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <44EB13C1.6040609@san.rr.com> Message-ID: <000601c6c60e$b8f65130$1fbc2ad1@SUSANONE> Excellent point. :) Susan H. I use me. because of the autofill (auto-complete? Intellisense?). I tend to use long names and make typing errors. So that eliminates that problem and makes the coding go faster. Type me. and I get a pop-up with all the control names. From mwp.reid at qub.ac.uk Tue Aug 22 12:15:12 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Tue, 22 Aug 2006 18:15:12 +0100 Subject: [AccessD] Passing aarray index to docmd References: Message-ID: I am trying to pass the index of an array to a Docmd. Cant get the syntax right. Any ideas? I have a drop down list with a 0 based index. I need to grab the index and pass it to the docmd? Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 From cfoust at infostatsystems.com Tue Aug 22 12:52:29 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 22 Aug 2006 10:52:29 -0700 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Message-ID: I've used both and actually much prefer the VBA CodePrint. It also comes in flavors for SQL and for .Net. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, August 22, 2006 7:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Pretty Code - An Alternate? Hi Reuben, This looks like it has essentially the same features as PrettyCode, but is $30 less. Is there anything in VBA Code Print that should be there but isn't? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I use VBA Code Print from this company http://www.starprint2000.com/ Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > Subject: [AccessD] Pretty Code - An Alternate? > > > I would like to print out code that is colored and more useful that > what can be done from the VBA IDE. Pretty Code for VBA looks great, > but it's price at $89 is not. > > Does anyone have an alternate recommendation? > > Thanks! > > Dan -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Tue Aug 22 12:57:44 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 22 Aug 2006 10:57:44 -0700 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <000501c6c563$9093d740$800101df@officexp> Message-ID: One place where it makes a difference is if you don't have Option Explicit turned on. In that case, not using the Me in referring to an object and misspelling the name of the object will result in the compiler interpreting the item as a variable. If you do have Option Explicit turned on (and we all do, right?), misspelling the name of an object will cause a runtime error telling you the variable wasn't declared. Using the Me gives you a more useful message that it can't find the object. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 1:51 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Boy, I kind of feel it's dangerous not to be more explicit when identifying a particular control. I've been using access since it's birth and hardly see any code examples that don't include some type of identifier. Am I losing it or something. Anyone else have any input? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 4:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- 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 Tue Aug 22 13:00:23 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 14:00:23 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> Hi Gary I use the same ODBC driver and even tried rebooting - still get same message. Will check into the Oracle Database login to see if they have something set up there. I recommend the oracle odbc over the microsoft because the date handling is better. Think it is better for passthru's also. There was something else related also but I can't remember at just this moment. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Tuesday, August 22, 2006 12:07 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > unclicking the "Enable Query Timeout" box does the trick for > me and my users. > That is the only option we change from default when setting > up the ODBC data source. We use System DSN's for all ODBC > definitions. I wonder if your Oracle Database login has a > defaulting timeout level that is biting you.. > > I have also used the Microsoft ODBC driver with good results. > The only issue there was that if the Oracle Database login > password was expired the Microsoft ODBC driver didn't prompt > for entering a new password as the Oracle one did. that may > have changed with a newer Microsoft driver though. We used to > use a generic login and password for everyone's Access ODBC > into Oracle stuff, but because of Sarbains/Oxley we were > required to change to individual user logins that had > expiring passwords. So that was when the Microsoft ODBC > driver not prompting for new password became more of an issue. > > On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > Gary > > > > Which driver do you use? And unclick works? > > > > We are using the ORACLE ODBC driver Ora 9i. But also > happens against > > FOXPRO. > > > > I went to the Administrative tools, Data Sources(ODBC) and > unclicked > > Query Time out. Opened the MDB and tried a pretty simple > query without > > changing the Query Property Timeout over 60. It still timed out. > > > > I get the following message if I don't set the QUERY PROPERTY ODBC > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > ODBC--Call failed. > > [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of > > current operation (#1013) > > > > I know immediately that I forgot to update the timeout by > the message > > above. Many others do not understand so I am always > checking out their > > queries and machines. > > > > I was wondering whether there was a change to Registry or > some hidden > > MS change that would fix this. > > > > Thanks > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.state.ny.us > > ************************************************** > > > > -----Original Message----- > > > > > From: accessd-bounces at databaseadvisors.com > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Gary Kjos > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > To: Access Developers discussion and problem solving > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver for > > > Oracle you can tell it to just NOT timeout by unchecking > the Timeout > > > checkbox. > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > wrote: > > > > Hi all > > > > > > > > Is there a way to set the ODBC timeout default in the query > > > > properties from 60 to 6000 permanently? Most of our work > > > is against > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > new query > > > > we do we have to remember to reset this before running > > > otherwise we get a timeout. > > > > Does not matter how easy or hard the query is, If it isn't at > > > > least 600 then poof it stops. One person said that it would > > > cause their MDB > > > > to corrupt but I haven't had that problem. > > > > > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > > > everywhere but can't find out how to change the default. > > > This would > > > > be for 2k or 2k3. > > > > Any help appreciated > > > > > > > > Thanks > > > > > > > > ************************************************** > > > > * Patricia O'Connor > > > > -------------------------------------------------------- > > > -- > > > Gary Kjos > > > garykjos at gmail.com > > > -- > Gary Kjos > garykjos at gmail.com > -- From nanette.j.gould at Vanderbilt.Edu Tue Aug 22 13:03:27 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 13:03:27 -0500 Subject: [AccessD] Check Box - "Select All" Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E63@mailbe07.mc.vanderbilt.edu> I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material from your system. From askolits at ot.com Tue Aug 22 13:12:29 2006 From: askolits at ot.com (John Skolits) Date: Tue, 22 Aug 2006 14:12:29 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: Message-ID: <005001c6c616$8b09e720$6701a8c0@LaptopXP> Very interesting. I thought maybe that's why I had my problem, but unfortunately, I had explicit turned on. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 22, 2006 1:58 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. One place where it makes a difference is if you don't have Option Explicit turned on. In that case, not using the Me in referring to an object and misspelling the name of the object will result in the compiler interpreting the item as a variable. If you do have Option Explicit turned on (and we all do, right?), misspelling the name of an object will cause a runtime error telling you the variable wasn't declared. Using the Me gives you a more useful message that it can't find the object. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 1:51 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Boy, I kind of feel it's dangerous not to be more explicit when identifying a particular control. I've been using access since it's birth and hardly see any code examples that don't include some type of identifier. Am I losing it or something. Anyone else have any input? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 4:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.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 Aug 22 13:14:04 2006 From: garykjos at gmail.com (Gary Kjos) Date: Tue, 22 Aug 2006 13:14:04 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: Hi Patricia, Weird. Maybe I'm just lucky? ;-) I''ve got some extract queries that run for a few hours before returning any results so I'd really be in trouble if it didn't work as it does for me. Perhaps you could test the database login theory if you ran a similar query directly against the Oracle Database using another tool such as SQL Navigator, Toad or SQL Plus, taking the ODBC driver out of the mix. If the query works there then it isn't default limits on the login causing your problem. Or if you are on friendly enough terms with your Oracle DBA you could ask them what they think is going on. Good luck figuring it out and be sue and let us know when you do. GK On 8/22/06, O'Connor, Patricia (OTDA) wrote: > Hi Gary > I use the same ODBC driver and even tried rebooting - still get same > message. Will check into the Oracle Database login to see if they have > something set up there. > > I recommend the oracle odbc over the microsoft because the date handling > is better. Think it is better for passthru's also. There was something > else related also but I can't remember at just this moment. > > Thanks > > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > Sent: Tuesday, August 22, 2006 12:07 PM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > unclicking the "Enable Query Timeout" box does the trick for > > me and my users. > > That is the only option we change from default when setting > > up the ODBC data source. We use System DSN's for all ODBC > > definitions. I wonder if your Oracle Database login has a > > defaulting timeout level that is biting you.. > > > > I have also used the Microsoft ODBC driver with good results. > > The only issue there was that if the Oracle Database login > > password was expired the Microsoft ODBC driver didn't prompt > > for entering a new password as the Oracle one did. that may > > have changed with a newer Microsoft driver though. We used to > > use a generic login and password for everyone's Access ODBC > > into Oracle stuff, but because of Sarbains/Oxley we were > > required to change to individual user logins that had > > expiring passwords. So that was when the Microsoft ODBC > > driver not prompting for new password became more of an issue. > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > wrote: > > > Gary > > > > > > Which driver do you use? And unclick works? > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > happens against > > > FOXPRO. > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > unclicked > > > Query Time out. Opened the MDB and tried a pretty simple > > query without > > > changing the Query Property Timeout over 60. It still timed out. > > > > > > I get the following message if I don't set the QUERY PROPERTY ODBC > > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > > > ODBC--Call failed. > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of > > > current operation (#1013) > > > > > > I know immediately that I forgot to update the timeout by > > the message > > > above. Many others do not understand so I am always > > checking out their > > > queries and machines. > > > > > > I was wondering whether there was a change to Registry or > > some hidden > > > MS change that would fix this. > > > > > > Thanks > > > ************************************************** > > > * Patricia O'Connor > > > * Associate Computer Programmer Analyst > > > * OTDA - BDMA > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > ************************************************** > > > > > > -----Original Message----- > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of Gary Kjos > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > To: Access Developers discussion and problem solving > > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver for > > > > Oracle you can tell it to just NOT timeout by unchecking > > the Timeout > > > > checkbox. > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > wrote: > > > > > Hi all > > > > > > > > > > Is there a way to set the ODBC timeout default in the query > > > > > properties from 60 to 6000 permanently? Most of our work > > > > is against > > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > > new query > > > > > we do we have to remember to reset this before running > > > > otherwise we get a timeout. > > > > > Does not matter how easy or hard the query is, If it isn't at > > > > > least 600 then poof it stops. One person said that it would > > > > cause their MDB > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > > > > everywhere but can't find out how to change the default. > > > > This would > > > > > be for 2k or 2k3. > > > > > Any help appreciated > > > > > > > > > > Thanks > > > > > > > > > > ************************************************** > > > > > * Patricia O'Connor > > > > > -------------------------------------------------------- > > > > -- > > > > Gary Kjos > > > > garykjos at gmail.com > > > > -- > > Gary Kjos > > garykjos at gmail.com > > -- > -- > 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 bheid at appdevgrp.com Tue Aug 22 13:15:55 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 22 Aug 2006 14:15:55 -0400 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0B59F@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35805@ADGSERVER> OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material from your system. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From nanette.j.gould at Vanderbilt.Edu Tue Aug 22 13:18:25 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 13:18:25 -0500 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D35805@ADGSERVER> Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E64@mailbe07.mc.vanderbilt.edu> Clever! Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material 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 nanette.j.gould at Vanderbilt.Edu Tue Aug 22 13:32:01 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 13:32:01 -0500 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D35805@ADGSERVER> Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E65@mailbe07.mc.vanderbilt.edu> Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material 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 accessd at shaw.ca Tue Aug 22 13:44:43 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 22 Aug 2006 11:44:43 -0700 Subject: [AccessD] Filling a multi column combo box In-Reply-To: <20060822094527.827D82742D9@smtp.nildram.co.uk> Message-ID: <0J4E001LNXD69K10@l-daemon> Thanks Andy and Robin... that simple! Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Tuesday, August 22, 2006 3:45 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Filling a multi column combo box Jim Do you mean juts putting in a Value list? If so it's just a list of entried separated by semi-colons (or can be commas). The Number Of Columns property determines which fall in the same row and which in the next. So: Fred;Smith;Annie;Oakley with a Number Of columns of 1 will get you Fred Smith Annie Oakley but with Number Of Columns set to 2 will give you Fred Smith Annie Oakley Is that what you meant? HTH Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "'Access Developers discussion and problem solving'" Subject: [AccessD] Filling a multi column combo box Date: 22/08/06 08:40 Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA 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 accessd at shaw.ca Tue Aug 22 13:43:47 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 22 Aug 2006 11:43:47 -0700 Subject: [AccessD] DB2 and Ruby on Rails (was: Data interface The best way) In-Reply-To: Message-ID: <0J4E001H4XBL9K10@l-daemon> Gustav: Look awesome. Another (spare-time) winter project :-) Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 22, 2006 6:11 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] DB2 and Ruby on Rails (was: Data interface The best way) Hi Shamil, Ken et al Just noticed this link to a free Starter Toolkit for DB2 on Rails: http://alphaworks.ibm.com/tech/db2onrails Starter Toolkit for DB2R on Rails is a conveniently-packaged set of products and technologies that enables the quick creation of a configuration for building DB2 Web applications using Ruby on Rails technology. Also note the free DB2 Express-C database engine: http://www-306.ibm.com/software/data/db2/udb/db2express/download.html /gustav >>> shamil at users.mns.ru 20-10-2005 00:02:47 >>> <<< Ruby on Rails is the prime example. >>> Ken, Believe or not but just yesterday I have bookmarked Ruby's main Web site: http://www.ruby-lang.org/en/ for investigations when (if ever) I will have free time. Yes, I have heard about Ruby or Rails and I also plan to give it a try. Ruby looks like being the most advanced modern OO language - it has amazing things like modifying class definition on-the-fly so it may happen a running application will have object instances of the same class with different call interfaces. I still to realize for what real-life applications such flexibility is needed... > Model-View-Controller model. Ruby on Rails is the prime example. Well, MS Avalon(Windows Presentation Foundation) has this model as one of its key concepts. And my own rather naive that times (1998) but so true as far as I see now VBA/VB6-programming concept I called "DEEP-object concept" (http://www.smsconsulting.spb.ru/shamil_s/articles/deepcnpt.htm) was partially about Model-View-Controller model partially about what is called "low coupling" and "high cohesion" OOP concepts and related stuff.(I wasn't aware about that concepts that times, stupid me) It was developed later into several proprietary commercial frameworks - so it was never published. (Well, I did give it a try to develop open source very advanced VBA framework using MS Access 2000 summer 1999 but because it was a programming on the edge and because MS Access 97/2000 have "termination bug", which didn't have stable workaround it didn't work and I deleted/lost all the code I developed that times. Stupid me again. In MS Access XP/2003 the "termination bug" was finally fixed.) Well known here in AccessD VBA framework based on these concepts is John Colby's framework of course. > Since I have far from a deep understanding of MVC IMO it would have better called Model View Dispatcher model (or Model Dispatcher View). Or I don't understand English well to feel all the nuances or certain words - for me Controller is something that controls and Dispatcher is something that dispatches - and dispatching IMO implies no strict control at all and less coupling between Model and View. And in MVC model Controller's role is just to dispatch messages (calls) from View to Model or callbacks(events) from Model to View(s) - it doesn't control anything... Thank you for the links on Django and TurboGears but it looks like I will have time for them "in my next life only"... Shamil ----- Original Message ----- From: "Ken Ismert" To: "Access Developers discussion and problem solving" Sent: Wednesday, October 19, 2005 11:26 PM Subject: Re: [AccessD] Data interface The best way > > Shamil, > > >As for "an object design down to the lowest level" - > >this is still questionable here how it should be done - > >and it's getting the more questionable what this design > >should be the more I'm getting into the modern methods > >of OOP&D... > > Theoretical questions aside, the notable object-data systems doing > useful things now are the open-source web frameworks using the > Model-View-Controller model. Ruby on Rails is the prime example. > > Since I have far from a deep understanding of MVC, I will just point out > that the data objects are modeled in code, and changes in the data > objects are reflected to the table structure of the underlying database. > > > One challenge that future OO DBMS projects will have is equalling or > bettering the ease-of-use of these MVC frameworks. One thing is certain: > they'll never beat the price. > > Ruby on Rails > http://www.rubyonrails.org/ > > Django > http://www.djangoproject.com/ > > TurboGears > http://www.turbogears.org/ > > Ruby on Rails > Model-View-Controller Article > http://en.wikipedia.org/wiki/Ruby_On_Rails > > -Ken -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From reuben at gfconsultants.com Tue Aug 22 13:46:05 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Tue, 22 Aug 2006 14:46:05 -0400 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <33E923DF3EB78B4D8DCD3A743427425CC45E65@mailbe07.mc.vanderbilt.edu> Message-ID: I assume all the other records are true because they have already been exported. If so, you could do what Bobby said, but add a status field to the table indicating whether these are "new" exports or not. Whenever a record gets exported update the status field to indicate that. Then your recordsource query will look for all records where status = not exported. Do not use check box = false in this case. Then all the check box is doing is allowing you to select which ones to export and the status field is telling you whether is has or has not been exported. If check box = true and status = null then this record will be exported next time. Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gould, Nanette > Sent: Tuesday, August 22, 2006 2:32 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Check Box - "Select All" > > > Unfortunately, this approach doesn't work. For the form's recordset I'm > querying records where the check box value is False. That's maybe 100 > out of 4000 records. If I run a query to set those values to True then > the refreshed form would load all 4000 records. I need to keep their > existing recordset after they've done a Select All. The records they > select get exported to Excel for upload into our GL. > > > Thanks, > Nanette > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid > Sent: Tuesday, August 22, 2006 1:16 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Check Box - "Select All" > > OTOMH, I'd run an update query against the underlying table and then > refresh the form. > > Bobby > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, > Nanette > Sent: Tuesday, August 22, 2006 2:03 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Check Box - "Select All" > > > I have a continuous form with a bound check box on each record. I'd like > to give the user a "Select All" option at the top and set the value of > each record's check box to True if they click Select All. > > It seems like this must be fairly simple but I've never had to do it > before. Any suggestions? > > > Nanette > > > > Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, > Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu > > > > > The information transmitted with any attachments is intended solely for > the individual or entity to which it is addressed and may contain > confidential and/or privileged material. If you have received this > email in error, please contact the sender and delete the material 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 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bheid at appdevgrp.com Tue Aug 22 13:56:15 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 22 Aug 2006 14:56:15 -0400 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0B5B2@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35807@ADGSERVER> Since the form is bound, I do not know of another way other than to add an extra field that somehow denotes the items that are to be shown on the form. So, before the form shows the initial data, mark the records that are to be shown. The only display those records that are to be selected. Then after you set the checkbox to true for all of the marked records, it will reload those same records. Then after you are finished (when closing the form or whatever), then you can mark the selected records as unselected. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:32 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Check Box - "Select All" Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette From Gustav at cactus.dk Tue Aug 22 13:56:24 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 20:56:24 +0200 Subject: [AccessD] Check Box - "Select All" Message-ID: Hi Nanette You could use DAO and update the recordset of the form: Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If rst.RecordCount > 0 Then rst.MoveFirst While Not rst.EOF rst!chkSelect.Value = True rst.MoveNext Wend End If rst.Close Set rst = Nothing /gustav >>> nanette.j.gould at Vanderbilt.Edu 22-08-2006 20:32:01 >>> Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette From Gustav at cactus.dk Tue Aug 22 14:00:41 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 21:00:41 +0200 Subject: [AccessD] Check Box - "Select All" Message-ID: Hi Nanette Oops, missed the update part: While Not rst.EOF rst.Edit rst!chkSelect.Value = True rst.Update rst.MoveNext Wend /gustav >>> Gustav at cactus.dk 22-08-2006 20:56:24 >>> Hi Nanette You could use DAO and update the recordset of the form: Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If rst.RecordCount > 0 Then rst.MoveFirst While Not rst.EOF rst!chkSelect.Value = True rst.MoveNext Wend End If rst.Close Set rst = Nothing /gustav From DWUTKA at marlow.com Tue Aug 22 14:04:08 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 22 Aug 2006 14:04:08 -0500 Subject: [AccessD] Check Box - "Select All" Message-ID: <17724746D360394AA3BFE5B8D40A9C1BEE8E43@MARLOW_MAIN2.marlow.com> Are you applying a filter or criteria to this form? If so, apply the same criteria to the Update query. Drew -----Original Message----- From: Gould, Nanette [mailto:nanette.j.gould at Vanderbilt.Edu] Sent: Tuesday, August 22, 2006 1:32 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Check Box - "Select All" Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From nanette.j.gould at Vanderbilt.Edu Tue Aug 22 14:21:14 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 14:21:14 -0500 Subject: [AccessD] Check Box - "Select All" In-Reply-To: Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E6B@mailbe07.mc.vanderbilt.edu> This worked perfectly! Thank you so much, Gustav. I was preparing to do what the others had suggested - adding a field to indicate whether the record had been exported - but this was easier. :-) Thanks to everyone, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 22, 2006 2:01 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Check Box - "Select All" Hi Nanette Oops, missed the update part: While Not rst.EOF rst.Edit rst!chkSelect.Value = True rst.Update rst.MoveNext Wend /gustav >>> Gustav at cactus.dk 22-08-2006 20:56:24 >>> Hi Nanette You could use DAO and update the recordset of the form: Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If rst.RecordCount > 0 Then rst.MoveFirst While Not rst.EOF rst!chkSelect.Value = True rst.MoveNext Wend End If rst.Close Set rst = Nothing /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Tue Aug 22 14:25:00 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 22 Aug 2006 12:25:00 -0700 Subject: [AccessD] Passing aarray index to docmd In-Reply-To: References: Message-ID: <44EB5A0C.4030808@shaw.ca> In the on click event of List0 List box ListIndex will give you the number regardless of sort order. Private Sub List0_Click() MsgBox " Index " & List0.ListIndex MsgBox " Count " & List0.ListCount End Sub Martin Reid wrote: > >I am trying to pass the index of an array to a Docmd. Cant get the syntax right. Any ideas? >I have a drop down list with a 0 based index. I need to grab the index and pass it to the docmd? > >Martin > > >Martin WP Reid >Training and Assessment Unit >Riddle Hall >Belfast > >tel: 02890 974477 > > > > >------------------------------------------------------------------------ > >No virus found in this incoming message. >Checked by AVG Free Edition. >Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006 > > -- Marty Connelly Victoria, B.C. Canada From martyconnelly at shaw.ca Tue Aug 22 15:20:34 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 22 Aug 2006 13:20:34 -0700 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: <44EB6712.7000207@shaw.ca> Here are some other set able timeouts, whether they override the registry settings I don't know. Depends if you are using DAO or ADO. You might want to check the Oracle Client .ora file too. Sub querytest() Dim dbs As Database Set dbs = CurrentDb Debug.Print dbs.QueryTimeout 'default 60 secs dbs.QueryTimeout = 600 Debug.Print dbs.QueryTimeout 'default now 600 secs Debug.Print CurrentProject.Connection.CommandTimeout '30 seconds ' commandtimeout similar to querytimeout 'this is ADODB.Command.CommandTimeout for entire project Debug.Print CurrentProject.Connection.ConnectionTimeout '15 seconds Dim LoggedOnQry As QueryDef Set LoggedOnQry = dbs.QueryDefs("query1") Debug.Print LoggedOnQry.ODBCTimeout 'default 60 idle timeout? Dim conn As New ADODB.Connection conn.Open "Driver={SQL Server};Server=MARTIN;Database=pubs;Trusted_Connection=yes" Debug.Print conn.CommandTimeout Debug.Print conn.ConnectionTimeout conn.Close Debug.Print "close" End Sub Gary Kjos wrote: >Hi Patricia, > >Weird. Maybe I'm just lucky? ;-) > >I''ve got some extract queries that run for a few hours before >returning any results so I'd really be in trouble if it didn't work as >it does for me. > >Perhaps you could test the database login theory if you ran a similar >query directly against the Oracle Database using another tool such as >SQL Navigator, Toad or SQL Plus, taking the ODBC driver out of the >mix. If the query works there then it isn't default limits on the >login causing your problem. Or if you are on friendly enough terms >with your Oracle DBA you could ask them what they think is going on. > >Good luck figuring it out and be sue and let us know when you do. > >GK > >On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > >>Hi Gary >>I use the same ODBC driver and even tried rebooting - still get same >>message. Will check into the Oracle Database login to see if they have >>something set up there. >> >>I recommend the oracle odbc over the microsoft because the date handling >>is better. Think it is better for passthru's also. There was something >>else related also but I can't remember at just this moment. >> >>Thanks >> >>************************************************** >>* Patricia O'Connor >>* Associate Computer Programmer Analyst >>* OTDA - BDMA >>* (W) mailto:Patricia.O'Connor at otda.state.ny.us >>* (w) mailto:aa1160 at nysemail.state.ny.us >>************************************************** >> >> >> >>>From: accessd-bounces at databaseadvisors.com >>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gary Kjos >>>Sent: Tuesday, August 22, 2006 12:07 PM >>>To: Access Developers discussion and problem solving >>>Subject: Re: [AccessD] Change ODBC timeout default query property >>> >>>I am currently using Oracle ODBC driver 9.02.00.54 Yep. >>>unclicking the "Enable Query Timeout" box does the trick for >>>me and my users. >>>That is the only option we change from default when setting >>>up the ODBC data source. We use System DSN's for all ODBC >>>definitions. I wonder if your Oracle Database login has a >>>defaulting timeout level that is biting you.. >>> >>>I have also used the Microsoft ODBC driver with good results. >>>The only issue there was that if the Oracle Database login >>>password was expired the Microsoft ODBC driver didn't prompt >>>for entering a new password as the Oracle one did. that may >>>have changed with a newer Microsoft driver though. We used to >>>use a generic login and password for everyone's Access ODBC >>>into Oracle stuff, but because of Sarbains/Oxley we were >>>required to change to individual user logins that had >>>expiring passwords. So that was when the Microsoft ODBC >>>driver not prompting for new password became more of an issue. >>> >>>On 8/22/06, O'Connor, Patricia (OTDA) >>> wrote: >>> >>> >>>>Gary >>>> >>>>Which driver do you use? And unclick works? >>>> >>>>We are using the ORACLE ODBC driver Ora 9i. But also >>>> >>>> >>>happens against >>> >>> >>>>FOXPRO. >>>> >>>>I went to the Administrative tools, Data Sources(ODBC) and >>>> >>>> >>>unclicked >>> >>> >>>>Query Time out. Opened the MDB and tried a pretty simple >>>> >>>> >>>query without >>> >>> >>>>changing the Query Property Timeout over 60. It still timed out. >>>> >>>>I get the following message if I don't set the QUERY PROPERTY ODBC >>>>Timeout from 60 up to at least 500. I routinely set it at 6000. >>>> >>>> ODBC--Call failed. >>>> [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of >>>>current operation (#1013) >>>> >>>>I know immediately that I forgot to update the timeout by >>>> >>>> >>>the message >>> >>> >>>>above. Many others do not understand so I am always >>>> >>>> >>>checking out their >>> >>> >>>>queries and machines. >>>> >>>>I was wondering whether there was a change to Registry or >>>> >>>> >>>some hidden >>> >>> >>>>MS change that would fix this. >>>> >>>>Thanks >>>>************************************************** >>>>* Patricia O'Connor >>>>* Associate Computer Programmer Analyst >>>>* OTDA - BDMA >>>>* (W) mailto:Patricia.O'Connor at otda.state.ny.us >>>>* (w) mailto:aa1160 at nysemail.state.ny.us >>>>************************************************** >>>> >>>>-----Original Message----- >>>> >>>> >>>> >>>>>From: accessd-bounces at databaseadvisors.com >>>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf >>>>> >>>>> >>>Of Gary Kjos >>> >>> >>>>>Sent: Tuesday, August 22, 2006 10:11 AM >>>>>To: Access Developers discussion and problem solving >>>>>Subject: Re: [AccessD] Change ODBC timeout default query property >>>>> >>>>>Which ODBC driver are you using? With the Oracle ODBC Driver for >>>>>Oracle you can tell it to just NOT timeout by unchecking >>>>> >>>>> >>>the Timeout >>> >>> >>>>>checkbox. >>>>> >>>>>On 8/22/06, O'Connor, Patricia (OTDA) >>>>> wrote: >>>>> >>>>> >>>>>>Hi all >>>>>> >>>>>>Is there a way to set the ODBC timeout default in the query >>>>>>properties from 60 to 6000 permanently? Most of our work >>>>>> >>>>>> >>>>>is against >>>>> >>>>> >>>>>>our ORACLE databases, some Foxpro, and SqlServer. For every >>>>>> >>>>>> >>>>>new query >>>>> >>>>> >>>>>>we do we have to remember to reset this before running >>>>>> >>>>>> >>>>>otherwise we get a timeout. >>>>> >>>>> >>>>>>Does not matter how easy or hard the query is, If it isn't at >>>>>>least 600 then poof it stops. One person said that it would >>>>>> >>>>>> >>>>>cause their MDB >>>>> >>>>> >>>>>>to corrupt but I haven't had that problem. >>>>>> >>>>>>The OPTIONS ADVANCED does not do this. I have looked almost >>>>>>everywhere but can't find out how to change the default. >>>>>> >>>>>> >>>>>This would >>>>> >>>>> >>>>>>be for 2k or 2k3. >>>>>>Any help appreciated >>>>>> >>>>>>Thanks >>>>>> >>>>>>************************************************** >>>>>>* Patricia O'Connor >>>>>>-------------------------------------------------------- >>>>>> >>>>>> >>>>> > > > -- Marty Connelly Victoria, B.C. Canada From John.Clark at niagaracounty.com Tue Aug 22 15:37:15 2006 From: John.Clark at niagaracounty.com (John Clark) Date: Tue, 22 Aug 2006 16:37:15 -0400 Subject: [AccessD] Should be simple In-Reply-To: References: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Message-ID: <44EB32B9.167F.006B.0@niagaracounty.com> I am working on a DB that I am trying to finish up. I've shown it to the users and they like it, but of course there are a few alterations to be made. A couple of them are actually just things I overlooked. I have a form where defendants are entered into a system. Actually, it is all names associated with a case (i.e. lawyers, judges, victims, defendants, etc.) and the system sorts them out by their check box designations on entry or edit. I have a drop-down box in place to choose a lawyer...same w/many of the fields, but I'll use lawyer here. I used a union query to place a "" option, at the top of the drop-down. If the user clicks on this option, they are taken to the form to enter new names, and the default check is placed, depending on where you came from (I use OpenArgs for this). It also knows where to go back to. The code used for this is: ____________________________________________________________________________________ Private Sub txtAttorney_BeforeUpdate(Cancel As Integer) If txtAttorney.SelText = "" Then DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd, acWindowNormal, "ATT" Me.Visible = False End If End Sub ____________________________________________________________________________________ However, I have tried adding the same ability to the "Charges" field, and the last liine gives me trouble. It says, "You can't hide a control that has the focus." I know what this means, but I just copied the code from elsewhere in the same program, and it works there. Any ideas? John W. Clark From jwcolby at colbyconsulting.com Tue Aug 22 16:14:48 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 17:14:48 -0400 Subject: [AccessD] Should be simple In-Reply-To: <44EB32B9.167F.006B.0@niagaracounty.com> Message-ID: <005601c6c630$00c0c100$657aa8c0@m6805> It appears that the form just opened does not have the focus, thus since the focus is in the current form, it can't be hidden. Open the new form modal, or explicitly set the focus into the new form just opened, then do the hide. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark Sent: Tuesday, August 22, 2006 4:37 PM To: Access Developers discussion and problem solving Subject: [AccessD] Should be simple I am working on a DB that I am trying to finish up. I've shown it to the users and they like it, but of course there are a few alterations to be made. A couple of them are actually just things I overlooked. I have a form where defendants are entered into a system. Actually, it is all names associated with a case (i.e. lawyers, judges, victims, defendants, etc.) and the system sorts them out by their check box designations on entry or edit. I have a drop-down box in place to choose a lawyer...same w/many of the fields, but I'll use lawyer here. I used a union query to place a "" option, at the top of the drop-down. If the user clicks on this option, they are taken to the form to enter new names, and the default check is placed, depending on where you came from (I use OpenArgs for this). It also knows where to go back to. The code used for this is: ____________________________________________________________________________ ________ Private Sub txtAttorney_BeforeUpdate(Cancel As Integer) If txtAttorney.SelText = "" Then DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd, acWindowNormal, "ATT" Me.Visible = False End If End Sub ____________________________________________________________________________ ________ However, I have tried adding the same ability to the "Charges" field, and the last liine gives me trouble. It says, "You can't hide a control that has the focus." I know what this means, but I just copied the code from elsewhere in the same program, and it works there. Any ideas? John W. Clark -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From pete.phillipps at ntlworld.com Tue Aug 22 18:41:23 2006 From: pete.phillipps at ntlworld.com (pete.phillipps at ntlworld.com) Date: Wed, 23 Aug 2006 0:41:23 +0100 Subject: [AccessD] Pretty Code - An Alternate? Message-ID: <20060822234123.YRCM11710.aamtaout03-winn.ispmail.ntl.com@smtp.ntlworld.com> Hi Everyone, Dan Waters asked: <> You can copy code from Visual Sudio .NET and paste it into Word and it maintains its colour format, so what I do is copy and paste VB6 code into VS .NET, then copy and paste the code from VS .NET into Word. Pete Phillipps ----------------------------------------- Email sent from www.ntlworld.com Virus-checked using McAfee(R) Software Visit www.ntlworld.com/security for more information From jmhecht at earthlink.net Tue Aug 22 21:04:23 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Tue, 22 Aug 2006 19:04:23 -0700 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <44EB0B4C.3030003@san.rr.com> Message-ID: A lot more than me ; ( Joe Hecht jmhecht at earthlink.net -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 22, 2006 6:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] [Fwd: Word XP and access] Look right to me (what do I know?). I'll forward to the client and let him test it. T&R Rocky William Hindman wrote: > ...try something like > > Application.DisplayAlerts = wdAlertsNone Documents.Open > FileName:="c:\my documents\testmerg.doc" > Application.DisplayAlerts = wdAlertsAll > > ...hth > > William > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Tuesday, August 22, 2006 1:42 AM > Subject: [AccessD] [Fwd: Word XP and access] > > > >> Dear List: >> >> My client writes: >> >> I have a template that has mail merge codes in it. I have a one-table >> Access mdb to which the template is linked. My regular access program >> empties and reloads the single table in the one-table mdb. >> >> Then my regular Access program opens the template and saves it to a >> predetermined .doc file... The only problem is when the template is >> being opened, I get a MS Word message that says: "Opening this >> document will run the following SQL command. Etc. >> >> Question: How do I prevent that screen warning? >> >> Anybody know the answer? >> >> MTIA, >> >> 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 >> >> > > > > -- 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 pcs at azizaz.com Wed Aug 23 00:57:42 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 23 Aug 2006 15:57:42 +1000 Subject: [AccessD] [Fwd: Word XP and access] References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> Message-ID: <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> Hi, Funny, I am sitting here working with the exact same issue.... I am using Helen Feddema's code from http://www.helenfeddema.com/access.htm Number 92 accarch92.zip mentioned in a post a few days ago I am using SQL string as the record source, (see frmMailMergeSQL in Helen's example). I noted that when opening the Word mail merge document you are met with the SQL alert you mentioned, and tried to find the source of this message and get rid of it... It's created when using the Mail Merge wizard, and I've found no way to get rid of the message other than suppressing it using William's suggestion. If I understand correct, William's suggestion would require a Word 'macro' / vba code, which by itself *could* create other another message appearing.... Two ways of getting totally rid of the sql alert message: Either ....copy the table with the mail merge info into a new document with the same page setup as the original mail merge document. or ....create a mail merge document for labels without using the mail merge wizard..... just set up the page and label type and manully add the fields into each label on the page Now, New Question: Any ideas of how to offset the start of printing on the label sheet to the first 'available' label on the sheet. Say you have a 2 x 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. My initial thinking was to create say x 'empty' records (zero length fields) for the offset by way of using a union query: first part adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top of the list). Is that a way to go, and if so what's the sql to create x empty records??? Any suggestions appreciated. Regards Borge ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Tuesday, August 22, 2006 11:49 PM Subject: Re: [AccessD] [Fwd: Word XP and access] > Look right to me (what do I know?). I'll forward to the client and let > him test it. > > T&R > > Rocky > > > William Hindman wrote: > > ...try something like > > > > Application.DisplayAlerts = wdAlertsNone > > Documents.Open FileName:="c:\my documents\testmerg.doc" > > Application.DisplayAlerts = wdAlertsAll > > > > ...hth > > > > William > > > > ----- Original Message ----- > > From: "Rocky Smolin - Beach Access Software" > > To: "Access Developers discussion and problem solving" > > > > Sent: Tuesday, August 22, 2006 1:42 AM > > Subject: [AccessD] [Fwd: Word XP and access] > > > > > > > >> Dear List: > >> > >> My client writes: > >> > >> I have a template that has mail merge codes in it. I have a one-table > >> Access mdb to which the template is linked. My regular access program > >> empties and reloads the single table in the one-table mdb. > >> > >> Then my regular Access program opens the template and saves it to a > >> predetermined .doc file... The only problem is when the template is > >> being opened, I get a MS Word message that says: "Opening this document > >> will run the following SQL command. Etc. > >> > >> Question: How do I prevent that screen warning? > >> > >> Anybody know the answer? > >> > >> MTIA, > >> > >> 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 > >> > >> > > > > > > > > > > -- > 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 darrend at nimble.com.au Wed Aug 23 02:32:54 2006 From: darrend at nimble.com.au (Darren DICK) Date: Wed, 23 Aug 2006 17:32:54 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060823073258.HSPV6880.omta04ps.mx.bigpond.com@DENZILLAP> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Wed Aug 23 04:36:54 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Wed, 23 Aug 2006 11:36:54 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From bchacc at san.rr.com Wed Aug 23 09:28:13 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 07:28:13 -0700 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> Message-ID: <44EC65FD.1090200@san.rr.com> Borge: I print labels one at a time to mail out a consumer based product in an envelope so in the Detail_Format event of the label printing report, I use: Me.MoveLayout = True Me.NextRecord = False Me.PrintSection = False and iterate for the number of labels you want to skip. But, of course, you have to know how many labels you want to skip and pass that to the loop or counter. HTH Rocky Borge Hansen wrote: > Hi, > Funny, I am sitting here working with the exact same issue.... > I am using Helen Feddema's code from > > http://www.helenfeddema.com/access.htm > Number 92 accarch92.zip > > mentioned in a post a few days ago > > I am using SQL string as the record source, (see frmMailMergeSQL in Helen's example). > > I noted that when opening the Word mail merge document you are met with the SQL alert you mentioned, and tried to find the source of > this message and get rid of it... > > It's created when using the Mail Merge wizard, and I've found no way to get rid of the message other than suppressing it using > William's suggestion. > > If I understand correct, William's suggestion would require a Word 'macro' / vba code, which by itself *could* create other another > message appearing.... > > Two ways of getting totally rid of the sql alert message: > Either > ....copy the table with the mail merge info into a new document with the same page setup as the original mail merge document. > or > ....create a mail merge document for labels without using the mail merge wizard..... just set up the page and label type and manully > add the fields into each label on the page > > Now, New Question: > Any ideas of how to offset the start of printing on the label sheet to the first 'available' label on the sheet. Say you have a 2 x > 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. > > My initial thinking was to create say x 'empty' records (zero length fields) for the offset by way of using a union query: first > part adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top > of the list). > > Is that a way to go, and if so what's the sql to create x empty records??? > > Any suggestions appreciated. > > Regards > Borge > > > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > Sent: Tuesday, August 22, 2006 11:49 PM > Subject: Re: [AccessD] [Fwd: Word XP and access] > > > >> Look right to me (what do I know?). I'll forward to the client and let >> him test it. >> >> T&R >> >> Rocky >> >> >> William Hindman wrote: >> >>> ...try something like >>> >>> Application.DisplayAlerts = wdAlertsNone >>> Documents.Open FileName:="c:\my documents\testmerg.doc" >>> Application.DisplayAlerts = wdAlertsAll >>> >>> ...hth >>> >>> William >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Tuesday, August 22, 2006 1:42 AM >>> Subject: [AccessD] [Fwd: Word XP and access] >>> >>> >>> >>> >>>> Dear List: >>>> >>>> My client writes: >>>> >>>> I have a template that has mail merge codes in it. I have a one-table >>>> Access mdb to which the template is linked. My regular access program >>>> empties and reloads the single table in the one-table mdb. >>>> >>>> Then my regular Access program opens the template and saves it to a >>>> predetermined .doc file... The only problem is when the template is >>>> being opened, I get a MS Word message that says: "Opening this document >>>> will run the following SQL command. Etc. >>>> >>>> Question: How do I prevent that screen warning? >>>> >>>> Anybody know the answer? >>>> >>>> MTIA, >>>> >>>> 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 >>>> >>>> >>>> >>> >>> >>> >> -- >> 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 ssharkins at setel.com Wed Aug 23 10:57:57 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 23 Aug 2006 11:57:57 -0400 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <44EC65FD.1090200@san.rr.com> Message-ID: <001c01c6c6cc$e775e890$bdb82ad1@SUSANONE> You create a temp table of the addresses, and use SQL to insert blank rows -- representing the missing labels -- at the top of the recordset. Really very easy. If you need help, let me know -- I can dig up the exact instructions... I think. :) The report doesn't know the difference between a blank row and the data. Interface wise, all you really need is a simple form to capture the number of blank records you need. Susan H. Borge: I print labels one at a time to mail out a consumer based product in an envelope so in the Detail_Format event of the label printing report, I use: Me.MoveLayout = True Me.NextRecord = False Me.PrintSection = False and iterate for the number of labels you want to skip. But, of course, you have to know how many labels you want to skip and pass that to the loop or counter. HTH Rocky Borge Hansen wrote: > Hi, > Funny, I am sitting here working with the exact same issue.... > I am using Helen Feddema's code from > > http://www.helenfeddema.com/access.htm > Number 92 accarch92.zip > > mentioned in a post a few days ago > > I am using SQL string as the record source, (see frmMailMergeSQL in Helen's example). > > I noted that when opening the Word mail merge document you are met > with the SQL alert you mentioned, and tried to find the source of this message and get rid of it... > > It's created when using the Mail Merge wizard, and I've found no way > to get rid of the message other than suppressing it using William's suggestion. > > If I understand correct, William's suggestion would require a Word > 'macro' / vba code, which by itself *could* create other another message appearing.... > > Two ways of getting totally rid of the sql alert message: > Either > ....copy the table with the mail merge info into a new document with the same page setup as the original mail merge document. > or > ....create a mail merge document for labels without using the mail > merge wizard..... just set up the page and label type and manully add > the fields into each label on the page > > Now, New Question: > Any ideas of how to offset the start of printing on the label sheet to > the first 'available' label on the sheet. Say you have a 2 x > 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. > > My initial thinking was to create say x 'empty' records (zero length > fields) for the offset by way of using a union query: first part > adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top of the list). > > Is that a way to go, and if so what's the sql to create x empty records??? > > Any suggestions appreciated. > > Regards > Borge > > > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Tuesday, August 22, 2006 11:49 PM > Subject: Re: [AccessD] [Fwd: Word XP and access] > > > >> Look right to me (what do I know?). I'll forward to the client and >> let him test it. >> >> T&R >> >> Rocky >> >> >> William Hindman wrote: >> >>> ...try something like >>> >>> Application.DisplayAlerts = wdAlertsNone Documents.Open >>> FileName:="c:\my documents\testmerg.doc" >>> Application.DisplayAlerts = wdAlertsAll >>> >>> ...hth >>> >>> William >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Tuesday, August 22, 2006 1:42 AM >>> Subject: [AccessD] [Fwd: Word XP and access] >>> >>> >>> >>> >>>> Dear List: >>>> >>>> My client writes: >>>> >>>> I have a template that has mail merge codes in it. I have a >>>> one-table Access mdb to which the template is linked. My regular >>>> access program empties and reloads the single table in the one-table mdb. >>>> >>>> Then my regular Access program opens the template and saves it to a >>>> predetermined .doc file... The only problem is when the template is >>>> being opened, I get a MS Word message that says: "Opening this >>>> document will run the following SQL command. Etc. >>>> >>>> Question: How do I prevent that screen warning? >>>> >>>> Anybody know the answer? >>>> >>>> MTIA, >>>> >>>> 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 >>>> >>>> >>>> >>> >>> >>> >> -- >> 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.10.7/411 - Release Date: 8/7/2006 From bchacc at san.rr.com Wed Aug 23 12:32:33 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 10:32:33 -0700 Subject: [AccessD] Word Window On Top Message-ID: <44EC9131.4090607@san.rr.com> Dear List: Using automation I open a word doc, but the access app is still on top. Word is in the tray. Click it and the doc is there and open. Q: how can I give the word doc window the focus after I open it? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Patricia.O'Connor at otda.state.ny.us Wed Aug 23 13:12:43 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 23 Aug 2006 14:12:43 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB59@EXCNYSM0A1AI.nysemail.nyenet> Hi Gary, Thanks!! If I run same query in PL_SQL no problem without touching any timers. Asked our DBA and they checked the ORACLE logon and there were no login limits. So we checked the SQLNET.ORA file and the SQLNET.EXPIRE_TIME=0. I set the registry to 6000. Just out of curiosity what do you have in the TOOLS OPTIONS ADVANCED settings Enable DDe refresh OLE/DDE timeout 300 REfresh interval 60 Number of update retries 2 Odbc refresh interval 1500 Update retry interval 250 Record level locking This is so strange. Will try looking at ms forums maybe something there. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Tuesday, August 22, 2006 02:14 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia, > > Weird. Maybe I'm just lucky? ;-) > > I''ve got some extract queries that run for a few hours > before returning any results so I'd really be in trouble if > it didn't work as it does for me. > > Perhaps you could test the database login theory if you ran a > similar query directly against the Oracle Database using > another tool such as SQL Navigator, Toad or SQL Plus, taking > the ODBC driver out of the mix. If the query works there > then it isn't default limits on the login causing your > problem. Or if you are on friendly enough terms with your > Oracle DBA you could ask them what they think is going on. > > Good luck figuring it out and be sue and let us know when you do. > > GK > > On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > Hi Gary > > I use the same ODBC driver and even tried rebooting - still > get same > > message. Will check into the Oracle Database login to see if they > > have something set up there. > > > > I recommend the oracle odbc over the microsoft because the date > > handling is better. Think it is better for passthru's also. > There was > > something else related also but I can't remember at just > this moment. > > > > Thanks > > > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > Sent: Tuesday, August 22, 2006 12:07 PM > > > To: Access Developers discussion and problem solving > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > > unclicking the "Enable Query Timeout" box does the trick > for me and > > > my users. > > > That is the only option we change from default when > setting up the > > > ODBC data source. We use System DSN's for all ODBC definitions. I > > > wonder if your Oracle Database login has a defaulting > timeout level > > > that is biting you.. > > > > > > I have also used the Microsoft ODBC driver with good results. > > > The only issue there was that if the Oracle Database > login password > > > was expired the Microsoft ODBC driver didn't prompt for > entering a > > > new password as the Oracle one did. that may have changed with a > > > newer Microsoft driver though. We used to use a generic login and > > > password for everyone's Access ODBC into Oracle stuff, > but because > > > of Sarbains/Oxley we were required to change to individual user > > > logins that had expiring passwords. So that was when the > Microsoft > > > ODBC driver not prompting for new password became more of > an issue. > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > wrote: > > > > Gary > > > > > > > > Which driver do you use? And unclick works? > > > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > > happens against > > > > FOXPRO. > > > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > > unclicked > > > > Query Time out. Opened the MDB and tried a pretty simple > > > query without > > > > changing the Query Property Timeout over 60. It still > timed out. > > > > > > > > I get the following message if I don't set the QUERY > PROPERTY ODBC > > > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > > > > > ODBC--Call failed. > > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested > cancel of > > > > current operation (#1013) > > > > > > > > I know immediately that I forgot to update the timeout by > > > the message > > > > above. Many others do not understand so I am always > > > checking out their > > > > queries and machines. > > > > > > > > I was wondering whether there was a change to Registry or > > > some hidden > > > > MS change that would fix this. > > > > > > > > Thanks > > > > ************************************************** > > > > * Patricia O'Connor > > > > * Associate Computer Programmer Analyst > > > > * OTDA - BDMA > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > > ************************************************** > > > > > > > > -----Original Message----- > > > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > > Of Gary Kjos > > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > > To: Access Developers discussion and problem solving > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > property > > > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver > > > > > for Oracle you can tell it to just NOT timeout by unchecking > > > the Timeout > > > > > checkbox. > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > wrote: > > > > > > Hi all > > > > > > > > > > > > Is there a way to set the ODBC timeout default in > the query > > > > > > properties from 60 to 6000 permanently? Most of our work > > > > > is against > > > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > > > new query > > > > > > we do we have to remember to reset this before running > > > > > otherwise we get a timeout. > > > > > > Does not matter how easy or hard the query is, If > it isn't at > > > > > > least 600 then poof it stops. One person said that it would > > > > > cause their MDB > > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have > looked almost > > > > > > everywhere but can't find out how to change the default. > > > > > This would > > > > > > be for 2k or 2k3. > > > > > > Any help appreciated > > > > > > > > > > > > Thanks > > > > > > > > > > > > ************************************************** > > > > > > * Patricia O'Connor > > > > > > -------------------------------------------------------- > > > > > -- > > > > > Gary Kjos > > > > > garykjos at gmail.com > > > > > -- > > > Gary Kjos > > > garykjos at gmail.com > > > -- > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > Gary Kjos > garykjos at gmail.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From garykjos at gmail.com Wed Aug 23 13:34:20 2006 From: garykjos at gmail.com (Gary Kjos) Date: Wed, 23 Aug 2006 13:34:20 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB59@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB59@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: I have Enable DDE Refresh checked OLE/DDE timeout = 30 Refresh interval = 60 Number of Update Retries = 2 ODBC Refresh Interval Sec = 1500 Update retry interval = 250 Record Level Locking is checked One other thing I didn't mention before is that everything I do via Access/ODBC is read only so in the ODBC Data source setup I do have the Readonly Connection option checked too. Not sure if that is the default. I'm using Access 2003 now but started doing this using Access 2000. We have a combination of 8i and 9i Oracle databases that I connect to. GK On 8/23/06, O'Connor, Patricia (OTDA) wrote: > Hi Gary, > > Thanks!! > If I run same query in PL_SQL no problem without touching any timers. > Asked our DBA and they checked the ORACLE logon and there were no login > limits. > So we checked the SQLNET.ORA file and the SQLNET.EXPIRE_TIME=0. > I set the registry to 6000. > > Just out of curiosity what do you have in the TOOLS OPTIONS ADVANCED > settings > Enable DDe refresh > OLE/DDE timeout 300 > REfresh interval 60 > Number of update retries 2 > Odbc refresh interval 1500 > Update retry interval 250 > Record level locking > > This is so strange. Will try looking at ms forums maybe something there. > Thanks > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > Sent: Tuesday, August 22, 2006 02:14 PM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > Hi Patricia, > > > > Weird. Maybe I'm just lucky? ;-) > > > > I''ve got some extract queries that run for a few hours > > before returning any results so I'd really be in trouble if > > it didn't work as it does for me. > > > > Perhaps you could test the database login theory if you ran a > > similar query directly against the Oracle Database using > > another tool such as SQL Navigator, Toad or SQL Plus, taking > > the ODBC driver out of the mix. If the query works there > > then it isn't default limits on the login causing your > > problem. Or if you are on friendly enough terms with your > > Oracle DBA you could ask them what they think is going on. > > > > Good luck figuring it out and be sue and let us know when you do. > > > > GK > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > wrote: > > > Hi Gary > > > I use the same ODBC driver and even tried rebooting - still > > get same > > > message. Will check into the Oracle Database login to see if they > > > have something set up there. > > > > > > I recommend the oracle odbc over the microsoft because the date > > > handling is better. Think it is better for passthru's also. > > There was > > > something else related also but I can't remember at just > > this moment. > > > > > > Thanks > > > > > > ************************************************** > > > * Patricia O'Connor > > > * Associate Computer Programmer Analyst > > > * OTDA - BDMA > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > > Sent: Tuesday, August 22, 2006 12:07 PM > > > > To: Access Developers discussion and problem solving > > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > > > unclicking the "Enable Query Timeout" box does the trick > > for me and > > > > my users. > > > > That is the only option we change from default when > > setting up the > > > > ODBC data source. We use System DSN's for all ODBC definitions. I > > > > wonder if your Oracle Database login has a defaulting > > timeout level > > > > that is biting you.. > > > > > > > > I have also used the Microsoft ODBC driver with good results. > > > > The only issue there was that if the Oracle Database > > login password > > > > was expired the Microsoft ODBC driver didn't prompt for > > entering a > > > > new password as the Oracle one did. that may have changed with a > > > > newer Microsoft driver though. We used to use a generic login and > > > > password for everyone's Access ODBC into Oracle stuff, > > but because > > > > of Sarbains/Oxley we were required to change to individual user > > > > logins that had expiring passwords. So that was when the > > Microsoft > > > > ODBC driver not prompting for new password became more of > > an issue. > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > wrote: > > > > > Gary > > > > > > > > > > Which driver do you use? And unclick works? > > > > > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > > > happens against > > > > > FOXPRO. > > > > > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > > > unclicked > > > > > Query Time out. Opened the MDB and tried a pretty simple > > > > query without > > > > > changing the Query Property Timeout over 60. It still > > timed out. > > > > > > > > > > I get the following message if I don't set the QUERY > > PROPERTY ODBC > > > > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > > > > > > > ODBC--Call failed. > > > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested > > cancel of > > > > > current operation (#1013) > > > > > > > > > > I know immediately that I forgot to update the timeout by > > > > the message > > > > > above. Many others do not understand so I am always > > > > checking out their > > > > > queries and machines. > > > > > > > > > > I was wondering whether there was a change to Registry or > > > > some hidden > > > > > MS change that would fix this. > > > > > > > > > > Thanks > > > > > ************************************************** > > > > > * Patricia O'Connor > > > > > * Associate Computer Programmer Analyst > > > > > * OTDA - BDMA > > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > > > ************************************************** > > > > > > > > > > -----Original Message----- > > > > > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > > > Of Gary Kjos > > > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > > > To: Access Developers discussion and problem solving > > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > > property > > > > > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver > > > > > > for Oracle you can tell it to just NOT timeout by unchecking > > > > the Timeout > > > > > > checkbox. > > > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > > wrote: > > > > > > > Hi all > > > > > > > > > > > > > > Is there a way to set the ODBC timeout default in > > the query > > > > > > > properties from 60 to 6000 permanently? Most of our work > > > > > > is against > > > > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > > > > new query > > > > > > > we do we have to remember to reset this before running > > > > > > otherwise we get a timeout. > > > > > > > Does not matter how easy or hard the query is, If > > it isn't at > > > > > > > least 600 then poof it stops. One person said that it would > > > > > > cause their MDB > > > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have > > looked almost > > > > > > > everywhere but can't find out how to change the default. > > > > > > This would > > > > > > > be for 2k or 2k3. > > > > > > > Any help appreciated > > > > > > > > > > > > > > Thanks > > > > > > > > > > > > > > ************************************************** > > > > > > > * Patricia O'Connor > > > > > > > -------------------------------------------------------- > > > > > > -- > > > > > > Gary Kjos > > > > > > garykjos at gmail.com > > > > > > -- > > > > Gary Kjos > > > > garykjos at gmail.com > > > > -- > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > Gary Kjos > > garykjos at gmail.com > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > 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 Patricia.O'Connor at otda.state.ny.us Wed Aug 23 13:47:44 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 23 Aug 2006 14:47:44 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB5A@EXCNYSM0A1AI.nysemail.nyenet> Thanks again!! will look into some more things ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Wednesday, August 23, 2006 02:34 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > I have Enable DDE Refresh checked > OLE/DDE timeout = 30 > Refresh interval = 60 > Number of Update Retries = 2 > ODBC Refresh Interval Sec = 1500 > Update retry interval = 250 > Record Level Locking is checked > > One other thing I didn't mention before is that everything I > do via Access/ODBC is read only so in the ODBC Data source > setup I do have the Readonly Connection option checked too. > Not sure if that is the default. > > I'm using Access 2003 now but started doing this using Access > 2000. We have a combination of 8i and 9i Oracle databases > that I connect to. > > GK > > On 8/23/06, O'Connor, Patricia (OTDA) > wrote: > > Hi Gary, > > > > Thanks!! > > If I run same query in PL_SQL no problem without touching > any timers. > > Asked our DBA and they checked the ORACLE logon and there were no > > login limits. > > So we checked the SQLNET.ORA file and the SQLNET.EXPIRE_TIME=0. > > I set the registry to 6000. > > > > Just out of curiosity what do you have in the TOOLS OPTIONS > ADVANCED > > settings > > Enable DDe refresh > > OLE/DDE timeout 300 > > REfresh interval 60 > > Number of update retries 2 > > Odbc refresh interval 1500 > > Update retry interval 250 > > Record level locking > > > > This is so strange. Will try looking at ms forums maybe > something there. > > Thanks > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > Sent: Tuesday, August 22, 2006 02:14 PM > > > To: Access Developers discussion and problem solving > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > Hi Patricia, > > > > > > Weird. Maybe I'm just lucky? ;-) > > > > > > I''ve got some extract queries that run for a few hours before > > > returning any results so I'd really be in trouble if it > didn't work > > > as it does for me. > > > > > > Perhaps you could test the database login theory if you ran a > > > similar query directly against the Oracle Database using another > > > tool such as SQL Navigator, Toad or SQL Plus, taking the > ODBC driver > > > out of the mix. If the query works there then it isn't default > > > limits on the login causing your problem. Or if you are > on friendly > > > enough terms with your Oracle DBA you could ask them what > they think > > > is going on. > > > > > > Good luck figuring it out and be sue and let us know when you do. > > > > > > GK > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > wrote: > > > > Hi Gary > > > > I use the same ODBC driver and even tried rebooting - still > > > get same > > > > message. Will check into the Oracle Database login to > see if they > > > > have something set up there. > > > > > > > > I recommend the oracle odbc over the microsoft because the date > > > > handling is better. Think it is better for passthru's also. > > > There was > > > > something else related also but I can't remember at just > > > this moment. > > > > > > > > Thanks > > > > > > > > ************************************************** > > > > * Patricia O'Connor > > > > * Associate Computer Programmer Analyst > > > > * OTDA - BDMA > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > > > Sent: Tuesday, August 22, 2006 12:07 PM > > > > > To: Access Developers discussion and problem solving > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > property > > > > > > > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > > > > unclicking the "Enable Query Timeout" box does the trick > > > for me and > > > > > my users. > > > > > That is the only option we change from default when > > > setting up the > > > > > ODBC data source. We use System DSN's for all ODBC > definitions. > > > > > I wonder if your Oracle Database login has a defaulting > > > timeout level > > > > > that is biting you.. > > > > > > > > > > I have also used the Microsoft ODBC driver with good results. > > > > > The only issue there was that if the Oracle Database > > > login password > > > > > was expired the Microsoft ODBC driver didn't prompt for > > > entering a > > > > > new password as the Oracle one did. that may have > changed with a > > > > > newer Microsoft driver though. We used to use a generic login > > > > > and password for everyone's Access ODBC into Oracle stuff, > > > but because > > > > > of Sarbains/Oxley we were required to change to > individual user > > > > > logins that had expiring passwords. So that was when the > > > Microsoft > > > > > ODBC driver not prompting for new password became more of > > > an issue. > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > wrote: > > > > > > Gary > > > > > > > > > > > > Which driver do you use? And unclick works? > > > > > > > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > > > > happens against > > > > > > FOXPRO. > > > > > > > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > > > > unclicked > > > > > > Query Time out. Opened the MDB and tried a pretty simple > > > > > query without > > > > > > changing the Query Property Timeout over 60. It still > > > timed out. > > > > > > > > > > > > I get the following message if I don't set the QUERY > > > PROPERTY ODBC > > > > > > Timeout from 60 up to at least 500. I routinely set > it at 6000. > > > > > > > > > > > > ODBC--Call failed. > > > > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested > > > cancel of > > > > > > current operation (#1013) > > > > > > > > > > > > I know immediately that I forgot to update the timeout by > > > > > the message > > > > > > above. Many others do not understand so I am always > > > > > checking out their > > > > > > queries and machines. > > > > > > > > > > > > I was wondering whether there was a change to Registry or > > > > > some hidden > > > > > > MS change that would fix this. > > > > > > > > > > > > Thanks > > > > > > ************************************************** > > > > > > * Patricia O'Connor > > > > > > * Associate Computer Programmer Analyst > > > > > > * OTDA - BDMA > > > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > > > > ************************************************** > > > > > > > > > > > > -----Original Message----- > > > > > > > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > > > > Of Gary Kjos > > > > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > > > > To: Access Developers discussion and problem solving > > > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > > > property > > > > > > > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC > > > > > > > Driver for Oracle you can tell it to just NOT timeout by > > > > > > > unchecking > > > > > the Timeout > > > > > > > checkbox. > > > > > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > > > wrote: > > > > > > > > Hi all > > > > > > > > > > > > > > > > Is there a way to set the ODBC timeout default in > > > the query > > > > > > > > properties from 60 to 6000 permanently? Most > of our work > > > > > > > is against > > > > > > > > our ORACLE databases, some Foxpro, and SqlServer. For > > > > > > > > every > > > > > > > new query > > > > > > > > we do we have to remember to reset this before running > > > > > > > otherwise we get a timeout. > > > > > > > > Does not matter how easy or hard the query is, If > > > it isn't at > > > > > > > > least 600 then poof it stops. One person said that it > > > > > > > > would > > > > > > > cause their MDB > > > > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have > > > looked almost > > > > > > > > everywhere but can't find out how to change the default. > > > > > > > This would > > > > > > > > be for 2k or 2k3. > > > > > > > > Any help appreciated > > > > > > > > > > > > > > > > Thanks > > > > > > > > > > > > > > > > ************************************************** > > > > > > > > * Patricia O'Connor > > > > > > > > -------------------------------------------------------- > > > > > > > -- > > > > > > > Gary Kjos > > > > > > > garykjos at gmail.com > > > > > > > -- > > > > > Gary Kjos > > > > > garykjos at gmail.com > > > > > -- > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > > > > > > > -- > > > Gary Kjos > > > garykjos at gmail.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > Gary Kjos > garykjos at gmail.com > -- > 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 Wed Aug 23 14:09:22 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 23 Aug 2006 15:09:22 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <44EB6712.7000207@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB5C@EXCNYSM0A1AI.nysemail.nyenet> Thanks will try this out. I usually use DAO only because I did not learn ado much yet. Started using 2k about 2 1/2 years ago and 2k3 in last few weeks. Would it be much different between DAO and ADO Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > MartyConnelly > Sent: Tuesday, August 22, 2006 04:21 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > Here are some other set able timeouts, whether they override > the registry settings I don't know. Depends if you are using > DAO or ADO. > You might want to check the Oracle Client .ora file too. > > Sub querytest() > Dim dbs As Database > > Set dbs = CurrentDb > Debug.Print dbs.QueryTimeout 'default 60 secs > dbs.QueryTimeout = 600 > Debug.Print dbs.QueryTimeout 'default now 600 secs > > Debug.Print CurrentProject.Connection.CommandTimeout '30 > seconds ' commandtimeout similar to querytimeout 'this is > ADODB.Command.CommandTimeout for entire project Debug.Print > CurrentProject.Connection.ConnectionTimeout '15 seconds > > Dim LoggedOnQry As QueryDef > Set LoggedOnQry = dbs.QueryDefs("query1") > Debug.Print LoggedOnQry.ODBCTimeout 'default 60 idle timeout? > > Dim conn As New ADODB.Connection > conn.Open "Driver={SQL > Server};Server=MARTIN;Database=pubs;Trusted_Connection=yes" > Debug.Print conn.CommandTimeout > Debug.Print conn.ConnectionTimeout > conn.Close > Debug.Print "close" > > End Sub > > From kismert at gmail.com Wed Aug 23 14:16:46 2006 From: kismert at gmail.com (Ken Ismert) Date: Wed, 23 Aug 2006 14:16:46 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. Message-ID: <44ECA99E.7060905@gmail.com> (Resending... sorry about the delay... sorting out my AccessD email settings) Ahh, the old "Dot vs. Bang" chestnut. I gotta weigh in, and respond to certain points John, A.D., Susan, Erwin and Dan brought up: First, thanks A.D. for your code demonstrating the interchangability of . and ! in common situations. The Me reference ---------------- Me is just the default internal reference to the object. In the case of a Form or Report, there is a hidden declaration header in the class module that makes all your controls available as properties of the class. So, within the Form class module, Me.txtDate is as valid as: Me!txtDate which is just as valid as: txtDate So, John, if you are getting an error in your runtime, it is not because of 'bad' syntax. It is either an error in the interpreter, or an earlier error manifesting itself at that line of code. Default Properties and Collections ---------------------------------- The classes we commonly work with in Access make heavy use of two time saving shortcuts: Default Properties and Default Collections. The default property is one that is exposed when an assignment is made using an object with no qualifying property: txtDate = #1/1/2006# varDate = txtDate In each instance, the default property Value is being implicitly referenced. So, the above code is exactly the same as: txtDate.Value = #1/1/2006# varDate = txtDate.Value Dan has to explicitly specify lblName.Caption in his example, because the Label object has no default property. More importantly for our discussion, Access classes also expose default collections. So the following code is equivalent: rForm("txtDate") ' rForm is a Form object rForm.Controls("txtDate") rRS("RowID") ' rRS is a Recordset object rRS.Fields("RowID") You can easily see that a collection is the default member of the Form and Recordset objects. Comparing Dot and Bang ---------------------------------------------- What are the differences between Dot and Bang, really? Dot: * Can be used for early or late-bound references to object properties and methods * Cannot be used in queries (conflicts with SQL Table.Field syntax) Bang: * Is resolved only at runtime, exactly like Collection("Element") * Can only access members of collections * Can be early or late-bound, depending on the parent of the collection Try it: you just can't get Bang to access a non-collection property of an object. But you can use Bang to access members of plain collections, provided you name with with a non-numeric name. So, a reference like: Forms!frmTest!txtDate Can be read as: "In the Forms collection, get the "frmTest" element, then get the "txtDate" element from frmTest's default collection. Finally, return the default property value of object txtDate" That compact syntax does a lot. Binding and Efficiency ---------------------- When are Bang references early-bound? When the parent resolves to a specific class. These references are early-bound (Intellisense works): Form_frmTest!txtDate Me!txtDate rRS!DateField These references are late-bound: Forms!frmTest!txtDate Reports!rptTest!txtDate You really can't compare Dot and Bang in terms of efficiency. Dot is for members of objects, and Bang is for members of collections. The real question is whether a Collection!Element reference is as efficient as Collection("Element"). Susan is right that in common usage there is no noticeable difference in performance between the two. Use in Forms ------------ In form modules, Me!txtDate is more work, because you're accessing the control through the Controls collection, rather than referencing the property directly as you would with Me.txtDate or just txtDate. Erwin's example is most intriguing: while Me!txtDate usually refers to a control named "txtDate", if no such control exists, it will return the value of a field named "txtDate". What is surprising is that Me!txtDate doesn't return a DAO.Field object, as you might expect, but something called an AccessField object. Summary ------- * Dot is useful for ordinary object property and method references * Bang is useful as a shortcut for specifying elements of collections whose members won't be known until runtime, or in situations where Dot won't work, i.e. queries. -Ken From kismert at gmail.com Wed Aug 23 14:18:23 2006 From: kismert at gmail.com (Ken Ismert) Date: Wed, 23 Aug 2006 14:18:23 -0500 Subject: [AccessD] DB2 and Ruby on Rails Message-ID: <44ECA9FF.8030709@gmail.com> (Resending... sorry about the delay... sorting out my AccessD email settings) Gustav, Thanks for the info! > Just noticed this link to a free Starter Toolkit for DB2 on Rails: > http://alphaworks.ibm.com/tech/db2onrails > Starter Toolkit for DB2? on Rails is a conveniently-packaged set of > products and technologies that enables the quick creation of a > configuration for building DB2 Web applications using Ruby on Rails > technology. > > Also note the free DB2 Express-C database engine: > http://www-306.ibm.com/software/data/db2/udb/db2express/download.html From askolits at ot.com Wed Aug 23 14:29:43 2006 From: askolits at ot.com (John Skolits) Date: Wed, 23 Aug 2006 15:29:43 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <44ECA99E.7060905@gmail.com> Message-ID: <005601c6c6ea$7f2a18b0$6701a8c0@LaptopXP> I guess there must have been some bogus stuff in my code that caused it to break. Thanks for all the info! John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert Sent: Wednesday, August 23, 2006 3:17 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Bang and Dot operator in Runtimes. (Resending... sorry about the delay... sorting out my AccessD email settings) Ahh, the old "Dot vs. Bang" chestnut. I gotta weigh in, and respond to certain points John, A.D., Susan, Erwin and Dan brought up: First, thanks A.D. for your code demonstrating the interchangability of . and ! in common situations. The Me reference ---------------- Me is just the default internal reference to the object. In the case of a Form or Report, there is a hidden declaration header in the class module that makes all your controls available as properties of the class. So, within the Form class module, Me.txtDate is as valid as: Me!txtDate which is just as valid as: txtDate So, John, if you are getting an error in your runtime, it is not because of 'bad' syntax. It is either an error in the interpreter, or an earlier error manifesting itself at that line of code. Default Properties and Collections ---------------------------------- The classes we commonly work with in Access make heavy use of two time saving shortcuts: Default Properties and Default Collections. The default property is one that is exposed when an assignment is made using an object with no qualifying property: txtDate = #1/1/2006# varDate = txtDate In each instance, the default property Value is being implicitly referenced. So, the above code is exactly the same as: txtDate.Value = #1/1/2006# varDate = txtDate.Value Dan has to explicitly specify lblName.Caption in his example, because the Label object has no default property. More importantly for our discussion, Access classes also expose default collections. So the following code is equivalent: rForm("txtDate") ' rForm is a Form object rForm.Controls("txtDate") rRS("RowID") ' rRS is a Recordset object rRS.Fields("RowID") You can easily see that a collection is the default member of the Form and Recordset objects. Comparing Dot and Bang ---------------------------------------------- What are the differences between Dot and Bang, really? Dot: * Can be used for early or late-bound references to object properties and methods * Cannot be used in queries (conflicts with SQL Table.Field syntax) Bang: * Is resolved only at runtime, exactly like Collection("Element") * Can only access members of collections * Can be early or late-bound, depending on the parent of the collection Try it: you just can't get Bang to access a non-collection property of an object. But you can use Bang to access members of plain collections, provided you name with with a non-numeric name. So, a reference like: Forms!frmTest!txtDate Can be read as: "In the Forms collection, get the "frmTest" element, then get the "txtDate" element from frmTest's default collection. Finally, return the default property value of object txtDate" That compact syntax does a lot. Binding and Efficiency ---------------------- When are Bang references early-bound? When the parent resolves to a specific class. These references are early-bound (Intellisense works): Form_frmTest!txtDate Me!txtDate rRS!DateField These references are late-bound: Forms!frmTest!txtDate Reports!rptTest!txtDate You really can't compare Dot and Bang in terms of efficiency. Dot is for members of objects, and Bang is for members of collections. The real question is whether a Collection!Element reference is as efficient as Collection("Element"). Susan is right that in common usage there is no noticeable difference in performance between the two. Use in Forms ------------ In form modules, Me!txtDate is more work, because you're accessing the control through the Controls collection, rather than referencing the property directly as you would with Me.txtDate or just txtDate. Erwin's example is most intriguing: while Me!txtDate usually refers to a control named "txtDate", if no such control exists, it will return the value of a field named "txtDate". What is surprising is that Me!txtDate doesn't return a DAO.Field object, as you might expect, but something called an AccessField object. Summary ------- * Dot is useful for ordinary object property and method references * Bang is useful as a shortcut for specifying elements of collections whose members won't be known until runtime, or in situations where Dot won't work, i.e. queries. -Ken -- 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 Aug 23 14:48:20 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Wed, 23 Aug 2006 15:48:20 -0400 Subject: [AccessD] Word Window On Top Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> Well here is how I do the same thing with Access opening Excel. It is all dependant on getting the handle of the Excel window (or Word window in your case)... Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As Boolean = True) '--------------------------------------------------------------------------- ------------ ' Procedure : ViewInExcel ' ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, but does ' : not save the Excel file. The user can choose to save the file if needed. '--------------------------------------------------------------------------- ------------ ' Dim objXL As excel.Application Dim objSheet As excel.Worksheet Dim objWB As excel.Workbook Dim rs As Object Dim oRng As excel.Range Dim nCols As Long, n As Long Set rs = CurrentDb.OpenRecordset(strRecordSource) nCols = rs.Fields.Count Set objXL = CreateObject("Excel.Application") objXL.SheetsInNewWorkbook = 1 Set objWB = objXL.Workbooks.Add Dim f As Field n = 0 ' CopyFromRecordset does not bring the column headings with it. ' So here we add them manually. For Each f In rs.Fields n = n + 1 objWB.Sheets("Sheet1").Cells(1, n) = f.Name Next f ' and now drop the data into row 2 objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs If bFormatColumns Then Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & "1:" & CStr(ExcelColumn(nCols)) & "1") oRng.EntireColumn.AutoFit oRng.Interior.Color = vbYellow oRng.Borders.Color = vbBlack Set oRng = Nothing End If rs.Close Set rs = Nothing objXL.Visible = True SetForegroundWindow objXL.hWnd ' here's the line that brings the window to the foreground. End Sub HTH Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 23, 2006 1:33 PM To: Access Developers discussion and problem solving Subject: [AccessD] Word Window On Top Dear List: Using automation I open a word doc, but the access app is still on top. Word is in the tray. Click it and the doc is there and open. Q: how can I give the word doc window the focus after I open it? MTIA 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 Aug 23 15:03:28 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 13:03:28 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> Message-ID: <44ECB490.2010007@san.rr.com> Heenan: With WordObj declared as: Dim WordObj As Word.Application and the Function in a separate module, the statement SetForegroundWindow WordObj.hWnd won't compile - gives a method or data member not found error. The Word 11.0 object library is checked in the references. I tried redeclaring WordObj as Object but that didn't work either. TIA Rocky Heenan, Lambert wrote: > Well here is how I do the same thing with Access opening Excel. It is all > dependant on getting the handle of the Excel window (or Word window in your > case)... > > Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As > Long) As Long > > Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As > Boolean = True) > '--------------------------------------------------------------------------- > ------------ > ' Procedure : ViewInExcel > ' > ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, > but does > ' : not save the Excel file. The user can choose to save the file > if needed. > '--------------------------------------------------------------------------- > ------------ > ' > Dim objXL As excel.Application > Dim objSheet As excel.Worksheet > Dim objWB As excel.Workbook > Dim rs As Object > Dim oRng As excel.Range > Dim nCols As Long, n As Long > > Set rs = CurrentDb.OpenRecordset(strRecordSource) > nCols = rs.Fields.Count > Set objXL = CreateObject("Excel.Application") > objXL.SheetsInNewWorkbook = 1 > Set objWB = objXL.Workbooks.Add > Dim f As Field > n = 0 > ' CopyFromRecordset does not bring the column headings with it. > ' So here we add them manually. > For Each f In rs.Fields > n = n + 1 > objWB.Sheets("Sheet1").Cells(1, n) = f.Name > Next f > ' and now drop the data into row 2 > objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs > If bFormatColumns Then > Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & "1:" > & CStr(ExcelColumn(nCols)) & "1") > oRng.EntireColumn.AutoFit > oRng.Interior.Color = vbYellow > oRng.Borders.Color = vbBlack > Set oRng = Nothing > End If > rs.Close > Set rs = Nothing > objXL.Visible = True > SetForegroundWindow objXL.hWnd ' here's the line that brings the window > to the foreground. > End Sub > > HTH > > Lambert > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 1:33 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Word Window On Top > > > Dear List: > > Using automation I open a word doc, but the access app is still on top. > Word is in the tray. Click it and the doc is there and open. Q: how > can I give the word doc window the focus after I open it? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From mmattys at rochester.rr.com Wed Aug 23 15:50:14 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Wed, 23 Aug 2006 16:50:14 -0400 Subject: [AccessD] Word Window On Top References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> <44ECB490.2010007@san.rr.com> Message-ID: <027801c6c6f5$bd4a5410$0202a8c0@default> Rocky, >Dim WordObj As Word.Application Doesn't WordObj.Activate work? Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 23, 2006 4:03 PM Subject: Re: [AccessD] Word Window On Top > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found > error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: >> Well here is how I do the same thing with Access opening Excel. It is all >> dependant on getting the handle of the Excel window (or Word window in >> your >> case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------------- >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel >> worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> file >> if needed. >> '--------------------------------------------------------------------------- >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" >> & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window >> to the foreground. >> End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> 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 Lambert.Heenan at AIG.com Wed Aug 23 15:53:56 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Wed, 23 Aug 2006 15:53:56 -0500 Subject: [AccessD] Word Window On Top Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> Rocky, WordObj needs to be declared As Word.Application, but is has to be in the same scope as the function you are using. Notice that I actually declare the xlObj inside my function. Lambert (first name) -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 23, 2006 4:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Word Window On Top Heenan: With WordObj declared as: Dim WordObj As Word.Application and the Function in a separate module, the statement SetForegroundWindow WordObj.hWnd won't compile - gives a method or data member not found error. The Word 11.0 object library is checked in the references. I tried redeclaring WordObj as Object but that didn't work either. TIA Rocky Heenan, Lambert wrote: > Well here is how I do the same thing with Access opening Excel. It is > all dependant on getting the handle of the Excel window (or Word > window in your case)... > > Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd > As > Long) As Long > > Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As > Boolean = True) > '--------------------------------------------------------------------- > ------ > ------------ > ' Procedure : ViewInExcel > ' > ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, > but does > ' : not save the Excel file. The user can choose to save the file > if needed. > '--------------------------------------------------------------------------- > ------------ > ' > Dim objXL As excel.Application > Dim objSheet As excel.Worksheet > Dim objWB As excel.Workbook > Dim rs As Object > Dim oRng As excel.Range > Dim nCols As Long, n As Long > > Set rs = CurrentDb.OpenRecordset(strRecordSource) > nCols = rs.Fields.Count > Set objXL = CreateObject("Excel.Application") > objXL.SheetsInNewWorkbook = 1 > Set objWB = objXL.Workbooks.Add > Dim f As Field > n = 0 > ' CopyFromRecordset does not bring the column headings with it. > ' So here we add them manually. > For Each f In rs.Fields > n = n + 1 > objWB.Sheets("Sheet1").Cells(1, n) = f.Name > Next f > ' and now drop the data into row 2 > objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs > If bFormatColumns Then > Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & > "1:" & CStr(ExcelColumn(nCols)) & "1") > oRng.EntireColumn.AutoFit > oRng.Interior.Color = vbYellow > oRng.Borders.Color = vbBlack > Set oRng = Nothing > End If > rs.Close > Set rs = Nothing > objXL.Visible = True > SetForegroundWindow objXL.hWnd ' here's the line that brings the > window to the foreground. End Sub > > HTH > > Lambert > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky > Smolin - Beach Access Software > Sent: Wednesday, August 23, 2006 1:33 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Word Window On Top > > > Dear List: > > Using automation I open a word doc, but the access app is still on > top. > Word is in the tray. Click it and the doc is there and open. Q: how > can I give the word doc window the focus after I open it? > > MTIA > > 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 DWUTKA at marlow.com Wed Aug 23 16:37:15 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Wed, 23 Aug 2006 16:37:15 -0500 Subject: [AccessD] Word Window On Top Message-ID: <17724746D360394AA3BFE5B8D40A9C1BEE8F86@MARLOW_MAIN2.marlow.com> Rocky, I think you can do WordObj.Show. Just a hunch. Drew -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Wednesday, August 23, 2006 3:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Word Window On Top Heenan: With WordObj declared as: Dim WordObj As Word.Application and the Function in a separate module, the statement SetForegroundWindow WordObj.hWnd won't compile - gives a method or data member not found error. The Word 11.0 object library is checked in the references. I tried redeclaring WordObj as Object but that didn't work either. TIA Rocky Heenan, Lambert wrote: > Well here is how I do the same thing with Access opening Excel. It is all > dependant on getting the handle of the Excel window (or Word window in your > case)... > > Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As > Long) As Long > > Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As > Boolean = True) > '--------------------------------------------------------------------------- > ------------ > ' Procedure : ViewInExcel > ' > ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, > but does > ' : not save the Excel file. The user can choose to save the file > if needed. > '--------------------------------------------------------------------------- > ------------ > ' > Dim objXL As excel.Application > Dim objSheet As excel.Worksheet > Dim objWB As excel.Workbook > Dim rs As Object > Dim oRng As excel.Range > Dim nCols As Long, n As Long > > Set rs = CurrentDb.OpenRecordset(strRecordSource) > nCols = rs.Fields.Count > Set objXL = CreateObject("Excel.Application") > objXL.SheetsInNewWorkbook = 1 > Set objWB = objXL.Workbooks.Add > Dim f As Field > n = 0 > ' CopyFromRecordset does not bring the column headings with it. > ' So here we add them manually. > For Each f In rs.Fields > n = n + 1 > objWB.Sheets("Sheet1").Cells(1, n) = f.Name > Next f > ' and now drop the data into row 2 > objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs > If bFormatColumns Then > Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & "1:" > & CStr(ExcelColumn(nCols)) & "1") > oRng.EntireColumn.AutoFit > oRng.Interior.Color = vbYellow > oRng.Borders.Color = vbBlack > Set oRng = Nothing > End If > rs.Close > Set rs = Nothing > objXL.Visible = True > SetForegroundWindow objXL.hWnd ' here's the line that brings the window > to the foreground. > End Sub > > HTH > > Lambert > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 1:33 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Word Window On Top > > > Dear List: > > Using automation I open a word doc, but the access app is still on top. > Word is in the tray. Click it and the doc is there and open. Q: how > can I give the word doc window the focus after I open it? > > MTIA > > 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 donaread at ihug.co.nz Wed Aug 23 17:18:18 2006 From: donaread at ihug.co.nz (Don Read) Date: Thu, 24 Aug 2006 10:18:18 +1200 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: References: Message-ID: <44ECD42A.6070208@ihug.co.nz> > > Now, New Question: > Any ideas of how to offset the start of printing on the label sheet to the first 'available' label on the sheet. Say you have a 2 x > 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. > > My initial thinking was to create say x 'empty' records (zero length fields) for the offset by way of using a union query: first > part adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top > of the list). > > Is that a way to go, and if so what's the sql to create x empty records??? > > Any suggestions appreciated. > > Regards > Borge > > > > > Anyone got any pointers, code, links or references they'd care to share? > > MTIA > > Darren > I use this, in Access. ' Label Saver v97.30 from Peter's Software ' ' Allows users to specify a starting label position and a number of copies via input boxes ' when printing labels ' ' This module was created by: ' ' Peter's Software ' http://www.peterssoftware.com ' info at peterssoftware.com ' ' ...with some help from Microsoft Knowledge Base article Q299024 ' ' This module is freeware. Don From darrend at nimble.com.au Wed Aug 23 18:45:25 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 24 Aug 2006 09:45:25 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060823234533.RYK18372.omta05ps.mx.bigpond.com@DENZILLAP> Hi Gustav Thanks for the replies I do appreciate this is substantially more than an email Just confirming - I am not able to FTP an MDB to my website and connect to it (with read and write access) using an Access front end - Is that the case? If I want to connect to an MDB I have FTP'd to my web site (with read/write access) I have to connect using html or asp or some web language - Is that the case? If I want to use an access front end with (read/write access) over the internet - I have to connect to a say...SQL dB - is that correct? Many thanks Have a great day Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, 23 August 2006 7:37 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- 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 Aug 23 19:10:38 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 17:10:38 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <027801c6c6f5$bd4a5410$0202a8c0@default> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> <44ECB490.2010007@san.rr.com> <027801c6c6f5$bd4a5410$0202a8c0@default> Message-ID: <44ECEE7E.30107@san.rr.com> Don't know. I'll forward to the client and see. When I try it Word always pops up on top. He tests for Word being open before creating the object I think it may be that if Word is already open it doesn't end up on top. I'll report back. Rocky Michael R Mattys wrote: > Rocky, > > >> Dim WordObj As Word.Application >> > > Doesn't WordObj.Activate work? > > Michael R. Mattys > MapPoint Developer > www.mattysconsulting.com > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Wednesday, August 23, 2006 4:03 PM > Subject: Re: [AccessD] Word Window On Top > > > >> Heenan: >> >> With WordObj declared as: Dim WordObj As Word.Application >> >> and the Function in a separate module, the statement SetForegroundWindow >> WordObj.hWnd won't compile - gives a method or data member not found >> error. >> >> The Word 11.0 object library is checked in the references. >> >> I tried redeclaring WordObj as Object but that didn't work either. >> >> TIA >> >> Rocky >> >> >> Heenan, Lambert wrote: >> >>> Well here is how I do the same thing with Access opening Excel. It is all >>> dependant on getting the handle of the Excel window (or Word window in >>> your >>> case)... >>> >>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As >>> Long) As Long >>> >>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>> Boolean = True) >>> '--------------------------------------------------------------------------- >>> ------------ >>> ' Procedure : ViewInExcel >>> ' >>> ' Purpose : Displays a recordset (Table or query) in an Excel >>> worksheet, >>> but does >>> ' : not save the Excel file. The user can choose to save the >>> file >>> if needed. >>> '--------------------------------------------------------------------------- >>> ------------ >>> ' >>> Dim objXL As excel.Application >>> Dim objSheet As excel.Worksheet >>> Dim objWB As excel.Workbook >>> Dim rs As Object >>> Dim oRng As excel.Range >>> Dim nCols As Long, n As Long >>> >>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>> nCols = rs.Fields.Count >>> Set objXL = CreateObject("Excel.Application") >>> objXL.SheetsInNewWorkbook = 1 >>> Set objWB = objXL.Workbooks.Add >>> Dim f As Field >>> n = 0 >>> ' CopyFromRecordset does not bring the column headings with it. >>> ' So here we add them manually. >>> For Each f In rs.Fields >>> n = n + 1 >>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>> Next f >>> ' and now drop the data into row 2 >>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>> If bFormatColumns Then >>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>> "1:" >>> & CStr(ExcelColumn(nCols)) & "1") >>> oRng.EntireColumn.AutoFit >>> oRng.Interior.Color = vbYellow >>> oRng.Borders.Color = vbBlack >>> Set oRng = Nothing >>> End If >>> rs.Close >>> Set rs = Nothing >>> objXL.Visible = True >>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>> window >>> to the foreground. >>> End Sub >>> >>> HTH >>> >>> Lambert >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Wednesday, August 23, 2006 1:33 PM >>> To: Access Developers discussion and problem solving >>> Subject: [AccessD] Word Window On Top >>> >>> >>> Dear List: >>> >>> Using automation I open a word doc, but the access app is still on top. >>> Word is in the tray. Click it and the doc is there and open. Q: how >>> can I give the word doc window the focus after I open it? >>> >>> MTIA >>> >>> 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 >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 23 19:12:30 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 17:12:30 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> Message-ID: <44ECEEEE.9080504@san.rr.com> Lambert: I did the same: Dim WordObj As Word.Application Dim WordDoc As Word.Document is inside the sub where the doc is opened. Rocky Heenan, Lambert wrote: > Rocky, > > WordObj needs to be declared As Word.Application, but is has to be in the > same scope as the function you are using. Notice that I actually declare the > xlObj inside my function. > > Lambert (first name) > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 4:03 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: > >> Well here is how I do the same thing with Access opening Excel. It is >> all dependant on getting the handle of the Excel window (or Word >> window in your case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >> As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------- >> ------ >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> > file > >> if needed. >> >> > '--------------------------------------------------------------------------- > >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window to the foreground. End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >> Smolin - Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on >> top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> Rocky >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Wed Aug 23 21:19:09 2006 From: pcs at azizaz.com (Borge Hansen) Date: Thu, 24 Aug 2006 12:19:09 +1000 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721><44EB0B4C.3030003@san.rr.com><053a01c6c679$0cfb5c20$fa10a8c0@Albatross> <44EC65FD.1090200@san.rr.com> Message-ID: <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> Rocky, I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels you want to skip. I tried something like that and can't get the starting of the label printing to move.... regards Borge ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" > I print labels one at a time to mail out a consumer based product in an > envelope so in the Detail_Format event of the label printing report, I use: > > Me.MoveLayout = True > Me.NextRecord = False > Me.PrintSection = False > > and iterate for the number of labels you want to skip. But, of course, > you have to know how many labels you want to skip and pass that to the > loop or counter. From pcs at azizaz.com Wed Aug 23 21:51:50 2006 From: pcs at azizaz.com (Borge Hansen) Date: Thu, 24 Aug 2006 12:51:50 +1000 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721><44EB0B4C.3030003@san.rr.com><053a01c6c679$0cfb5c20$fa10a8c0@Albatross><44EC65FD.1090200@san.rr.com> <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> Message-ID: <06c701c6c728$404ee790$fa10a8c0@Albatross> Rocky, Disregard previous message.... This does the trick, for anyone who's interested.... Regards borge ************* Option Compare Database Option Explicit Public i As Integer 'counter Public q As Integer ' The label number you wish to start printing on Private Sub Report_Open(Cancel As Integer) i = 1 q = 8 End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Page = 1 Then If i < q Then Me.MoveLayout = True Me.NextRecord = False Me.PrintSection = False i = i + 1 End If End If End Sub ******************* ----- Original Message ----- From: "Borge Hansen" To: "Access Developers discussion and problem solving" Sent: Thursday, August 24, 2006 12:19 PM Subject: [AccessD] Printing Mailing Labels Starting at Specific Location > Rocky, > I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. > > Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels > you want to skip. > > I tried something like that and can't get the starting of the label printing to move.... > > regards > Borge > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > > I print labels one at a time to mail out a consumer based product in an > > envelope so in the Detail_Format event of the label printing report, I use: > > > > Me.MoveLayout = True > > Me.NextRecord = False > > Me.PrintSection = False > > > > and iterate for the number of labels you want to skip. But, of course, > > you have to know how many labels you want to skip and pass that to the > > loop or counter. > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Wed Aug 23 22:03:58 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 23 Aug 2006 23:03:58 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <44ECA99E.7060905@gmail.com> Message-ID: <002701c6c729$f255be90$657aa8c0@m6805> Wow! John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert Sent: Wednesday, August 23, 2006 3:17 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Bang and Dot operator in Runtimes. (Resending... sorry about the delay... sorting out my AccessD email settings) Ahh, the old "Dot vs. Bang" chestnut. I gotta weigh in, and respond to certain points John, A.D., Susan, Erwin and Dan brought up: First, thanks A.D. for your code demonstrating the interchangability of . and ! in common situations. The Me reference ---------------- Me is just the default internal reference to the object. In the case of a Form or Report, there is a hidden declaration header in the class module that makes all your controls available as properties of the class. So, within the Form class module, Me.txtDate is as valid as: Me!txtDate which is just as valid as: txtDate So, John, if you are getting an error in your runtime, it is not because of 'bad' syntax. It is either an error in the interpreter, or an earlier error manifesting itself at that line of code. Default Properties and Collections ---------------------------------- The classes we commonly work with in Access make heavy use of two time saving shortcuts: Default Properties and Default Collections. The default property is one that is exposed when an assignment is made using an object with no qualifying property: txtDate = #1/1/2006# varDate = txtDate In each instance, the default property Value is being implicitly referenced. So, the above code is exactly the same as: txtDate.Value = #1/1/2006# varDate = txtDate.Value Dan has to explicitly specify lblName.Caption in his example, because the Label object has no default property. More importantly for our discussion, Access classes also expose default collections. So the following code is equivalent: rForm("txtDate") ' rForm is a Form object rForm.Controls("txtDate") rRS("RowID") ' rRS is a Recordset object rRS.Fields("RowID") You can easily see that a collection is the default member of the Form and Recordset objects. Comparing Dot and Bang ---------------------------------------------- What are the differences between Dot and Bang, really? Dot: * Can be used for early or late-bound references to object properties and methods * Cannot be used in queries (conflicts with SQL Table.Field syntax) Bang: * Is resolved only at runtime, exactly like Collection("Element") * Can only access members of collections * Can be early or late-bound, depending on the parent of the collection Try it: you just can't get Bang to access a non-collection property of an object. But you can use Bang to access members of plain collections, provided you name with with a non-numeric name. So, a reference like: Forms!frmTest!txtDate Can be read as: "In the Forms collection, get the "frmTest" element, then get the "txtDate" element from frmTest's default collection. Finally, return the default property value of object txtDate" That compact syntax does a lot. Binding and Efficiency ---------------------- When are Bang references early-bound? When the parent resolves to a specific class. These references are early-bound (Intellisense works): Form_frmTest!txtDate Me!txtDate rRS!DateField These references are late-bound: Forms!frmTest!txtDate Reports!rptTest!txtDate You really can't compare Dot and Bang in terms of efficiency. Dot is for members of objects, and Bang is for members of collections. The real question is whether a Collection!Element reference is as efficient as Collection("Element"). Susan is right that in common usage there is no noticeable difference in performance between the two. Use in Forms ------------ In form modules, Me!txtDate is more work, because you're accessing the control through the Controls collection, rather than referencing the property directly as you would with Me.txtDate or just txtDate. Erwin's example is most intriguing: while Me!txtDate usually refers to a control named "txtDate", if no such control exists, it will return the value of a field named "txtDate". What is surprising is that Me!txtDate doesn't return a DAO.Field object, as you might expect, but something called an AccessField object. Summary ------- * Dot is useful for ordinary object property and method references * Bang is useful as a shortcut for specifying elements of collections whose members won't be known until runtime, or in situations where Dot won't work, i.e. queries. -Ken -- 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 Aug 23 23:20:19 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 21:20:19 -0700 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location In-Reply-To: <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> <44EC65FD.1090200@san.rr.com> <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> Message-ID: <44ED2903.3030105@san.rr.com> I'll send you the label printer app off line. It's real small. Rocky Borge Hansen wrote: > Rocky, > I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. > > Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels > you want to skip. > > I tried something like that and can't get the starting of the label printing to move.... > > regards > Borge > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > >> I print labels one at a time to mail out a consumer based product in an >> envelope so in the Detail_Format event of the label printing report, I use: >> >> Me.MoveLayout = True >> Me.NextRecord = False >> Me.PrintSection = False >> >> and iterate for the number of labels you want to skip. But, of course, >> you have to know how many labels you want to skip and pass that to the >> loop or counter. >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 23 23:33:52 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 21:33:52 -0700 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location In-Reply-To: <44ED2903.3030105@san.rr.com> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> <44EC65FD.1090200@san.rr.com> <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> <44ED2903.3030105@san.rr.com> Message-ID: <44ED2C30.6070402@san.rr.com> Borge: I see you solved the problem. Let me know if you still need the app. Rocky Rocky Smolin - Beach Access Software wrote: > I'll send you the label printer app off line. It's real small. > > Rocky > > > Borge Hansen wrote: > >> Rocky, >> I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. >> >> Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels >> you want to skip. >> >> I tried something like that and can't get the starting of the label printing to move.... >> >> regards >> Borge >> >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> >> >>> I print labels one at a time to mail out a consumer based product in an >>> envelope so in the Detail_Format event of the label printing report, I use: >>> >>> Me.MoveLayout = True >>> Me.NextRecord = False >>> Me.PrintSection = False >>> >>> and iterate for the number of labels you want to skip. But, of course, >>> you have to know how many labels you want to skip and pass that to the >>> loop or counter. >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Thu Aug 24 00:01:55 2006 From: pcs at azizaz.com (Borge Hansen) Date: Thu, 24 Aug 2006 15:01:55 +1000 Subject: [AccessD] Separate mdb for housing temp tables References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721><44EB0B4C.3030003@san.rr.com><053a01c6c679$0cfb5c20$fa10a8c0@Albatross><44EC65FD.1090200@san.rr.com><063d01c6c723$aec7cbb0$fa10a8c0@Albatross><44ED2903.3030105@san.rr.com> <44ED2C30.6070402@san.rr.com> Message-ID: <06e401c6c73a$6c2f0810$fa10a8c0@Albatross> Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From bheid at appdevgrp.com Thu Aug 24 07:01:03 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 24 Aug 2006 08:01:03 -0400 Subject: [AccessD] Separate mdb for housing temp tables In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E189DB@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3580E@ADGSERVER> We have an app where the BE is on a server. To speed up some very data intensive queries/reports, we import some data/tables to a local work DB. This way, the queries/reports go off of the local (or mostly local) data which can be much faster some times. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Thursday, August 24, 2006 1:02 AM To: Access Developers discussion and problem solving Subject: [AccessD] Separate mdb for housing temp tables Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From dwaters at usinternet.com Thu Aug 24 07:32:53 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 24 Aug 2006 07:32:53 -0500 Subject: [AccessD] Separate mdb for housing temp tables In-Reply-To: <8853733.1156395963179.JavaMail.root@sniper16> Message-ID: <000b01c6c779$6c053a50$0200a8c0@danwaters> Hi Borge, I also use many temp tables, and I do keep them in the front end. To keep the database small, I set the FE to auto-compact on close. So, there is no separate code to make this happen. A regular repair/compact of the FE is a good thing to do anyway. The FE does have system tables which also grow as the database is used, so they can be kept to a minimum size. And, although I don't actually know what the repair functionality accomplishes, I like the concept of fixing things quickly. If you still need to keep a separate db to keep temp tables and you want to compact it regularly, reply back and I'll post the code I use to auto-compact the BE on the server. HTH! Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd- Subject: [AccessD] Separate mdb for housing temp tables Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From Gustav at cactus.dk Thu Aug 24 08:19:20 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 24 Aug 2006 15:19:20 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren 1. Yes. With FTP you can only get or put a file. Anything else - like Novell's NetDrive - only fakes other operations by downloading to a local copy, perform the operation and upload again. This would, of course, act very slowly for database operations and only for single user access. 2. You can only connect to a web site via HTTP for reading. 3. Yes. /gustav >>> darrend at nimble.com.au 24-08-2006 01:45 >>> Hi Gustav Thanks for the replies I do appreciate this is substantially more than an email Just confirming - I am not able to FTP an MDB to my website and connect to it (with read and write access) using an Access front end - Is that the case? If I want to connect to an MDB I have FTP'd to my web site (with read/write access) I have to connect using html or asp or some web language - Is that the case? If I want to use an access front end with (read/write access) over the internet - I have to connect to a say...SQL dB - is that correct? Many thanks Have a great day Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, 23 August 2006 7:37 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From Gustav at cactus.dk Thu Aug 24 08:57:01 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 24 Aug 2006 15:57:01 +0200 Subject: [AccessD] Separate mdb for housing temp tables Message-ID: Hi Borge This works extremely well. We use a write-protected master which we copy, but you could for a simple temp database create it from scratch - it takes no time. Both methods have cons and pros. Here's a code snippet where we create a verified copy of the master file by compacting it to a new file, the file that the app will use. If it was not deleted when the app closed, it will be reused. You may choose to delete it if found and replace it with a new copy - that frees you from emptying tables: If Len(Dir(strTempFileMaster)) > 0 Then ' Master file exists. If Len(Dir(strTempFileData)) = 0 Then ' Work file is not found. Create new copy. DBEngine.CompactDatabase strTempFileMaster, strTempFileData End If Else strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is missing." & strCrLf strMsgPrompt = strMsgPrompt & "The application cannot run without it." End If If (Len(Dir(strTempFileData)) > 0) Then ' Work file existed or has been created. booSuccess = True ElseIf Len(strMsgPrompt) = 0 Then strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is missing." & strCrLf strMsgPrompt = strMsgPrompt & "The application cannot run without it." End If If Len(strMsgPrompt) > 0 Then DoCmd.Beep MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle End If Let your function return booSuccess. Note that if you do not create objects or write to internal tables in your frontend database, you may be able to write protect the frontend file itself. That frees you from any corruption or bloat. /gustav >>> pcs at azizaz.com 24-08-2006 07:01 >>> Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From Gustav at cactus.dk Thu Aug 24 08:59:47 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 24 Aug 2006 15:59:47 +0200 Subject: [AccessD] OT early Friday info: Pluto lost Message-ID: Hi all Oh no, my favourite planet is off: http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls /gustav From bchacc at san.rr.com Thu Aug 24 09:14:08 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 24 Aug 2006 07:14:08 -0700 Subject: [AccessD] OT early Friday info: Pluto lost In-Reply-To: References: Message-ID: <44EDB430.9080607@san.rr.com> Mickey Mouse isn't too happy either. Rocky Gustav Brock wrote: > Hi all > > Oh no, my favourite planet is off: > > http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls > > /gustav > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Thu Aug 24 09:49:34 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 24 Aug 2006 07:49:34 -0700 Subject: [AccessD] OT early Friday info: Pluto lost In-Reply-To: Message-ID: As I understand it, it's way, way, way off. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 24, 2006 7:00 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT early Friday info: Pluto lost Hi all Oh no, my favourite planet is off: http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls /gustav From andy at minstersystems.co.uk Thu Aug 24 11:18:44 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Thu, 24 Aug 2006 16:18:44 +0000 Subject: [AccessD] OT early Friday info: Pluto lost Message-ID: <20060824151849.353032B508F@smtp.nildram.co.uk> There goes the acronym for remembering planets. We'll need a new one now. Ideas on a postcard. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: Re: [AccessD] OT early Friday info: Pluto lost Date: 24/08/06 14:52 As I understand it, it's way, way, way off. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 24, 2006 7:00 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT early Friday info: Pluto lost Hi all Oh no, my favourite planet is off: http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls /gustav -- 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 EdTesiny at oasas.state.ny.us Thu Aug 24 10:58:30 2006 From: EdTesiny at oasas.state.ny.us (Tesiny, Ed) Date: Thu, 24 Aug 2006 11:58:30 -0400 Subject: [AccessD] Access Data Project Message-ID: I'm not sure if it was on this list but I remember some discussion that ADPs were going away in the next version of Access. Anyone remember something about this? TIA Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us From mwp.reid at qub.ac.uk Thu Aug 24 11:37:14 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Thu, 24 Aug 2006 17:37:14 +0100 Subject: [AccessD] Access Data Project References: Message-ID: Not really but ADPs are available in 2007 Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Tesiny, Ed Sent: Thu 24/08/2006 16:58 To: Access Developers discussion and problem solving Subject: [AccessD] Access Data Project I'm not sure if it was on this list but I remember some discussion that ADPs were going away in the next version of Access. Anyone remember something about this? TIA Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Thu Aug 24 11:45:52 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 24 Aug 2006 12:45:52 -0400 Subject: [AccessD] Access Data Project In-Reply-To: Message-ID: <005801c6c79c$c390a520$657aa8c0@m6805> They are not going away AFAICT but they are not being supported in SQL Server they way they were and there is no further development on them. It seems that they will "be supported" for backwards compatibility but that is all. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tesiny, Ed Sent: Thursday, August 24, 2006 11:59 AM To: Access Developers discussion and problem solving Subject: [AccessD] Access Data Project I'm not sure if it was on this list but I remember some discussion that ADPs were going away in the next version of Access. Anyone remember something about this? TIA Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Thu Aug 24 11:50:56 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 24 Aug 2006 09:50:56 -0700 Subject: [AccessD] Access Data Project In-Reply-To: References: Message-ID: <44EDD8F0.7080100@shaw.ca> ADPs do not and will not support SQL Server 2005 or SQL Express (new form of MSDE) except in a very basic way or by installing in crippled SQL 2000 compatibilty mode. In other words, you won't be able to create databases, tables, views or any other database objects from an ADP against newer versions of SQL. Should be able to read and write older ADP's vs SQL 2005 but I don't know what happens with newer SQL complex and xml datatypes. More here http://blogs.msdn.com/access/ Tesiny, Ed wrote: >I'm not sure if it was on this list but I remember some discussion that >ADPs were going away in the next version of Access. Anyone remember >something about this? >TIA >Ed > >Edward P. Tesiny >Assistant Director for Evaluation >Bureau of Evaluation and Practice Improvement >New York State OASAS >1450 Western Ave. >Albany, New York 12203-3526 >Phone: (518) 485-7189 >Fax: (518) 485-5769 >Email: EdTesiny at oasas.state.ny.us > > > -- Marty Connelly Victoria, B.C. Canada From John.Clark at niagaracounty.com Thu Aug 24 12:38:59 2006 From: John.Clark at niagaracounty.com (John Clark) Date: Thu, 24 Aug 2006 13:38:59 -0400 Subject: [AccessD] Should be simple In-Reply-To: <005601c6c630$00c0c100$657aa8c0@m6805> References: <44EB32B9.167F.006B.0@niagaracounty.com> <005601c6c630$00c0c100$657aa8c0@m6805> Message-ID: <44EDABF3.167F.006B.0@niagaracounty.com> Well, yeah, I knew WHAT it was doing, but I am a little confused as to why. I think I am doing the same thing in one case as the other, but getting different results. It isn't even a case of different forms. I am using the same form, it is just a different field, which works differently from the rest. I guess what I'll do is, as you suggested, explicitly set the focus, where it is needed. I'm just really self conscious about code like this. I'm always thinking about the person coming along after me, and what it looks like to them. Thanks though! John W Clark >>> "JWColby" 8/22/2006 5:14 PM >>> It appears that the form just opened does not have the focus, thus since the focus is in the current form, it can't be hidden. Open the new form modal, or explicitly set the focus into the new form just opened, then do the hide. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark Sent: Tuesday, August 22, 2006 4:37 PM To: Access Developers discussion and problem solving Subject: [AccessD] Should be simple I am working on a DB that I am trying to finish up. I've shown it to the users and they like it, but of course there are a few alterations to be made. A couple of them are actually just things I overlooked. I have a form where defendants are entered into a system. Actually, it is all names associated with a case (i.e. lawyers, judges, victims, defendants, etc.) and the system sorts them out by their check box designations on entry or edit. I have a drop-down box in place to choose a lawyer...same w/many of the fields, but I'll use lawyer here. I used a union query to place a "" option, at the top of the drop-down. If the user clicks on this option, they are taken to the form to enter new names, and the default check is placed, depending on where you came from (I use OpenArgs for this). It also knows where to go back to. The code used for this is: ____________________________________________________________________________ ________ Private Sub txtAttorney_BeforeUpdate(Cancel As Integer) If txtAttorney.SelText = "" Then DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd, acWindowNormal, "ATT" Me.Visible = False End If End Sub ____________________________________________________________________________ ________ However, I have tried adding the same ability to the "Charges" field, and the last liine gives me trouble. It says, "You can't hide a control that has the focus." I know what this means, but I just copied the code from elsewhere in the same program, and it works there. Any ideas? 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 mwp.reid at qub.ac.uk Thu Aug 24 12:51:49 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Thu, 24 Aug 2006 18:51:49 +0100 Subject: [AccessD] Access Data Project References: <44EDD8F0.7080100@shaw.ca> Message-ID: Actually thats not really correct as far as I know. As long as you dont use any of the new SQL 2005 data types they function as before. The new Access data types do actually convert but lose the functionality they have in the new databse file type. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of MartyConnelly Sent: Thu 24/08/2006 17:50 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access Data Project ADPs do not and will not support SQL Server 2005 or SQL Express (new form of MSDE) except in a very basic way or by installing in crippled SQL 2000 compatibilty mode. In other words, you won't be able to create databases, tables, views or any other database objects from an ADP against newer versions of SQL. Should be able to read and write older ADP's vs SQL 2005 but I don't know what happens with newer SQL complex and xml datatypes. More here http://blogs.msdn.com/access/ Tesiny, Ed wrote: >I'm not sure if it was on this list but I remember some discussion that >ADPs were going away in the next version of Access. Anyone remember >something about this? >TIA >Ed > >Edward P. Tesiny >Assistant Director for Evaluation >Bureau of Evaluation and Practice Improvement >New York State OASAS >1450 Western Ave. >Albany, New York 12203-3526 >Phone: (518) 485-7189 >Fax: (518) 485-5769 >Email: EdTesiny at oasas.state.ny.us > > > -- 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 reuben at gfconsultants.com Thu Aug 24 13:52:45 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Thu, 24 Aug 2006 14:52:45 -0400 Subject: [AccessD] OT - Change installed app to be sharable Message-ID: All my apps get installed under the user (Windows User names, not in the app) that will be using the computer. They are then only usable by that user. I now have a client that has two people using one computer (each working a half-day) and they want each to have their own user name. How can the app that is already installed be changed so that it can be shared by all the users on a computer? Or can it specific to say 2 out of 3 users? Thanks. Reuben Cummings GFC, LLC 812.523.1017 From bheid at appdevgrp.com Thu Aug 24 14:19:43 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 24 Aug 2006 15:19:43 -0400 Subject: [AccessD] OT - Change installed app to be sharable In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E18B34@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35819@ADGSERVER> Reuben, Right-click on the start menu and click explore. Then find the items under the start menu that you want and move them to the start menu item under the All Users user. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings Sent: Thursday, August 24, 2006 2:53 PM To: AccessD Subject: [AccessD] OT - Change installed app to be sharable All my apps get installed under the user (Windows User names, not in the app) that will be using the computer. They are then only usable by that user. I now have a client that has two people using one computer (each working a half-day) and they want each to have their own user name. How can the app that is already installed be changed so that it can be shared by all the users on a computer? Or can it specific to say 2 out of 3 users? Thanks. Reuben Cummings From kathrynatgwens at socal.rr.com Thu Aug 24 14:23:36 2006 From: kathrynatgwens at socal.rr.com (Kathryn ) Date: Thu, 24 Aug 2006 12:23:36 -0700 Subject: [AccessD] Printing envelopes via 2 printers. Message-ID: <009201c6c7b2$d0f9dd60$6baaa8c0@upstairs> Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) From fahooper at trapo.com Thu Aug 24 16:39:11 2006 From: fahooper at trapo.com (Fred Hooper) Date: Thu, 24 Aug 2006 17:39:11 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <009201c6c7b2$d0f9dd60$6baaa8c0@upstairs> Message-ID: <000d01c6c7c5$be1b6930$2e01a8c0@fredxp> Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? From dwaters at usinternet.com Thu Aug 24 16:52:45 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 24 Aug 2006 16:52:45 -0500 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <30118494.1156455876201.JavaMail.root@sniper24> Message-ID: <003c01c6c7c7$a2840c20$0200a8c0@danwaters> Hi Fred, One thing you can do is to maximize every report each time it is opened in preview: ------------------------------------------------ Private Sub Report_Close() DoCmd.Restore End Sub ------------------------------------------------ Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub ------------------------------------------------ You'll need to include the Restore method because maximizing any object maximizes all the objects. When you restore, all objects go back to their original size. This also resolves the issue of trying to anticipate different monitor settings. HTH, Dan Waters ProMation Systems, Inc. -----Original Message----- Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? From accessd at shaw.ca Thu Aug 24 17:43:18 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 24 Aug 2006 15:43:18 -0700 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <0J4I00GKHXQJ5E60@l-daemon> Hi Darren and Gustav: You can use Hamachi (http://www.hamachi.cc/ ) to connect to a remote computer, actually assign a drive letter to it and run applications across it; but it slow as an internet connection. Just a thought Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 24, 2006 6:19 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren 1. Yes. With FTP you can only get or put a file. Anything else - like Novell's NetDrive - only fakes other operations by downloading to a local copy, perform the operation and upload again. This would, of course, act very slowly for database operations and only for single user access. 2. You can only connect to a web site via HTTP for reading. 3. Yes. /gustav >>> darrend at nimble.com.au 24-08-2006 01:45 >>> Hi Gustav Thanks for the replies I do appreciate this is substantially more than an email Just confirming - I am not able to FTP an MDB to my website and connect to it (with read and write access) using an Access front end - Is that the case? If I want to connect to an MDB I have FTP'd to my web site (with read/write access) I have to connect using html or asp or some web language - Is that the case? If I want to use an access front end with (read/write access) over the internet - I have to connect to a say...SQL dB - is that correct? Many thanks Have a great day Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, 23 August 2006 7:37 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bill_Patten at earthlink.net Thu Aug 24 17:47:17 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 24 Aug 2006 15:47:17 -0700 Subject: [AccessD] Control size of Report Preview window References: <000d01c6c7c5$be1b6930$2e01a8c0@fredxp> Message-ID: <003801c6c7cf$40c4e100$6401a8c0@BPCS> Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fahooper at trapo.com Thu Aug 24 17:49:35 2006 From: fahooper at trapo.com (Fred Hooper) Date: Thu, 24 Aug 2006 18:49:35 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <003c01c6c7c7$a2840c20$0200a8c0@danwaters> Message-ID: <001d01c6c7cf$93da9010$2e01a8c0@fredxp> Hi Dan, That's a good idea; I really don't need the same level of preciseness for previewed reports that I have for forms. I implemented it as: Public Sub WaitForReportToClose(strReport As String) Dim intCount As Integer Dim booZoomed As Boolean booZoomed = IsZoomed(Reports(strReport).hWnd) If Not booZoomed Then DoCmd.Maximize While ReportIsOpen(strReport) intCount = intCount + 1 If intCount Mod 1000 > 1 Then DoEvents intCount = 0 End If Wend If Not booZoomed Then DoCmd.Restore End Sub Public Function ReportIsOpen(strName As String) As Boolean Dim intObjState As Integer intObjState = SysCmd(acSysCmdGetObjectState, acReport, strName) ReportIsOpen = (intObjState = acObjStateOpen) End Function Thank you Fred Hooper -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, August 24, 2006 5:53 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Control size of Report Preview window Hi Fred, One thing you can do is to maximize every report each time it is opened in preview: ------------------------------------------------ Private Sub Report_Close() DoCmd.Restore End Sub ------------------------------------------------ Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub ------------------------------------------------ You'll need to include the Restore method because maximizing any object maximizes all the objects. When you restore, all objects go back to their original size. This also resolves the issue of trying to anticipate different monitor settings. HTH, Dan Waters ProMation Systems, Inc. -----Original Message----- Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kismert at gmail.com Thu Aug 24 18:36:21 2006 From: kismert at gmail.com (Ken Ismert) Date: Thu, 24 Aug 2006 18:36:21 -0500 Subject: [AccessD] OT: Houstonian Humor Message-ID: <44EE37F5.2070602@gmail.com> In response to Shamil's OT Russian Humor post, I am submitting a list of jokes at the expense of the residents of my fine hometown: Houston, Texas. Houstonians: * Think their SUV is perfectly safe to drive at 90 mph while talking on the cell phone, but believe it impossible to park between the stripes at a parking lot. * When asked what is great about their town, will respond "It has a big freeway going directly to a shopping mall, where you can eat at TGI Fridays!" * Hate trees. Blacktop parking lots and billboards are much more attractive. * Have no problem with 10,000 member churches, with the preacher's name on the building instead of Jesus, but are all for smaller government. * Can't understand the concept of zoning. Drive anywhere in Houston, and you're likely to see a sewage treatment plant, church, strip club, farm land and homes, all within minutes of each other. * If a Houstonian throws a frisbee out the window of their car on any major street, chances are it will hit a Mexican restaurant. If it ricochets, it will hit a dentist's office. * Love strip malls, those single-story retail centers. Houston has thousands of them, on average about 60% occupied. The response? Build more strip malls! * Decry the politicians of the past as corrupt, but rally around their current political leaders when they get indicted for taking illegal contributions. * Have increasing man-made problems with flooding in their city, but when local government comes up with a flood control proposal, it is decried by activists as a "rain tax", and defeated. Sand bags, anyone? * Found good fortune? Most people would move to a nicer neighborhood, but not Houstonians. They tear down an old house in a cheaper neighborhood and build a big-ass one in its place. Why move up when you can build out? * If you want to be known as an eccentric in Houston, walk. On your way to your local grocery store or restaurant, friends will stop and ask if your car has broken down, and do you need a lift? Family will worry that your finances are in a slump. Strangers will either see you as a menace and lock their car doors, or just stare. If you persist, you'll become known in your neighborhood as "that walking man". * Passionately love their guns. Lots of Houstonians are licensed for concealed carry, which means they can have a pistol on their person nearly all the time. If you are a stranger in this town, and are lost, or need assistance, DO NOT knock on someone's door at night. I'm serious about this -- you could be on the receiving end of a firearm. * See themselves as rugged individualists, but are attracted to the new "upscale" housing developments where $300,000-plus homes are built 6 feet from one another. * For security, more and more Houstonians are living in "gated" communities, surrounded by walls one brick thick. A child with a claw hammer could break through those walls. * Historically, white Houstonians have moved further and further from downtown to get away from the minorities. Meanwhile, the land value downtown has increased to the point where the minorities can sell and move to the suburbs. Now white Houstonians are moving back downtown. * Houston was once ranked as the fattest city in America, but subsequently got bumped from the top spot. Curse you, Philadelphia! * Reside in the county with the highest rate of death penalty convictions in the US, some of which are handed down with shockingly scant evidence. Yet, despite having a higher percentage of the population in jail than any other country on Earth, no one feels safe. Enjoy your weekend! -Ken From wdhindman at dejpolsystems.com Thu Aug 24 19:23:08 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Thu, 24 Aug 2006 20:23:08 -0400 Subject: [AccessD] Separate mdb for housing temp tables References: Message-ID: <002201c6c7dc$a4ec7410$153ce944@50NM721> "Note that if you do not create objects or write to internal tables in your frontend database, you may be able to write protect the frontend file itself. That frees you from any corruption or bloat." /gustav ...intriguing idea! ...tell me more! William ----- Original Message ----- From: "Gustav Brock" To: Sent: Thursday, August 24, 2006 9:57 AM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi Borge > > This works extremely well. We use a write-protected master which we copy, > but you could for a simple temp database create it from scratch - it takes > no time. Both methods have cons and pros. > > Here's a code snippet where we create a verified copy of the master file > by compacting it to a new file, the file that the app will use. If it was > not deleted when the app closed, it will be reused. You may choose to > delete it if found and replace it with a new copy - that frees you from > emptying tables: > > > > If Len(Dir(strTempFileMaster)) > 0 Then > ' Master file exists. > If Len(Dir(strTempFileData)) = 0 Then > ' Work file is not found. Create new copy. > DBEngine.CompactDatabase strTempFileMaster, strTempFileData > End If > Else > strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > If (Len(Dir(strTempFileData)) > 0) Then > ' Work file existed or has been created. > booSuccess = True > ElseIf Len(strMsgPrompt) = 0 Then > strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > > If Len(strMsgPrompt) > 0 Then > DoCmd.Beep > MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > > > > Let your function return booSuccess. > > Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat. > > /gustav > >>>> pcs at azizaz.com 24-08-2006 07:01 >>> > Dear List, > > I have an application that make use of many temp tables. > In an effort to reduce FE bloat and not having to automate an FE compact > I've been thinking of placing all temp tables in a separate > mdb placed in same folder as the FE and link the tables to the FE. > > This temp mdb will exist in two versions: > > FE_tempORG, mdb in compacted state - > FE_temp , the one where the temp tables are linked to the FE > > The startup procedure of the FE will first up shell out and copy the > FE_tempORG over the FE_temp and then continue with checking > linking to BE and FE_temp, supply the login routine, etc. ... > > I admit I haven't searched the archives, the answer may already be there, > but... > > Is this a way to go, or do you have other suggestions? > > regards > Borge > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From fahooper at trapo.com Thu Aug 24 19:35:20 2006 From: fahooper at trapo.com (Fred Hooper) Date: Thu, 24 Aug 2006 20:35:20 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <003801c6c7cf$40c4e100$6401a8c0@BPCS> Message-ID: <002401c6c7de$58f07aa0$2e01a8c0@fredxp> Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Thu Aug 24 19:39:08 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 25 Aug 2006 10:39:08 +1000 Subject: [AccessD] OT: Houstonian Humor References: <44EE37F5.2070602@gmail.com> Message-ID: <001801c6c7de$e07e5280$6501a8c0@office> Very funny Ken! :) Kath ----- Original Message ----- From: Ken Ismert To: accessd at databaseadvisors.com Sent: Friday, August 25, 2006 9:36 AM Subject: [AccessD] OT: Houstonian Humor In response to Shamil's OT Russian Humor post, I am submitting a list of jokes at the expense of the residents of my fine hometown: Houston, Texas. Houstonians: * Think their SUV is perfectly safe to drive at 90 mph while talking on the cell phone, but believe it impossible to park between the stripes at a parking lot. * When asked what is great about their town, will respond "It has a big freeway going directly to a shopping mall, where you can eat at TGI Fridays!" * Hate trees. Blacktop parking lots and billboards are much more attractive. * Have no problem with 10,000 member churches, with the preacher's name on the building instead of Jesus, but are all for smaller government. * Can't understand the concept of zoning. Drive anywhere in Houston, and you're likely to see a sewage treatment plant, church, strip club, farm land and homes, all within minutes of each other. * If a Houstonian throws a frisbee out the window of their car on any major street, chances are it will hit a Mexican restaurant. If it ricochets, it will hit a dentist's office. * Love strip malls, those single-story retail centers. Houston has thousands of them, on average about 60% occupied. The response? Build more strip malls! * Decry the politicians of the past as corrupt, but rally around their current political leaders when they get indicted for taking illegal contributions. * Have increasing man-made problems with flooding in their city, but when local government comes up with a flood control proposal, it is decried by activists as a "rain tax", and defeated. Sand bags, anyone? * Found good fortune? Most people would move to a nicer neighborhood, but not Houstonians. They tear down an old house in a cheaper neighborhood and build a big-ass one in its place. Why move up when you can build out? * If you want to be known as an eccentric in Houston, walk. On your way to your local grocery store or restaurant, friends will stop and ask if your car has broken down, and do you need a lift? Family will worry that your finances are in a slump. Strangers will either see you as a menace and lock their car doors, or just stare. If you persist, you'll become known in your neighborhood as "that walking man". * Passionately love their guns. Lots of Houstonians are licensed for concealed carry, which means they can have a pistol on their person nearly all the time. If you are a stranger in this town, and are lost, or need assistance, DO NOT knock on someone's door at night. I'm serious about this -- you could be on the receiving end of a firearm. * See themselves as rugged individualists, but are attracted to the new "upscale" housing developments where $300,000-plus homes are built 6 feet from one another. * For security, more and more Houstonians are living in "gated" communities, surrounded by walls one brick thick. A child with a claw hammer could break through those walls. * Historically, white Houstonians have moved further and further from downtown to get away from the minorities. Meanwhile, the land value downtown has increased to the point where the minorities can sell and move to the suburbs. Now white Houstonians are moving back downtown. * Houston was once ranked as the fattest city in America, but subsequently got bumped from the top spot. Curse you, Philadelphia! * Reside in the county with the highest rate of death penalty convictions in the US, some of which are handed down with shockingly scant evidence. Yet, despite having a higher percentage of the population in jail than any other country on Earth, no one feels safe. Enjoy your weekend! -Ken -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bill_Patten at earthlink.net Thu Aug 24 21:06:09 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 24 Aug 2006 19:06:09 -0700 Subject: [AccessD] Control size of Report Preview window References: <002401c6c7de$58f07aa0$2e01a8c0@fredxp> Message-ID: <004a01c6c7eb$08c55570$6401a8c0@BPCS> Hi Fred, I'll keep that url for future reference, but my method seems to be working ok. When certain employees log into my app, if there are any open requisitions I have a report pop up on the screen. Maximize seems to confuse them and they always hit the wrong x in the upper right hand corner to close. So I set the report to 75% and now set the report window to about 3/4 the size of the screen. They can easily scan the report before closing it and doing what ever the got into the program to do. Lots of good info in that article. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 5:35 PM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 24 21:16:08 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 25 Aug 2006 12:16:08 +1000 Subject: [AccessD] Separate mdb for housing temp tables In-Reply-To: <002201c6c7dc$a4ec7410$153ce944@50NM721> References: , <002201c6c7dc$a4ec7410$153ce944@50NM721> Message-ID: <44EEEA08.19699.46ECDA4@stuart.lexacorp.com.pg> On 24 Aug 2006 at 20:23, William Hindman wrote: > "Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat." /gustav > I've just had a problem with this. I've got an A2K application (developed in A2K mode on an A2K2 installation) that runs startup code from an Autoexec macro, including opening the initial menu form. If the mdb is RO, it doesn't execute the macro on A2K so the user just just see a blank window with no menu. It works fine under A2K2. Opening the database window and trying to run the macro gives a message: "Microsoft can't find the macro Autoexec. The macro (or it's macro group) doesn't exist, or the macro is new but hasn't been saved........" As soon as I remove the RO attribute from the file, it works perfectly under both versions. -- Stuart McLachlan From wdhindman at dejpolsystems.com Thu Aug 24 23:18:39 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 25 Aug 2006 00:18:39 -0400 Subject: [AccessD] ...the gui of the future? References: , <002201c6c7dc$a4ec7410$153ce944@50NM721> <44EEEA08.19699.46ECDA4@stuart.lexacorp.com.pg> Message-ID: <001b01c6c7fd$8b8c7850$153ce944@50NM721> http://youtube.com/watch?v=PLhMVNdplJc ...thought some of you might find this as fascinating as I do :) William From jwcolby at colbyconsulting.com Fri Aug 25 00:24:57 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Fri, 25 Aug 2006 01:24:57 -0400 Subject: [AccessD] ...the gui of the future? In-Reply-To: <001b01c6c7fd$8b8c7850$153ce944@50NM721> Message-ID: <008801c6c806$ced5e0c0$657aa8c0@m6805> That is cool. I have to wonder at the system computing the graphics though. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman Sent: Friday, August 25, 2006 12:19 AM To: Access Developers discussion and problem solving Subject: [AccessD] ...the gui of the future? http://youtube.com/watch?v=PLhMVNdplJc ...thought some of you might find this as fascinating as I do :) 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 Aug 25 05:33:07 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 25 Aug 2006 12:33:07 +0200 Subject: [AccessD] Separate mdb for housing temp tables Message-ID: Hi William There really isn't much more to it - it is that plain simple - like running the frontend off a cd-rom or a read-only network folder. The only "issue" is that when run with a full Access, the app pops a message at launch telling the user that no changes to the database (the app) can be done. This message you can avoid by running the app from a shortcut with the switch /runtime. /gustav >>> wdhindman at dejpolsystems.com 25-08-2006 02:23 >>> "Note that if you do not create objects or write to internal tables in your frontend database, you may be able to write protect the frontend file itself. That frees you from any corruption or bloat." /gustav ...intriguing idea! ...tell me more! William ----- Original Message ----- From: "Gustav Brock" To: Sent: Thursday, August 24, 2006 9:57 AM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi Borge > > This works extremely well. We use a write-protected master which we copy, > but you could for a simple temp database create it from scratch - it takes > no time. Both methods have cons and pros. > > Here's a code snippet where we create a verified copy of the master file > by compacting it to a new file, the file that the app will use. If it was > not deleted when the app closed, it will be reused. You may choose to > delete it if found and replace it with a new copy - that frees you from > emptying tables: > > > > If Len(Dir(strTempFileMaster)) > 0 Then > ' Master file exists. > If Len(Dir(strTempFileData)) = 0 Then > ' Work file is not found. Create new copy. > DBEngine.CompactDatabase strTempFileMaster, strTempFileData > End If > Else > strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > If (Len(Dir(strTempFileData)) > 0) Then > ' Work file existed or has been created. > booSuccess = True > ElseIf Len(strMsgPrompt) = 0 Then > strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > > If Len(strMsgPrompt) > 0 Then > DoCmd.Beep > MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > > > > Let your function return booSuccess. > > Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat. > > /gustav > >>>> pcs at azizaz.com 24-08-2006 07:01 >>> > Dear List, > > I have an application that make use of many temp tables. > In an effort to reduce FE bloat and not having to automate an FE compact > I've been thinking of placing all temp tables in a separate > mdb placed in same folder as the FE and link the tables to the FE. > > This temp mdb will exist in two versions: > > FE_tempORG, mdb in compacted state - > FE_temp , the one where the temp tables are linked to the FE > > The startup procedure of the FE will first up shell out and copy the > FE_tempORG over the FE_temp and then continue with checking > linking to BE and FE_temp, supply the login routine, etc. ... > > I admit I haven't searched the archives, the answer may already be there, > but... > > Is this a way to go, or do you have other suggestions? > > regards > Borge From Gustav at cactus.dk Fri Aug 25 05:36:44 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 25 Aug 2006 12:36:44 +0200 Subject: [AccessD] Separate mdb for housing temp tables Message-ID: Hi Stuart I've not seen this. I did a test with a simple database - A2002 in A2000 format - and it ran with no issue. Perhaps you have encountered a special case bug? /gustav >>> stuart at lexacorp.com.pg 25-08-2006 04:16 >>> On 24 Aug 2006 at 20:23, William Hindman wrote: > "Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat." /gustav > I've just had a problem with this. I've got an A2K application (developed in A2K mode on an A2K2 installation) that runs startup code from an Autoexec macro, including opening the initial menu form. If the mdb is RO, it doesn't execute the macro on A2K so the user just just see a blank window with no menu. It works fine under A2K2. Opening the database window and trying to run the macro gives a message: "Microsoft can't find the macro Autoexec. The macro (or it's macro group) doesn't exist, or the macro is new but hasn't been saved........" As soon as I remove the RO attribute from the file, it works perfectly under both versions. -- Stuart McLachlan From wdhindman at dejpolsystems.com Fri Aug 25 07:17:37 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 25 Aug 2006 08:17:37 -0400 Subject: [AccessD] Separate mdb for housing temp tables References: Message-ID: <000901c6c840$74df6f20$153ce944@50NM721> ...thanks Gustav ...I'll have to experiment with this a bit ...the best ideas are often the simplest :) William ----- Original Message ----- From: "Gustav Brock" To: Sent: Friday, August 25, 2006 6:33 AM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi William > > There really isn't much more to it - it is that plain simple - like > running the frontend off a cd-rom or a read-only network folder. > > The only "issue" is that when run with a full Access, the app pops a > message at launch telling the user that no changes to the database (the > app) can be done. This message you can avoid by running the app from a > shortcut with the switch /runtime. > > /gustav > >>>> wdhindman at dejpolsystems.com 25-08-2006 02:23 >>> > "Note that if you do not create objects or write to internal tables in > your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat." /gustav > > ...intriguing idea! ...tell me more! > > William > > ----- Original Message ----- > From: "Gustav Brock" > To: > Sent: Thursday, August 24, 2006 9:57 AM > Subject: Re: [AccessD] Separate mdb for housing temp tables > > >> Hi Borge >> >> This works extremely well. We use a write-protected master which we copy, >> but you could for a simple temp database create it from scratch - it >> takes >> no time. Both methods have cons and pros. >> >> Here's a code snippet where we create a verified copy of the master file >> by compacting it to a new file, the file that the app will use. If it was >> not deleted when the app closed, it will be reused. You may choose to >> delete it if found and replace it with a new copy - that frees you from >> emptying tables: >> >> >> >> If Len(Dir(strTempFileMaster)) > 0 Then >> ' Master file exists. >> If Len(Dir(strTempFileData)) = 0 Then >> ' Work file is not found. Create new copy. >> DBEngine.CompactDatabase strTempFileMaster, strTempFileData >> End If >> Else >> strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is >> missing." & strCrLf >> strMsgPrompt = strMsgPrompt & "The application cannot run without it." >> End If >> If (Len(Dir(strTempFileData)) > 0) Then >> ' Work file existed or has been created. >> booSuccess = True >> ElseIf Len(strMsgPrompt) = 0 Then >> strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is >> missing." & strCrLf >> strMsgPrompt = strMsgPrompt & "The application cannot run without it." >> End If >> >> If Len(strMsgPrompt) > 0 Then >> DoCmd.Beep >> MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle >> End If >> >> >> >> Let your function return booSuccess. >> >> Note that if you do not create objects or write to internal tables in >> your >> frontend database, you may be able to write protect the frontend file >> itself. That frees you from any corruption or bloat. >> >> /gustav >> >>>>> pcs at azizaz.com 24-08-2006 07:01 >>> >> Dear List, >> >> I have an application that make use of many temp tables. >> In an effort to reduce FE bloat and not having to automate an FE compact >> I've been thinking of placing all temp tables in a separate >> mdb placed in same folder as the FE and link the tables to the FE. >> >> This temp mdb will exist in two versions: >> >> FE_tempORG, mdb in compacted state - >> FE_temp , the one where the temp tables are linked to the FE >> >> The startup procedure of the FE will first up shell out and copy the >> FE_tempORG over the FE_temp and then continue with checking >> linking to BE and FE_temp, supply the login routine, etc. ... >> >> I admit I haven't searched the archives, the answer may already be there, >> but... >> >> Is this a way to go, or do you have other suggestions? >> >> regards >> Borge > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From wdhindman at dejpolsystems.com Fri Aug 25 07:24:10 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 25 Aug 2006 08:24:10 -0400 Subject: [AccessD] ...the gui of the future? References: <008801c6c806$ced5e0c0$657aa8c0@m6805> Message-ID: <000d01c6c841$5f37a6f0$153ce944@50NM721> ...true, it wouldn't be nearly as impressive if a mainframe was behind it ...but still, can you doubt that this is the direction we will go? ...and what are the odds that Jobs makes it work long before Gates gets around to it. William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Friday, August 25, 2006 1:24 AM Subject: Re: [AccessD] ...the gui of the future? > That is cool. I have to wonder at the system computing the graphics > though. > > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman > Sent: Friday, August 25, 2006 12:19 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] ...the gui of the future? > > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) > > 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 carbonnb at gmail.com Fri Aug 25 08:48:58 2006 From: carbonnb at gmail.com (Bryan Carbonnell) Date: Fri, 25 Aug 2006 09:48:58 -0400 Subject: [AccessD] ...the gui of the future? In-Reply-To: <001b01c6c7fd$8b8c7850$153ce944@50NM721> References: <002201c6c7dc$a4ec7410$153ce944@50NM721> <44EEEA08.19699.46ECDA4@stuart.lexacorp.com.pg> <001b01c6c7fd$8b8c7850$153ce944@50NM721> Message-ID: On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 Fri Aug 25 11:54:39 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 25 Aug 2006 17:54:39 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: Message-ID: <000001c6c867$2816fe20$cd2b70c3@minster33c3r25> Fabulous. I'm just so impressed at guys like this who can think, as I think you say in your language, "outside the box". You look at this and think: yep, there's the future. -- 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: 25 August 2006 14:49 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > On 8/25/06, William Hindman wrote: > > http://youtube.com/watch?v=PLhMVNdplJc > > > > ...thought some of you might find this as fascinating as I do :) > > That is just too cool!! Gotta get me one of those :) > > -- > 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 Lambert.Heenan at AIG.com Fri Aug 25 12:04:19 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Fri, 25 Aug 2006 13:04:19 -0400 Subject: [AccessD] ...the gui of the future? Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB109@xlivmbx21.aig.com> I saw this video last week, and like most of the folks on the list I was impressed. But one thing bothers me, with all the multi-contact gesturing over the screen it's going to be a pretty grubby screen after a short while. Don't think so? Have you looked closely at your keyboard lately? Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 12:55 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Fabulous. I'm just so impressed at guys like this who can think, as I think you say in your language, "outside the box". You look at this and think: yep, there's the future. -- 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: 25 August 2006 14:49 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > On 8/25/06, William Hindman wrote: > > http://youtube.com/watch?v=PLhMVNdplJc > > > > ...thought some of you might find this as fascinating as I do :) > > That is just too cool!! Gotta get me one of those :) > > -- > 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 andy at minstersystems.co.uk Fri Aug 25 12:26:05 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 25 Aug 2006 18:26:05 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB109@xlivmbx21.aig.com> Message-ID: <000f01c6c86b$8b940f70$cd2b70c3@minster33c3r25> Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Heenan, Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the > list I was impressed. But one thing bothers me, with all the > multi-contact gesturing over the screen it's going to be a > pretty grubby screen after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can > think, as I think you say in your language, "outside the > box". You look at this and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 Fri Aug 25 12:27:32 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 25 Aug 2006 10:27:32 -0700 Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB109@xlivmbx21.aig.com> Message-ID: The same issues already exist with touch screens. But they're easier to clean than keyboards! ;o} Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, August 25, 2006 10:04 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? I saw this video last week, and like most of the folks on the list I was impressed. But one thing bothers me, with all the multi-contact gesturing over the screen it's going to be a pretty grubby screen after a short while. Don't think so? Have you looked closely at your keyboard lately? Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 12:55 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Fabulous. I'm just so impressed at guys like this who can think, as I think you say in your language, "outside the box". You look at this and think: yep, there's the future. -- 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: 25 August 2006 14:49 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > On 8/25/06, William Hindman wrote: > > http://youtube.com/watch?v=PLhMVNdplJc > > > > ...thought some of you might find this as fascinating as I do :) > > That is just too cool!! Gotta get me one of those :) > > -- > 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 Fri Aug 25 12:28:34 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 25 Aug 2006 10:28:34 -0700 Subject: [AccessD] ...the gui of the future? In-Reply-To: <000f01c6c86b$8b940f70$cd2b70c3@minster33c3r25> Message-ID: Or maybe PalmOne Screen Protectors--XXXL ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 10:26 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, > Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the list I > was impressed. But one thing bothers me, with all the multi-contact > gesturing over the screen it's going to be a pretty grubby screen > after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can think, as I > think you say in your language, "outside the box". You look at this > and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 Lambert.Heenan at AIG.com Fri Aug 25 12:43:21 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Fri, 25 Aug 2006 13:43:21 -0400 Subject: [AccessD] ...the gui of the future? Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com> That could work. Similar to the tear-off visors that formula one drivers use. It just depends on the actual touch sensitive technology being used on the screen. Pressure sensitive, ok, capacitance change sensitive, maybe not. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 1:26 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Heenan, Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the > list I was impressed. But one thing bothers me, with all the > multi-contact gesturing over the screen it's going to be a > pretty grubby screen after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can > think, as I think you say in your language, "outside the > box". You look at this and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 mfisch4 at capex.com.ar Fri Aug 25 12:51:19 2006 From: mfisch4 at capex.com.ar (MF) Date: Fri, 25 Aug 2006 14:51:19 -0300 Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com > References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com> Message-ID: <6.2.3.4.0.20060825144515.03402070@bsas-mail> Make them hard enough and use them like the kitchen table, do what you will on top and wipe them up as often as you need. Just have a rag around with some lens cleaning fluid and you're done. MF __________________________ At 14:43 25/08/2006, you wrote: >That could work. Similar to the tear-off visors that formula one drivers >use. > >It just depends on the actual touch sensitive technology being used on the >screen. Pressure sensitive, ok, capacitance change sensitive, maybe not. > >Lambert From Jim.Hale at FleetPride.com Fri Aug 25 14:04:25 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Fri, 25 Aug 2006 14:04:25 -0500 Subject: [AccessD] OT: Houstonian Humor Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDEF7@corp-es01.fleetpride.com> Hey Ken I thought you lived in Tomball, not Houston ;-) Anyway, I think eccentric is too mild a word. Crazy is more like it- if the cars don't get you, heat prostration will. Houston is the only city I've ever seen where rain turns to steam when it hits the asphalt- very strange sight. When we were bidding for the summer olympics I had visions of the greatest athletes in the world all dying of heat prostration. The guy who said "if I owned Texas and hell I'd rent out Tx and live in hell" probably had Houston in mind. The unwritten rule is pickups have an extra 3 seconds to get through a red light. Pickups with gun racks get to take as long as they like. This has created something like 100 or so collision between our new light rail and vehicles in the first year of operation. Apparently no one has told Metro about the pickup rule. Ah, but you forget the "you loot, we shoot" patrols during Rita- one brick thick was enough when backed by Smith and Wesson. The boys got to flaunt their toys and strangely enough we didn't have any looting. (Except for one beer truck that got stranded in high water during Alison- but hey, it was beer) Hey, one taste of our BBQ and/or fajitas and you will understand why. And with (or despite) all that I wouldn't live anywhere else. Remember, the first word ever spoken when man reached the stars was "Houston" -the Eagle has landed. Jim Hale -----Original Message----- From: Ken Ismert [mailto:kismert at gmail.com] Sent: Thursday, August 24, 2006 6:36 PM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Houstonian Humor In response to Shamil's OT Russian Humor post, I am submitting a list of jokes at the expense of the residents of my fine hometown: Houston, Texas. Houstonians: * Think their SUV is perfectly safe to drive at 90 mph while talking on the cell phone, but believe it impossible to park between the stripes at a parking lot. * When asked what is great about their town, will respond "It has a big freeway going directly to a shopping mall, where you can eat at TGI Fridays!" *********************************************************************** 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 jimdettman at verizon.net Fri Aug 25 14:20:38 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Fri, 25 Aug 2006 15:20:38 -0400 Subject: [AccessD] FW: ...the gui of the future? Message-ID: <0J4K00JKGJ2IBXL4@vms040.mailsrvcs.net> Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 andy at minstersystems.co.uk Fri Aug 25 14:24:43 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 25 Aug 2006 20:24:43 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: <6.2.3.4.0.20060825144515.03402070@bsas-mail> Message-ID: <003901c6c87c$1e575e60$cd2b70c3@minster33c3r25> Need to be pressure-sensitive though. Our prototype will need work. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MF > Sent: 25 August 2006 18:51 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > Make them hard enough and use them like the kitchen table, > do what you will on top and wipe them up as often as you > need. Just have a rag around with some lens cleaning fluid > and you're done. MF > > > __________________________ > At 14:43 25/08/2006, you wrote: > >That could work. Similar to the tear-off visors that formula one > >drivers use. > > > >It just depends on the actual touch sensitive technology > being used on > >the screen. Pressure sensitive, ok, capacitance change > sensitive, maybe > >not. > > > >Lambert > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From mfisch4 at capex.com.ar Fri Aug 25 14:30:59 2006 From: mfisch4 at capex.com.ar (MF) Date: Fri, 25 Aug 2006 16:30:59 -0300 Subject: [AccessD] ...the gui of the future? In-Reply-To: <003901c6c87c$1e575e60$cd2b70c3@minster33c3r25> References: <6.2.3.4.0.20060825144515.03402070@bsas-mail> <003901c6c87c$1e575e60$cd2b70c3@minster33c3r25> Message-ID: <6.2.3.4.0.20060825162819.028b2218@bsas-mail> There are virtual keyboards being produced that read the position of your fingers with some precision. Something of the kind could probably be used for monitors and then you don't need anything on or under, the surface itself. Then you can make it rock hard. MF __________________________ At 16:24 25/08/2006, you wrote: >Need to be pressure-sensitive though. Our prototype will need work. > >-- Andy Lacey >http://www.minstersystems.co.uk From artful at rogers.com Fri Aug 25 14:59:08 2006 From: artful at rogers.com (artful at rogers.com) Date: Fri, 25 Aug 2006 12:59:08 -0700 (PDT) Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com> Message-ID: <20060825195908.29989.qmail@web88208.mail.re2.yahoo.com> Recently I did an app for a safety assessment engineer, whose job it is to go into factories and look at stamping machines, presses, robots, etc. and measure them in various ways that are intended to minimize if not eliminate the risk to their operators. They have a thing called a light curtain, which is a bank of senders here and a bank of receivers there, so if you pass your hand through the beam the machine quits as instantly as possible, thereby perhaps saving said worker's arm. Having endured dozens of friends (and worse, clients) touch my screen, I am sensitive about this subject. Friends at least I can berate, but clients I must endure, then Windex the screen when I get home. A light curtain might prove useful with this interface: you never actually touch it, but rather penetrate the light curtain with varying degrees of attack and decay, never touching the screen itself. Arthur ----- Original Message ---- From: "Heenan, Lambert" To: Access Developers discussion and problem solving Sent: Friday, August 25, 2006 1:43:21 PM Subject: Re: [AccessD] ...the gui of the future? That could work. Similar to the tear-off visors that formula one drivers use. It just depends on the actual touch sensitive technology being used on the screen. Pressure sensitive, ok, capacitance change sensitive, maybe not. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 1:26 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Heenan, Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the > list I was impressed. But one thing bothers me, with all the > multi-contact gesturing over the screen it's going to be a > pretty grubby screen after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can > think, as I think you say in your language, "outside the > box". You look at this and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 kismert at gmail.com Fri Aug 25 19:09:44 2006 From: kismert at gmail.com (Ken Ismert) Date: Fri, 25 Aug 2006 19:09:44 -0500 Subject: [AccessD] ...the gui of the future? Message-ID: <44EF9148.4090109@gmail.com> That is cool. But what I want is a different kind of gestural interface -- when I flip off the computer and start screaming obscenities at it, it learns it better well not do that again! -Ken From andy at minstersystems.co.uk Sat Aug 26 01:19:05 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Sat, 26 Aug 2006 07:19:05 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: <44EF9148.4090109@gmail.com> Message-ID: <000001c6c8d7$89173080$37e20651@minster33c3r25> Now you're talking. And how about one which knows what I meant and therefore corrects every mistake I make? -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert > Sent: 26 August 2006 01:10 > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] ...the gui of the future? > > > > That is cool. > > But what I want is a different kind of gestural interface -- > when I flip > off the computer and start screaming obscenities at it, it learns it > better well not do that again! > > -Ken > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From wdhindman at dejpolsystems.com Sat Aug 26 05:12:23 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sat, 26 Aug 2006 06:12:23 -0400 Subject: [AccessD] ...the gui of the future? References: <000001c6c8d7$89173080$37e20651@minster33c3r25> Message-ID: <002001c6c8f8$2097ed30$153ce944@50NM721> ...if'n we go n' make the damn things THAT smart, I might's well retire :( William Hindman ----- Original Message ----- From: "Andy Lacey" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 26, 2006 2:19 AM Subject: Re: [AccessD] ...the gui of the future? > Now you're talking. And how about one which knows what I meant and > therefore > corrects every mistake I make? > > -- Andy Lacey > http://www.minstersystems.co.uk > >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert >> Sent: 26 August 2006 01:10 >> To: accessd at databaseadvisors.com >> Subject: Re: [AccessD] ...the gui of the future? >> >> >> >> That is cool. >> >> But what I want is a different kind of gestural interface -- >> when I flip >> off the computer and start screaming obscenities at it, it learns it >> better well not do that again! >> >> -Ken >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> >> > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From ssharkins at setel.com Sat Aug 26 08:31:32 2006 From: ssharkins at setel.com (Susan Harkins) Date: Sat, 26 Aug 2006 09:31:32 -0400 Subject: [AccessD] ...the gui of the future? In-Reply-To: <002001c6c8f8$2097ed30$153ce944@50NM721> Message-ID: <000301c6c913$f3b07ff0$17b62ad1@SUSANONE> Too late -- you're already retired. :) Susan H. ...if'n we go n' make the damn things THAT smart, I might's well retire :( From fahooper at trapo.com Sat Aug 26 12:41:32 2006 From: fahooper at trapo.com (Fred Hooper) Date: Sat, 26 Aug 2006 13:41:32 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <004a01c6c7eb$08c55570$6401a8c0@BPCS> Message-ID: <000001c6c936$e017c930$2e01a8c0@fredxp> Hi Bill, I've found some move/size code that I like better. It's at http://www.mvps.org/access/forms/frm0042.htm. The big difference is that it makes Parent dimensions easily available. It also works for reports where my use of it is screen resolution independent. You will note that I'm using acCmdFitToWindow instead of acCmdZoom75, as it allows the largest print that will show a full page in the window. My code is now: Public Sub SizeAndCenterReport(strReport As String) Dim booZoomed As Boolean Dim fwForm As clFormWindow If ReportIsOpen(strReport) Then If Not IsZoomed(Reports(strReport).hWnd) Then Set fwForm = New clFormWindow With fwForm .hWnd = Reports(strReport).hWnd .Top = 0 .Height = .Parent.Height - 5 'Avoids a vertical scroll bar .Width = .Height * 8.5 / 11 .Left = (.Parent.Width - .Width) / 2 End With Set fwForm = Nothing RunCommand acCmdFitToWindow End If End If End Sub -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 10:06 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Hi Fred, I'll keep that url for future reference, but my method seems to be working ok. When certain employees log into my app, if there are any open requisitions I have a report pop up on the screen. Maximize seems to confuse them and they always hit the wrong x in the upper right hand corner to close. So I set the report to 75% and now set the report window to about 3/4 the size of the screen. They can easily scan the report before closing it and doing what ever the got into the program to do. Lots of good info in that article. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 5:35 PM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 gmail.com Sat Aug 26 12:47:54 2006 From: kismert at gmail.com (Ken Ismert) Date: Sat, 26 Aug 2006 12:47:54 -0500 Subject: [AccessD] OT: Houstonian Humor Message-ID: <44F0894A.3020607@gmail.com> Jim, > Hey Ken I thought you lived in Tomball, not Houston ;-) I worked in Tomball for many years, but have always lived within Houston. >> If you want to be known as an eccentric in Houston, walk > ...Crazy is more like it- if the cars don't get you, > heat prostration will... That reminds me... One day in northwest Houston, I decided to walk to my favorite Mexican restaurant for lunch. My route took me down Jones Road, a ruler-straight, 6 lane street with an emergency lane and a large drainage ditch on each side. There was no sidewalk, so I had to use the emergency lane. As I walked, I glanced at the ditch to my left. There was a fresh set of tire tracks, where a car had run off and gotten stuck. 50 feet later, another set of tracks. And another. In all, at least 7 sets on my 10-minute jaunt. I got to my restaurant, ate, and returned on the other side of the road. I looked across the street, and wouldn't you know it -- during lunch, on the side I had originally walked on, Bubba done run his pickup truck off the road into the ditch. A tow truck was pulling him out. I never walked that stretch of road again. -Ken PS. You guessed it -- I was the 'walking man' of northwest Houston! 8-) From bchacc at san.rr.com Sat Aug 26 19:26:18 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 17:26:18 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> Message-ID: <44F0E6AA.9070908@san.rr.com> Well, I'm really crappin' out with this guy. .Activate didn't work, nor .Show. He tests to see if word is already open - doesn't want to open a second instance. Set WordObj = GetObject(, "Word.Application") If Err.Number <> 0 Then Set WordObj = CreateObject("Word.Application") End If Nothing works so far when Word is already open. But I can't help but think there's a simple property or method (there's so freakin' many of 'em) to make Word the active window when you open a new document and word is already open. Any other ideas anybody? MTIA Rocky Heenan, Lambert wrote: > Rocky, > > WordObj needs to be declared As Word.Application, but is has to be in the > same scope as the function you are using. Notice that I actually declare the > xlObj inside my function. > > Lambert (first name) > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 4:03 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: > >> Well here is how I do the same thing with Access opening Excel. It is >> all dependant on getting the handle of the Excel window (or Word >> window in your case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >> As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------- >> ------ >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> > file > >> if needed. >> >> > '--------------------------------------------------------------------------- > >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window to the foreground. End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >> Smolin - Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on >> top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> Rocky >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From papparuff at comcast.net Sat Aug 26 20:07:48 2006 From: papparuff at comcast.net (John Ruff) Date: Sat, 26 Aug 2006 18:07:48 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <44F0E6AA.9070908@san.rr.com> Message-ID: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> After you create the WordObj set its visible property to true ' Shows this instance of Word WordObj.Visible = True papparuff -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Saturday, August 26, 2006 4:26 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Word Window On Top Well, I'm really crappin' out with this guy. .Activate didn't work, nor .Show. He tests to see if word is already open - doesn't want to open a second instance. Set WordObj = GetObject(, "Word.Application") If Err.Number <> 0 Then Set WordObj = CreateObject("Word.Application") End If Nothing works so far when Word is already open. But I can't help but think there's a simple property or method (there's so freakin' many of 'em) to make Word the active window when you open a new document and word is already open. Any other ideas anybody? MTIA Rocky Heenan, Lambert wrote: > Rocky, > > WordObj needs to be declared As Word.Application, but is has to be in the > same scope as the function you are using. Notice that I actually declare the > xlObj inside my function. > > Lambert (first name) > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 4:03 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: > >> Well here is how I do the same thing with Access opening Excel. It is >> all dependant on getting the handle of the Excel window (or Word >> window in your case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >> As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------- >> ------ >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> > file > >> if needed. >> >> > '--------------------------------------------------------------------------- > >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window to the foreground. End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >> Smolin - Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on >> top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> 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 mmattys at rochester.rr.com Sat Aug 26 20:26:18 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Sat, 26 Aug 2006 21:26:18 -0400 Subject: [AccessD] Word Window On Top References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> Message-ID: <00c501c6c977$cf706a60$0202a8c0@default> Of course! Right on target, John. I was going to say: Public Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Public Declare Function ShowWindow Lib "user32" _ (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Dim OpusApp As Long OpusApp& = FindWindow("OpusApp", vbNullString) Call ShowWindow(OpusApp , SW_NORMAL) Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "John Ruff" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 26, 2006 9:07 PM Subject: Re: [AccessD] Word Window On Top > After you create the WordObj set its visible property to true > > ' Shows this instance of Word > WordObj.Visible = True > > papparuff > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Saturday, August 26, 2006 4:26 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > Well, I'm really crappin' out with this guy. .Activate didn't work, nor > .Show. > > He tests to see if word is already open - doesn't want to open a second > instance. > > Set WordObj = GetObject(, "Word.Application") > If Err.Number <> 0 Then > Set WordObj = CreateObject("Word.Application") > End If > > > Nothing works so far when Word is already open. But I can't help but > think there's a simple property or method (there's so freakin' many of > 'em) to make Word the active window when you open a new document and > word is already open. > > Any other ideas anybody? > > MTIA > > Rocky > > Heenan, Lambert wrote: >> Rocky, >> >> WordObj needs to be declared As Word.Application, but is has to be in >> the >> same scope as the function you are using. Notice that I actually declare > the >> xlObj inside my function. >> >> Lambert (first name) >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 23, 2006 4:03 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Word Window On Top >> >> >> Heenan: >> >> With WordObj declared as: Dim WordObj As Word.Application >> >> and the Function in a separate module, the statement SetForegroundWindow >> WordObj.hWnd won't compile - gives a method or data member not found > error. >> >> The Word 11.0 object library is checked in the references. >> >> I tried redeclaring WordObj as Object but that didn't work either. >> >> TIA >> >> Rocky >> >> >> Heenan, Lambert wrote: >> >>> Well here is how I do the same thing with Access opening Excel. It is >>> all dependant on getting the handle of the Excel window (or Word >>> window in your case)... >>> >>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>> As >>> Long) As Long >>> >>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>> Boolean = True) >>> '--------------------------------------------------------------------- >>> ------ >>> ------------ >>> ' Procedure : ViewInExcel >>> ' >>> ' Purpose : Displays a recordset (Table or query) in an Excel > worksheet, >>> but does >>> ' : not save the Excel file. The user can choose to save the >>> >> file >> >>> if needed. >>> >>> >> > '--------------------------------------------------------------------------- >> >>> ------------ >>> ' >>> Dim objXL As excel.Application >>> Dim objSheet As excel.Worksheet >>> Dim objWB As excel.Workbook >>> Dim rs As Object >>> Dim oRng As excel.Range >>> Dim nCols As Long, n As Long >>> >>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>> nCols = rs.Fields.Count >>> Set objXL = CreateObject("Excel.Application") >>> objXL.SheetsInNewWorkbook = 1 >>> Set objWB = objXL.Workbooks.Add >>> Dim f As Field >>> n = 0 >>> ' CopyFromRecordset does not bring the column headings with it. >>> ' So here we add them manually. >>> For Each f In rs.Fields >>> n = n + 1 >>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>> Next f >>> ' and now drop the data into row 2 >>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>> If bFormatColumns Then >>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>> oRng.EntireColumn.AutoFit >>> oRng.Interior.Color = vbYellow >>> oRng.Borders.Color = vbBlack >>> Set oRng = Nothing >>> End If >>> rs.Close >>> Set rs = Nothing >>> objXL.Visible = True >>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>> window to the foreground. End Sub >>> >>> HTH >>> >>> Lambert >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>> Smolin - Beach Access Software >>> Sent: Wednesday, August 23, 2006 1:33 PM >>> To: Access Developers discussion and problem solving >>> Subject: [AccessD] Word Window On Top >>> >>> >>> Dear List: >>> >>> Using automation I open a word doc, but the access app is still on >>> top. >>> Word is in the tray. Click it and the doc is there and open. Q: how >>> can I give the word doc window the focus after I open it? >>> >>> MTIA >>> >>> 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 > > -- > 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 Aug 26 20:47:28 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 18:47:28 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> Message-ID: <44F0F9B0.2030200@san.rr.com> John: Problem is, IIUC, if you don't create WordObj because there's already an instance of Word open, but just set the WordDoc to open the target document, Word opens the document but the calling Access program is still on top even though Word is visible. Apparently, when they run this app to merge this doc, they might already have Word open and working on some other document(s). Rocky John Ruff wrote: > After you create the WordObj set its visible property to true > > ' Shows this instance of Word > WordObj.Visible = True > > papparuff > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Saturday, August 26, 2006 4:26 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > Well, I'm really crappin' out with this guy. .Activate didn't work, nor > .Show. > > He tests to see if word is already open - doesn't want to open a second > instance. > > Set WordObj = GetObject(, "Word.Application") > If Err.Number <> 0 Then > Set WordObj = CreateObject("Word.Application") > End If > > > Nothing works so far when Word is already open. But I can't help but > think there's a simple property or method (there's so freakin' many of > 'em) to make Word the active window when you open a new document and > word is already open. > > Any other ideas anybody? > > MTIA > > Rocky > > Heenan, Lambert wrote: > >> Rocky, >> >> WordObj needs to be declared As Word.Application, but is has to be in the >> same scope as the function you are using. Notice that I actually declare >> > the > >> xlObj inside my function. >> >> Lambert (first name) >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 23, 2006 4:03 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Word Window On Top >> >> >> Heenan: >> >> With WordObj declared as: Dim WordObj As Word.Application >> >> and the Function in a separate module, the statement SetForegroundWindow >> WordObj.hWnd won't compile - gives a method or data member not found >> > error. > >> The Word 11.0 object library is checked in the references. >> >> I tried redeclaring WordObj as Object but that didn't work either. >> >> TIA >> >> Rocky >> >> >> Heenan, Lambert wrote: >> >> >>> Well here is how I do the same thing with Access opening Excel. It is >>> all dependant on getting the handle of the Excel window (or Word >>> window in your case)... >>> >>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>> As >>> Long) As Long >>> >>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>> Boolean = True) >>> '--------------------------------------------------------------------- >>> ------ >>> ------------ >>> ' Procedure : ViewInExcel >>> ' >>> ' Purpose : Displays a recordset (Table or query) in an Excel >>> > worksheet, > >>> but does >>> ' : not save the Excel file. The user can choose to save the >>> >>> >> file >> >> >>> if needed. >>> >>> >>> > '--------------------------------------------------------------------------- > >> >> >>> ------------ >>> ' >>> Dim objXL As excel.Application >>> Dim objSheet As excel.Worksheet >>> Dim objWB As excel.Workbook >>> Dim rs As Object >>> Dim oRng As excel.Range >>> Dim nCols As Long, n As Long >>> >>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>> nCols = rs.Fields.Count >>> Set objXL = CreateObject("Excel.Application") >>> objXL.SheetsInNewWorkbook = 1 >>> Set objWB = objXL.Workbooks.Add >>> Dim f As Field >>> n = 0 >>> ' CopyFromRecordset does not bring the column headings with it. >>> ' So here we add them manually. >>> For Each f In rs.Fields >>> n = n + 1 >>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>> Next f >>> ' and now drop the data into row 2 >>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>> If bFormatColumns Then >>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>> oRng.EntireColumn.AutoFit >>> oRng.Interior.Color = vbYellow >>> oRng.Borders.Color = vbBlack >>> Set oRng = Nothing >>> End If >>> rs.Close >>> Set rs = Nothing >>> objXL.Visible = True >>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>> window to the foreground. End Sub >>> >>> HTH >>> >>> Lambert >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>> Smolin - Beach Access Software >>> Sent: Wednesday, August 23, 2006 1:33 PM >>> To: Access Developers discussion and problem solving >>> Subject: [AccessD] Word Window On Top >>> >>> >>> Dear List: >>> >>> Using automation I open a word doc, but the access app is still on >>> top. >>> Word is in the tray. Click it and the doc is there and open. Q: how >>> can I give the word doc window the focus after I open it? >>> >>> MTIA >>> >>> Rocky >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Sat Aug 26 20:48:51 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 18:48:51 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <00c501c6c977$cf706a60$0202a8c0@default> References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> <00c501c6c977$cf706a60$0202a8c0@default> Message-ID: <44F0FA03.2050207@san.rr.com> Replace OpusApp with WordObj? Rocky Michael R Mattys wrote: > Of course! Right on target, John. > > I was going to say: > > Public Declare Function FindWindow Lib "user32" _ > Alias "FindWindowA" (ByVal lpClassName As String, _ > ByVal lpWindowName As String) As Long > > Public Declare Function ShowWindow Lib "user32" _ > (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long > > Dim OpusApp As Long > OpusApp& = FindWindow("OpusApp", vbNullString) > Call ShowWindow(OpusApp , SW_NORMAL) > > Michael R. Mattys > MapPoint Developer > www.mattysconsulting.com > > ----- Original Message ----- > From: "John Ruff" > To: "'Access Developers discussion and problem solving'" > > Sent: Saturday, August 26, 2006 9:07 PM > Subject: Re: [AccessD] Word Window On Top > > > >> After you create the WordObj set its visible property to true >> >> ' Shows this instance of Word >> WordObj.Visible = True >> >> papparuff >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Saturday, August 26, 2006 4:26 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Word Window On Top >> >> Well, I'm really crappin' out with this guy. .Activate didn't work, nor >> .Show. >> >> He tests to see if word is already open - doesn't want to open a second >> instance. >> >> Set WordObj = GetObject(, "Word.Application") >> If Err.Number <> 0 Then >> Set WordObj = CreateObject("Word.Application") >> End If >> >> >> Nothing works so far when Word is already open. But I can't help but >> think there's a simple property or method (there's so freakin' many of >> 'em) to make Word the active window when you open a new document and >> word is already open. >> >> Any other ideas anybody? >> >> MTIA >> >> Rocky >> >> Heenan, Lambert wrote: >> >>> Rocky, >>> >>> WordObj needs to be declared As Word.Application, but is has to be in >>> the >>> same scope as the function you are using. Notice that I actually declare >>> >> the >> >>> xlObj inside my function. >>> >>> Lambert (first name) >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Wednesday, August 23, 2006 4:03 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> Heenan: >>> >>> With WordObj declared as: Dim WordObj As Word.Application >>> >>> and the Function in a separate module, the statement SetForegroundWindow >>> WordObj.hWnd won't compile - gives a method or data member not found >>> >> error. >> >>> The Word 11.0 object library is checked in the references. >>> >>> I tried redeclaring WordObj as Object but that didn't work either. >>> >>> TIA >>> >>> Rocky >>> >>> >>> Heenan, Lambert wrote: >>> >>> >>>> Well here is how I do the same thing with Access opening Excel. It is >>>> all dependant on getting the handle of the Excel window (or Word >>>> window in your case)... >>>> >>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>> As >>>> Long) As Long >>>> >>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>>> Boolean = True) >>>> '--------------------------------------------------------------------- >>>> ------ >>>> ------------ >>>> ' Procedure : ViewInExcel >>>> ' >>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>> >> worksheet, >> >>>> but does >>>> ' : not save the Excel file. The user can choose to save the >>>> >>>> >>> file >>> >>> >>>> if needed. >>>> >>>> >>>> >> '--------------------------------------------------------------------------- >> >>>> ------------ >>>> ' >>>> Dim objXL As excel.Application >>>> Dim objSheet As excel.Worksheet >>>> Dim objWB As excel.Workbook >>>> Dim rs As Object >>>> Dim oRng As excel.Range >>>> Dim nCols As Long, n As Long >>>> >>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>> nCols = rs.Fields.Count >>>> Set objXL = CreateObject("Excel.Application") >>>> objXL.SheetsInNewWorkbook = 1 >>>> Set objWB = objXL.Workbooks.Add >>>> Dim f As Field >>>> n = 0 >>>> ' CopyFromRecordset does not bring the column headings with it. >>>> ' So here we add them manually. >>>> For Each f In rs.Fields >>>> n = n + 1 >>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>> Next f >>>> ' and now drop the data into row 2 >>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>> If bFormatColumns Then >>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>> oRng.EntireColumn.AutoFit >>>> oRng.Interior.Color = vbYellow >>>> oRng.Borders.Color = vbBlack >>>> Set oRng = Nothing >>>> End If >>>> rs.Close >>>> Set rs = Nothing >>>> objXL.Visible = True >>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>> window to the foreground. End Sub >>>> >>>> HTH >>>> >>>> Lambert >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>> Smolin - Beach Access Software >>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: [AccessD] Word Window On Top >>>> >>>> >>>> Dear List: >>>> >>>> Using automation I open a word doc, but the access app is still on >>>> top. >>>> Word is in the tray. Click it and the doc is there and open. Q: how >>>> can I give the word doc window the focus after I open it? >>>> >>>> MTIA >>>> >>>> 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 >> >> -- >> 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 bill_Patten at earthlink.net Sat Aug 26 20:50:16 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Sat, 26 Aug 2006 18:50:16 -0700 Subject: [AccessD] Control size of Report Preview window References: <000001c6c936$e017c930$2e01a8c0@fredxp> Message-ID: <000c01c6c97b$28c02800$6401a8c0@BPCS> Fred, Thanks for keeping me posted. I played with the code, and once I found the clFormWindow and figured out the API calls think that isZoomed and IsZoomed are different I got it working. I think it is much more elegant than my solution but am keeping mine for this project because if a whole page is displayed on the screen the text is too small for my client to read. Since most of the time the report is only a few rows long it is better to be wide and short so the text is bigger. I think what you came up with may be useful for other forms and or reports so I shall add it to on of my regular modules. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 26, 2006 10:41 AM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've found some move/size code that I like better. It's at http://www.mvps.org/access/forms/frm0042.htm. The big difference is that it makes Parent dimensions easily available. It also works for reports where my use of it is screen resolution independent. You will note that I'm using acCmdFitToWindow instead of acCmdZoom75, as it allows the largest print that will show a full page in the window. My code is now: Public Sub SizeAndCenterReport(strReport As String) Dim booZoomed As Boolean Dim fwForm As clFormWindow If ReportIsOpen(strReport) Then If Not IsZoomed(Reports(strReport).hWnd) Then Set fwForm = New clFormWindow With fwForm .hWnd = Reports(strReport).hWnd .Top = 0 .Height = .Parent.Height - 5 'Avoids a vertical scroll bar .Width = .Height * 8.5 / 11 .Left = (.Parent.Width - .Width) / 2 End With Set fwForm = Nothing RunCommand acCmdFitToWindow End If End If End Sub -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 10:06 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Hi Fred, I'll keep that url for future reference, but my method seems to be working ok. When certain employees log into my app, if there are any open requisitions I have a report pop up on the screen. Maximize seems to confuse them and they always hit the wrong x in the upper right hand corner to close. So I set the report to 75% and now set the report window to about 3/4 the size of the screen. They can easily scan the report before closing it and doing what ever the got into the program to do. Lots of good info in that article. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 5:35 PM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From mmattys at rochester.rr.com Sat Aug 26 21:34:47 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Sat, 26 Aug 2006 22:34:47 -0400 Subject: [AccessD] Word Window On Top References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> <00c501c6c977$cf706a60$0202a8c0@default> <44F0FA03.2050207@san.rr.com> Message-ID: <00ea01c6c981$5fc7eda0$0202a8c0@default> Hi Rocky, No - OpusApp is the Application name. Most Office Apps are like that Try here: http://www.mvps.org/access/api/api0007.htm Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Saturday, August 26, 2006 9:48 PM Subject: Re: [AccessD] Word Window On Top > Replace OpusApp with WordObj? > > Rocky > > > Michael R Mattys wrote: >> Of course! Right on target, John. >> >> I was going to say: >> >> Public Declare Function FindWindow Lib "user32" _ >> Alias "FindWindowA" (ByVal lpClassName As String, _ >> ByVal lpWindowName As String) As Long >> >> Public Declare Function ShowWindow Lib "user32" _ >> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >> >> Dim OpusApp As Long >> OpusApp& = FindWindow("OpusApp", vbNullString) >> Call ShowWindow(OpusApp , SW_NORMAL) >> >> Michael R. Mattys >> MapPoint Developer >> www.mattysconsulting.com >> >> ----- Original Message ----- >> From: "John Ruff" >> To: "'Access Developers discussion and problem solving'" >> >> Sent: Saturday, August 26, 2006 9:07 PM >> Subject: Re: [AccessD] Word Window On Top >> >> >> >>> After you create the WordObj set its visible property to true >>> >>> ' Shows this instance of Word >>> WordObj.Visible = True >>> >>> papparuff >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>> Smolin - >>> Beach Access Software >>> Sent: Saturday, August 26, 2006 4:26 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Word Window On Top >>> >>> Well, I'm really crappin' out with this guy. .Activate didn't work, nor >>> .Show. >>> >>> He tests to see if word is already open - doesn't want to open a second >>> instance. >>> >>> Set WordObj = GetObject(, "Word.Application") >>> If Err.Number <> 0 Then >>> Set WordObj = CreateObject("Word.Application") >>> End If >>> >>> >>> Nothing works so far when Word is already open. But I can't help but >>> think there's a simple property or method (there's so freakin' many of >>> 'em) to make Word the active window when you open a new document and >>> word is already open. >>> >>> Any other ideas anybody? >>> >>> MTIA >>> >>> Rocky >>> >>> Heenan, Lambert wrote: >>> >>>> Rocky, >>>> >>>> WordObj needs to be declared As Word.Application, but is has to be in >>>> the >>>> same scope as the function you are using. Notice that I actually >>>> declare >>>> >>> the >>> >>>> xlObj inside my function. >>>> >>>> Lambert (first name) >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>> Smolin - >>>> Beach Access Software >>>> Sent: Wednesday, August 23, 2006 4:03 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Word Window On Top >>>> >>>> >>>> Heenan: >>>> >>>> With WordObj declared as: Dim WordObj As Word.Application >>>> >>>> and the Function in a separate module, the statement >>>> SetForegroundWindow >>>> WordObj.hWnd won't compile - gives a method or data member not found >>>> >>> error. >>> >>>> The Word 11.0 object library is checked in the references. >>>> >>>> I tried redeclaring WordObj as Object but that didn't work either. >>>> >>>> TIA >>>> >>>> Rocky >>>> >>>> >>>> Heenan, Lambert wrote: >>>> >>>> >>>>> Well here is how I do the same thing with Access opening Excel. It is >>>>> all dependant on getting the handle of the Excel window (or Word >>>>> window in your case)... >>>>> >>>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>>> As >>>>> Long) As Long >>>>> >>>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>>>> Boolean = True) >>>>> '--------------------------------------------------------------------- >>>>> ------ >>>>> ------------ >>>>> ' Procedure : ViewInExcel >>>>> ' >>>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>>> >>> worksheet, >>> >>>>> but does >>>>> ' : not save the Excel file. The user can choose to save the >>>>> >>>>> >>>> file >>>> >>>> >>>>> if needed. >>>>> >>>>> >>>>> >>> '--------------------------------------------------------------------------- >>> >>>>> ------------ >>>>> ' >>>>> Dim objXL As excel.Application >>>>> Dim objSheet As excel.Worksheet >>>>> Dim objWB As excel.Workbook >>>>> Dim rs As Object >>>>> Dim oRng As excel.Range >>>>> Dim nCols As Long, n As Long >>>>> >>>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>>> nCols = rs.Fields.Count >>>>> Set objXL = CreateObject("Excel.Application") >>>>> objXL.SheetsInNewWorkbook = 1 >>>>> Set objWB = objXL.Workbooks.Add >>>>> Dim f As Field >>>>> n = 0 >>>>> ' CopyFromRecordset does not bring the column headings with it. >>>>> ' So here we add them manually. >>>>> For Each f In rs.Fields >>>>> n = n + 1 >>>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>>> Next f >>>>> ' and now drop the data into row 2 >>>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>>> If bFormatColumns Then >>>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>>> oRng.EntireColumn.AutoFit >>>>> oRng.Interior.Color = vbYellow >>>>> oRng.Borders.Color = vbBlack >>>>> Set oRng = Nothing >>>>> End If >>>>> rs.Close >>>>> Set rs = Nothing >>>>> objXL.Visible = True >>>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>>> window to the foreground. End Sub >>>>> >>>>> HTH >>>>> >>>>> Lambert >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>> Smolin - Beach Access Software >>>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: [AccessD] Word Window On Top >>>>> >>>>> >>>>> Dear List: >>>>> >>>>> Using automation I open a word doc, but the access app is still on >>>>> top. >>>>> Word is in the tray. Click it and the doc is there and open. Q: how >>>>> can I give the word doc window the focus after I open it? >>>>> >>>>> MTIA >>>>> >>>>> 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 >>> >>> -- >>> 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 kathryn at bassett.net Sat Aug 26 22:18:59 2006 From: kathryn at bassett.net (Kathryn Bassett) Date: Sat, 26 Aug 2006 20:18:59 -0700 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. Message-ID: <006701c6c987$8a621710$6401a8c0@Kathryn> Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) From bchacc at san.rr.com Sat Aug 26 23:15:40 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 21:15:40 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <00ea01c6c981$5fc7eda0$0202a8c0@default> References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> <00c501c6c977$cf706a60$0202a8c0@default> <44F0FA03.2050207@san.rr.com> <00ea01c6c981$5fc7eda0$0202a8c0@default> Message-ID: <44F11C6C.3010707@san.rr.com> Word is OpusApp and Access is OMain. That makes sense (not). Anyway, thanks - I'll forward the snip to the client and see if that will do it. Best, Rocky Michael R Mattys wrote: > Hi Rocky, > > No - OpusApp is the Application name. > Most Office Apps are like that > Try here: http://www.mvps.org/access/api/api0007.htm > > Michael R. Mattys > MapPoint Developer > www.mattysconsulting.com > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Saturday, August 26, 2006 9:48 PM > Subject: Re: [AccessD] Word Window On Top > > > >> Replace OpusApp with WordObj? >> >> Rocky >> >> >> Michael R Mattys wrote: >> >>> Of course! Right on target, John. >>> >>> I was going to say: >>> >>> Public Declare Function FindWindow Lib "user32" _ >>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>> ByVal lpWindowName As String) As Long >>> >>> Public Declare Function ShowWindow Lib "user32" _ >>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>> >>> Dim OpusApp As Long >>> OpusApp& = FindWindow("OpusApp", vbNullString) >>> Call ShowWindow(OpusApp , SW_NORMAL) >>> >>> Michael R. Mattys >>> MapPoint Developer >>> www.mattysconsulting.com >>> >>> ----- Original Message ----- >>> From: "John Ruff" >>> To: "'Access Developers discussion and problem solving'" >>> >>> Sent: Saturday, August 26, 2006 9:07 PM >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> >>> >>>> After you create the WordObj set its visible property to true >>>> >>>> ' Shows this instance of Word >>>> WordObj.Visible = True >>>> >>>> papparuff >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>> Smolin - >>>> Beach Access Software >>>> Sent: Saturday, August 26, 2006 4:26 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Word Window On Top >>>> >>>> Well, I'm really crappin' out with this guy. .Activate didn't work, nor >>>> .Show. >>>> >>>> He tests to see if word is already open - doesn't want to open a second >>>> instance. >>>> >>>> Set WordObj = GetObject(, "Word.Application") >>>> If Err.Number <> 0 Then >>>> Set WordObj = CreateObject("Word.Application") >>>> End If >>>> >>>> >>>> Nothing works so far when Word is already open. But I can't help but >>>> think there's a simple property or method (there's so freakin' many of >>>> 'em) to make Word the active window when you open a new document and >>>> word is already open. >>>> >>>> Any other ideas anybody? >>>> >>>> MTIA >>>> >>>> Rocky >>>> >>>> Heenan, Lambert wrote: >>>> >>>> >>>>> Rocky, >>>>> >>>>> WordObj needs to be declared As Word.Application, but is has to be in >>>>> the >>>>> same scope as the function you are using. Notice that I actually >>>>> declare >>>>> >>>>> >>>> the >>>> >>>> >>>>> xlObj inside my function. >>>>> >>>>> Lambert (first name) >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>> Smolin - >>>>> Beach Access Software >>>>> Sent: Wednesday, August 23, 2006 4:03 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> >>>>> Heenan: >>>>> >>>>> With WordObj declared as: Dim WordObj As Word.Application >>>>> >>>>> and the Function in a separate module, the statement >>>>> SetForegroundWindow >>>>> WordObj.hWnd won't compile - gives a method or data member not found >>>>> >>>>> >>>> error. >>>> >>>> >>>>> The Word 11.0 object library is checked in the references. >>>>> >>>>> I tried redeclaring WordObj as Object but that didn't work either. >>>>> >>>>> TIA >>>>> >>>>> Rocky >>>>> >>>>> >>>>> Heenan, Lambert wrote: >>>>> >>>>> >>>>> >>>>>> Well here is how I do the same thing with Access opening Excel. It is >>>>>> all dependant on getting the handle of the Excel window (or Word >>>>>> window in your case)... >>>>>> >>>>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>>>> As >>>>>> Long) As Long >>>>>> >>>>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>>>>> Boolean = True) >>>>>> '--------------------------------------------------------------------- >>>>>> ------ >>>>>> ------------ >>>>>> ' Procedure : ViewInExcel >>>>>> ' >>>>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>>>> >>>>>> >>>> worksheet, >>>> >>>> >>>>>> but does >>>>>> ' : not save the Excel file. The user can choose to save the >>>>>> >>>>>> >>>>>> >>>>> file >>>>> >>>>> >>>>> >>>>>> if needed. >>>>>> >>>>>> >>>>>> >>>>>> >>>> '--------------------------------------------------------------------------- >>>> >>>> >>>>>> ------------ >>>>>> ' >>>>>> Dim objXL As excel.Application >>>>>> Dim objSheet As excel.Worksheet >>>>>> Dim objWB As excel.Workbook >>>>>> Dim rs As Object >>>>>> Dim oRng As excel.Range >>>>>> Dim nCols As Long, n As Long >>>>>> >>>>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>>>> nCols = rs.Fields.Count >>>>>> Set objXL = CreateObject("Excel.Application") >>>>>> objXL.SheetsInNewWorkbook = 1 >>>>>> Set objWB = objXL.Workbooks.Add >>>>>> Dim f As Field >>>>>> n = 0 >>>>>> ' CopyFromRecordset does not bring the column headings with it. >>>>>> ' So here we add them manually. >>>>>> For Each f In rs.Fields >>>>>> n = n + 1 >>>>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>>>> Next f >>>>>> ' and now drop the data into row 2 >>>>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>>>> If bFormatColumns Then >>>>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>>>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>>>> oRng.EntireColumn.AutoFit >>>>>> oRng.Interior.Color = vbYellow >>>>>> oRng.Borders.Color = vbBlack >>>>>> Set oRng = Nothing >>>>>> End If >>>>>> rs.Close >>>>>> Set rs = Nothing >>>>>> objXL.Visible = True >>>>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>>>> window to the foreground. End Sub >>>>>> >>>>>> HTH >>>>>> >>>>>> Lambert >>>>>> -----Original Message----- >>>>>> From: accessd-bounces at databaseadvisors.com >>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>> Smolin - Beach Access Software >>>>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>>>> To: Access Developers discussion and problem solving >>>>>> Subject: [AccessD] Word Window On Top >>>>>> >>>>>> >>>>>> Dear List: >>>>>> >>>>>> Using automation I open a word doc, but the access app is still on >>>>>> top. >>>>>> Word is in the tray. Click it and the doc is there and open. Q: how >>>>>> can I give the word doc window the focus after I open it? >>>>>> >>>>>> MTIA >>>>>> >>>>>> 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 >>>> >>>> -- >>>> 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 >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From wdhindman at dejpolsystems.com Sun Aug 27 00:10:17 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 27 Aug 2006 01:10:17 -0400 Subject: [AccessD] Word Window On Top References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF><00c501c6c977$cf706a60$0202a8c0@default><44F0FA03.2050207@san.rr.com><00ea01c6c981$5fc7eda0$0202a8c0@default> <44F11C6C.3010707@san.rr.com> Message-ID: <001d01c6c997$16bd0990$153ce944@50NM721> Rocky ...your client isn't the only one with that particular problem ...and it appears to be workstation dependent ...on most systems the Activate command does bring the Word doc to the front ...but not all. ...you might want to give this a look if the problem still exists: http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm William Hindman ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Sunday, August 27, 2006 12:15 AM Subject: Re: [AccessD] Word Window On Top > Word is OpusApp and Access is OMain. That makes sense (not). > > Anyway, thanks - I'll forward the snip to the client and see if that > will do it. > > Best, > > Rocky > > > Michael R Mattys wrote: >> Hi Rocky, >> >> No - OpusApp is the Application name. >> Most Office Apps are like that >> Try here: http://www.mvps.org/access/api/api0007.htm >> >> Michael R. Mattys >> MapPoint Developer >> www.mattysconsulting.com >> >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> To: "Access Developers discussion and problem solving" >> >> Sent: Saturday, August 26, 2006 9:48 PM >> Subject: Re: [AccessD] Word Window On Top >> >> >> >>> Replace OpusApp with WordObj? >>> >>> Rocky >>> >>> >>> Michael R Mattys wrote: >>> >>>> Of course! Right on target, John. >>>> >>>> I was going to say: >>>> >>>> Public Declare Function FindWindow Lib "user32" _ >>>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>>> ByVal lpWindowName As String) As Long >>>> >>>> Public Declare Function ShowWindow Lib "user32" _ >>>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>> >>>> Dim OpusApp As Long >>>> OpusApp& = FindWindow("OpusApp", vbNullString) >>>> Call ShowWindow(OpusApp , SW_NORMAL) >>>> >>>> Michael R. Mattys >>>> MapPoint Developer >>>> www.mattysconsulting.com >>>> >>>> ----- Original Message ----- >>>> From: "John Ruff" >>>> To: "'Access Developers discussion and problem solving'" >>>> >>>> Sent: Saturday, August 26, 2006 9:07 PM >>>> Subject: Re: [AccessD] Word Window On Top >>>> >>>> >>>> >>>> >>>>> After you create the WordObj set its visible property to true >>>>> >>>>> ' Shows this instance of Word >>>>> WordObj.Visible = True >>>>> >>>>> papparuff >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>> Smolin - >>>>> Beach Access Software >>>>> Sent: Saturday, August 26, 2006 4:26 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>> nor >>>>> .Show. >>>>> >>>>> He tests to see if word is already open - doesn't want to open a >>>>> second >>>>> instance. >>>>> >>>>> Set WordObj = GetObject(, "Word.Application") >>>>> If Err.Number <> 0 Then >>>>> Set WordObj = CreateObject("Word.Application") >>>>> End If >>>>> >>>>> >>>>> Nothing works so far when Word is already open. But I can't help but >>>>> think there's a simple property or method (there's so freakin' many of >>>>> 'em) to make Word the active window when you open a new document and >>>>> word is already open. >>>>> >>>>> Any other ideas anybody? >>>>> >>>>> MTIA >>>>> >>>>> Rocky >>>>> >>>>> Heenan, Lambert wrote: >>>>> >>>>> >>>>>> Rocky, >>>>>> >>>>>> WordObj needs to be declared As Word.Application, but is has to be >>>>>> in >>>>>> the >>>>>> same scope as the function you are using. Notice that I actually >>>>>> declare >>>>>> >>>>>> >>>>> the >>>>> >>>>> >>>>>> xlObj inside my function. >>>>>> >>>>>> Lambert (first name) >>>>>> >>>>>> -----Original Message----- >>>>>> From: accessd-bounces at databaseadvisors.com >>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>> Smolin - >>>>>> Beach Access Software >>>>>> Sent: Wednesday, August 23, 2006 4:03 PM >>>>>> To: Access Developers discussion and problem solving >>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>> >>>>>> >>>>>> Heenan: >>>>>> >>>>>> With WordObj declared as: Dim WordObj As Word.Application >>>>>> >>>>>> and the Function in a separate module, the statement >>>>>> SetForegroundWindow >>>>>> WordObj.hWnd won't compile - gives a method or data member not found >>>>>> >>>>>> >>>>> error. >>>>> >>>>> >>>>>> The Word 11.0 object library is checked in the references. >>>>>> >>>>>> I tried redeclaring WordObj as Object but that didn't work either. >>>>>> >>>>>> TIA >>>>>> >>>>>> Rocky >>>>>> >>>>>> >>>>>> Heenan, Lambert wrote: >>>>>> >>>>>> >>>>>> >>>>>>> Well here is how I do the same thing with Access opening Excel. It >>>>>>> is >>>>>>> all dependant on getting the handle of the Excel window (or Word >>>>>>> window in your case)... >>>>>>> >>>>>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>>>>> As >>>>>>> Long) As Long >>>>>>> >>>>>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns >>>>>>> As >>>>>>> Boolean = True) >>>>>>> '--------------------------------------------------------------------- >>>>>>> ------ >>>>>>> ------------ >>>>>>> ' Procedure : ViewInExcel >>>>>>> ' >>>>>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>>>>> >>>>>>> >>>>> worksheet, >>>>> >>>>> >>>>>>> but does >>>>>>> ' : not save the Excel file. The user can choose to save >>>>>>> the >>>>>>> >>>>>>> >>>>>>> >>>>>> file >>>>>> >>>>>> >>>>>> >>>>>>> if needed. >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>> '--------------------------------------------------------------------------- >>>>> >>>>> >>>>>>> ------------ >>>>>>> ' >>>>>>> Dim objXL As excel.Application >>>>>>> Dim objSheet As excel.Worksheet >>>>>>> Dim objWB As excel.Workbook >>>>>>> Dim rs As Object >>>>>>> Dim oRng As excel.Range >>>>>>> Dim nCols As Long, n As Long >>>>>>> >>>>>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>>>>> nCols = rs.Fields.Count >>>>>>> Set objXL = CreateObject("Excel.Application") >>>>>>> objXL.SheetsInNewWorkbook = 1 >>>>>>> Set objWB = objXL.Workbooks.Add >>>>>>> Dim f As Field >>>>>>> n = 0 >>>>>>> ' CopyFromRecordset does not bring the column headings with it. >>>>>>> ' So here we add them manually. >>>>>>> For Each f In rs.Fields >>>>>>> n = n + 1 >>>>>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>>>>> Next f >>>>>>> ' and now drop the data into row 2 >>>>>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>>>>> If bFormatColumns Then >>>>>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) >>>>>>> & >>>>>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>>>>> oRng.EntireColumn.AutoFit >>>>>>> oRng.Interior.Color = vbYellow >>>>>>> oRng.Borders.Color = vbBlack >>>>>>> Set oRng = Nothing >>>>>>> End If >>>>>>> rs.Close >>>>>>> Set rs = Nothing >>>>>>> objXL.Visible = True >>>>>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>>>>> window to the foreground. End Sub >>>>>>> >>>>>>> HTH >>>>>>> >>>>>>> Lambert >>>>>>> -----Original Message----- >>>>>>> From: accessd-bounces at databaseadvisors.com >>>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>>> Smolin - Beach Access Software >>>>>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>>>>> To: Access Developers discussion and problem solving >>>>>>> Subject: [AccessD] Word Window On Top >>>>>>> >>>>>>> >>>>>>> Dear List: >>>>>>> >>>>>>> Using automation I open a word doc, but the access app is still on >>>>>>> top. >>>>>>> Word is in the tray. Click it and the doc is there and open. Q: >>>>>>> how >>>>>>> can I give the word doc window the focus after I open it? >>>>>>> >>>>>>> MTIA >>>>>>> >>>>>>> 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 >>>>> >>>>> -- >>>>> 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 >>> >> >> > > -- > 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 mmattys at rochester.rr.com Sun Aug 27 00:15:07 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Sun, 27 Aug 2006 01:15:07 -0400 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. References: <006701c6c987$8a621710$6401a8c0@Kathryn> Message-ID: <014301c6c997$c709f100$0202a8c0@default> Kathryn, This is the page with the answer, but you may not like it. http://www.mvps.org/access/reports/rpt0009.htm It has been a while since I've worked with this stuff ... Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "Kathryn Bassett" To: Sent: Saturday, August 26, 2006 11:18 PM Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. > Situation: .mdb is on K drive which is accessable from two computers (IOW, > K drive is server). No problems in the past when there was a LaserJet 5 > hooked up to both computers. By that I mean if we were "downstairs", > printing would print on the downstairs LJ5, and "upstairs" would print on > the upstairs LJ5. > In both cases, the envelope was put in the tray over on the left side. > > Now, upstairs has new printer (LJ3052) and the envelope goes in center > instead of left side. Access does not automatically adjust - the "to" > address is printing at top of the envelope and the "from" address is not > there at all. If I put paper in the tray that the envelope pulls from, it > shows that it's printing as if it were pulling from the left. > > So, I tried putting the envelope over to the left and it pulls it through, > but doesn't print, and gives me an error message that there was no paper > pickup and to check that the paper was loaded correctly, etc. > > Does this mean that I have to design additional reports for all envelopes > that will be printed upstairs, designing for this specific printer? > > Assuming you give me suggestions, unless they are within next 45 minutes, > I won't be able to try them til Monday when I'm back here at work. > > -- > Kathryn Bassett (at work address) > kathrynatgwens at socal.rr.com > kathryn at bassett.net (home) > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Sun Aug 27 00:34:29 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 27 Aug 2006 01:34:29 -0400 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. References: <006701c6c987$8a621710$6401a8c0@Kathryn> Message-ID: <003f01c6c99a$78526490$153ce944@50NM721> ...it would appear that the report isn't changing it's set printer driver which I've seen reports do before ...try this to force the change ...change the report's printer selection to use the "specific printer" option rather than the default (the wording may differ somewhat, I don't have any app open) and set it to the LJ5. When you then open the revised app on the upstairs system it will pop up a dialog saying the LJ5 isn't available and let you change the printer ...on that system ...to the newer one ...that should force your app to use the correct driver for that system. ...hth William Hindman ----- Original Message ----- From: "Kathryn Bassett" To: Sent: Saturday, August 26, 2006 11:18 PM Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. > Situation: .mdb is on K drive which is accessable from two computers (IOW, > K drive is server). No problems in the past when there was a LaserJet 5 > hooked up to both computers. By that I mean if we were "downstairs", > printing would print on the downstairs LJ5, and "upstairs" would print on > the upstairs LJ5. > In both cases, the envelope was put in the tray over on the left side. > > Now, upstairs has new printer (LJ3052) and the envelope goes in center > instead of left side. Access does not automatically adjust - the "to" > address is printing at top of the envelope and the "from" address is not > there at all. If I put paper in the tray that the envelope pulls from, it > shows that it's printing as if it were pulling from the left. > > So, I tried putting the envelope over to the left and it pulls it through, > but doesn't print, and gives me an error message that there was no paper > pickup and to check that the paper was loaded correctly, etc. > > Does this mean that I have to design additional reports for all envelopes > that will be printed upstairs, designing for this specific printer? > > Assuming you give me suggestions, unless they are within next 45 minutes, > I won't be able to try them til Monday when I'm back here at work. > > -- > Kathryn Bassett (at work address) > kathrynatgwens at socal.rr.com > kathryn at bassett.net (home) > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bchacc at san.rr.com Sun Aug 27 01:03:49 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 23:03:49 -0700 Subject: [AccessD] [Fwd: Re: Word Window On Top] Message-ID: <44F135C5.4080705@san.rr.com> Thanks. Will forward. Rocky William Hindman wrote: > Rocky > > ...your client isn't the only one with that particular problem ...and it > appears to be workstation dependent ...on most systems the Activate command > does bring the Word doc to the front ...but not all. > > ...you might want to give this a look if the problem still exists: > > http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm > > > William Hindman > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Sunday, August 27, 2006 12:15 AM > Subject: Re: [AccessD] Word Window On Top > > > >> Word is OpusApp and Access is OMain. That makes sense (not). >> >> Anyway, thanks - I'll forward the snip to the client and see if that >> will do it. >> >> Best, >> >> Rocky >> >> >> Michael R Mattys wrote: >> >>> Hi Rocky, >>> >>> No - OpusApp is the Application name. >>> Most Office Apps are like that >>> Try here: http://www.mvps.org/access/api/api0007.htm >>> >>> Michael R. Mattys >>> MapPoint Developer >>> www.mattysconsulting.com >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Saturday, August 26, 2006 9:48 PM >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> >>> >>>> Replace OpusApp with WordObj? >>>> >>>> Rocky >>>> >>>> >>>> Michael R Mattys wrote: >>>> >>>> >>>>> Of course! Right on target, John. >>>>> >>>>> I was going to say: >>>>> >>>>> Public Declare Function FindWindow Lib "user32" _ >>>>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>>>> ByVal lpWindowName As String) As Long >>>>> >>>>> Public Declare Function ShowWindow Lib "user32" _ >>>>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>>> >>>>> Dim OpusApp As Long >>>>> OpusApp& = FindWindow("OpusApp", vbNullString) >>>>> Call ShowWindow(OpusApp , SW_NORMAL) >>>>> >>>>> Michael R. Mattys >>>>> MapPoint Developer >>>>> www.mattysconsulting.com >>>>> >>>>> ----- Original Message ----- >>>>> From: "John Ruff" >>>>> To: "'Access Developers discussion and problem solving'" >>>>> >>>>> Sent: Saturday, August 26, 2006 9:07 PM >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> After you create the WordObj set its visible property to true >>>>>> >>>>>> ' Shows this instance of Word >>>>>> WordObj.Visible = True >>>>>> >>>>>> papparuff >>>>>> >>>>>> -----Original Message----- >>>>>> From: accessd-bounces at databaseadvisors.com >>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>> Smolin - >>>>>> Beach Access Software >>>>>> Sent: Saturday, August 26, 2006 4:26 PM >>>>>> To: Access Developers discussion and problem solving >>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>> >>>>>> Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>>> nor >>>>>> .Show. >>>>>> >>>>>> He tests to see if word is already open - doesn't want to open a >>>>>> second >>>>>> instance. >>>>>> >>>>>> Set WordObj = GetObject(, "Word.Application") >>>>>> If Err.Number <> 0 Then >>>>>> Set WordObj = CreateObject("Word.Application") >>>>>> End If >>>>>> >>>>>> >>>>>> Nothing works so far when Word is already open. But I can't help but >>>>>> think there's a simple property or method (there's so freakin' many of >>>>>> 'em) to make Word the active window when you open a new document and >>>>>> word is already open. >>>>>> >>>>>> Any other ideas anybody? >>>>>> >>>>>> MTIA >>>>>> >>>>>> Rocky >>>>>> >>>>>> Heenan, Lambert wrote: >>>>>> From jwcolby at colbyconsulting.com Sun Aug 27 08:38:15 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Sun, 27 Aug 2006 09:38:15 -0400 Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: Message-ID: <000c01c6c9de$0d767eb0$657aa8c0@m6805> I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting www.ColbyConsulting.com From accessd at shaw.ca Sun Aug 27 11:08:30 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sun, 27 Aug 2006 09:08:30 -0700 Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: <000c01c6c9de$0d767eb0$657aa8c0@m6805> Message-ID: <0J4N00ISMZG6WT40@l-daemon> Hi John: 1. Would you have an IIS server running on both computers? 2. Are both MS SQLs using different ports (1433 default)? 3. The 'guest' account is turned off by default on new installs; would this be the case on the new computer? 4. Do you have a personal firewall setup on either/both computers that may be blocking the MS SQL ports? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Sunday, August 27, 2006 6:38 AM To: dba-sqlserver at databaseadvisors.com Cc: 'Access Developers discussion and problem solving' Subject: [AccessD] Transferring a database to another SQL Server I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting www.ColbyConsulting.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 Sun Aug 27 11:17:48 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Sun, 27 Aug 2006 09:17:48 -0700 Subject: [AccessD] Transferring a database to another SQL Server References: <000c01c6c9de$0d767eb0$657aa8c0@m6805> Message-ID: <000901c6c9f4$57214840$6401a8c0@BPCS> John, Sounds like a domain issue to me, is one of the machines a domain controller?? If so have you logged the other into the domain? A work around, assuming you can get to the hard drive of one from the other, would be to use enterprise manager, detach the desired databases, copy them to the desired machine and re attach. Bill ----- Original Message ----- From: "JWColby" To: Cc: "'Access Developers discussion and problem solving'" Sent: Sunday, August 27, 2006 6:38 AM Subject: [AccessD] Transferring a database to another SQL Server I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting www.ColbyConsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Sun Aug 27 11:23:06 2006 From: artful at rogers.com (artful at rogers.com) Date: Sun, 27 Aug 2006 09:23:06 -0700 (PDT) Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: <0J4N00ISMZG6WT40@l-daemon> Message-ID: <20060827162307.37721.qmail@web88206.mail.re2.yahoo.com> In addition, SQL 2005 has "remote access" turned off by default. Go into Configuration Manager and have a look there. My guess is that this is your problem. Arthur ----- Original Message ---- From: Jim Lawrence To: Access Developers discussion and problem solving Sent: Sunday, August 27, 2006 12:08:30 PM Subject: Re: [AccessD] Transferring a database to another SQL Server Hi John: 1. Would you have an IIS server running on both computers? 2. Are both MS SQLs using different ports (1433 default)? 3. The 'guest' account is turned off by default on new installs; would this be the case on the new computer? 4. Do you have a personal firewall setup on either/both computers that may be blocking the MS SQL ports? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Sunday, August 27, 2006 6:38 AM To: dba-sqlserver at databaseadvisors.com Cc: 'Access Developers discussion and problem solving' Subject: [AccessD] Transferring a database to another SQL Server I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting 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 paul.baumann at rtctech.com Sun Aug 27 14:27:36 2006 From: paul.baumann at rtctech.com (Paul Baumann) Date: Sun, 27 Aug 2006 14:27:36 -0500 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. Message-ID: <000401c6ca0e$dac16c60$6465a8c0@scrptrkr.local> Kathryn, There are a number of questions I would ask to resolve this. I the LJ5 driver still installed on the Upstairs machine and if it is is it still the default printer? Does the document (envelope) specify the default printer or was is formatted for the LJ5 specifically? I believe that you problem has little to do with the application but more likely the printer driver setup between the two computers. Paul O. Baumann RTC Technologies, Inc. Tel. 262-925-1300 Fax 262-925-1299 Email: paulb at rtctech.com ----- Original Message ----- From: "Kathryn Bassett" To: Sent: Saturday, August 26, 2006 11:18 PM Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. > Situation: .mdb is on K drive which is accessable from two computers (IOW, > K drive is server). No problems in the past when there was a LaserJet 5 > hooked up to both computers. By that I mean if we were "downstairs", > printing would print on the downstairs LJ5, and "upstairs" would print on > the upstairs LJ5. > In both cases, the envelope was put in the tray over on the left side. > > Now, upstairs has new printer (LJ3052) and the envelope goes in center > instead of left side. Access does not automatically adjust - the "to" > address is printing at top of the envelope and the "from" address is not > there at all. If I put paper in the tray that the envelope pulls from, it > shows that it's printing as if it were pulling from the left. > > So, I tried putting the envelope over to the left and it pulls it through, > but doesn't print, and gives me an error message that there was no paper > pickup and to check that the paper was loaded correctly, etc. > > Does this mean that I have to design additional reports for all envelopes > that will be printed upstairs, designing for this specific printer? > > Assuming you give me suggestions, unless they are within next 45 minutes, > I won't be able to try them til Monday when I'm back here at work. > > -- > Kathryn Bassett (at work address) > kathrynatgwens at socal.rr.com > kathryn at bassett.net (home) > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Sun Aug 27 18:31:52 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sun, 27 Aug 2006 16:31:52 -0700 Subject: [AccessD] [Fwd: Re: Word Window On Top] In-Reply-To: <44F135C5.4080705@san.rr.com> References: <44F135C5.4080705@san.rr.com> Message-ID: <44F22B68.5090009@shaw.ca> This works for me from Access 2003 vs Word 97 or Word2007 Some of these API calls had little glitches prior to WinXP. And were different in Win9x. You may need all three API calls SetActiveWindow, ShowWindow and SetForegroundWindow. 'Windows API Declarations Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As _ Long) As Long Const SW_SHOW = 9 Sub testme() Dim x As Long x = AppActivateClass("OpusApp") 'Word ClassName Debug.Print x End Sub '****************************************************************** ' FUNCTION: AppActivateClass() ' ' PURPOSE: Used to activate another application by using its ' class name instead of the title bar text as AppActivate does. ' ' ARGUMENTS: ' strClassName - The Class Name of the application. ' ' RETURNS: ' 0 - The application was not found - it either was not running ' or the class name is incorrect ' -1 - The application was activated '****************************************************************** Function AppActivateClass(strClassName As String) Dim hwnd As Long 'the application's window handle Dim dummy As Long 'Dummy variable 'Dim strClassName As String 'strClassName = "OpusApp" 'for Word; Opus was orignal beta name of word ' or perhaps somebody's cat 'Get the Window Handle hwnd = FindWindow(strClassName, vbNullString) '0& doesn't work 'hWnd = FindWindow(lpclassname, by Val 0&) Debug.Print "handle =" & hwnd 'Activate the Application dummy = ShowWindow(hwnd, SW_SHOW) ' call needed to restore if app minimized ' else only tray icon activated dummy = SetActiveWindow(hwnd) dummy = SetForegroundWindow(hwnd) 'Return True if Application Running, or False if not. AppActivateClass = hwnd End Function Rocky Smolin - Beach Access Software wrote: > Thanks. Will forward. > >Rocky > > >William Hindman wrote: > > >>Rocky >> >>...your client isn't the only one with that particular problem ...and it >>appears to be workstation dependent ...on most systems the Activate command >>does bring the Word doc to the front ...but not all. >> >>...you might want to give this a look if the problem still exists: >> >>http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm >> >> >>William Hindman >> >>----- Original Message ----- >>From: "Rocky Smolin - Beach Access Software" >>To: "Access Developers discussion and problem solving" >> >>Sent: Sunday, August 27, 2006 12:15 AM >>Subject: Re: [AccessD] Word Window On Top >> >> >> >> >> >>>Word is OpusApp and Access is OMain. That makes sense (not). >>> >>>Anyway, thanks - I'll forward the snip to the client and see if that >>>will do it. >>> >>>Best, >>> >>>Rocky >>> >>> >>>Michael R Mattys wrote: >>> >>> >>> >>>>Hi Rocky, >>>> >>>>No - OpusApp is the Application name. >>>>Most Office Apps are like that >>>>Try here: http://www.mvps.org/access/api/api0007.htm >>>> >>>>Michael R. Mattys >>>>MapPoint Developer >>>>www.mattysconsulting.com >>>> >>>>----- Original Message ----- >>>>From: "Rocky Smolin - Beach Access Software" >>>>To: "Access Developers discussion and problem solving" >>>> >>>>Sent: Saturday, August 26, 2006 9:48 PM >>>>Subject: Re: [AccessD] Word Window On Top >>>> >>>> >>>> >>>> >>>> >>>> >>>>>Replace OpusApp with WordObj? >>>>> >>>>>Rocky >>>>> >>>>> >>>>>Michael R Mattys wrote: >>>>> >>>>> >>>>> >>>>> >>>>>>Of course! Right on target, John. >>>>>> >>>>>>I was going to say: >>>>>> >>>>>>Public Declare Function FindWindow Lib "user32" _ >>>>>>Alias "FindWindowA" (ByVal lpClassName As String, _ >>>>>>ByVal lpWindowName As String) As Long >>>>>> >>>>>>Public Declare Function ShowWindow Lib "user32" _ >>>>>>(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>>>> >>>>>>Dim OpusApp As Long >>>>>>OpusApp& = FindWindow("OpusApp", vbNullString) >>>>>>Call ShowWindow(OpusApp , SW_NORMAL) >>>>>> >>>>>>Michael R. Mattys >>>>>>MapPoint Developer >>>>>>www.mattysconsulting.com >>>>>> >>>>>>----- Original Message ----- >>>>>>From: "John Ruff" >>>>>>To: "'Access Developers discussion and problem solving'" >>>>>> >>>>>>Sent: Saturday, August 26, 2006 9:07 PM >>>>>>Subject: Re: [AccessD] Word Window On Top >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>>After you create the WordObj set its visible property to true >>>>>>> >>>>>>>' Shows this instance of Word >>>>>>>WordObj.Visible = True >>>>>>> >>>>>>>papparuff >>>>>>> >>>>>>>-----Original Message----- >>>>>>>From: accessd-bounces at databaseadvisors.com >>>>>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>>>Smolin - >>>>>>>Beach Access Software >>>>>>>Sent: Saturday, August 26, 2006 4:26 PM >>>>>>>To: Access Developers discussion and problem solving >>>>>>>Subject: Re: [AccessD] Word Window On Top >>>>>>> >>>>>>>Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>>>>nor >>>>>>>.Show. >>>>>>> >>>>>>>He tests to see if word is already open - doesn't want to open a >>>>>>>second >>>>>>>instance. >>>>>>> >>>>>>>Set WordObj = GetObject(, "Word.Application") >>>>>>> If Err.Number <> 0 Then >>>>>>> Set WordObj = CreateObject("Word.Application") >>>>>>> End If >>>>>>> >>>>>>> >>>>>>>Nothing works so far when Word is already open. But I can't help but >>>>>>>think there's a simple property or method (there's so freakin' many of >>>>>>>'em) to make Word the active window when you open a new document and >>>>>>>word is already open. >>>>>>> >>>>>>>Any other ideas anybody? >>>>>>> >>>>>>>MTIA >>>>>>> >>>>>>>Rocky >>>>>>> >>>>>>>Heenan, Lambert wrote: >>>>>>> >>>>>>> >>>>>>> > > > -- Marty Connelly Victoria, B.C. Canada From pcs at azizaz.com Sun Aug 27 18:51:58 2006 From: pcs at azizaz.com (Borge Hansen) Date: Mon, 28 Aug 2006 09:51:58 +1000 Subject: [AccessD] Separate mdb for housing temp tables References: <000b01c6c779$6c053a50$0200a8c0@danwaters> Message-ID: <003901c6ca33$c965c270$fa10a8c0@Albatross> Dan, Yes, please post your code for auto-compacting the BE on a server. Regards borge - snipped- ----- Original Message ----- From: "Dan Waters" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 10:32 PM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi Borge, ... > If you still need to keep a separate db to keep temp tables and you want to > compact it regularly, reply back and I'll post the code I use to > auto-compact the BE on the server. > HTH! > Dan From bchacc at san.rr.com Sun Aug 27 18:52:23 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sun, 27 Aug 2006 16:52:23 -0700 Subject: [AccessD] [Fwd: Re: Word Window On Top] In-Reply-To: <44F22B68.5090009@shaw.ca> References: <44F135C5.4080705@san.rr.com> <44F22B68.5090009@shaw.ca> Message-ID: <44F23037.1080506@san.rr.com> Thanks, Marty. I'll let you know what happens. Rocky MartyConnelly wrote: > This works for me from Access 2003 vs Word 97 or Word2007 > Some of these API calls had little glitches prior to WinXP. > And were different in Win9x. > > You may need all three API calls SetActiveWindow, > ShowWindow and SetForegroundWindow. > > > > 'Windows API Declarations > Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd > As Long) As Long > Private Declare Function ShowWindow Lib "user32" _ > (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long > Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ > (ByVal lpClassName As String, ByVal lpWindowName As String) As Long > Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd > As _ > Long) As Long > > Const SW_SHOW = 9 > > Sub testme() > Dim x As Long > x = AppActivateClass("OpusApp") 'Word ClassName > Debug.Print x > End Sub > > '****************************************************************** > ' FUNCTION: AppActivateClass() > ' > ' PURPOSE: Used to activate another application by using its > ' class name instead of the title bar text as AppActivate does. > ' > ' ARGUMENTS: > ' strClassName - The Class Name of the application. > ' > ' RETURNS: > ' 0 - The application was not found - it either was not running > ' or the class name is incorrect > ' -1 - The application was activated > > '****************************************************************** > > Function AppActivateClass(strClassName As String) > Dim hwnd As Long 'the application's window handle > Dim dummy As Long 'Dummy variable > 'Dim strClassName As String > 'strClassName = "OpusApp" 'for Word; Opus was orignal beta name of > word > ' or perhaps somebody's cat > 'Get the Window Handle > hwnd = FindWindow(strClassName, vbNullString) '0& doesn't work > 'hWnd = FindWindow(lpclassname, by Val 0&) > Debug.Print "handle =" & hwnd > 'Activate the Application > dummy = ShowWindow(hwnd, SW_SHOW) ' call needed to restore if app > minimized > ' else only tray icon activated > dummy = SetActiveWindow(hwnd) > dummy = SetForegroundWindow(hwnd) > > 'Return True if Application Running, or False if not. > AppActivateClass = hwnd > End Function > > Rocky Smolin - Beach Access Software wrote: > > >> Thanks. Will forward. >> >> Rocky >> >> >> William Hindman wrote: >> >> >> >>> Rocky >>> >>> ...your client isn't the only one with that particular problem ...and it >>> appears to be workstation dependent ...on most systems the Activate command >>> does bring the Word doc to the front ...but not all. >>> >>> ...you might want to give this a look if the problem still exists: >>> >>> http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm >>> >>> >>> William Hindman >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Sunday, August 27, 2006 12:15 AM >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> >>> >>> >>> >>>> Word is OpusApp and Access is OMain. That makes sense (not). >>>> >>>> Anyway, thanks - I'll forward the snip to the client and see if that >>>> will do it. >>>> >>>> Best, >>>> >>>> Rocky >>>> >>>> >>>> Michael R Mattys wrote: >>>> >>>> >>>> >>>> >>>>> Hi Rocky, >>>>> >>>>> No - OpusApp is the Application name. >>>>> Most Office Apps are like that >>>>> Try here: http://www.mvps.org/access/api/api0007.htm >>>>> >>>>> Michael R. Mattys >>>>> MapPoint Developer >>>>> www.mattysconsulting.com >>>>> >>>>> ----- Original Message ----- >>>>> From: "Rocky Smolin - Beach Access Software" >>>>> To: "Access Developers discussion and problem solving" >>>>> >>>>> Sent: Saturday, August 26, 2006 9:48 PM >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> Replace OpusApp with WordObj? >>>>>> >>>>>> Rocky >>>>>> >>>>>> >>>>>> Michael R Mattys wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Of course! Right on target, John. >>>>>>> >>>>>>> I was going to say: >>>>>>> >>>>>>> Public Declare Function FindWindow Lib "user32" _ >>>>>>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>>>>>> ByVal lpWindowName As String) As Long >>>>>>> >>>>>>> Public Declare Function ShowWindow Lib "user32" _ >>>>>>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>>>>> >>>>>>> Dim OpusApp As Long >>>>>>> OpusApp& = FindWindow("OpusApp", vbNullString) >>>>>>> Call ShowWindow(OpusApp , SW_NORMAL) >>>>>>> >>>>>>> Michael R. Mattys >>>>>>> MapPoint Developer >>>>>>> www.mattysconsulting.com >>>>>>> >>>>>>> ----- Original Message ----- >>>>>>> From: "John Ruff" >>>>>>> To: "'Access Developers discussion and problem solving'" >>>>>>> >>>>>>> Sent: Saturday, August 26, 2006 9:07 PM >>>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>> After you create the WordObj set its visible property to true >>>>>>>> >>>>>>>> ' Shows this instance of Word >>>>>>>> WordObj.Visible = True >>>>>>>> >>>>>>>> papparuff >>>>>>>> >>>>>>>> -----Original Message----- >>>>>>>> From: accessd-bounces at databaseadvisors.com >>>>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>>>> Smolin - >>>>>>>> Beach Access Software >>>>>>>> Sent: Saturday, August 26, 2006 4:26 PM >>>>>>>> To: Access Developers discussion and problem solving >>>>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>>>> >>>>>>>> Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>>>>> nor >>>>>>>> .Show. >>>>>>>> >>>>>>>> He tests to see if word is already open - doesn't want to open a >>>>>>>> second >>>>>>>> instance. >>>>>>>> >>>>>>>> Set WordObj = GetObject(, "Word.Application") >>>>>>>> If Err.Number <> 0 Then >>>>>>>> Set WordObj = CreateObject("Word.Application") >>>>>>>> End If >>>>>>>> >>>>>>>> >>>>>>>> Nothing works so far when Word is already open. But I can't help but >>>>>>>> think there's a simple property or method (there's so freakin' many of >>>>>>>> 'em) to make Word the active window when you open a new document and >>>>>>>> word is already open. >>>>>>>> >>>>>>>> Any other ideas anybody? >>>>>>>> >>>>>>>> MTIA >>>>>>>> >>>>>>>> Rocky >>>>>>>> >>>>>>>> Heenan, Lambert wrote: >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Mon Aug 28 01:28:58 2006 From: pcs at azizaz.com (Borge Hansen) Date: Mon, 28 Aug 2006 16:28:58 +1000 Subject: [AccessD] Access FE for storing and viewing photos References: <44F135C5.4080705@san.rr.com> Message-ID: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> Hi, What's the best approach for creating a database for storing and viewing photos? If Access FE and BEmdb - use approach as per the Northwind Db? or - bound object frame? I've experimented with the bound object frame and "out of the box" can only manage to store .bmp files in the bound field . I can store .jpg files - but cannot immediately view them on the form as I scroll from record to record - I have to double click the ole object and then I can view the .jpg What gives best functionality using Access FE, storing pictures in a Table (and is .bmp only choice here; what about .jpg format) or storing pictures as separate files in a separate folder and accessing them using the Northwind approach What about SQL2005 Express as a backend? Regards borge From accessd at shaw.ca Mon Aug 28 06:53:27 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Mon, 28 Aug 2006 04:53:27 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> Message-ID: <0J4P004ZGICIT650@l-daemon> Hi Borge: The best method I have found is to simply store the pictures as separate items in their own folder and do not try to inset them into the database. They will load faster, you can use a number of formats, like jpg and the database can then handle thousands picture, if they are not imbedded. Just use a straight IMAGE object and fill its picture property with the name of the picture like "\\Myserver\MyPictures\UncleFred.jpg" HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Sunday, August 27, 2006 11:29 PM To: Access Developers discussion and problem solving Subject: [AccessD] Access FE for storing and viewing photos Hi, What's the best approach for creating a database for storing and viewing photos? If Access FE and BEmdb - use approach as per the Northwind Db? or - bound object frame? I've experimented with the bound object frame and "out of the box" can only manage to store .bmp files in the bound field . I can store .jpg files - but cannot immediately view them on the form as I scroll from record to record - I have to double click the ole object and then I can view the .jpg What gives best functionality using Access FE, storing pictures in a Table (and is .bmp only choice here; what about .jpg format) or storing pictures as separate files in a separate folder and accessing them using the Northwind approach What about SQL2005 Express as a backend? Regards borge -- 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 Aug 28 07:19:31 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Mon, 28 Aug 2006 22:19:31 +1000 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <0J4P004ZGICIT650@l-daemon> References: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross>, <0J4P004ZGICIT650@l-daemon> Message-ID: <44F36BF3.7827.6856E61C@stuart.lexacorp.com.pg> On 28 Aug 2006 at 4:53, Jim Lawrence wrote: The best method I have found is to simply store the pictures as separate > items in their own folder and do not try to inset them into the database. > They will load faster, you can use a number of formats, like jpg and the > database can then handle thousands picture, if they are not imbedded. I agree 100%. Storing pictures inside a database results in huge files, it's much more efficient to store then separately in a compact format such as jpg and load them on demand. > Just > use a straight IMAGE object and fill its picture property with the name of > the picture like "\\Myserver\MyPictures\UncleFred.jpg" I prefer to avoid hard coded paths in this situation. Where possible I store the photos with the application or in a subdirectory below it and use something like: CurrentProject.Path & "\Pictures\UNcleFred.jpg" This lets me move the application and it's associated pictures easily. -- Stuart From Erwin.Craps at ithelps.be Mon Aug 28 07:53:16 2006 From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps) Date: Mon, 28 Aug 2006 14:53:16 +0200 Subject: [AccessD] Access FE for storing and viewing photos Message-ID: >>> Where possible I store the photos with the application or in a subdirectory below it and use something like: >>> CurrentProject.Path & "\Pictures\UNcleFred.jpg" >>>This lets me move the application and it's associated pictures easily. I Agree Makes it also more easy to create a virutal folder when using the database on your IIS website for example. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Monday, August 28, 2006 2:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access FE for storing and viewing photos On 28 Aug 2006 at 4:53, Jim Lawrence wrote: The best method I have found is to simply store the pictures as separate > items in their own folder and do not try to inset them into the database. > They will load faster, you can use a number of formats, like jpg and > the database can then handle thousands picture, if they are not imbedded. I agree 100%. Storing pictures inside a database results in huge files, it's much more efficient to store then separately in a compact format such as jpg and load them on demand. > Just > use a straight IMAGE object and fill its picture property with the > name of the picture like "\\Myserver\MyPictures\UncleFred.jpg" I prefer to avoid hard coded paths in this situation. Where possible I store the photos with the application or in a subdirectory below it and use something like: CurrentProject.Path & "\Pictures\UNcleFred.jpg" This lets me move the application and it's associated pictures easily. -- Stuart -- 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 Aug 28 08:23:03 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 06:23:03 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> References: <44F135C5.4080705@san.rr.com> <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> Message-ID: <44F2EE37.9090305@san.rr.com> Borge: I have a hone-grown picture viewr which I made before Window's ever so handy built in picture viewer which load pictures in sequence from a folder using an unbound image frame. The folder is selected from the folder browser. I can send it to you off line if you want. It's only 49k zipped. The only problem I had with it was when you load the picture (imgPicture.Picture = astrPicArray(intCurrentPicture) ) you get a progress bar which flashes up for a fraction of a second. I experiemnted with turning it off by using a function that sets a specific registry key ("Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options") but it only worked on one machine - seems to be very OS dependent. Let me know if you want it. Regards, Rocky Borge Hansen wrote: > Hi, > > What's the best approach for creating a database for storing and viewing photos? > > If Access FE and BEmdb > - use approach as per the Northwind Db? > or > - bound object frame? > > I've experimented with the bound object frame and "out of the box" can only manage to store .bmp files in the bound field . > I can store .jpg files - but cannot immediately view them on the form as I scroll from record to record - I have to double click the > ole object and then I can view the .jpg > > What gives best functionality using Access FE, > > storing pictures in a Table (and is .bmp only choice here; what about .jpg format) > or > storing pictures as separate files in a separate folder and accessing them using the Northwind approach > > > What about SQL2005 Express as a backend? > > Regards > borge > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From jwcolby at colbyconsulting.com Mon Aug 28 09:44:24 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 28 Aug 2006 10:44:24 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... Message-ID: <000301c6cab0$752f3240$657aa8c0@m6805> I am using Lembit's mighty fine appoint collision function to determine whether records belong in a result set. The date parameters are typed as dates. In the current application I am getting "invalid data type" passed in (nulls). So I created a base query that narrows down to just a dataset where there are always dates in the fields being passed in. I then built a dataset on top of that feeding the dates into the Appt Collision function. STILL getting errors. It turns out that even though the base query pulls out only the records with dates, it apparently hands ALL the records up to the query built on top of the base query and since some of those records have nulls in the dates, the appointment function complains about nulls passed in to the date fields. So... why is it doing this, and is there a way to force the base query to only pass up the filtered result set such that only valid dates are pulled? 'Comments : THANKS TO LEMBIT SOOBIK 'there is a 'simple' equation which defines a conflict in appointments: 'let's name the starting point of an existing appointment Se, endpoint Ee 'and for the new appointment to be tested the starting point St, endpoint Et 'now you can simply check ' 'If St < Ee AND Et > Se ' 'then you have a conflict. 'you can easily visualize that by following drawing ' '_________Se______Ee______ '1_St__Et '2_St_________Et '3_St__________________Et '4___________St_Et '5___________St________Et '6_____________________St__Et ' 'As you can see, only cases 2, 3, 4, 5 have a conflict. case 1 does not have a conflict 'because it ends before the existing one starts (Et < Se) and 6 does not have a conflict 'since it starts after the existing ends (St > Ee. ' 'Parameters: 'Sets : 'Returns : 'Created by: Colby Consulting 'Created : 6/25/99 11:43:56 AM Function ccApptCollision(IDNew As Long, dtmSTNew As Variant, dtmETNew As Variant, _ IDExist As Long, dtmSTExist As Variant, dtmETExist As Variant) As Boolean On Error GoTo Err_ccApptCollision #If boolELE Then Call gProcStack.EnterProc("ccApptCollision", "Module1") #End If Debug.Print dtmSTNew ' If IsNull(dtmSTNew) Or IsNull(dtmSTExist) Then ' ccApptCollision = False ' Exit Function ' End If 'CHECK IF WE ARE COMPARING A RECORD TO ITSELF If IDNew = IDExist Then ccApptCollision = False Exit Function End If 'CHECK FOR COLLISIONS If (dtmSTNew <= dtmETExist) And (dtmETNew >= dtmSTExist) Then ccApptCollision = True Else ccApptCollision = False End If Exit_ccApptCollision: #If boolELE Then Call gProcStack.ExitProc("ccApptCollision") #End If On Error Resume Next Exit Function Err_ccApptCollision: #If boolELE Then WriteErrorLog err #End If Select Case err Case 0 'insert Errors you wish to ignore here Resume Next Case Else 'All other errors will trap Beep LogError mcstrModuleName, err.Number, err.Description, "Error in function Module1.ccApptCollision" Resume Exit_ccApptCollision End Select Resume 0 'FOR TROUBLESHOOTING End Function John W. Colby Colby Consulting www.ColbyConsulting.com From cfoust at infostatsystems.com Mon Aug 28 10:01:05 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 28 Aug 2006 08:01:05 -0700 Subject: [AccessD] FW: ...the gui of the future? In-Reply-To: <0J4K00JKGJ2IBXL4@vms040.mailsrvcs.net> Message-ID: Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 mmattys at rochester.rr.com Mon Aug 28 10:16:39 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Mon, 28 Aug 2006 11:16:39 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... References: <000301c6cab0$752f3240$657aa8c0@m6805> Message-ID: <02e701c6cab4$f77bfd60$0202a8c0@default> ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 28, 2006 10:44 AM Subject: [AccessD] Did you know? Or more correctly - I never knew... -Snip- > It turns out that even though the base query pulls out only the records > with > dates, it apparently hands ALL the records up to the query built on top of > the base query and since some of those records have nulls in the dates, > the > appointment function complains about nulls passed in to the date fields. -Snip- > So... why is it doing this, and is there a way to force the base query to > only pass up the filtered result set such that only valid dates are > pulled? -Snip- The fastest way to get the desired result set would be to append to a temp table. As to why ... there was a Deconstructing Querydefs article by Ken Getz a few years ago that might help to explain it. The link at http://www.developershandbook.com/downloads.htm is dead. I wonder if anyone saved the article? Michael R. Mattys MapPoint Developer www.mattysconsulting.com From jwcolby at colbyconsulting.com Mon Aug 28 10:59:51 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 28 Aug 2006 11:59:51 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... In-Reply-To: <02e701c6cab4$f77bfd60$0202a8c0@default> Message-ID: <000901c6caba$ffde3bc0$657aa8c0@m6805> I do that when I am running into a speed issue. In this case I just wanted to do a "prefilter" to eliminate all records where dates are null before sending it on to a query that expects all dates to be not null. It LOOKS like it prefilters, but in fact it apparently does not. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Michael R Mattys Sent: Monday, August 28, 2006 11:17 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Did you know? Or more correctly - I never knew... ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 28, 2006 10:44 AM Subject: [AccessD] Did you know? Or more correctly - I never knew... -Snip- > It turns out that even though the base query pulls out only the > records with dates, it apparently hands ALL the records up to the > query built on top of the base query and since some of those records > have nulls in the dates, the appointment function complains about > nulls passed in to the date fields. -Snip- > So... why is it doing this, and is there a way to force the base query > to only pass up the filtered result set such that only valid dates are > pulled? -Snip- The fastest way to get the desired result set would be to append to a temp table. As to why ... there was a Deconstructing Querydefs article by Ken Getz a few years ago that might help to explain it. The link at http://www.developershandbook.com/downloads.htm is dead. I wonder if anyone saved the article? Michael R. Mattys MapPoint Developer www.mattysconsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From mmattys at rochester.rr.com Mon Aug 28 11:59:50 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Mon, 28 Aug 2006 12:59:50 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... References: <000901c6caba$ffde3bc0$657aa8c0@m6805> Message-ID: <034701c6cac3$6181fc60$0202a8c0@default> ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 28, 2006 11:59 AM Subject: Re: [AccessD] Did you know? Or more correctly - I never knew... >I do that when I am running into a speed issue. In this case I just wanted > to do a "prefilter" to eliminate all records where dates are null before > sending it on to a query that expects all dates to be not null. It LOOKS > like it prefilters, but in fact it apparently does not. > > John W. Colby > Colby Consulting > www.ColbyConsulting.com I've found the QueryInfo.mdb from that article I'll send it if you want it. Michael R. Mattys MapPoint Developer www.mattysconsulting.com From fhtapia at gmail.com Mon Aug 28 12:00:16 2006 From: fhtapia at gmail.com (Francisco Tapia) Date: Mon, 28 Aug 2006 10:00:16 -0700 Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: <000c01c6c9de$0d767eb0$657aa8c0@m6805> References: <000c01c6c9de$0d767eb0$657aa8c0@m6805> Message-ID: Most often your client network protocols are not in synch. If you are able ping each machine then there should be no firewall restrictions between each. If you do not get a ping back then let's look at your firewall configurations. Next, I would open up the client network utility on both servers and check to see what your protocols are on each machine generally Named Pipes and TCP/IP should be selected but if they are not, choose each now, and see if that fixes the problem. Still not? Next thing you can do is setup an Alias to the other server by typing in the server name in the named box and the IP in the address box and selecting what port you will be connecting on (if it's not 1433). On 8/27/06, JWColby wrote: > I have just finished rebuilding a machine (new motherboard) and need to > transfer a large SQL Server database to that new server. The two servers > can see each other (shared folders), but ... > > I cannot register the other SQL Servers, getting an error "Login failed for > 'MachineName\Guest'. I get this error on either machine when trying to > register the SQL Server on the other machine. My login user / password is > the same on both machines. Both databases were installed using "Windows > Authentication" rather than "SQL Server Authentication". > > Any ideas? > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- -Francisco http://pcthis.blogspot.com |PC news with out the jargon! http://sqlthis.blogspot.com | Tsql and More... From martyconnelly at shaw.ca Mon Aug 28 12:29:31 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 28 Aug 2006 10:29:31 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <0J4P004ZGICIT650@l-daemon> References: <0J4P004ZGICIT650@l-daemon> Message-ID: <44F327FB.3090607@shaw.ca> Have a look at Candace Tripp's example getting jpegs from a directory Picture in Database 97 and 2000 http://www.candace-tripp.com/access_downloads.htm or Pictures mdb's here http://www.rogersaccesslibrary.com/TableOfContents3.asp Jim Lawrence wrote: >Hi Borge: > >The best method I have found is to simply store the pictures as separate >items in their own folder and do not try to inset them into the database. >They will load faster, you can use a number of formats, like jpg and the >database can then handle thousands picture, if they are not imbedded. Just >use a straight IMAGE object and fill its picture property with the name of >the picture like "\\Myserver\MyPictures\UncleFred.jpg" > >HTH >Jim > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen >Sent: Sunday, August 27, 2006 11:29 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] Access FE for storing and viewing photos > >Hi, > >What's the best approach for creating a database for storing and viewing >photos? > >If Access FE and BEmdb >- use approach as per the Northwind Db? >or >- bound object frame? > >I've experimented with the bound object frame and "out of the box" can only >manage to store .bmp files in the bound field . >I can store .jpg files - but cannot immediately view them on the form as I >scroll from record to record - I have to double click the >ole object and then I can view the .jpg > >What gives best functionality using Access FE, > >storing pictures in a Table (and is .bmp only choice here; what about .jpg >format) >or >storing pictures as separate files in a separate folder and accessing them >using the Northwind approach > > >What about SQL2005 Express as a backend? > >Regards >borge > > > -- Marty Connelly Victoria, B.C. Canada From jimdettman at verizon.net Mon Aug 28 12:35:51 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Mon, 28 Aug 2006 13:35:51 -0400 Subject: [AccessD] FW: ...the gui of the future? In-Reply-To: Message-ID: <0J4P006RPY7XDR50@vms048.mailsrvcs.net> Charlotte, I don't believe the screen or the software really cares what touches it...hum, reminds me of a couple of guys pretending to play the piano with no hands and feet... Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Monday, August 28, 2006 11:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 Mon Aug 28 13:00:17 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 28 Aug 2006 11:00:17 -0700 Subject: [AccessD] FW: ...the gui of the future? In-Reply-To: <0J4P006RPY7XDR50@vms048.mailsrvcs.net> Message-ID: I know. In the demo, he was using several fingers on both hands at once and I believe he referred to having two people working at the same time. So he demonstrated but didn't explain how. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Monday, August 28, 2006 10:36 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] FW: ...the gui of the future? Charlotte, I don't believe the screen or the software really cares what touches it...hum, reminds me of a couple of guys pretending to play the piano with no hands and feet... Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Monday, August 28, 2006 11:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 Mon Aug 28 13:03:21 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 28 Aug 2006 14:03:21 -0400 Subject: [AccessD] updating a field in the parent based on sum of the child Message-ID: <001b01c6cacc$4024cad0$657aa8c0@m6805> I built a query that sums a field in the child table. I then joined the summation query to the parent table (using the PK/FK) in another query. The resulting query is not updateable. I RTFM and came up with this: When the query is calculating a sum, an average, a count, or other type of total on the values in a field, you cannot update data in the query. Also, you cannot update a query that references a field in the Update To row from a crosstab, a query, a select query, or a subquery that contains totals or aggregate functions. To work around this problem, use the Domain Aggregate function in the Update To row of an update query. You can reference fields from a crosstab query, a select query, or a subquery that contain totals or aggregate functions. Of particular interest is the second sentence "you cannot update a query that references ...". I am just trying to manually update the data in the parent table using a direct edit by hand so this does not seem an exact fit but ... I have always had this issue, never really solved it. I always result to code to open a recordset of the parent table, and iterate the summation query looking up the parent ID in the parent table, then updating the data in the parent table with the sum value from the summation query of the child table. Does anyone know if it is possible to do this update in SQL or should I just go do it my tried and true way? John W. Colby Colby Consulting www.ColbyConsulting.com From jimdettman at verizon.net Mon Aug 28 13:09:00 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Mon, 28 Aug 2006 14:09:00 -0400 Subject: [AccessD] updating a field in the parent based on sum of the child In-Reply-To: <001b01c6cacc$4024cad0$657aa8c0@m6805> Message-ID: <0J4P00K4IZRECWG4@vms044.mailsrvcs.net> John, <> Just like it says; use a DSUM() in the update row and drop the sub query. I've bumped into this too and have had to resort to the DSUM() approach. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Monday, August 28, 2006 2:03 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] updating a field in the parent based on sum of the child I built a query that sums a field in the child table. I then joined the summation query to the parent table (using the PK/FK) in another query. The resulting query is not updateable. I RTFM and came up with this: When the query is calculating a sum, an average, a count, or other type of total on the values in a field, you cannot update data in the query. Also, you cannot update a query that references a field in the Update To row from a crosstab, a query, a select query, or a subquery that contains totals or aggregate functions. To work around this problem, use the Domain Aggregate function in the Update To row of an update query. You can reference fields from a crosstab query, a select query, or a subquery that contain totals or aggregate functions. Of particular interest is the second sentence "you cannot update a query that references ...". I am just trying to manually update the data in the parent table using a direct edit by hand so this does not seem an exact fit but ... I have always had this issue, never really solved it. I always result to code to open a recordset of the parent table, and iterate the summation query looking up the parent ID in the parent table, then updating the data in the parent table with the sum value from the summation query of the child table. Does anyone know if it is possible to do this update in SQL or should I just go do it my tried and true way? John W. Colby Colby Consulting 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 Mon Aug 28 13:20:28 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 28 Aug 2006 11:20:28 -0700 Subject: [AccessD] Did you know? Or more correctly - I never knew... In-Reply-To: <02e701c6cab4$f77bfd60$0202a8c0@default> References: <000301c6cab0$752f3240$657aa8c0@m6805> <02e701c6cab4$f77bfd60$0202a8c0@default> Message-ID: <44F333EC.8060505@shaw.ca> The url points to old Office VBA magazine site which went out of business, I wonder who bought it and where the files went. I have heard rumors about them being placed in Compuserve. Michael R Mattys wrote: >----- Original Message ----- >From: "JWColby" >To: "'Access Developers discussion and problem solving'" > >Sent: Monday, August 28, 2006 10:44 AM >Subject: [AccessD] Did you know? Or more correctly - I never knew... > >-Snip- > > >>It turns out that even though the base query pulls out only the records >>with >>dates, it apparently hands ALL the records up to the query built on top of >>the base query and since some of those records have nulls in the dates, >>the >>appointment function complains about nulls passed in to the date fields. >> >> >-Snip- > > >>So... why is it doing this, and is there a way to force the base query to >>only pass up the filtered result set such that only valid dates are >>pulled? >> >> >-Snip- > >The fastest way to get the desired result set would be to append to a temp >table. >As to why ... there was a Deconstructing Querydefs article by Ken Getz a few >years ago that might help to explain it. >The link at http://www.developershandbook.com/downloads.htm is dead. >I wonder if anyone saved the article? > >Michael R. Mattys >MapPoint Developer >www.mattysconsulting.com > > > -- Marty Connelly Victoria, B.C. Canada From Jim.Hale at FleetPride.com Mon Aug 28 13:38:08 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Mon, 28 Aug 2006 13:38:08 -0500 Subject: [AccessD] FW: ...the gui of the future? Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDF00@corp-es01.fleetpride.com> Seems to me actually working with that screen all day would be very tiring on the hands/wrist/arms and would result in some new kind of repetitive motion problem like carpal tunnel. What I wish they would develop is a 3D (holographic?)terminal. Ever since I saw the first hologram eons ago I've been expecting some cool device but no joy so far. Jim Hale -----Original Message----- From: Charlotte Foust [mailto:cfoust at infostatsystems.com] Sent: Monday, August 28, 2006 1:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? I know. In the demo, he was using several fingers on both hands at once and I believe he referred to having two people working at the same time. So he demonstrated but didn't explain how. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Monday, August 28, 2006 10:36 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] FW: ...the gui of the future? Charlotte, I don't believe the screen or the software really cares what touches it...hum, reminds me of a couple of guys pretending to play the piano with no hands and feet... Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Monday, August 28, 2006 11:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 *********************************************************************** 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.Clark at niagaracounty.com Mon Aug 28 15:34:20 2006 From: John.Clark at niagaracounty.com (John Clark) Date: Mon, 28 Aug 2006 16:34:20 -0400 Subject: [AccessD] Really simple date question In-Reply-To: <44F333EC.8060505@shaw.ca> References: <000301c6cab0$752f3240$657aa8c0@m6805> <02e701c6cab4$f77bfd60$0202a8c0@default> <44F333EC.8060505@shaw.ca> Message-ID: <44F31B09.167F.006B.0@niagaracounty.com> hello I am revisiting a little timesheet program that I want to make for the office. I want to enter a "week ending" date, at the top, and have it fill in dates for the previous six days. So, if I enter 09/02/2006 for this week's ending date, I want to fill in a label, text box, etc. for Sun as 08/27/06, and Mon 08/28/06, and on through Saturday, which would be the same as the ending date. I then want to enter start time and end time, and also lunch times, and come up w/a total. As usual, I thought this was going to be simple, and I can do it in a query, but in the form I am getting "mismatched types." From bchacc at san.rr.com Mon Aug 28 17:04:14 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 15:04:14 -0700 Subject: [AccessD] Really simple date question In-Reply-To: <44F31B09.167F.006B.0@niagaracounty.com> References: <000301c6cab0$752f3240$657aa8c0@m6805> <02e701c6cab4$f77bfd60$0202a8c0@default> <44F333EC.8060505@shaw.ca> <44F31B09.167F.006B.0@niagaracounty.com> Message-ID: <44F3685E.4030209@san.rr.com> John: Bound form? Do you want to add these records with the dates but without the times to a table? Or unbound form where you accumulate all the data on the form first and then write to the table? Rocky John Clark wrote: > hello > > I am revisiting a little timesheet program that I want to make for the > office. I want to enter a "week ending" date, at the top, and have it > fill in dates for the previous six days. So, if I enter 09/02/2006 for > this week's ending date, I want to fill in a label, text box, etc. for > Sun as 08/27/06, and Mon 08/28/06, and on through Saturday, which would > be the same as the ending date. > > I then want to enter start time and end time, and also lunch times, and > come up w/a total. > > As usual, I thought this was going to be simple, and I can do it in a > query, but in the form I am getting "mismatched types." > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Mon Aug 28 19:04:54 2006 From: pcs at azizaz.com (Borge Hansen) Date: Tue, 29 Aug 2006 10:04:54 +1000 Subject: [AccessD] Access FE for storing and viewing photos References: <44F135C5.4080705@san.rr.com><026a01c6ca6b$3ee89860$fa10a8c0@Albatross> <44F2EE37.9090305@san.rr.com> Message-ID: <027b01c6cafe$c23adfa0$fa10a8c0@Albatross> Thanks to all who gave their input on this. Rocky, I'd like to see the functionality of your home grown picture viewer, so yes please send it to me off list. Regards Borge - snipped - ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Monday, August 28, 2006 11:23 PM Subject: Re: [AccessD] Access FE for storing and viewing photos > Borge: > I have a hone-grown picture viewr which I made before Window's ever so > handy built in picture viewer which load pictures in sequence from a > folder using an unbound image frame. The folder is selected from the > folder browser. I can send it to you off line if you want. It's only > 49k zipped. > The only problem I had with it was when you load the picture > (imgPicture.Picture = astrPicArray(intCurrentPicture) > ) you get a progress bar which flashes up for a fraction of a second. I > experiemnted with turning it off by using a function that sets a > specific registry key ("Software\Microsoft\Shared Tools\Graphics > Filters\Import\JPEG\Options") but it only worked on one machine - seems > to be very OS dependent. > Let me know if you want it. From snegus at ovasia.org Mon Aug 28 22:41:24 2006 From: snegus at ovasia.org (Stephen Negus) Date: Tue, 29 Aug 2006 11:41:24 +0800 Subject: [AccessD] Techniques for creating Evaluation Version of applications Message-ID: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> Hi All, I was just wondering if anyone has any techniques that they use for creating evaluation versions of an Access application which "stops working" after a specified period of time (say 30 days) until it is registered (paid for). Thanks, Stephen From accessd at shaw.ca Mon Aug 28 23:00:33 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Mon, 28 Aug 2006 21:00:33 -0700 Subject: [AccessD] Techniques for creating Evaluation Version of applications In-Reply-To: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> Message-ID: <0J4Q003YSR4BWWB0@l-daemon> Hi Stephen: Rocky would be the man who would know best as he has been designing, supporting and protecting his own international sold application: http://www.e-z-mrp.com/ HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stephen Negus Sent: Monday, August 28, 2006 8:41 PM To: accessd at databaseadvisors.com Subject: [AccessD] Techniques for creating Evaluation Version of applications Hi All, I was just wondering if anyone has any techniques that they use for creating evaluation versions of an Access application which "stops working" after a specified period of time (say 30 days) until it is registered (paid for). Thanks, Stephen -- 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 Aug 29 00:28:35 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 22:28:35 -0700 Subject: [AccessD] Techniques for creating Evaluation Version of applications In-Reply-To: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> References: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> Message-ID: <44F3D083.9040109@san.rr.com> Stephen: It's pretty simple, really. I have a 16 character key which is stored in a front end table. It's kind of encrypted but since it's not viewable I guess it really doesn't need to be (like I break the expiration date into the month part, day part, and year part, and convert them into three different alphabetic characters and stash them in non sequential characters in the key). When the app starts, I decrypt the key and extract, among other things, the expiration date. So I just check that date against the clock/calendar and display 'License expired' and then Application.Quit. Since I also store the customer's name, when the app starts one of the text boxes on the opening form has 'Licensed To: " & Customer Name & "License Expires: " & Expiration Date. To stop them from cheating by turning back the date in the computer, every time the app starts I also save the current date in a table. If the current date is less than the last time the app was started I don't allow it to start. Really elementary stuff, but it works. As the expiration date of the app draws near, I display a pop-up which says 'your license will expire in xx days. Call Beach Access Software for a key to extend the license'. I have a customer tracking app which creates these keys based on the desired expiration date. So, I can call up their record in my customer tracking app, generate a new key based on whatever expiration date I want, then then email them the new key which they enter in the pop up, and extend the license. The key is kind of like a Microsoft key - 6 groups of four alphanumeric characters. Oh, yeah, the app is compiled into an mde and the database window is hidden, and the bypass key disabled and all that standard stuff. I don't use drop down menus, either, so I turn off the menu bar. HTH, Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com Stephen Negus wrote: > Hi All, > > I was just wondering if anyone has any techniques that they use for > creating evaluation versions of an Access application which "stops > working" after a specified period of time (say 30 days) until it is > registered (paid for). > > Thanks, > > Stephen > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 29 00:30:01 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 22:30:01 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <027b01c6cafe$c23adfa0$fa10a8c0@Albatross> References: <44F135C5.4080705@san.rr.com> <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> <44F2EE37.9090305@san.rr.com> <027b01c6cafe$c23adfa0$fa10a8c0@Albatross> Message-ID: <44F3D0D9.9050405@san.rr.com> Borge: Sent out tonight. Let me know if it doesn't arrive on good order. Rocky Borge Hansen wrote: > Thanks to all who gave their input on this. > Rocky, I'd like to see the functionality of your home grown picture viewer, so yes please send it to me off list. > > Regards > Borge > > - snipped - > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > Sent: Monday, August 28, 2006 11:23 PM > Subject: Re: [AccessD] Access FE for storing and viewing photos > > > >> Borge: >> I have a hone-grown picture viewr which I made before Window's ever so >> handy built in picture viewer which load pictures in sequence from a >> folder using an unbound image frame. The folder is selected from the >> folder browser. I can send it to you off line if you want. It's only >> 49k zipped. >> The only problem I had with it was when you load the picture >> (imgPicture.Picture = astrPicArray(intCurrentPicture) >> ) you get a progress bar which flashes up for a fraction of a second. I >> experiemnted with turning it off by using a function that sets a >> specific registry key ("Software\Microsoft\Shared Tools\Graphics >> Filters\Import\JPEG\Options") but it only worked on one machine - seems >> to be very OS dependent. >> Let me know if you want it. >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Tue Aug 29 07:40:29 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 29 Aug 2006 08:40:29 -0400 Subject: [AccessD] Really simple date question In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E18FB7@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> John, You could probably do in it a query. Assuming that Sunday is your ending day ... SELECT DateAdd("d",-6,[dp]) AS Mon, DateAdd("d",-5,[dp]) AS Tues, DateAdd("d",-4,[dp]) AS Wed, DateAdd("d",-3,[dp]) AS Thu, DateAdd("d",-2,[dp]) AS Fri, DateAdd("d",-1,[dp]) AS Sat, [dp] AS Sun; [dp] is the parameter used to pass in the date to the query. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark Sent: Monday, August 28, 2006 4:34 PM To: Access Developers discussion and problem solving Subject: [AccessD] Really simple date question hello I am revisiting a little timesheet program that I want to make for the office. I want to enter a "week ending" date, at the top, and have it fill in dates for the previous six days. So, if I enter 09/02/2006 for this week's ending date, I want to fill in a label, text box, etc. for Sun as 08/27/06, and Mon 08/28/06, and on through Saturday, which would be the same as the ending date. I then want to enter start time and end time, and also lunch times, and come up w/a total. As usual, I thought this was going to be simple, and I can do it in a query, but in the form I am getting "mismatched types." From Jdemarco at hudsonhealthplan.org Tue Aug 29 09:05:36 2006 From: Jdemarco at hudsonhealthplan.org (Jim DeMarco) Date: Tue, 29 Aug 2006 10:05:36 -0400 Subject: [AccessD] A2K3 - Why does VB Editor window keep opening Message-ID: <08F823FD83787D4BA0B99CA580AD3C7404243305@TTNEXCHCL2.hshhp.com> List, For the past few days I've left Access open with no file opened (just the Access shell) to use as a reminder to open a system I've been prototyping. When I come in the morning the VB editor is open even though I've closed it before leaving. In fact, in between my coming in today (and closing the editor) and typing this message the editor is open again. It also opens when I'm in the system either editing or viewing a form but not coding or doing anything related to code. Has anyone ever seen this behavior? Is there some way to stop it? TIA, Jim DeMarco From ewaldt at gdls.com Tue Aug 29 12:26:57 2006 From: ewaldt at gdls.com (ewaldt at gdls.com) Date: Tue, 29 Aug 2006 13:26:57 -0400 Subject: [AccessD] Make-table query question In-Reply-To: Message-ID: I have a max table (shows the maximum for some calculations for the purpose of choosing which records to display from another table) that is recreated via a make-table query on a regular basis. This needs to happen because of the complexity of queries being run. I'm sure many of you have run into it: Access hits its limit in queries of queries of queries, so you have to stop part-way and do a make-table query, and then start up again. Anyway, it works fine except for the problems below. A subform is based in part on the max table mentioned above. When a new record is created in the main form, and related records are created for the subform, the presence of the subform's records is based in part on corresponding records in the max table. Unfortunately, since the max table is involved in supporting the open forms, it can't be destroyed and rebuilt, as is required by a make-table query. This results in the subform's being blank, since there are no corresponding records. One partial solution is to have the user close the form, run a function I've created to recreate the tables--there are actually several tables involved--and then reopen the form. If that user is the only one logged into the app at the time, that works. I've put a button on the toolbar to run the function, so it's only a minor inconvenience for the user. However, if anyone else is logged in, it's a definite no-go. Any suggestions for help with this? As usual, I may not have explained it clearly enough. Please let me know if that is the case. Thomas F. Ewald FCS Database Manager General Dynamics Land Systems (586) 276-1256 This is an e-mail from General Dynamics Land Systems. It is for the intended recipient only and may contain confidential and privileged information. No one else may read, print, store, copy, forward or act in reliance on it or its attachments. If you are not the intended recipient, please return this message to the sender and delete the message and any attachments from your computer. Your cooperation is appreciated. From gustav at cactus.dk Tue Aug 29 12:36:56 2006 From: gustav at cactus.dk (Gustav Brock) Date: Tue, 29 Aug 2006 19:36:56 +0200 Subject: [AccessD] Svar: Make-table query question Message-ID: Hi Thomas Couldn't you just empty the table and then append the new records? This way the table exists all the time. /gustav >>> ewaldt at gdls.com 29-08-06 19:26 >>> I have a max table (shows the maximum for some calculations for the purpose of choosing which records to display from another table) that is recreated via a make-table query on a regular basis. This needs to happen because of the complexity of queries being run. I'm sure many of you have run into it: Access hits its limit in queries of queries of queries, so you have to stop part-way and do a make-table query, and then start up again. Anyway, it works fine except for the problems below. A subform is based in part on the max table mentioned above. When a new record is created in the main form, and related records are created for the subform, the presence of the subform's records is based in part on corresponding records in the max table. Unfortunately, since the max table is involved in supporting the open forms, it can't be destroyed and rebuilt, as is required by a make-table query. This results in the subform's being blank, since there are no corresponding records. One partial solution is to have the user close the form, run a function I've created to recreate the tables--there are actually several tables involved--and then reopen the form. If that user is the only one logged into the app at the time, that works. I've put a button on the toolbar to run the function, so it's only a minor inconvenience for the user. However, if anyone else is logged in, it's a definite no-go. Any suggestions for help with this? As usual, I may not have explained it clearly enough. Please let me know if that is the case. Thomas F. Ewald FCS Database Manager General Dynamics Land Systems (586) 276-1256 From kathrynatgwens at socal.rr.com Tue Aug 29 12:43:33 2006 From: kathrynatgwens at socal.rr.com (Kathryn ) Date: Tue, 29 Aug 2006 10:43:33 -0700 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: <003f01c6c99a$78526490$153ce944@50NM721> Message-ID: <002001c6cb92$ac68a240$6baaa8c0@upstairs> Be sure to read my response to Paul below as there is a question there. William said: > ...it would appear that the report isn't changing it's set > printer driver which I've seen reports do before ...try this > to force the change ...change the report's printer selection > to use the "specific printer" option rather than the default > (the wording may differ somewhat, I don't have any app > open) and set it to the LJ5. When you then open the revised > app on the upstairs system it will pop up a dialog saying the > LJ5 isn't available and let you change the printer ...on that > system ...to the newer one ...that should force your app to > use the correct driver for that system. Well shoot. That didn't work. Main problem is that LJ5 is networked and I can print to it from upstairs. So setting it as a specific printer doesn't pop up the dialog. To see if it would print correctly if I chose the LJ3052, I changed to specific printer, and even chose #10 as the "paper". Still didn't print right. (I've set it back the way it was since downstairs and the LJ5 are used 95% of the time.) Michael said: > This is the page with the answer, but you may not like it. > http://www.mvps.org/access/reports/rpt0009.htm > It has been a while since I've worked with this stuff ... Right, don't like it because I don't understand it at all. Paul said: > There are a number of questions I would ask to resolve this. > I the LJ5 driver still installed on the Upstairs machine and > if it is is it still the default printer? Does the document > (envelope) specify the default printer or was is formatted > for the LJ5 specifically? I believe that you problem has > little to do with the application but more likely the printer > driver setup between the two computers. We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has been deleted, the Downstairs LJ5 is still showing because it is networked. The LJ3052 is set as the default Upstairs. How do I tell if the envelope is formatted specifically for the LJ5? That seems to be the likely problem at this point. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) > -----Original Message by Kathryn----- Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. From martyconnelly at shaw.ca Tue Aug 29 12:59:35 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 29 Aug 2006 10:59:35 -0700 Subject: [AccessD] Svar: Make-table query question In-Reply-To: References: Message-ID: <44F48087.30409@shaw.ca> I do something like this to allow a table to be cleared or appended to. asuming table is already created. If MsgBox("Do you want to create a new file table (yes: create, no: append)", _ vbYesNo) = vbYes Then DoCmd.RunSQL "DELETE DISTINCTROW TempTable.fieldname FROM TempTable;" End If Gustav Brock wrote: >Hi Thomas > >Couldn't you just empty the table and then append the new records? This way the table exists all the time. > >/gustav > > > >>>>ewaldt at gdls.com 29-08-06 19:26 >>> >>>> >>>> >I have a max table (shows the maximum for some calculations for the purpose >of choosing which records to display from another table) that is recreated >via a make-table query on a regular basis. This needs to happen because of >the complexity of queries being run. I'm sure many of you have run into it: >Access hits its limit in queries of queries of queries, so you have to stop >part-way and do a make-table query, and then start up again. Anyway, it >works fine except for the problems below. > >A subform is based in part on the max table mentioned above. When a new >record is created in the main form, and related records are created for the >subform, the presence of the subform's records is based in part on >corresponding records in the max table. Unfortunately, since the max table >is involved in supporting the open forms, it can't be destroyed and >rebuilt, as is required by a make-table query. This results in the >subform's being blank, since there are no corresponding records. > >One partial solution is to have the user close the form, run a function >I've created to recreate the tables--there are actually several tables >involved--and then reopen the form. If that user is the only one logged >into the app at the time, that works. I've put a button on the toolbar to >run the function, so it's only a minor inconvenience for the user. However, >if anyone else is logged in, it's a definite no-go. > >Any suggestions for help with this? As usual, I may not have explained it >clearly enough. Please let me know if that is the case. > >Thomas F. Ewald >FCS Database Manager >General Dynamics Land Systems >(586) 276-1256 > > -- Marty Connelly Victoria, B.C. Canada From markamatte at hotmail.com Tue Aug 29 13:58:47 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 29 Aug 2006 18:58:47 +0000 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: <002001c6cb92$ac68a240$6baaa8c0@upstairs> Message-ID: Kathryn, I haven't followed this thread too closely...and it may have been suggested...but could you create seperate reports formatted for each printer...then use an API call to determine what the default printer is...and then use that report? Hope it helps... Mark A. Matte >From: "Kathryn " >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. >Date: Tue, 29 Aug 2006 10:43:33 -0700 > >Be sure to read my response to Paul below as there is a question there. > >William said: > > ...it would appear that the report isn't changing it's set > > printer driver which I've seen reports do before ...try this > > to force the change ...change the report's printer selection > > to use the "specific printer" option rather than the default > > (the wording may differ somewhat, I don't have any app > > open) and set it to the LJ5. When you then open the revised > > app on the upstairs system it will pop up a dialog saying the > > LJ5 isn't available and let you change the printer ...on that > > system ...to the newer one ...that should force your app to > > use the correct driver for that system. > >Well shoot. That didn't work. Main problem is that LJ5 is networked and I >can print to it from upstairs. So setting it as a specific printer doesn't >pop up the dialog. To see if it would print correctly if I chose the >LJ3052, >I changed to specific printer, and even chose #10 as the "paper". Still >didn't print right. (I've set it back the way it was since downstairs and >the LJ5 are used 95% of the time.) > >Michael said: > > This is the page with the answer, but you may not like it. > > http://www.mvps.org/access/reports/rpt0009.htm > > It has been a while since I've worked with this stuff ... > >Right, don't like it because I don't understand it at all. > >Paul said: > > There are a number of questions I would ask to resolve this. > > I the LJ5 driver still installed on the Upstairs machine and > > if it is is it still the default printer? Does the document > > (envelope) specify the default printer or was is formatted > > for the LJ5 specifically? I believe that you problem has > > little to do with the application but more likely the printer > > driver setup between the two computers. > >We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has been >deleted, the Downstairs LJ5 is still showing because it is networked. The >LJ3052 is set as the default Upstairs. How do I tell if the envelope is >formatted specifically for the LJ5? That seems to be the likely problem at >this point. > >-- >Kathryn Bassett (at work address) >kathrynatgwens at socal.rr.com >kathryn at bassett.net (home) > > > -----Original Message by Kathryn----- >Situation: .mdb is on K drive which is accessable from two computers (IOW, >K >drive is server). No problems in the past when there was a LaserJet 5 >hooked >up to both computers. By that I mean if we were "downstairs", printing >would >print on the downstairs LJ5, and "upstairs" would print on the upstairs >LJ5. >In both cases, the envelope was put in the tray over on the left side. > >Now, upstairs has new printer (LJ3052) and the envelope goes in center >instead of left side. Access does not automatically adjust - the "to" >address is printing at top of the envelope and the "from" address is not >there at all. If I put paper in the tray that the envelope pulls from, it >shows that it's printing as if it were pulling from the left. > >So, I tried putting the envelope over to the left and it pulls it through, >but doesn't print, and gives me an error message that there was no paper >pickup and to check that the paper was loaded correctly, etc. > >Does this mean that I have to design additional reports for all envelopes >that will be printed upstairs, designing for this specific printer? > >Assuming you give me suggestions, unless they are within next 45 minutes, I >won't be able to try them til Monday when I'm back here at work. > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From markamatte at hotmail.com Tue Aug 29 14:18:41 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 29 Aug 2006 19:18:41 +0000 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: Message-ID: "create seperate reports formatted ".. ....or programmatically format the report based on default printer? >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. >Date: Tue, 29 Aug 2006 18:58:47 +0000 > >Kathryn, > >I haven't followed this thread too closely...and it may have been >suggested...but could you create seperate reports formatted for each >printer...then use an API call to determine what the default printer >is...and then use that report? > >Hope it helps... > > >Mark A. Matte > > > >From: "Kathryn " > >Reply-To: Access Developers discussion and problem > >solving > >To: "'Access Developers discussion and problem > >solving'" > >Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. > >Date: Tue, 29 Aug 2006 10:43:33 -0700 > > > >Be sure to read my response to Paul below as there is a question there. > > > >William said: > > > ...it would appear that the report isn't changing it's set > > > printer driver which I've seen reports do before ...try this > > > to force the change ...change the report's printer selection > > > to use the "specific printer" option rather than the default > > > (the wording may differ somewhat, I don't have any app > > > open) and set it to the LJ5. When you then open the revised > > > app on the upstairs system it will pop up a dialog saying the > > > LJ5 isn't available and let you change the printer ...on that > > > system ...to the newer one ...that should force your app to > > > use the correct driver for that system. > > > >Well shoot. That didn't work. Main problem is that LJ5 is networked and I > >can print to it from upstairs. So setting it as a specific printer >doesn't > >pop up the dialog. To see if it would print correctly if I chose the > >LJ3052, > >I changed to specific printer, and even chose #10 as the "paper". Still > >didn't print right. (I've set it back the way it was since downstairs and > >the LJ5 are used 95% of the time.) > > > >Michael said: > > > This is the page with the answer, but you may not like it. > > > http://www.mvps.org/access/reports/rpt0009.htm > > > It has been a while since I've worked with this stuff ... > > > >Right, don't like it because I don't understand it at all. > > > >Paul said: > > > There are a number of questions I would ask to resolve this. > > > I the LJ5 driver still installed on the Upstairs machine and > > > if it is is it still the default printer? Does the document > > > (envelope) specify the default printer or was is formatted > > > for the LJ5 specifically? I believe that you problem has > > > little to do with the application but more likely the printer > > > driver setup between the two computers. > > > >We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has >been > >deleted, the Downstairs LJ5 is still showing because it is networked. The > >LJ3052 is set as the default Upstairs. How do I tell if the envelope is > >formatted specifically for the LJ5? That seems to be the likely problem >at > >this point. > > > >-- > >Kathryn Bassett (at work address) > >kathrynatgwens at socal.rr.com > >kathryn at bassett.net (home) > > > > > -----Original Message by Kathryn----- > >Situation: .mdb is on K drive which is accessable from two computers >(IOW, > >K > >drive is server). No problems in the past when there was a LaserJet 5 > >hooked > >up to both computers. By that I mean if we were "downstairs", printing > >would > >print on the downstairs LJ5, and "upstairs" would print on the upstairs > >LJ5. > >In both cases, the envelope was put in the tray over on the left side. > > > >Now, upstairs has new printer (LJ3052) and the envelope goes in center > >instead of left side. Access does not automatically adjust - the "to" > >address is printing at top of the envelope and the "from" address is not > >there at all. If I put paper in the tray that the envelope pulls from, it > >shows that it's printing as if it were pulling from the left. > > > >So, I tried putting the envelope over to the left and it pulls it >through, > >but doesn't print, and gives me an error message that there was no paper > >pickup and to check that the paper was loaded correctly, etc. > > > >Does this mean that I have to design additional reports for all envelopes > >that will be printed upstairs, designing for this specific printer? > > > >Assuming you give me suggestions, unless they are within next 45 minutes, >I > >won't be able to try them til Monday when I'm back here at work. > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >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 Tue Aug 29 15:49:28 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 29 Aug 2006 13:49:28 -0700 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: <002001c6cb92$ac68a240$6baaa8c0@upstairs> Message-ID: <0J4S00MRB1TRA880@l-daemon> Hi Kathryn: The printer drivers should be the same on both computers but sometimes if there are different OS versions the drivers will not be the same and some of the current drivers are not compatible with older OSs like Win98, 2000 or NT. Sometimes the best way to get around the problem is to network the printer through a computer as opposed to having it networked. (Had to do something similar on one client's site as they had a few of NT and 2000 boxes which would never print properly but when using an old beater-box as a print-manager everything then worked.) Just a thought Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kathryn Sent: Tuesday, August 29, 2006 10:44 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. Be sure to read my response to Paul below as there is a question there. William said: > ...it would appear that the report isn't changing it's set > printer driver which I've seen reports do before ...try this > to force the change ...change the report's printer selection > to use the "specific printer" option rather than the default > (the wording may differ somewhat, I don't have any app > open) and set it to the LJ5. When you then open the revised > app on the upstairs system it will pop up a dialog saying the > LJ5 isn't available and let you change the printer ...on that > system ...to the newer one ...that should force your app to > use the correct driver for that system. Well shoot. That didn't work. Main problem is that LJ5 is networked and I can print to it from upstairs. So setting it as a specific printer doesn't pop up the dialog. To see if it would print correctly if I chose the LJ3052, I changed to specific printer, and even chose #10 as the "paper". Still didn't print right. (I've set it back the way it was since downstairs and the LJ5 are used 95% of the time.) Michael said: > This is the page with the answer, but you may not like it. > http://www.mvps.org/access/reports/rpt0009.htm > It has been a while since I've worked with this stuff ... Right, don't like it because I don't understand it at all. Paul said: > There are a number of questions I would ask to resolve this. > I the LJ5 driver still installed on the Upstairs machine and > if it is is it still the default printer? Does the document > (envelope) specify the default printer or was is formatted > for the LJ5 specifically? I believe that you problem has > little to do with the application but more likely the printer > driver setup between the two computers. We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has been deleted, the Downstairs LJ5 is still showing because it is networked. The LJ3052 is set as the default Upstairs. How do I tell if the envelope is formatted specifically for the LJ5? That seems to be the likely problem at this point. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) > -----Original Message by Kathryn----- Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fahooper at trapo.com Tue Aug 29 16:08:41 2006 From: fahooper at trapo.com (Fred Hooper) Date: Tue, 29 Aug 2006 17:08:41 -0400 Subject: [AccessD] Esc key bounce in Preview In-Reply-To: <0J4S00MRB1TRA880@l-daemon> Message-ID: <000001c6cbaf$4f84dae0$2e01a8c0@fredxp> I sequentially preview 1-10 reports from a single Preview Reports button. For an example of 5 reports, if I close them with the X in the upper-right, everything is fine. But if I close them by pressing the Esc key some of them close before they are visible. It appears to me that the Esc key is active for longer than it takes to open the next report. I've thought of enforcing a time period between reports, but I've tried so hard to make the app as quick as possible that I hate to slow it down on purpose. Any ideas? Thanks, Fred Hooper From pcs at azizaz.com Tue Aug 29 21:16:06 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 30 Aug 2006 12:16:06 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> Message-ID: <03a001c6cbda$40b10590$fa10a8c0@Albatross> Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If From bill_Patten at earthlink.net Tue Aug 29 21:29:38 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Tue, 29 Aug 2006 19:29:38 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> <03a001c6cbda$40b10590$fa10a8c0@Albatross> Message-ID: <001901c6cbdc$24a42a60$6401a8c0@BPCS> Borge, I haven't studied your code but assuming all else works then I would declare the after update event of the control public so external forms can see it and then use: froms!frmControl.cboNav_AfterUpdate HTH Bill ----- Original Message ----- From: "Borge Hansen" To: "Access Developers discussion and problem solving" Sent: Tuesday, August 29, 2006 7:16 PM Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dajomigo at tpg.com.au Tue Aug 29 21:40:18 2006 From: dajomigo at tpg.com.au (David & Joanne Gould) Date: Wed, 30 Aug 2006 12:40:18 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <03a001c6cbda$40b10590$fa10a8c0@Albatross> References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> <03a001c6cbda$40b10590$fa10a8c0@Albatross> Message-ID: <6.2.1.2.2.20060830123911.03f08aa8@mail.tpg.com.au> Borge I would add the code into the AfterUpdate event module attached to the combo box itself, unless I have misunderstood your question. David At 12:16 PM 30/08/2006, you wrote: >Hmmmm... >I always seem to get stuck when attempting to access and run code in an >afterupdate event when trying to call and execute the event >from another procedure in another module than the Form module the >afterupdate event code resides in.... > >So what are the clear cuts on this.... please > >See the code snippet below > >Regards >Borge > >/Code snippet: > > If FIsLoaded("frmSystem") Then > If FIsLoaded("frmControl") Then > Dim strSecName As String > Dim boolModuleNamePresent As Boolean > > strSecName = Forms("frmSystem")("SecName") > boolModuleNamePresent = DLookup("Screen1", "tblSystem", > "SecName = '" & strSecName & "'") > > If boolModuleNamePresent Then > > Dim frm As Form > Dim ctrl As ComboBox > Set frm = Forms!frmControl > Set ctrl = frm!cboNav > > ctrl.Value = "Clients" > > 'just for testing - tests ok! > Dim vValue0 > Dim vValue1 > Dim vValue2 > Dim vValue3 > Dim vValue4 > > vValue0 = ctrl > vValue1 = ctrl.Column(1) > vValue2 = ctrl.Column(2) > vValue3 = ctrl.Column(3) > vValue4 = ctrl.Column(4) > 'end just for testing > > 'HERE: how do I call the AfterUpdate event of cboNav > in the open form called frmControl ?? > > ' cboNav_AfterUpdate to execute here > > Set frm = Nothing > Set ctrl = Nothing > > > Else > MyMsgBox "You do not have access to the Clients > Module" & vbCrLf & "Please see the System Administrator >about this!", vbInformation > End If > Else > MyMsgBox "This Form requires frmControl to be loaded!", > vbCritical > End If > Else > MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical > End If > > > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From pcs at azizaz.com Tue Aug 29 21:53:21 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 30 Aug 2006 12:53:21 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER><03a001c6cbda$40b10590$fa10a8c0@Albatross> <001901c6cbdc$24a42a60$6401a8c0@BPCS> Message-ID: <03a801c6cbdf$745faa90$fa10a8c0@Albatross> Bill, With Public Sub cboNav_AfterUpdate() I tried your forms!frmControl.cboNav_AfterUpdate ...no good! But forms.frmControl.cboNav_AfterUpdate did it! Thanks for nudging me further.... Gotta read over again those posts on Dot Bang from some days ago.... Regards Borge - snipped - ----- Original Message ----- From: "Bill Patten" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 30, 2006 12:29 PM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure > Borge, > I haven't studied your code but assuming all else works then I would declare > the after update event of the control public so external forms can see it > and then use: > froms!frmControl.cboNav_AfterUpdate > Bill From pcs at azizaz.com Tue Aug 29 21:56:55 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 30 Aug 2006 12:56:55 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER><03a001c6cbda$40b10590$fa10a8c0@Albatross> <6.2.1.2.2.20060830123911.03f08aa8@mail.tpg.com.au> Message-ID: <03b001c6cbdf$f47cc140$fa10a8c0@Albatross> David, Not possible here as I want to execute whatever the afterupdate event does from another place in the application.... Problem solved though, see previous post.... Borge ----- Original Message ----- From: "David & Joanne Gould" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 30, 2006 12:40 PM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure > Borge > > I would add the code into the AfterUpdate event module attached to the > combo box itself, unless I have misunderstood your question. > > David > > At 12:16 PM 30/08/2006, you wrote: > >Hmmmm... > >I always seem to get stuck when attempting to access and run code in an > >afterupdate event when trying to call and execute the event > >from another procedure in another module than the Form module the > >afterupdate event code resides in.... > > > >So what are the clear cuts on this.... please > > From cfoust at infostatsystems.com Wed Aug 30 09:40:40 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 30 Aug 2006 07:40:40 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <03b001c6cbdf$f47cc140$fa10a8c0@Albatross> Message-ID: In that case, what you should do is have a public method that is called by both the afterupdate event of the form and wherever else it is needed. It's kind of sloppy to expose the internal events of a form because some of the necessary underpinnings might not have occurred when you call that event. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:57 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure David, Not possible here as I want to execute whatever the afterupdate event does from another place in the application.... Problem solved though, see previous post.... Borge ----- Original Message ----- From: "David & Joanne Gould" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 30, 2006 12:40 PM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure > Borge > > I would add the code into the AfterUpdate event module attached to the > combo box itself, unless I have misunderstood your question. > > David > > At 12:16 PM 30/08/2006, you wrote: > >Hmmmm... > >I always seem to get stuck when attempting to access and run code in an > >afterupdate event when trying to call and execute the event > >from another procedure in another module than the Form module the > >afterupdate event code resides in.... > > > >So what are the clear cuts on this.... please > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Wed Aug 30 09:49:52 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 30 Aug 2006 07:49:52 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <03a001c6cbda$40b10590$fa10a8c0@Albatross> Message-ID: It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:16 PM To: Access Developers discussion and problem solving Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Wed Aug 30 09:58:39 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Wed, 30 Aug 2006 16:58:39 +0200 (CEST) Subject: [AccessD] Accessing AfterUpdate Event from another procedure Message-ID: <16969438.1156949919171.JavaMail.www@wwinf3203> I too am unsure what your trying to do but you would need to use a call statement....I know you can call events in the same form your working in, but as for another form I don't know if it would work....you could always try CALL Forms![frmControl].cboNav_AfterUpdate As I say I don't know if it would work, but surely there could be a better solution.. Paul Message Received: Aug 30 2006, 03:50 PM From: "Charlotte Foust" To: "Access Developers discussion and problem solving" Cc: Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:16 PM To: Access Developers discussion and problem solving Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 30 12:13:50 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 30 Aug 2006 12:13:50 -0500 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <2192524.1156949940541.JavaMail.root@sniper38> Message-ID: <001701c6cc57$aa7f0530$0200a8c0@danwaters> Here's an example: In my system, there is a form which lists all of the items that a user needs to work on. These items are from various business processes, where each process has its own Main Form. A user can click on a line in the list form. This will open the Main Form for that business process, and calls the afterupdate event of the cboNameFilter combobox. This will filter the form to just those records that the user needs to address, and display the record that the user clicked on in the list form. Of course, when a user is in the Main Form, they can select someone else's name from the cboNameFilter combobox to see what that person is currently working on. Or, they can push the Name Filter button to do the same thing and filter the screen to their own items. HTH, Dan -----Original Message----- Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If From artful at rogers.com Wed Aug 30 12:19:34 2006 From: artful at rogers.com (artful at rogers.com) Date: Wed, 30 Aug 2006 10:19:34 -0700 (PDT) Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <16969438.1156949919171.JavaMail.www@wwinf3203> Message-ID: <20060830171934.3974.qmail@web88204.mail.re2.yahoo.com> You also need to declare said event Public, I think. If it is private you won't be able to CALL it. ----- Original Message ---- From: paul.hartland at fsmail.net To: Access Developers discussion and problem solving Sent: Wednesday, August 30, 2006 10:58:39 AM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure I too am unsure what your trying to do but you would need to use a call statement....I know you can call events in the same form your working in, but as for another form I don't know if it would work....you could always try CALL Forms![frmControl].cboNav_AfterUpdate As I say I don't know if it would work, but surely there could be a better solution.. Paul From accessd at shaw.ca Wed Aug 30 14:15:52 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 30 Aug 2006 12:15:52 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <16969438.1156949919171.JavaMail.www@wwinf3203> Message-ID: <0J4T001HQS5MPB00@l-daemon> Hi Borge: In order to run/spawn another running form and/or processed you will have to run a do event process. See example below: Private Sub MyList_DblClick() Dim bolFormOpen as Boolean ... bolFormOpen = True DoCmd.OpenForm "MyCalledForm" Do while bolFormOpen = true Do While globalBooleanFlag = True DoEvents Loop bolFormOpen = IsLoaded("MyCalledForm") If bolFornOpen = True then AddAnotherRecordtoaTable() End if globalBooleanFlag = bolFormOpen Loop End Sub ... Public Function IsLoaded(ByVal strFormName As String) As Boolean Dim bolStatus as Boolean Const conObjStateClosed = 0 Const conDesignView = 0 bolStatus = False If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then bolStatus = True End If End If IsLoaded = bolStatus End Function Upon initialization the form MyCalledForm it sets the variable globalBooleanFlag to TRUE, within the called Form, it can spawn an external process by setting it to FALSE and holds the caller processing, in the subroutine to the current position until the Form MyCalledForm is closed. If you expand on this "a little more complex than I wanted to have" example, you can have a number of forms opened and various processes running. Also check out WithEvents example by John, http://www.databaseadvisors.com/newsletters/newsletter052002/0205CombiningRa iseEvents%20.htm and Shamil http://smsconsulting.spb.ru/shamil_s/articles.htm which describes similar functionality using the WithEvent clause. HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: Wednesday, August 30, 2006 7:59 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure Importance: High I too am unsure what your trying to do but you would need to use a call statement....I know you can call events in the same form your working in, but as for another form I don't know if it would work....you could always try CALL Forms![frmControl].cboNav_AfterUpdate As I say I don't know if it would work, but surely there could be a better solution.. Paul Message Received: Aug 30 2006, 03:50 PM From: "Charlotte Foust" To: "Access Developers discussion and problem solving" Cc: Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:16 PM To: Access Developers discussion and problem solving Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fahooper at trapo.com Wed Aug 30 14:09:25 2006 From: fahooper at trapo.com (Fred Hooper) Date: Wed, 30 Aug 2006 15:09:25 -0400 Subject: [AccessD] Esc key bounce in Preview In-Reply-To: <000001c6cbaf$4f84dae0$2e01a8c0@fredxp> Message-ID: <004101c6cc67$d02fa900$2e01a8c0@fredxp> Since there was no response, I thought I'd post my solution: After some experimentation, the simplest reliable answer was For intT = 1 to 2 Sleep 1 DoEvents Next before each .OpenForm of the sequential reports. This has removed the effect of key bounce from my cheap keyboard. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Tuesday, August 29, 2006 5:09 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Esc key bounce in Preview I sequentially preview 1-10 reports from a single Preview Reports button. For an example of 5 reports, if I close them with the X in the upper-right, everything is fine. But if I close them by pressing the Esc key some of them close before they are visible. It appears to me that the Esc key is active for longer than it takes to open the next report. I've thought of enforcing a time period between reports, but I've tried so hard to make the app as quick as possible that I hate to slow it down on purpose. Any ideas? Thanks, Fred Hooper From accessd at shaw.ca Wed Aug 30 15:05:12 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 30 Aug 2006 13:05:12 -0700 Subject: [AccessD] Esc key bounce in Preview In-Reply-To: <004101c6cc67$d02fa900$2e01a8c0@fredxp> Message-ID: <0J4T001Z2UFUPH20@l-daemon> Very sharp Fred. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Wednesday, August 30, 2006 12:09 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Esc key bounce in Preview Since there was no response, I thought I'd post my solution: After some experimentation, the simplest reliable answer was For intT = 1 to 2 Sleep 1 DoEvents Next before each .OpenForm of the sequential reports. This has removed the effect of key bounce from my cheap keyboard. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Tuesday, August 29, 2006 5:09 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Esc key bounce in Preview I sequentially preview 1-10 reports from a single Preview Reports button. For an example of 5 reports, if I close them with the X in the upper-right, everything is fine. But if I close them by pressing the Esc key some of them close before they are visible. It appears to me that the Esc key is active for longer than it takes to open the next report. I've thought of enforcing a time period between reports, but I've tried so hard to make the app as quick as possible that I hate to slow it down on purpose. Any ideas? Thanks, Fred Hooper -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From snegus at ovasia.org Wed Aug 30 23:03:13 2006 From: snegus at ovasia.org (Stephen Negus) Date: Thu, 31 Aug 2006 12:03:13 +0800 Subject: [AccessD] Techniques for creating Evaluation Version of Applications In-Reply-To: Message-ID: <001001c6ccb2$687dd5c0$747ba8c0@onevoicelaptop> Thanks Rocky. This is exactly what I was looking for -- just wanting to make sure that I was thinking along the same lines. I appreciate your input. Stephen ------------------------------------------------------------------- Date: Mon, 28 Aug 2006 22:28:35 -0700 From: Rocky Smolin - Beach Access Software Stephen: It's pretty simple, really. I have a 16 character key which is stored in a front end table. It's kind of encrypted but since it's not viewable I guess it really doesn't need to be (like I break the expiration date into the month part, day part, and year part, and convert them into three different alphabetic characters and stash them in non sequential characters in the key). When the app starts, I decrypt the key and extract, among other things, the expiration date. So I just check that date against the clock/calendar and display 'License expired' and then Application.Quit. Since I also store the customer's name, when the app starts one of the text boxes on the opening form has 'Licensed To: " & Customer Name & "License Expires: " & Expiration Date. To stop them from cheating by turning back the date in the computer, every time the app starts I also save the current date in a table. If the current date is less than the last time the app was started I don't allow it to start. Really elementary stuff, but it works. As the expiration date of the app draws near, I display a pop-up which says 'your license will expire in xx days. Call Beach Access Software for a key to extend the license'. I have a customer tracking app which creates these keys based on the desired expiration date. So, I can call up their record in my customer tracking app, generate a new key based on whatever expiration date I want, then then email them the new key which they enter in the pop up, and extend the license. The key is kind of like a Microsoft key - 6 groups of four alphanumeric characters. Oh, yeah, the app is compiled into an mde and the database window is hidden, and the bypass key disabled and all that standard stuff. I don't use drop down menus, either, so I turn off the menu bar. HTH, Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com ------------------------------------------------------------- Stephen Negus wrote: Hi All, I was just wondering if anyone has any techniques that they use for creating evaluation versions of an Access application which "stops working" after a specified period of time (say 30 days) until it is registered (paid for). Thanks, Stephen From jwcolby at colbyconsulting.com Thu Aug 31 09:05:22 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 10:05:22 -0400 Subject: [AccessD] Using 4 gbytes of RAM Message-ID: <001401c6cd06$80a4a710$657aa8c0@m6805> Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting www.ColbyConsulting.com From accessd at shaw.ca Thu Aug 31 09:59:22 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 07:59:22 -0700 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <001401c6cd06$80a4a710$657aa8c0@m6805> Message-ID: <0J4V00EVDAY1F9E0@l-daemon> Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 7:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting 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 Thu Aug 31 10:25:24 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 31 Aug 2006 11:25:24 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E193CA@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3585B@ADGSERVER> I have 2GB in my home pc - XP Pro. I go over 1GB quite often. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Thursday, August 31, 2006 10:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim From jmhecht at earthlink.net Thu Aug 31 10:37:58 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Thu, 31 Aug 2006 08:37:58 -0700 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> Message-ID: Some of the computers we are selling (Desktop and laptop) come with 2 gigs installed. 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: Thursday, August 31, 2006 7:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 7:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting 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 Thu Aug 31 10:42:40 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 08:42:40 -0700 (PDT) Subject: [AccessD] Data-driven option buttons Message-ID: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur From artful at rogers.com Thu Aug 31 10:51:59 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 08:51:59 -0700 (PDT) Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> Message-ID: <20060831155159.4582.qmail@web88211.mail.re2.yahoo.com> I have three XP Pro boxes all running more than a GB of RAM. The oldest has only 1.5GB. My desktop development box has 2GB, and my notebook has 2GB as well. I consider that amount of RAM a godsend, because typically I'm running 6 or so apps simultaneously. Arthur ----- Original Message ---- From: Jim Lawrence To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 10:59:22 AM Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. From bchacc at san.rr.com Thu Aug 31 11:01:09 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 09:01:09 -0700 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> References: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> Message-ID: <44F707C5.9050606@san.rr.com> Arthur: I think simplest would be to create the maximum number of buttons in an option frame and hide the ones that aren't being used. You could adjust the width of the border using select case if you wanted, but a borderless option frame would even be easier. I assume then that the questions will be presented one at a time? Rocky artful at rogers.com wrote: > I think that I have asked this question before, but I can't find anything in my emails that pertains, so... > > Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: > > There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. > > For example: > > Q: On a scale of 1 to 5, do you consider yourself: > a) a Genius > b) quite smart but not a genius > c) about average > d) slower than most people I know > e) smarter than a cucumber but it's close > > I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. > > I can't figure out a cool way to do this. Any ideas, friends? > > TIA, > Arthur > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From andy at minstersystems.co.uk Thu Aug 31 12:03:40 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Thu, 31 Aug 2006 17:03:40 +0000 Subject: [AccessD] Data-driven option buttons Message-ID: <20060831160345.7BD252B676B@smtp.nildram.co.uk> My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: [AccessD] Data-driven option buttons Date: 31/08/06 15:45 I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur -- 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 artful at rogers.com Thu Aug 31 11:08:08 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 09:08:08 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <44F707C5.9050606@san.rr.com> Message-ID: <20060831160808.43936.qmail@web88202.mail.re2.yahoo.com> Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. Arthur ----- Original Message ---- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:01:09 PM Subject: Re: [AccessD] Data-driven option buttons Arthur: I think simplest would be to create the maximum number of buttons in an option frame and hide the ones that aren't being used. You could adjust the width of the border using select case if you wanted, but a borderless option frame would even be easier. I assume then that the questions will be presented one at a time? Rocky artful at rogers.com wrote: > I think that I have asked this question before, but I can't find anything in my emails that pertains, so... > > Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: > > There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. > > For example: > > Q: On a scale of 1 to 5, do you consider yourself: > a) a Genius > b) quite smart but not a genius > c) about average > d) slower than most people I know > e) smarter than a cucumber but it's close > > I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. > > I can't figure out a cool way to do this. Any ideas, friends? > > TIA, > Arthur > > > -- 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 ssharkins at setel.com Thu Aug 31 11:24:32 2006 From: ssharkins at setel.com (Susan Harkins) Date: Thu, 31 Aug 2006 12:24:32 -0400 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831160808.43936.qmail@web88202.mail.re2.yahoo.com> Message-ID: <004d01c6cd19$f1bc8c20$4e34fad1@SUSANONE> What you're really wanting then is to build these question gui's on the fly, right? You want the form to update for each question, according to the question's parameters, without actually providing the controls during design time. Um... ... Did I get that right? How many questions are there? Would it be feasible to just build each question as a subform and load, hide, and unhide as needed? Susan H. Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. From jwcolby at colbyconsulting.com Thu Aug 31 11:30:16 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 12:30:16 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> Message-ID: <002b01c6cd1a$be881170$657aa8c0@m6805> Jim, >I have never heard of a XP OS computer having more than a gig. You obviously aren't a gamer. Neither am I in fact but I do some serious multi-tasking. All of my machines have 2 gig in them right now with the exception of my wife's laptop which only has 512 mbytes and definitely needs more. All machines currently run Windows XP32 with the exception of my wife's which runs XP Home. In the case of the laptops, the hardware is indeed the limit since the laptops I have simply do not support more than 2 1gb sticks. As for my "desktops", the latest that I built uses the Asus M2N32-SLI: http://www.newegg.com/Product/Product.asp?Item=N82E16813131011 With an AMD Athlon 64 X2 3800+ http://www.newegg.com/Product/Product.asp?Item=N82E16819103735 And two sticks of Patriot eXtreme Performance 1GB 240-Pin DDR2 SDRAM http://www.newegg.com/Product/Product.asp?Item=N82E16820220142 This motherboard supports 4 1gb sticks, in fact they CLAIM to support 4 2gb sticks. Patriot claims that this motherboard will use 4 sticks of this 1gb ram. As for 2gb sticks, they are almost non-existant ATM but they are on the way. As for using other OSes I would like to. I have the MS action pack which includes various OSes although I screwed up and somehow got the disks separated from their sleeves - the sleeves have the key on them, and the product number on the disks NEVER match the product number on the sleeves - but that is a discussion for another day. I actually did use a different drive to load SBS 2003. It was a PITA because it wanted to do something on the net before I could even get the MB drivers loaded, however I stopped the install (Waaaaaay before it was finished it turns out), loaded the MB drivers which brought up the built in LAN, then went back in to windows and started the install over. It picked up where it left off and finished. At the very end it was asking for something I just didn't understand and I decided to stop at that point and punt since I needed to get this thing working and back to work. I had previously loaded a disk with Windows XP so I just swapped the disks and continued to run XP. BTW, this was last week BEFORE the oh so helpful SQL Server Gurus on that list told me I had to be a Notwork and SQL Server guru or I wasn't worth helping. 8-( So I do have a disk sitting here with SBS 2003 pretty much loaded though it wants something (don't remember what) that I wasn't prepared to give it. Perhaps someday I can put it back in and see if you or someone here can help me get it finished. William has been pushing SBS 2003 as a platform for some time and I thought it might be dead simple, but I guess I'm not quite dead enough? As for memory diagnostic, I have Memtest86 available. It runs standalone from a floppy, and I used it to help me OC this X2 3800. I managed to push it up from 2.0 GHz (clock speed) which AMD calls a 3.8ghz processor to about 2.45 GHz which (for the same core) AMD calls a 4.4+ GHz processor, while keeping Memtest86 happy, or shall we say that it ran overnight with no errors. Any higher clock than that and Memtest would start throwing errors. I'm not an overclocker, so a 20% oc with stability is just fine with me. All of that is using the stock cooling fan as well. Anyway, there you have it. Given that this machine will be a dedicated SQL Server, I thought I'd investigate putting another 2 gb in it, but before I do so I want to know that it will be used. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Thursday, August 31, 2006 10:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 7:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting 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 Thu Aug 31 11:36:07 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 09:36:07 -0700 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> Message-ID: <0J4V00CXYFF9INB0@l-daemon> Arthur: The only way I would attempt to do this would be to create a form as a class and then I would be able to generate a new form depending on the results. This is more of a VB method but I think it should fully work in Access. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 31, 2006 8:43 AM To: Access Developers discussion and problem solving Subject: [AccessD] Data-driven option buttons I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Thu Aug 31 11:37:20 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 31 Aug 2006 11:37:20 -0500 Subject: [AccessD] Data-driven option buttons In-Reply-To: <27245246.1157039283324.JavaMail.root@Sniper27> Message-ID: <000801c6cd1b$bbd223c0$0200a8c0@danwaters> Hi Arthur, If the answers have a fair amount of text, perhaps you could put them into text boxes where each text box is in a single record in a continuous form, and your question is placed in the header portion of the form. The user could just click on the answer. The text box could be raised to simulate a button. This avoids the 'how many answers' issue. I haven't done this, but it might be cool . . . Good Luck! Dan Waters -----Original Message----- Subject: [AccessD] Data-driven option buttons I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur From jwcolby at colbyconsulting.com Thu Aug 31 11:39:21 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 12:39:21 -0400 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> Message-ID: <002c01c6cd1c$047c2120$657aa8c0@m6805> Definitely a class. Pass in pointers to the controls to the class as the form opens. Store the control pointers in variables in the class, dimensioned Withevents. Withevents (after update) for the answer controls to "hear" the user's clicking on the controls. Discover the maximum number of answers ever encountered (yea, yea, but dynamically creating controls in Access is ...). Create the maximum number in advance. Hide/unhide the controls. Discover the label associated with a control (described here in the past, ask if you need and I'll find my code) Load the questions from the table and stuff them into the labels. Use the events from the answer controls to manipulate the integer control. Cool stuff, "easy" with classes and withevents. You could do it all directly in the form of course, and may want to initially to get it up and running, but if the app is very complex you may find another form which needs the same functionality and then having it in a class "just works". John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 31, 2006 11:43 AM To: Access Developers discussion and problem solving Subject: [AccessD] Data-driven option buttons I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Thu Aug 31 12:20:41 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 10:20:41 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831160808.43936.qmail@web88202.mail.re2.yahoo.com> Message-ID: <20060831172041.75931.qmail@web88206.mail.re2.yahoo.com> I solved it, and now have a "proof of concept" working nicely. This looks like a good direction into which to take this project. I did take the approach of creating enough buttons for all the choices and then in the OnCurrent event hiding the ones that are not needed. It works well. Arthur ----- Original Message ---- From: artful at rogers.com To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:08:08 PM Subject: Re: [AccessD] Data-driven option buttons Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. Arthur ----- Original Message ---- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:01:09 PM Subject: Re: [AccessD] Data-driven option buttons Arthur: I think simplest would be to create the maximum number of buttons in an option frame and hide the ones that aren't being used. You could adjust the width of the border using select case if you wanted, but a borderless option frame would even be easier. I assume then that the questions will be presented one at a time? Rocky artful at rogers.com wrote: > I think that I have asked this question before, but I can't find anything in my emails that pertains, so... > > Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: > > There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. > > For example: > > Q: On a scale of 1 to 5, do you consider yourself: > a) a Genius > b) quite smart but not a genius > c) about average > d) slower than most people I know > e) smarter than a cucumber but it's close > > I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. > > I can't figure out a cool way to do this. Any ideas, friends? > > TIA, > Arthur > > > -- 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Thu Aug 31 12:28:49 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 10:28:49 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <004d01c6cd19$f1bc8c20$4e34fad1@SUSANONE> Message-ID: <20060831172849.53385.qmail@web88204.mail.re2.yahoo.com> Thanks for the input, Susan; always much appreciated. I don't see the need for a sub-form, yet. My assumption would be that you select a questionnaire first (or a QID is passed in, whatever), and that the form will display only the questions in said questionnaire. So far I've only spent about .5 hours on it, but the concept and approach look rock-solid to me. There will be a table in which I record the answers to the questions asked, with appropriate FKs to Questionnaires and Respondents, but so far it appears that this structure will allow me to ask every query the client could possibly want. A simple join from RespondentAnswers to Questions will give me the answers' text, and so on. In the interests of completeness, I should point out that I sidestepped the situation in which open-ended text is permitted as an answer. However, the downstream problems in analyzing such answers usefully push me toward precluding them from the questionnaire in the first place. Perhaps the client will think otherwise. I will cross that bridge when we get there. Arthur ----- Original Message ---- From: Susan Harkins To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:24:32 PM Subject: Re: [AccessD] Data-driven option buttons What you're really wanting then is to build these question gui's on the fly, right? You want the form to update for each question, according to the question's parameters, without actually providing the controls during design time. Um... ... Did I get that right? How many questions are there? Would it be feasible to just build each question as a subform and load, hide, and unhide as needed? Susan H. Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Thu Aug 31 12:43:26 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 10:43:26 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831160345.7BD252B676B@smtp.nildram.co.uk> Message-ID: <20060831174326.80753.qmail@web88202.mail.re2.yahoo.com> It turned out to be trivial to populate the labels for the option group. In addition, the large problem with a combo box is that only one option is visible at a time. Given that only one question will be visible at a time, screen real estate is definitely not the issue, so my UI preference opts for an option group -- you can see all the available choices at once, which I deem superior in this context (not all contexts, of course, but in this one). As to simpler, I can't imagine that it gets much simpler than this: Private Sub Form_Current() With Me If Not .NewRecord Then .Answers_frame.Visible = True .Option5.Visible = Not IsNull(.Answer5) .Answer5_lbl.Caption = Nz(.Answer5, "") .Option4.Visible = Not IsNull(.Answer4) .Answer4_lbl.Caption = Nz(.Answer4, "") .Option3.Visible = Not IsNull(.Answer3) .Answer3_lbl.Caption = Nz(.Answer3, "") .Option2.Visible = Not IsNull(.Answer2) .Answer2_lbl.Caption = Nz(.Answer2, "") .Option1.Visible = Not IsNull(.Answer1) .Answer1_lbl.Caption = Nz(.Answer1, "") Else .Answers_frame.Visible = False End If End With End Sub ----- Original Message ---- From: Andy Lacey To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 1:03:40 PM Subject: Re: [AccessD] Data-driven option buttons My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk From rusty.hammond at cpiqpc.com Thu Aug 31 13:06:30 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Thu, 31 Aug 2006 13:06:30 -0500 Subject: [AccessD] Data-driven option buttons Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8A34@cpixchng-1.cpiqpc.net> Personally I like the option button look for a survey/questionnaire so I'm glad you have a solution, but just for the sake of exploring other options, would a list box have worked? It would show all of the options instead of just one at a time like a combo box. -----Original Message----- From: artful at rogers.com [mailto:artful at rogers.com] Sent: Thursday, August 31, 2006 12:43 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Data-driven option buttons It turned out to be trivial to populate the labels for the option group. In addition, the large problem with a combo box is that only one option is visible at a time. Given that only one question will be visible at a time, screen real estate is definitely not the issue, so my UI preference opts for an option group -- you can see all the available choices at once, which I deem superior in this context (not all contexts, of course, but in this one). As to simpler, I can't imagine that it gets much simpler than this: Private Sub Form_Current() With Me If Not .NewRecord Then .Answers_frame.Visible = True .Option5.Visible = Not IsNull(.Answer5) .Answer5_lbl.Caption = Nz(.Answer5, "") .Option4.Visible = Not IsNull(.Answer4) .Answer4_lbl.Caption = Nz(.Answer4, "") .Option3.Visible = Not IsNull(.Answer3) .Answer3_lbl.Caption = Nz(.Answer3, "") .Option2.Visible = Not IsNull(.Answer2) .Answer2_lbl.Caption = Nz(.Answer2, "") .Option1.Visible = Not IsNull(.Answer1) .Answer1_lbl.Caption = Nz(.Answer1, "") Else .Answers_frame.Visible = False End If End With End Sub ----- Original Message ---- From: Andy Lacey To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 1:03:40 PM Subject: Re: [AccessD] Data-driven option buttons My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk ********************************************************************** 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 Thu Aug 31 13:05:58 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 11:05:58 -0700 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831174326.80753.qmail@web88202.mail.re2.yahoo.com> Message-ID: <0J4V004SWJL0V370@l-daemon> Hi Arthur: The only thing you may be concern with is the gaps left on the screen when options are turned off but you can handle by setting the Top and Left properties on each object Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 31, 2006 10:43 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Data-driven option buttons It turned out to be trivial to populate the labels for the option group. In addition, the large problem with a combo box is that only one option is visible at a time. Given that only one question will be visible at a time, screen real estate is definitely not the issue, so my UI preference opts for an option group -- you can see all the available choices at once, which I deem superior in this context (not all contexts, of course, but in this one). As to simpler, I can't imagine that it gets much simpler than this: Private Sub Form_Current() With Me If Not .NewRecord Then .Answers_frame.Visible = True .Option5.Visible = Not IsNull(.Answer5) .Answer5_lbl.Caption = Nz(.Answer5, "") .Option4.Visible = Not IsNull(.Answer4) .Answer4_lbl.Caption = Nz(.Answer4, "") .Option3.Visible = Not IsNull(.Answer3) .Answer3_lbl.Caption = Nz(.Answer3, "") .Option2.Visible = Not IsNull(.Answer2) .Answer2_lbl.Caption = Nz(.Answer2, "") .Option1.Visible = Not IsNull(.Answer1) .Answer1_lbl.Caption = Nz(.Answer1, "") Else .Answers_frame.Visible = False End If End With End Sub ----- Original Message ---- From: Andy Lacey To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 1:03:40 PM Subject: Re: [AccessD] Data-driven option buttons My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at verizon.net Thu Aug 31 13:17:03 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Thu, 31 Aug 2006 14:17:03 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <001401c6cd06$80a4a710$657aa8c0@m6805> Message-ID: <0J4V00MYZK4K24M1@vms046.mailsrvcs.net> John, <> A. The OS must support it. B. Executables must be compiled for it. Where all the confusion comes in is in talking about address space vs memory. They are two separate things and physical memory is not utilized anything like your thinking. For a given processor / OS, there is a maximum amount of memory that can be addressed by any given process. This is called the virtual address space. The OS in order to run the process takes up some of that and is mapped into that virtual address space (it usually takes the upper half and there is only one copy mapped into each processes address space). To add to this, some of the space assigned for the process is also used for the OS. Some of that is swappable (can be moved to the swap file it needed) or resident (must always stay in physical memory). Now it gets a little complicated. Each process is given a working set, that is a number of memory pages it can use at any given time. In addition to that there is a page frame table. This is a list of pages that a process is using and they are mapped into the virtual address space. In other words a program *thinks* it can address 4GB of space, but until it wants it, it's not tracked. For each page table entry, the OS keeps track of the virtual address space that it's mapped to and if the page is in the current working set, on the modified page or free page lists, or if it has been paged out to disk. For the working sets, most OS's have a couple different settings that can be played with: Working set default. Working set quota. Working set Extent. Working set increment. Working set decrement. To keep track of physical memory, there are two other lists in the OS: Free page list Modified page list The free page list is use to keep track of physical pages that are available for use by any process. The modified list are physical pages that have been modified by a process, but have not yet been written out to the page file (I'll get to this in a minute). They also have some internal settings to control page faulting. When a process is created, it starts at the default working set size. As the process needs more memory (ie. uses a variable) the OS adds an entry to the page frame table, grabs a page of memory from the free page list, and assigns it to the working set. Once the processes working set is used up, the OS sees if it can be expanded. If so, it expands by the increment. It does this until it reaches the working set extent. If a process still needs more memory, it needs to give up a page in it's working set. The OS takes one of the working set pages, writes it to the modified page list if it's been changed or the free page list if it has not (it's written to the bottom of the list), then grabs a new page from the from the top of the free page list and puts it in the working set. This process continues on. If a process no longer needs the memory, it's released from the working set and put back on the free page list. In the background as part of the OS is a process called the swapper, which controls all this. It monitors the free page list. If not enough free memory is available, it takes the pages from the modified page list, writes them to the page file on disk, and then moves those pages to the bottom of the free page list. What happens if a process needs a page back that it gave up from it's working set? First the OS checks if it is on either the free or modified page lists. If so, this is called a soft fault and the OS can easily move the page back into the working set. If however it was written to the page file on disk (because the OS ran low on physical memory), it's a hard fault. Last, if the OS runs really low on memory, it can elect to swap out a process and it's entire working set. It will do this only if: 1. The modified page list has been flushed. 2. All processes working sets have been trimmed back to the working set quota. Swapping is expensive and done only as a last resort. A process will also swap out if the overall number or processes allowed to be memory resident at one time has been exceeded. I haven't explained everything, like balance set slots, etc. But that's the way virtual memory works in a nutshell. It varies by the OS, but that's been the model used by VMS, NT, XP, etc. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 10:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting www.ColbyConsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fhtapia at gmail.com Thu Aug 31 13:40:23 2006 From: fhtapia at gmail.com (Francisco Tapia) Date: Thu, 31 Aug 2006 11:40:23 -0700 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> References: <001401c6cd06$80a4a710$657aa8c0@m6805> <0J4V00EVDAY1F9E0@l-daemon> Message-ID: My work laptop is equipped w/ 2 gig. XP(32) will only handle up to 4gig, Going to XP(64) will allow you to use more memory but at a price, that being reliable drivers for your hardware. x64 is still a small market, and thus manufacturers don't typically test their 64 counterpart drivers as well, some even prevent installing the 32bit driver on the 64bit OS. :( My wife's laptop is a x64 cpu, but she's running the 32bit OS because of the drivers situation. btw, Windows 2003 std is also limited to 4gb, you'd want to go w/ enterprise to go beyond that limit. On 8/31/06, Jim Lawrence wrote: > Hi John: > > I have never heard of a XP OS computer having more than a gig. All other > systems using larger amounts of memory, that I am aquatinted with, are > servers of various kinds which are suppose to better at managing memory and > processes. Your limitations will definitely be the OS before the hardware. > > I would recommend that you try Window 2003 server standard. It is totally > brain-dead to install; takes about an hour and a half to install (DVDs are > slow) and asks once whether you want to use it as a domain controller. I use > one as a work-station and its performance is head and shoulders above XP. It > is easier to manage and it definitely uses memory better. > > Here is a free download that is supposed to do memory diagnostics app for > windows: > http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia > gnostic.shtml > > >From M$: > http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi > .mspx > > What type of motherboard do you have: ASUS, GigaByte ...? > > > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby > Sent: Thursday, August 31, 2006 7:05 AM > To: 'Access Developers discussion and problem solving'; > dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. > Subject: [AccessD] Using 4 gbytes of RAM > > Is anyone using a machine with more than two gig of Ram? I am reading > things about doing this and there seems to be a lot of confusion on the > matter. Much of the confusion seems to come from the fact that until the 64 > bit versions of the X86 processors, the "internals" of the processor were > all 32 bits which limited direct generation of addresses to 4 gig. All of > my machines are 64 bit (AMD) processors so theoretically they can use more > than 4 gig but how? > > Everyone seems to agree that in XP32, only 4 gig is available to work with > and that things like video cards and other "machine stuff" eats into that. > Thus regardless of anything, you will end up with less than 4 gig due to > that, perhaps as little as 3.25 gig. After that, confusion reigns, at least > in my mind. > > Understand that I am discussing Windows XP 32 specifically, although anyone > is welcome to chip in what they "know" regarding other windows versions as > long as they specify what version they are discussing. > > The next thing that is discussed is that the OS itself reserves 2 gig for > itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH > APPLICATION, implying that any application can have / use up to 2 gig. > > Some claim that if you have 4 gig, the swap file won't be used since that is > part of the 4 gig available. It seems illogical since each application can > use up to 2 gig. However I have created a separate partition to hold my > swap file and tried to create one of 6 gig and Windows refused, limiting the > size of the swap file to 4 gig. > > So I am trying to figure out what the reality is. If a machine has 4 gig > physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the > .75 gig of physical ram simply unused? Is it used by the OS for buffers? > What about the swap file? If you have a 4 gig swap file, would you have > 7.25 "total available memory" for Windows use? Does this indeed then limit > the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? > And what happens if you manage to get (for the sake of argument) 8 gig > stuffed into a machine. Some motherboards claim to handle that much but can > Windows XP 32 actually use it? > > Can Windows XP 64? If you need this much memory is Windows XP 64 a way to > get at the memory? If you are still using 32 bit apps, will it actually map > as much as 2 gig of physical memory to the 32 bit apps so that (for example) > 3 high powered memory hungry 32 bit apps actually had 2 gig available to > each of them all the time? > > If anyone has run across any authoritive (on-line) reading on the subject I > would love to look at it. > > John W. Colby > Colby Consulting > 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 > -- -Francisco http://sqlthis.blogspot.com | Tsql and More... From artful at rogers.com Thu Aug 31 13:42:46 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 11:42:46 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <0J4V004SWJL0V370@l-daemon> Message-ID: <20060831184246.82314.qmail@web88204.mail.re2.yahoo.com> You're right, in a totally bulletproof sense, but in the form I use to add new questions and answers, I don't let you supply Answer3 unless you already supplied Answer1 and Answer2, so this turns out to be functionally a non-issue. But still, you are correct. Arthur ----- Original Message ---- From: Jim Lawrence To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 2:05:58 PM Subject: Re: [AccessD] Data-driven option buttons Hi Arthur: The only thing you may be concern with is the gaps left on the screen when options are turned off but you can handle by setting the Top and Left properties on each object Jim From artful at rogers.com Thu Aug 31 13:47:30 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 11:47:30 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8A34@cpixchng-1.cpiqpc.net> Message-ID: <20060831184730.24430.qmail@web88209.mail.re2.yahoo.com> A listbox would have worked and not been very complicated to write, but frankly I don't like the look of it, especially in this context. I think the dynamic option buttons look way slicker. Arthur ----- Original Message ---- From: rusty.hammond at cpiqpc.com To: accessd at databaseadvisors.com Sent: Thursday, August 31, 2006 2:06:30 PM Subject: Re: [AccessD] Data-driven option buttons Personally I like the option button look for a survey/questionnaire so I'm glad you have a solution, but just for the sake of exploring other options, would a list box have worked? It would show all of the options instead of just one at a time like a combo box. From jwcolby at colbyconsulting.com Thu Aug 31 13:48:37 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 14:48:37 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00MYZK4K24M1@vms046.mailsrvcs.net> Message-ID: <003401c6cd2e$12c751c0$657aa8c0@m6805> Jim, That "in a nutshell" is a very nice explanation. I understand (at a conceptual level) all of this. I used to be in hardware long ago (back when we were swapping memory up above 1 MEGABYTE), and knew the processor instructions that did this stuff etc. I left the hardware side really just about the '386 era. I never really learned the "ring" stuff and protection beyond generalities as it wasn't really added until the '386. What I am trying to discover now, again in generalities, is what really happens specifically in XP32 (cause that's what I am running now) if you add more memory. I assume that memory up to the point where the amount runs into the issue of memory mapped onto hardware (video cards and the like) will just be added to the available pool and used as needed. But (for example) if 4 gig is in a machine and the OS maps .75 gig to "hardware", is the .75 gig of real physical ram just sitting there unused? In the end it may not make any difference in terms of the decision to buy 3 or 4 gig. For example putting a single stick into a MB for an AMD64 can cause performance issues so perhaps you buy two just to get the performance increase even if part of it just sits there. Just kinda "nice to know" on that one. What happens with the swap file and physical ram is a different story though. As I discovered, I cannot even make the swap file larger than 4 gig which implies that the OS decides that since it can only ever use 4 gig, that is the max it can swap out anyway. But that is a rather short sighted way of viewing things. Let's say for the sake of argument that you are doing some video editing and that app asks for 2 gig. You also run some other memory hungry something such as playing a modern game, and it asks for 2 gig. In theory each app should be able to ask for (but not necessarily receive) 2 gig of real physical memory. Just to push the envelope let's say that you load FOUR different memory hog programs and each asks for 2 gig of ram. That is 8 gig asked for. Obviously only 4 gig is physically present, and apparently to XP only 4 gig is truly available, but in theory the swap file should be able to go to 8, 16 or even 32 gig to handle the overflow that has to be swapped in and out. Limiting the swap file to 4 gig seems to be a pretty serious and rather arbitrary limitation here. We have been swapping memory since the dark ages, way before I ever got into the business. It seems that an OS as recent as XP would have opened things up a bit. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Thursday, August 31, 2006 2:17 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM John, <> A. The OS must support it. B. Executables must be compiled for it. Where all the confusion comes in is in talking about address space vs memory. They are two separate things and physical memory is not utilized anything like your thinking. For a given processor / OS, there is a maximum amount of memory that can be addressed by any given process. This is called the virtual address space. The OS in order to run the process takes up some of that and is mapped into that virtual address space (it usually takes the upper half and there is only one copy mapped into each processes address space). To add to this, some of the space assigned for the process is also used for the OS. Some of that is swappable (can be moved to the swap file it needed) or resident (must always stay in physical memory). Now it gets a little complicated. Each process is given a working set, that is a number of memory pages it can use at any given time. In addition to that there is a page frame table. This is a list of pages that a process is using and they are mapped into the virtual address space. In other words a program *thinks* it can address 4GB of space, but until it wants it, it's not tracked. For each page table entry, the OS keeps track of the virtual address space that it's mapped to and if the page is in the current working set, on the modified page or free page lists, or if it has been paged out to disk. For the working sets, most OS's have a couple different settings that can be played with: Working set default. Working set quota. Working set Extent. Working set increment. Working set decrement. To keep track of physical memory, there are two other lists in the OS: Free page list Modified page list The free page list is use to keep track of physical pages that are available for use by any process. The modified list are physical pages that have been modified by a process, but have not yet been written out to the page file (I'll get to this in a minute). They also have some internal settings to control page faulting. When a process is created, it starts at the default working set size. As the process needs more memory (ie. uses a variable) the OS adds an entry to the page frame table, grabs a page of memory from the free page list, and assigns it to the working set. Once the processes working set is used up, the OS sees if it can be expanded. If so, it expands by the increment. It does this until it reaches the working set extent. If a process still needs more memory, it needs to give up a page in it's working set. The OS takes one of the working set pages, writes it to the modified page list if it's been changed or the free page list if it has not (it's written to the bottom of the list), then grabs a new page from the from the top of the free page list and puts it in the working set. This process continues on. If a process no longer needs the memory, it's released from the working set and put back on the free page list. In the background as part of the OS is a process called the swapper, which controls all this. It monitors the free page list. If not enough free memory is available, it takes the pages from the modified page list, writes them to the page file on disk, and then moves those pages to the bottom of the free page list. What happens if a process needs a page back that it gave up from it's working set? First the OS checks if it is on either the free or modified page lists. If so, this is called a soft fault and the OS can easily move the page back into the working set. If however it was written to the page file on disk (because the OS ran low on physical memory), it's a hard fault. Last, if the OS runs really low on memory, it can elect to swap out a process and it's entire working set. It will do this only if: 1. The modified page list has been flushed. 2. All processes working sets have been trimmed back to the working set quota. Swapping is expensive and done only as a last resort. A process will also swap out if the overall number or processes allowed to be memory resident at one time has been exceeded. I haven't explained everything, like balance set slots, etc. But that's the way virtual memory works in a nutshell. It varies by the OS, but that's been the model used by VMS, NT, XP, etc. Jim. From scapistrant at symphonyinfo.com Thu Aug 31 15:40:47 2006 From: scapistrant at symphonyinfo.com (Steve Capistrant) Date: Thu, 31 Aug 2006 15:40:47 -0500 Subject: [AccessD] CPU and locks References: <000601c6cd2b$92e86770$4b4f5a46@Symphony.local> Message-ID: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Dear List, We have an Access 2000 app that has been running for years at a customer's site, provided to 100 users via Citrix profiles. In daily practice, there are usually 5 to 15 people logged in at any given time. The techies running the server are belly-aching about resource utilization. They note that CPU utlization per user zips up to 25% or 30% of server capacity when they perform routine actions (like applying filter rules to search on a form). It drops down to zero after a second or two. But they say "do the math" -- just 4 users doing stuff is going to completely max out our servers. We (our development team) are scratching our heads. This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc. Nothing's really changed over the years. Is it just their awareness that has changed? Are these techies just freaking out because they have a new Performance Monitoring tool? The other observation they make that might cause overuse of CPU is something new to me: When you look at START > Control Panel > Adminstrative Tools > Computer Management > Shared Folders > Open Files.... ....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant.. Thank you ! Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Main: 763-391-7400 ext 801 Toll Free: 888-357-1373 ext 801 Direct: 612-237-0075 From artful at rogers.com Thu Aug 31 16:10:04 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 14:10:04 -0700 (PDT) Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <20060831211004.79381.qmail@web88209.mail.re2.yahoo.com> What I have to offer may or may not be useful. Mostly it is a counter-example. I had about 70 users all hitting a TS box with 2GB of RAM, and the SQL db lived on another box. Users in several cities across North America. Never ONCE a performance problem. In fact, the sickening thing from my point of view: it was quicker to hit that remote box than to hit my local instance of exactly the same DB. We never experienced any collisions or deadlocks (polishing my nails for clever coding ), and we never suffered a performance issue or a deadlock. It simply did not happen, even once in about 4 years. I almost wish that it HAD happened so I would have a problem to investigate, but it never did. I ran the resource allocation stuff but it never presented a problem. Using TS, the initial user grabs a chunk of memory and everyone else uses re-entrant code, so the additional mem-grabs were tiny in comparison. Two GB sufficed to serve a potential 70 users (in reality, only maybe 40 were hitting the system at once, given time-zone variations etc.), but the point is that I did not have to throw heavy hardware at this problem, and everything worked beautifully. Admittedly, when 50 users were aboard, the CPU usage went way up, but that is only to be expected. More important, nobody whined about the performance delays. (Other facts of potential importance: it was an Access ADP app whose every object was driven by a sproc or udf; nothing was dynamic SQL. The server was not awesome, merely a P4 with 2GB of RAM. The OS was w2K TS with appropriate patches. The connections were all quick.We didn't bother with Citrix since TS gave us everything we needed.) Arthur ----- Original Message ---- From: Steve Capistrant To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 4:40:47 PM Subject: [AccessD] CPU and locks Dear List, We have an Access 2000 app that has been running for years at a customer's site, provided to 100 users via Citrix profiles. In daily practice, there are usually 5 to 15 people logged in at any given time. The techies running the server are belly-aching about resource utilization. They note that CPU utlization per user zips up to 25% or 30% of server capacity when they perform routine actions (like applying filter rules to search on a form). It drops down to zero after a second or two. But they say "do the math" -- just 4 users doing stuff is going to completely max out our servers. We (our development team) are scratching our heads. This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc. Nothing's really changed over the years. Is it just their awareness that has changed? Are these techies just freaking out because they have a new Performance Monitoring tool? The other observation they make that might cause overuse of CPU is something new to me: When you look at START > Control Panel > Adminstrative Tools > Computer Management > Shared Folders > Open Files.... ....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant.. Thank you ! Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Main: 763-391-7400 ext 801 Toll Free: 888-357-1373 ext 801 Direct: 612-237-0075 -- 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 Aug 31 16:13:12 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 01 Sep 2006 07:13:12 +1000 Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> References: <000601c6cd2b$92e86770$4b4f5a46@Symphony.local>, <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <44F7DD88.24323.1D73FE4@stuart.lexacorp.com.pg> On 31 Aug 2006 at 15:40, Steve Capistrant wrote: > Dear List, > > We have an Access 2000 app that has been running for years at a customer's > site, provided to 100 users via Citrix profiles. In daily practice, there > are usually 5 to 15 people logged in at any given time. > > The techies running the server are belly-aching about resource utilization. > They note that CPU utlization per user zips up to 25% or 30% of server > capacity when they perform routine actions (like applying filter rules to > search on a form). It drops down to zero after a second or two. But they > say "do the math" -- just 4 users doing stuff is going to completely max out > our servers. There's nothing wrong with an application using lots of CPU cycles if they are available as long as it is well written and yields to other applications. This sort of thing doesn't scale linearly. The only way to find out what will "max out" your servers is to keep loading additional sessions until you start to see a degradation in performance. > > We (our development team) are scratching our heads. This is normal for > Access. It grabs as much resources as it can get to perform data access > requests. And I've never heard of a server blowing up from too many > simultaneous requests. Windows is designed to handle process threading > reasonably well, putting things in order, assigning priorities, reserving > some CPU for critical processes, etc. > > Nothing's really changed over the years. Is it just their awareness that > has changed? Are these techies just freaking out because they have a new > Performance Monitoring tool? > I suspect you have hit the nail on the head :-) > The other observation they make that might cause overuse of CPU is something > new to me: When you look at START > Control Panel > Adminstrative Tools > > Computer Management > Shared Folders > Open Files.... > > ....they note that most of the MS Access item in this view are showing large > numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is > something I can't explain. It's a standard FE/BE deployment, so an ldb gets > generated at both the FE and BE levels. But what is this huge number of > locks? Stranded ldbs? Some calculus involving the number of simultaneous > users? I told them I'd explore what this meant.. > Huge? They don't know much about databases and record locking, do they? Since the default MaxLockPerFile for Jet is 9500, I certainly wouldn't be getting concerned over a few dozen. (And it's only that small because the standard maximum locks per connection on Novell servers is 10,000 and MS wanted to avoid problems with accessing data stored on them) Go to Tools-Options-Advanced. Set Default Record Locking to "All records" and see how many locks you start getting then :-) > Thank you ! > > Steve Capistrant > Symphony Information Services > scapistrant at symphonyinfo.com > www.symphonyinfo.com > Main: 763-391-7400 ext 801 > Toll Free: 888-357-1373 ext 801 > Direct: 612-237-0075 > -- Stuart From accessd at shaw.ca Thu Aug 31 16:44:27 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 14:44:27 -0700 Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <0J4V00L93TP4DI40@l-daemon> Hi Steve: You hit the answer right on: This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc We had 65 users hitting a Server (only 512 MGs, held the BE Access and a MS SQL 2000 that actually held the data). Thought the connection was not through Citrix when one person hit utilization would jump to 100% and there were as many as 20 on at any one. No one ever complained that they could not get on or that the system is too slow. I am sure if you had 8GB of RAM, on a box and started up one copy of Access it would show 100% utilization. HTH Jim From bheygood at abestsystems.com Thu Aug 31 17:20:32 2006 From: bheygood at abestsystems.com (Bob Heygood) Date: Thu, 31 Aug 2006 15:20:32 -0700 Subject: [AccessD] Query Parameter In-Reply-To: <20060831184730.24430.qmail@web88209.mail.re2.yahoo.com> Message-ID: I have a query that I execute from code. It has criteria and an alias that references a form control value. This query works fine when run from the db window. But complains that "Too few parameters..1 expected.", when run from my code. TIA Bob Heygood From bchacc at san.rr.com Thu Aug 31 18:13:26 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 16:13:26 -0700 Subject: [AccessD] Query Parameter In-Reply-To: References: Message-ID: <44F76D16.1050906@san.rr.com> How do you run it from code? db.Execute? Rocky Bob Heygood wrote: > I have a query that I execute from code. > It has criteria and an alias that references a form control value. > This query works fine when run from the db window. > But complains that "Too few parameters..1 expected.", when run from my code. > > TIA > > Bob Heygood > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From jimdettman at verizon.net Thu Aug 31 18:28:32 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Thu, 31 Aug 2006 19:28:32 -0400 Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <0J4V00M99YJP2053@vms046.mailsrvcs.net> Steve, <> Yup that's normal and as you said, it yields to other processes. As long as there is nothing else, it will take what it can get. In fact, to back this up, there is a MSKB article out there because so many thought is was "abnormal" to see Access use 100% of the CPU. <<....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant..>> Large numbers? 15 to 42 is nothing; it's a database product, it's supposed to lock things (and lots of them). Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Capistrant Sent: Thursday, August 31, 2006 4:41 PM To: Access Developers discussion and problem solving Subject: [AccessD] CPU and locks Dear List, We have an Access 2000 app that has been running for years at a customer's site, provided to 100 users via Citrix profiles. In daily practice, there are usually 5 to 15 people logged in at any given time. The techies running the server are belly-aching about resource utilization. They note that CPU utlization per user zips up to 25% or 30% of server capacity when they perform routine actions (like applying filter rules to search on a form). It drops down to zero after a second or two. But they say "do the math" -- just 4 users doing stuff is going to completely max out our servers. We (our development team) are scratching our heads. This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc. Nothing's really changed over the years. Is it just their awareness that has changed? Are these techies just freaking out because they have a new Performance Monitoring tool? The other observation they make that might cause overuse of CPU is something new to me: When you look at START > Control Panel > Adminstrative Tools > Computer Management > Shared Folders > Open Files.... ....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant.. Thank you ! Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Main: 763-391-7400 ext 801 Toll Free: 888-357-1373 ext 801 Direct: 612-237-0075 From bheygood at abestsystems.com Thu Aug 31 18:35:17 2006 From: bheygood at abestsystems.com (Bob Heygood) Date: Thu, 31 Aug 2006 16:35:17 -0700 Subject: [AccessD] Query Parameter In-Reply-To: <44F76D16.1050906@san.rr.com> Message-ID: Yeah. Tried to supply the !Forms.... to the query parameters box even. No luck.... Bob -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 31, 2006 4:13 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Query Parameter How do you run it from code? db.Execute? Rocky Bob Heygood wrote: > I have a query that I execute from code. > It has criteria and an alias that references a form control value. > This query works fine when run from the db window. > But complains that "Too few parameters..1 expected.", when run from my code. > > TIA > > Bob Heygood > > > -- 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 Thu Aug 31 18:46:34 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 16:46:34 -0700 Subject: [AccessD] File Copy Message-ID: <44F774DA.7080308@san.rr.com> Dear List: When I run a chunk of code which includes: FileCopy "Cressona Template.xls", Me.txtOutputFileName it runs fine. If I run it again, however, without closing the form and reopening it (but deleting the target file specified in Me.txtOutputFileName that was created the first time), I get an error 52 - bad file number. Does anyone know why? MTIA, Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Thu Aug 31 18:55:14 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 16:55:14 -0700 Subject: [AccessD] Query Parameter In-Reply-To: References: Message-ID: <44F776E2.7030609@san.rr.com> I usually make a public function in a module which return the value from the forms and call that function in the criteria line on the QBE grid. Don't forget the () in the call on the QBE grid. Rocky Bob Heygood wrote: > Yeah. > Tried to supply the !Forms.... to the query parameters box even. No luck.... > > > Bob > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 31, 2006 4:13 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Query Parameter > > > How do you run it from code? db.Execute? > > Rocky > > > Bob Heygood wrote: > >> I have a query that I execute from code. >> It has criteria and an alias that references a form control value. >> This query works fine when run from the db window. >> But complains that "Too few parameters..1 expected.", when run from my >> > code. > >> TIA >> >> Bob Heygood >> >> >> >> > > -- > 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 wdhindman at dejpolsystems.com Thu Aug 31 19:13:54 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Thu, 31 Aug 2006 20:13:54 -0400 Subject: [AccessD] File Copy References: <44F774DA.7080308@san.rr.com> Message-ID: <012b01c6cd5b$83bbd180$153ce944@50NM721> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgBadFileNameOrNumber.asp William Hindman ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 31, 2006 7:46 PM Subject: [AccessD] File Copy > Dear List: > > When I run a chunk of code which includes: > > FileCopy "Cressona Template.xls", Me.txtOutputFileName > > it runs fine. If I run it again, however, without closing the form and > reopening it (but deleting the target file specified in > Me.txtOutputFileName that was created the first time), I get an error > 52 - bad file number. > > Does anyone know why? > > MTIA, > > 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 Thu Aug 31 20:58:32 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 18:58:32 -0700 Subject: [AccessD] File Copy In-Reply-To: <012b01c6cd5b$83bbd180$153ce944@50NM721> References: <44F774DA.7080308@san.rr.com> <012b01c6cd5b$83bbd180$153ce944@50NM721> Message-ID: <44F793C8.3000005@san.rr.com> That's what come up with help as well. Covers everything but FileCopy. :( Rocky William Hindman wrote: > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgBadFileNameOrNumber.asp > > William Hindman > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Thursday, August 31, 2006 7:46 PM > Subject: [AccessD] File Copy > > > >> Dear List: >> >> When I run a chunk of code which includes: >> >> FileCopy "Cressona Template.xls", Me.txtOutputFileName >> >> it runs fine. If I run it again, however, without closing the form and >> reopening it (but deleting the target file specified in >> Me.txtOutputFileName that was created the first time), I get an error >> 52 - bad file number. >> >> Does anyone know why? >> >> MTIA, >> >> 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 >> >> > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Thu Aug 31 21:19:58 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 31 Aug 2006 19:19:58 -0700 Subject: [AccessD] CPU and locks In-Reply-To: <0J4V00M99YJP2053@vms046.mailsrvcs.net> References: <0J4V00M99YJP2053@vms046.mailsrvcs.net> Message-ID: <44F798CE.9020108@shaw.ca> Are these file locks, record locks or page locks they are looking at? Tell them to look at the priority of the threads Access is running. The are all low priority which are immediately relinguished. If Microsoft Access is just idling, It does work to read ahead on data, to fill and refresh the cache, to check on potential multi-user issues. Even just to watch for a keystoke or a mouse move. It also polls the windows message queues. Access won't peg out at 100% in an idle state with nothing else running as the kernel is also doing it's bit. From an old MSKB. Microsoft Access was originally designed to operate in the cooperative multitasking environment that Microsoft Windows 3.x provided. The idle processing code built into Microsoft Access was designed to ensure that Microsoft Access does not begin processing background tasks during brief periods of inactivity, such as when a user pauses between keystrokes. In the preemptive multitasking environment of Microsoft Windows 95 and Microsoft Windows NT, this idle processing code causes Microsoft Access to use 100 percent of CPU resources briefly during idle time. Microsoft Access polls its message queues for activity for about the first 30 seconds of idle time. During this time, Performance Monitor reports that Microsoft Access is using 100 percent of CPU resources. NOTE: Microsoft Access only uses CPU resources that are idle. If your computer has other processes that are ready to run, it will run them. Microsoft Access does not degrade performance of other applications as it polls its message queues. Jim Dettman wrote: >Steve, > ><Access. It grabs as much resources as it can get to perform data access >requests. And I've never heard of a server blowing up from too many >simultaneous requests. Windows is designed to handle process threading >reasonably well, putting things in order, assigning priorities, reserving >some CPU for critical processes, etc.>> > > Yup that's normal and as you said, it yields to other processes. As long >as there is nothing else, it will take what it can get. In fact, to back >this up, there is a MSKB article out there because so many thought is was >"abnormal" to see Access use 100% of the CPU. > > ><<....they note that most of the MS Access item in this view are showing >large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This >is something I can't explain. It's a standard FE/BE deployment, so an ldb >gets generated at both the FE and BE levels. But what is this huge number >of locks? Stranded ldbs? Some calculus involving the number of >simultaneous users? I told them I'd explore what this meant..>> > > Large numbers? 15 to 42 is nothing; it's a database product, it's >supposed to lock things (and lots of them). > >Jim. > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Capistrant >Sent: Thursday, August 31, 2006 4:41 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] CPU and locks > >Dear List, > >We have an Access 2000 app that has been running for years at a customer's >site, provided to 100 users via Citrix profiles. In daily practice, there >are usually 5 to 15 people logged in at any given time. > >The techies running the server are belly-aching about resource utilization. >They note that CPU utlization per user zips up to 25% or 30% of server >capacity when they perform routine actions (like applying filter rules to >search on a form). It drops down to zero after a second or two. But they >say "do the math" -- just 4 users doing stuff is going to completely max out >our servers. > >We (our development team) are scratching our heads. This is normal for >Access. It grabs as much resources as it can get to perform data access >requests. And I've never heard of a server blowing up from too many >simultaneous requests. Windows is designed to handle process threading >reasonably well, putting things in order, assigning priorities, reserving >some CPU for critical processes, etc. > >Nothing's really changed over the years. Is it just their awareness that >has changed? Are these techies just freaking out because they have a new >Performance Monitoring tool? > >The other observation they make that might cause overuse of CPU is something >new to me: When you look at >START > Control Panel > Adminstrative Tools > Computer Management > Shared >Folders > Open Files.... > >....they note that most of the MS Access item in this view are showing large >numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is >something I can't explain. It's a standard FE/BE deployment, so an ldb gets >generated at both the FE and BE levels. But what is this huge number of >locks? Stranded ldbs? Some calculus involving the number of simultaneous >users? I told them I'd explore what this meant.. > >Thank you ! > >Steve Capistrant >Symphony Information Services >scapistrant at symphonyinfo.com >www.symphonyinfo.com >Main: 763-391-7400 ext 801 >Toll Free: 888-357-1373 ext 801 >Direct: 612-237-0075 > > > > -- Marty Connelly Victoria, B.C. Canada From Gustav at cactus.dk Tue Aug 1 03:37:40 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 01 Aug 2006 10:37:40 +0200 Subject: [AccessD] $ Aligment in Combo Boxes Message-ID: Hi Julie It's not a bug. It is just that numbers are converted to strings as a combo only understands strings. A limitation you may call it. A simple work-around is to format your numbers to strings and use a font that displays any digit with the same width like MS Sans Serif. This font displays dot and comma at half the width of a digit, and the width of a digit equals two spaces. Now, decide for a maximum number to display, say 1 mio., and count the spaces this will fill with your chosen format. For the number to be displayed, count the digits, commas and dots and calculate how much it fills and deduct that from your maximum length. Convert that to spaces - use Space(n) - and prefix your formatted number string with this string of spaces to create a pseudo right align view. Use the full string as the entry in your combo. /gustav >>> prosoft6 at hotmail.com 31-07-2006 22:21:04 >>> This is driving me crazy..............my first item in a two column combo box is formatted in currency and the second is simply text. The currency will not right align! I have googled the topic and find many other questions about this problem with no answers that are simple and quick. Do I reall have to write a module to correct this? Sounds like a microsoft bug to me! Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From paul.hartland at fsmail.net Tue Aug 1 05:26:50 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Tue, 1 Aug 2006 12:26:50 +0200 (CEST) Subject: [AccessD] Time Conversion Message-ID: <4414201.1154428010815.JavaMail.www@wwinf3002> To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland From Gustav at cactus.dk Tue Aug 1 05:52:41 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 01 Aug 2006 12:52:41 +0200 Subject: [AccessD] Time Conversion Message-ID: Hi Paul The easiest method is to convert the time value to a double: dblHours = CDbl(datTime) * 24 For datTime = #4:30# it will return 4.5 and so on. /gustav >>> paul.hartland at fsmail.net 01-08-2006 12:26:50 >>> To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland From mastercafe at ctv.es Tue Aug 1 06:01:25 2006 From: mastercafe at ctv.es (MastercafeCTV) Date: Tue, 1 Aug 2006 13:01:25 +0200 Subject: [AccessD] Time Conversion In-Reply-To: <4414201.1154428010815.JavaMail.www@wwinf3002> Message-ID: <000701c6b559$d4de19c0$0500a8c0@masterintel> On access one day = 1 1 Day= 24h If you want this values in format Hour then only need multiply by 24 csng(#15:30:00#)*24 = 15.50 Hope this simple function can help you :-) Juan Menendez www.mastercafe.com info at mastercafe.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: martes, 01 de agosto de 2006 12:27 To: accessd Subject: [AccessD] Time Conversion Importance: High To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Tue Aug 1 06:29:39 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Tue, 1 Aug 2006 13:29:39 +0200 (CEST) Subject: [AccessD] Time Conversion Message-ID: <31121844.1154431779662.JavaMail.www@wwinf3002> Thanks for all replies sorted now, I had already tried the CDBl function ans was getting errors, found out it was cause the hours were returning in a string and not a date format.....What I would do without this list I do not know. Paul Hartland Message Received: Aug 01 2006, 12:03 PM From: "MastercafeCTV" To: "'Access Developers discussion and problem solving'" Cc: Subject: Re: [AccessD] Time Conversion On access one day = 1 1 Day= 24h If you want this values in format Hour then only need multiply by 24 csng(#15:30:00#)*24 = 15.50 Hope this simple function can help you :-) Juan Menendez www.mastercafe.com info at mastercafe.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: martes, 01 de agosto de 2006 12:27 To: accessd Subject: [AccessD] Time Conversion Importance: High To all, Sorry for the post I am sure I have seen this before but must be going mad as can't seem to find the examples, basically what I want to do is convert the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can anyone point me to this function please. Thanks in advance for any help on this. Paul Hartland -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 08:44:48 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 1 Aug 2006 08:44:48 -0500 Subject: [AccessD] SQL Server Migration Assistant Message-ID: <000c01c6b570$a8c47610$0200a8c0@danwaters> Just FYI - SQL Server Migration Assistant V1.0 was published yesterday. http://www.microsoft.com/downloads/details.aspx?familyid=d842f8b4-c914-4ac7- b2f3-d25fff4e24fb &displaylang=en I do hope that the hardware requirement of at least 1 GB of RAM isn't really that much of a requirement! I'm already maxed at 512 MB. Dan Waters From Jim.Hale at FleetPride.com Tue Aug 1 08:49:44 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Tue, 1 Aug 2006 08:49:44 -0500 Subject: [AccessD] duplicate function names Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE1F@corp-es01.fleetpride.com> good idea. Jim -----Original Message----- From: John Skolits [mailto:askolits at ot.com] Sent: Monday, July 31, 2006 10:41 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] duplicate function names Jim, I prefix all my library files with a "lbf_" (library file) prefix. This makes sure there is no confusion. You should come up with some kind of prefix of your own for library functions. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, July 31, 2006 7:11 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] duplicate function names This can be useful. You might have a 'generic' function in your library, but with some installations you need to do something a little different. With the function in the main database taking preference, you don't need to change the library. Dan Waters -----Original Message----- Subject: [AccessD] duplicate function names Maybe everyone but me knows this, but I just stumbled upon the fact that it is possible to have two functions with the same name coexist. If one is in a module in the current database and the other in a module in a referenced code library Access will use the function in the current database and ignore the version in the code library. Everything compiles and runs fine at least in access 2000. Whether or not this is useful or merely dangerous is a different question. Jim Hale -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/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 hollisvj at pgdp.usec.com Tue Aug 1 09:02:45 2006 From: hollisvj at pgdp.usec.com (Hollis, Virginia) Date: Tue, 01 Aug 2006 09:02:45 -0500 Subject: [AccessD] Nz for Fields Message-ID: <703BDA18A87DFA4CB265A86F42E4178D8D3BAF@c2k3exchange.pgdp.corp.usec.com> I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From Gustav at cactus.dk Tue Aug 1 09:22:25 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 01 Aug 2006 16:22:25 +0200 Subject: [AccessD] Nz for Fields Message-ID: Hi Virginia You don't even need Nz() for that: WR: ([WorkOrder] + (Chr(13) & Chr(10)) & [WorkRequest] /gustav >>> hollisvj at pgdp.usec.com 01-08-2006 16:02:45 >>> I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From bheid at appdevgrp.com Tue Aug 1 09:38:53 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 1 Aug 2006 10:38:53 -0400 Subject: [AccessD] [SPAM SUSPECT] Nz for Fields In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DFBAC5@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3576A@ADGSERVER> Why not try something like: WR: iif(not isnull([WorkOrder]),[WorkOrder] & Chr(13) & Chr(10) & [WorkRequest],[WorkRequest]) Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hollis, Virginia Sent: Tuesday, August 01, 2006 10:03 AM To: accessd at databaseadvisors.com Subject: [SPAM SUSPECT] [AccessD] Nz for Fields Importance: Low I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From bheid at appdevgrp.com Tue Aug 1 09:43:13 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 1 Aug 2006 10:43:13 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: Nz for Fields In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DFBAD0@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3576B@ADGSERVER> Good one Gustav. I always forget about that one. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 10:22 AM To: accessd at databaseadvisors.com Subject: [SPAM SUSPECT] Re: [AccessD] Nz for Fields Importance: Low Hi Virginia You don't even need Nz() for that: WR: ([WorkOrder] + (Chr(13) & Chr(10)) & [WorkRequest] /gustav >>> hollisvj at pgdp.usec.com 01-08-2006 16:02:45 >>> I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia From Chester_Kaup at kindermorgan.com Tue Aug 1 09:56:52 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 1 Aug 2006 09:56:52 -0500 Subject: [AccessD] Storing SQL in VBA Message-ID: I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From paul.hartland at fsmail.net Tue Aug 1 10:24:21 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Tue, 1 Aug 2006 17:24:21 +0200 (CEST) Subject: [AccessD] Storing SQL in VBA Message-ID: <16841692.1154445861646.JavaMail.www@wwinf3001> Only done similar in VB6 not tried it in Access VBA, example below (off top of head): Dim rsGetData As ADODB.Recordset set rsGetData = YourSQLConnection.Execute("YourQuery") Suppose then you could write the recordset to a table in some way, or can you have a form or report based on a recordset ? Paul Message Received: Aug 01 2006, 04:01 PM From: "Kaup, Chester" To: "Access Developers discussion and problem solving" Cc: Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Tue Aug 1 10:26:06 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 1 Aug 2006 08:26:06 -0700 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: Action queries don't return recordsets no matter how you execute them. What exactly are you trying to do? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- 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 Aug 1 11:12:05 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Tue, 1 Aug 2006 16:12:05 +0000 Subject: [AccessD] Nz for Fields Message-ID: <20060801151210.6D74E24E09@smtp.nildram.co.uk> Hi Virginia Try this WR: ([WorkOrder] + vbcrlf) & [WorkRequest] -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "accessd at databaseadvisors.com" Subject: [AccessD] Nz for Fields Date: 01/08/06 14:04 I have a report that combines two fields (work order & work request). They may enter data into both fields or just one. When the report prints it shows the WO/WR: WR: [WorkOrder] & Chr(13) & Chr(10) & [WorkRequest] I have seen the use of nz to determine if the field is null & that way it won't put in the return if there isn't a WorkOrder number entered. The way I have it, if they enter a WorkRequest and not a WorkOrder, it leaves a blank line above the WorkRequest number. Virginia -- 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 Chester_Kaup at kindermorgan.com Tue Aug 1 10:34:25 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 1 Aug 2006 10:34:25 -0500 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: I was wanting to put the SQL in a module and use the results of the action query in the module code. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 01, 2006 10:26 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Storing SQL in VBA Action queries don't return recordsets no matter how you execute them. What exactly are you trying to do? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 10:48:07 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 01 Aug 2006 08:48:07 -0700 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: <0J3B0016XT7STH10@l-daemon> Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From prosoft6 at hotmail.com Tue Aug 1 11:28:34 2006 From: prosoft6 at hotmail.com (Julie Reardon-Taylor) Date: Tue, 01 Aug 2006 12:28:34 -0400 Subject: [AccessD] $ Aligment in Combo Boxes In-Reply-To: Message-ID: Thanks Gustav...........I never knew that combo boxes only displayed string characters. After all of these years, you would think that I would have run across this. Thank you for the explanation. I will work on it. Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From martyconnelly at shaw.ca Tue Aug 1 11:29:10 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 01 Aug 2006 09:29:10 -0700 Subject: [AccessD] Time Conversion In-Reply-To: <31121844.1154431779662.JavaMail.www@wwinf3002> References: <31121844.1154431779662.JavaMail.www@wwinf3002> Message-ID: <44CF8156.3040009@shaw.ca> Try the VarType function if you are unsure of what is being returned in a variable especiallty a variant. Just in case missing from your help file. VarType Function Returns an Integer indicating the subtype of a variable. Syntax VarType(varname) The required varname argument is a Variant containing any variable except a variable of a user-defined type. Return Values Constant Value Description vbEmpty 0 Empty (uninitialized) vbNull 1 Null (no valid data) vbInteger 2 Integer vbLong 3 Long integer vbSingle 4 Single-precision floating-point number vbDouble 5 Double-precision floating-point number vbCurrency 6 Currency value vbDate 7 Date value vbString 8 String vbObject 9 Object vbError 10 Error value vbBoolean 11 Boolean value vbVariant 12 Variant (used only with arrays of variants) vbDataObject 13 A data access object vbDecimal 14 Decimal value vbByte 17 Byte value vbArray 8192 Array Note These constants are specified by Visual Basic for Applications. The names can be used anywhere in your code in place of the actual values. Remarks The VarType function never returns the value for vbArray by itself. It is always added to some other value to indicate an array of a particular type. The constant vbVariant is only returned in conjunction with vbArray to indicate that the argument to the VarType function is an array of type Variant. For example, the value returned for an array of integers is calculated as vbInteger + vbArray, or 8194. If an object has a default property, VarType (object) returns the type of the object's default property. paul.hartland at fsmail.net wrote: >Thanks for all replies sorted now, I had already tried the CDBl function ans was getting errors, found out it was cause the hours were returning in a string and not a date format.....What I would do without this list I do not know. > >Paul Hartland > > > > > >Message Received: Aug 01 2006, 12:03 PM >From: "MastercafeCTV" >To: "'Access Developers discussion and problem solving'" >Cc: >Subject: Re: [AccessD] Time Conversion > >On access one day = 1 >1 Day= 24h >If you want this values in format Hour then only need multiply by 24 > >csng(#15:30:00#)*24 = 15.50 > >Hope this simple function can help you :-) > >Juan Menendez >www.mastercafe.com >info at mastercafe.com > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >paul.hartland at fsmail.net >Sent: martes, 01 de agosto de 2006 12:27 >To: accessd >Subject: [AccessD] Time Conversion >Importance: High > > >To all, > >Sorry for the post I am sure I have seen this before but must be going mad >as can't seem to find the examples, basically what I want to do is convert >the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can >anyone point me to this function please. > >Thanks in advance for any help on this. > >Paul Hartland > > -- Marty Connelly Victoria, B.C. Canada From Chester_Kaup at kindermorgan.com Tue Aug 1 11:29:38 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 1 Aug 2006 11:29:38 -0500 Subject: [AccessD] Storing SQL in VBA In-Reply-To: <0J3B0016XT7STH10@l-daemon> Message-ID: I was wanting to use the results of the select query. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Tuesday, August 01, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Storing SQL in VBA Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 11:43:38 2006 From: john at winhaven.net (John Bartow) Date: Tue, 1 Aug 2006 11:43:38 -0500 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: <00fa01c6b589$a426a1a0$6502a8c0@ScuzzPaq> Chester, I think you may want to have two queries. One which creates a recordset and one which performs an action on the recordset. Or in the case of an action query that creates data, one which performs the action that creates the data and one which creates a recordset of the newly created data. HTH John B. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 11:30 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Storing SQL in VBA I was wanting to use the results of the select query. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Tuesday, August 01, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Storing SQL in VBA Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 11:51:52 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 01 Aug 2006 09:51:52 -0700 Subject: [AccessD] Storing SQL in VBA In-Reply-To: Message-ID: <0J3B0066AW61O3F0@l-daemon> Hi Chester: Maybe run the select query first only bringing back the keys, store the results in a temp recordset, then run your action query and finally use the temp recordset keys fields to reselect the records you have changed. HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 9:30 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Storing SQL in VBA I was wanting to use the results of the select query. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Tuesday, August 01, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Storing SQL in VBA Hi Chester: You can get back the record count of the records you affected...is that what you want? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, August 01, 2006 7:57 AM To: Access Developers discussion and problem solving Subject: [AccessD] Storing SQL in VBA I want to store and execute an action query in VBA. Did some research and found RunSQL will not work on action queries. The execute method will run the action query SQL but returns no recordset. So is there a way to store and execute an action query in VBA and then use the results? Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 1 11:59:46 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 01 Aug 2006 09:59:46 -0700 Subject: [AccessD] Time Conversion In-Reply-To: <44CF8156.3040009@shaw.ca> References: <31121844.1154431779662.JavaMail.www@wwinf3002> <44CF8156.3040009@shaw.ca> Message-ID: <44CF8882.4020405@shaw.ca> Ooops nearly forgot the TypeName function which returns the value as string rather than an integer MyType = TypeName(StrVar) ' Returns "String". MyType = TypeName(IntVar) ' Returns "Integer". MartyConnelly wrote: >Try the VarType function if you are unsure of what is being returned >in a variable especiallty a variant. Just in case missing from your help >file. > >VarType Function >Returns an Integer indicating the subtype of a variable. > >Syntax VarType(varname) > >The required varname argument is a Variant containing any variable >except a variable of a user-defined type. > >Return Values > >Constant Value Description > >vbEmpty 0 Empty (uninitialized) >vbNull 1 Null (no valid data) >vbInteger 2 Integer >vbLong 3 Long integer >vbSingle 4 Single-precision floating-point number >vbDouble 5 Double-precision floating-point number >vbCurrency 6 Currency value >vbDate 7 Date value >vbString 8 String >vbObject 9 Object >vbError 10 Error value >vbBoolean 11 Boolean value >vbVariant 12 Variant (used only with arrays of variants) >vbDataObject 13 A data access object >vbDecimal 14 Decimal value >vbByte 17 Byte value >vbArray 8192 Array > >Note These constants are specified by Visual Basic for Applications. >The names can be used anywhere in your code in place of the actual values. >Remarks > >The VarType function never returns the value for vbArray by itself. It >is always added to some other value to indicate an array of a particular >type. The constant vbVariant is only returned in conjunction with >vbArray to indicate that the argument to the VarType function is an >array of type Variant. For example, the value returned for an array of >integers is calculated as vbInteger + vbArray, or 8194. If an object has >a default property, VarType (object) returns the type of the object's >default property. > > > >paul.hartland at fsmail.net wrote: > > > >>Thanks for all replies sorted now, I had already tried the CDBl function ans was getting errors, found out it was cause the hours were returning in a string and not a date format.....What I would do without this list I do not know. >> >>Paul Hartland >> >> >> >> >> >>Message Received: Aug 01 2006, 12:03 PM >>From: "MastercafeCTV" >>To: "'Access Developers discussion and problem solving'" >>Cc: >>Subject: Re: [AccessD] Time Conversion >> >>On access one day = 1 >>1 Day= 24h >>If you want this values in format Hour then only need multiply by 24 >> >>csng(#15:30:00#)*24 = 15.50 >> >>Hope this simple function can help you :-) >> >>Juan Menendez >>www.mastercafe.com >>info at mastercafe.com >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >>paul.hartland at fsmail.net >>Sent: martes, 01 de agosto de 2006 12:27 >>To: accessd >>Subject: [AccessD] Time Conversion >>Importance: High >> >> >>To all, >> >>Sorry for the post I am sure I have seen this before but must be going mad >>as can't seem to find the examples, basically what I want to do is convert >>the hours I get in my table 4:15, 4:30, 4:45 to 4.25, 4.50, 4.75 etc....Can >>anyone point me to this function please. >> >>Thanks in advance for any help on this. >> >>Paul Hartland >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From adtp at airtelbroadband.in Tue Aug 1 13:25:17 2006 From: adtp at airtelbroadband.in (A.D.TEJPAL) Date: Tue, 1 Aug 2006 23:55:17 +0530 Subject: [AccessD] $ Aligment in Combo Boxes References: Message-ID: <006201c6b598$09d358a0$db0465cb@pcadt> Julie, Sample subroutine named P_Align(), as given below, will ensure right alignment of number type contents of target column (Column number supplied as argument) of the combo box look-up list in currency format. The subroutine is called from form's Load event. For a two column combo box named CboMyCombo, sample code to be put in form's module so as to ensure that the first column is right aligned in currency format, is given below. Constants FontFactor and ColWidthFactor are based upon Times New Roman font (normal weight) and can be fine tuned for optimum results at your end. T_MyTable is the name of table having fields Amount (number or currency type) and Product (text type). Best wishes, A.D.Tejpal --------------- Code in form's module ======================================= Private Sub Form_Load() P_Align 1 End Sub ------------------------------------------------------------------------- Private Sub P_Align(ByVal ColNum As Long) ' Modifies the row source of combo box so as to ' format the target column ColNum as right aligned ' currency type display (This is applicable to Times ' New Roman font, Normal size) ' Note - ColNum is one based i.e. 1 for first column Dim Qst As String, ColWdString As String Dim TxtWd As Long, ColWd As Long Dim TxtRatio As Double, FntSz As Long Const FontFactor As Double = 0.15 Const ColWidthFactor As Double = 0.2 ' Note - (a) The value of 0.15 for FontFactor is found ' to suit font size from 8 to 18 for Times ' New Roman font, Normal size ' (b) ColWidthFactor is meant to compensate ' for varying column widths. ' Get Font size FntSz = Me.CboMyCombo.FontSize TxtRatio = FontFactor / FntSz ' Get the string representing Column Widths ColWdString = Me.CboMyCombo.ColumnWidths ' Split ColWdString into array elements and get ' the width of target column represented by ColNum ' (ColWd is in twips) ColWd = Split(ColWdString, ";")(ColNum - 1) ' Get the number of characters that can be ' accomodated in this column TxtWd = Int((ColWd + ColWidthFactor * _ (ColWd - 2000)) * TxtRatio) ' Build SQL formatting the number field as desired Qst = "SELECT Right(Space(" & TxtWd & ") & " & _ "Format(Amount, 'Currency'), " & TxtWd & ") " & _ "AS Amt, Product FROM T_MyTable;" Me.CboMyCombo.RowSource = Qst End Sub ======================================= ----- Original Message ----- From: Gustav Brock To: accessd at databaseadvisors.com Sent: Tuesday, August 01, 2006 14:07 Subject: Re: [AccessD] $ Aligment in Combo Boxes Hi Julie It's not a bug. It is just that numbers are converted to strings as a combo only understands strings. A limitation you may call it. A simple work-around is to format your numbers to strings and use a font that displays any digit with the same width like MS Sans Serif. This font displays dot and comma at half the width of a digit, and the width of a digit equals two spaces. Now, decide for a maximum number to display, say 1 mio., and count the spaces this will fill with your chosen format. For the number to be displayed, count the digits, commas and dots and calculate how much it fills and deduct that from your maximum length. Convert that to spaces - use Space(n) - and prefix your formatted number string with this string of spaces to create a pseudo right align view. Use the full string as the entry in your combo. /gustav >>> prosoft6 at hotmail.com 31-07-2006 22:21:04 >>> This is driving me crazy..............my first item in a two column combo box is formatted in currency and the second is simply text. The currency will not right align! I have googled the topic and find many other questions about this problem with no answers that are simple and quick. Do I reall have to write a module to correct this? Sounds like a microsoft bug to me! Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From DElam at jenkens.com Tue Aug 1 16:32:51 2006 From: DElam at jenkens.com (Elam, Debbie) Date: Tue, 1 Aug 2006 16:32:51 -0500 Subject: [AccessD] Subscript out of range Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C068DE43D@natexch.jenkens.com> I have a report that a user is trying to export to Excel. When we try to export the report, we get a subscript out of range error and the database closes compacts and saves a backup. I can export other reports in the same database to Excel without error (I can even use the same data source). I can also export this report to Word format. I have tried exporting all objects to a new database and running the report, but I still get the same error when exporting. Does anyone have an idea what the problem might be with this report? 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 DWUTKA at marlow.com Tue Aug 1 16:48:01 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 1 Aug 2006 16:48:01 -0500 Subject: [AccessD] Subscript out of range Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AC1E@MARLOW_MAIN2.marlow.com> Not sure, but we've had problems where export to excel doesn't work, and Analyze with Excel (under Tools--> Office Links) does. Go figure. Drew -----Original Message----- From: Elam, Debbie [mailto:DElam at jenkens.com] Sent: Tuesday, August 01, 2006 4:33 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Subscript out of range I have a report that a user is trying to export to Excel. When we try to export the report, we get a subscript out of range error and the database closes compacts and saves a backup. I can export other reports in the same database to Excel without error (I can even use the same data source). I can also export this report to Word format. I have tried exporting all objects to a new database and running the report, but I still get the same error when exporting. Does anyone have an idea what the problem might be with this report? 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. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DElam at jenkens.com Tue Aug 1 16:58:45 2006 From: DElam at jenkens.com (Elam, Debbie) Date: Tue, 1 Aug 2006 16:58:45 -0500 Subject: [AccessD] Subscript out of range Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C068DE43E@natexch.jenkens.com> I have tried both methods to export to Excel and get the same error for both. In addition, my user was using the send to mail recipient and chose the Excel format and gets the same error. It does not appear to be the export method. Thanks, Debbie -----Original Message----- From: DWUTKA at marlow.com [mailto:DWUTKA at marlow.com] Sent: Tuesday, August 01, 2006 4:48 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Subscript out of range Not sure, but we've had problems where export to excel doesn't work, and Analyze with Excel (under Tools--> Office Links) does. Go figure. Drew -----Original Message----- From: Elam, Debbie [mailto:DElam at jenkens.com] Sent: Tuesday, August 01, 2006 4:33 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Subscript out of range I have a report that a user is trying to export to Excel. When we try to export the report, we get a subscript out of range error and the database closes compacts and saves a backup. I can export other reports in the same database to Excel without error (I can even use the same data source). I can also export this report to Word format. I have tried exporting all objects to a new database and running the report, but I still get the same error when exporting. Does anyone have an idea what the problem might be with this report? 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. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- 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 jim.moss at jlmoss.net Tue Aug 1 17:30:44 2006 From: jim.moss at jlmoss.net (Jim Moss) Date: Tue, 1 Aug 2006 17:30:44 -0500 (CDT) Subject: [AccessD] Subscript out of range In-Reply-To: <7B1961ED924D1A459E378C9B1BB22B4C068DE43D@natexch.jenkens.com> References: <7B1961ED924D1A459E378C9B1BB22B4C068DE43D@natexch.jenkens.com> Message-ID: <49579.65.196.182.34.1154471444.squirrel@65.196.182.34> Debbie, Do you use all the same rows, columns and query criteria from the same datasource? The only time that this has happened to me before is when the file was too big to go into excel, IE > 65578 rows. Jim > I have a report that a user is trying to export to Excel. When we try to > export the report, we get a subscript out of range error and the database > closes compacts and saves a backup. > > I can export other reports in the same database to Excel without error (I > can even use the same data source). I can also export this report to Word > format. I have tried exporting all objects to a new database and running > the report, but I still get the same error when exporting. > > Does anyone have an idea what the problem might be with this report? > > 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. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From dw-murphy at cox.net Tue Aug 1 22:05:57 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Tue, 1 Aug 2006 20:05:57 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <49579.65.196.182.34.1154471444.squirrel@65.196.182.34> Message-ID: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug From askolits at ot.com Tue Aug 1 22:44:00 2006 From: askolits at ot.com (John Skolits) Date: Tue, 1 Aug 2006 23:44:00 -0400 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Message-ID: <001501c6b5e5$e73d4b90$3801a8c0@LaptopXP> 1)Just a guess but try dropping the ".value" part of the expression. 2)At times I used the ! symbol instead of the "." Example: Me!txtFee = Nz(DSum... 3) Also try placing it in the onOpen event, or oncurrent event. Maybe one of these will help. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Tuesday, August 01, 2006 11:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Error 2448 "You can not assign a value to this object." Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kens.programming at verizon.net Tue Aug 1 22:56:02 2006 From: kens.programming at verizon.net (kens.programming) Date: Tue, 01 Aug 2006 20:56:02 -0700 Subject: [AccessD] MS Access 2003 User Initials Prompt. In-Reply-To: <001501c6b5e5$e73d4b90$3801a8c0@LaptopXP> Message-ID: <00af01c6b5e7$935cc080$6b01a8c0@Stoker.com> Everyone, I have a client who recently upgraded their Access 2000 to Access 2003 on their Citrix servers. They notified me this morning that every time they open Access, their users are being prompted to input their Name and Initials. How is this turned off? For some reason, I don't recall having this issue when I upgraded to 2003. Thanks. Ken From dw-murphy at cox.net Tue Aug 1 22:52:10 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Tue, 1 Aug 2006 20:52:10 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to thisobject." In-Reply-To: <001501c6b5e5$e73d4b90$3801a8c0@LaptopXP> Message-ID: <009c01c6b5e7$080a1870$0200a8c0@murphy3234aaf1> Thank John, My original code used me.txtFee, got the same error. Also tried in the Activate event, same error. The load event is supposed to have all the form data populated so I would think setting a text box value would not create a problem. Seems like I do this all the time. I did not mention in the orginal post that there is a subform on the problem form, but it has nothing to do with the text box I am trying to update. Thanks again. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Tuesday, August 01, 2006 8:44 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Error 2448 "You can not assign a value to thisobject." 1)Just a guess but try dropping the ".value" part of the expression. 2)At times I used the ! symbol instead of the "." Example: Me!txtFee = Nz(DSum... 3) Also try placing it in the onOpen event, or oncurrent event. Maybe one of these will help. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Tuesday, August 01, 2006 11:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Error 2448 "You can not assign a value to this object." Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 2 01:45:30 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Wed, 02 Aug 2006 08:45:30 +0200 Subject: [AccessD] Error 2448 "You can not assign a value to this object." Message-ID: Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug From andy at minstersystems.co.uk Wed Aug 2 02:13:40 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Wed, 2 Aug 2006 08:13:40 +0100 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." In-Reply-To: Message-ID: <001b01c6b603$314dd7a0$7b420c54@minster33c3r25> The only times I've had this I've resolved it by moving the statement to a later event, such as the OnFormat of the Report Header. -- 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: 02 August 2006 07:46 > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Error 2448 "You can not assign a value > tothis object." > > > Hi Doug > > If this works: > > Me!txtFee.Value = 0 > > it could have something to do with your query, or you may > have an update event of the textbox. Or try without your subform. > > Also, you don't need to call the query twice: > > Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, > 0)", "qryVendorWeddingFee") > > /gustav > > >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> > Folks, > > I am frustrated because a form has started throwing an error > and I can not seem to isolate it. This was working last week, > I think, and now I get the error. It is probably something > very simple I am not seeing. IN the onLoad event of the form > I have a statement > > Me.txtFee.Value = Nz(DSum("ShowAmount", > "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", > "qryVendorWeddingFee"), 0) > > When the form opens I get the subject error message. For > debugging purposes I commmented the line out and put a button > on the form that does the same thing. This works fine > setting me.txtFee to the proper value. At first I was using > me.txtFee =, and got the same error. > > Do any of you see what is going on here? > > Thanks in advance. > > Doug > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From mikedorism at verizon.net Wed Aug 2 07:15:37 2006 From: mikedorism at verizon.net (Mike & Doris Manning) Date: Wed, 02 Aug 2006 08:15:37 -0400 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Message-ID: <000001c6b62d$5e48f120$2f01a8c0@dorismanning> Check the Control Source property of the textbox. If it isn't empty, you will get the 2448 error. Doris Manning mikedorism at verizon.net From DElam at jenkens.com Wed Aug 2 08:20:06 2006 From: DElam at jenkens.com (Elam, Debbie) Date: Wed, 2 Aug 2006 08:20:06 -0500 Subject: [AccessD] Subscript out of range Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C068DE441@natexch.jenkens.com> Yes, the same datasource. There is a difference in the sub-reports this one contains, and I suspect that might be where the issue is. It is not subreports as a matter of course though, because other reports that export have subreports also. Debbie -----Original Message----- From: Jim Moss [mailto:jim.moss at jlmoss.net] Sent: Tuesday, August 01, 2006 5:31 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Subscript out of range Debbie, Do you use all the same rows, columns and query criteria from the same datasource? The only time that this has happened to me before is when the file was too big to go into excel, IE > 65578 rows. Jim > I have a report that a user is trying to export to Excel. When we try to > export the report, we get a subscript out of range error and the database > closes compacts and saves a backup. > > I can export other reports in the same database to Excel without error (I > can even use the same data source). I can also export this report to Word > format. I have tried exporting all objects to a new database and running > the report, but I still get the same error when exporting. > > Does anyone have an idea what the problem might be with this report? > > 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. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- 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 cfoust at infostatsystems.com Wed Aug 2 10:09:19 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 08:09:19 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to this object." In-Reply-To: <009501c6b5e0$93685d70$0200a8c0@murphy3234aaf1> Message-ID: Try moving the code to the Load event instead of Open. Some things just can't be done until the form is loaded. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Tuesday, August 01, 2006 8:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Error 2448 "You can not assign a value to this object." Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Wed Aug 2 10:13:31 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 10:13:31 -0500 Subject: [AccessD] Error Trapping Message-ID: <001001c6b646$3a5cbd00$0200a8c0@danwaters> For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters From bheid at appdevgrp.com Wed Aug 2 10:35:55 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Wed, 2 Aug 2006 11:35:55 -0400 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DFBC69@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35774@ADGSERVER> I think that the scenario that you posed happens when there is no error handler in B. So I think the solution is to have an error handler in every procedure. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 11:14 AM To: AccessD Subject: [SPAM SUSPECT] [AccessD] Error Trapping Importance: Low For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From sgoodhall at comcast.net Wed Aug 2 10:54:01 2006 From: sgoodhall at comcast.net (sgoodhall at comcast.net) Date: Wed, 02 Aug 2006 15:54:01 +0000 Subject: [AccessD] [SPAM SUSPECT] Error Trapping Message-ID: <080220061554.21575.44D0CA99000236D100005447220074567204040E080B0101099C@comcast.net> There can be a couple of issues here. One is as stated, if you have "On Error Resume Next" active when you invoke a sub or function then errors in the lower level routine will kick back to the upper level. The other issue is that if you invoke a method in a class module, even without On Error active, what happens depends on the setting Error Trapping option in VBA. If Error Trapping is not set to "Break in Class Module" then the error will be trapped in the routine that invoked the method. Regards, Steve -------------- Original message -------------- From: "Bobby Heid" > I think that the scenario that you posed happens when there is no error > handler in B. So I think the solution is to have an error handler in every > procedure. > > Bobby > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters > Sent: Wednesday, August 02, 2006 11:14 AM > To: AccessD > Subject: [SPAM SUSPECT] [AccessD] Error Trapping > Importance: Low > > > For a long time I've seen that an error trapped in one procedure may have > actually occurred in a called procedure. For example, if Procedure A calls > procedure B and an error occurs in B, then the error might get trapped in A, > not in B. So my error log shows an error trapped in A, but I need to know > that it happened in B. > > Is there a way to accurately know which procedure actually triggered an > error? > > 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 dwaters at usinternet.com Wed Aug 2 10:54:33 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 10:54:33 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <30753959.1154533153912.JavaMail.root@sniper20> Message-ID: <001101c6b64b$f3835230$0200a8c0@danwaters> Hi Bobby, Yes - if there was no handler in B then A would pick it up. But this happens when there is a handler in B. That's the puzzle! Dan Waters -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping I think that the scenario that you posed happens when there is no error handler in B. So I think the solution is to have an error handler in every procedure. Bobby -----Original Message----- Subject: [SPAM SUSPECT] [AccessD] Error Trapping For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters From cfoust at infostatsystems.com Wed Aug 2 11:09:28 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 09:09:28 -0700 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <001101c6b64b$f3835230$0200a8c0@danwaters> Message-ID: Either the error is in the handler or after the handler or you may have a different problem. I've seen code fail on the End Sub line and eventually discovered something elsewhere in the module that wasn't even in the routine that used an implicit boolean or such and fixing that made the problem go away. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 8:55 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Hi Bobby, Yes - if there was no handler in B then A would pick it up. But this happens when there is a handler in B. That's the puzzle! Dan Waters -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping I think that the scenario that you posed happens when there is no error handler in B. So I think the solution is to have an error handler in every procedure. Bobby -----Original Message----- Subject: [SPAM SUSPECT] [AccessD] Error Trapping For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Wed Aug 2 12:07:16 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 12:07:16 -0500 Subject: [AccessD] Error Trapping In-Reply-To: <23130190.1154535267358.JavaMail.root@sniper24> Message-ID: <001201c6b656$1ba44170$0200a8c0@danwaters> I do always use explicit variables to avoid just that type of 'mystery' problem. The error handler is a different procedure which has always been reliable. It's just an issue of which procedure calls it! Thanks! Dan -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Either the error is in the handler or after the handler or you may have a different problem. I've seen code fail on the End Sub line and eventually discovered something elsewhere in the module that wasn't even in the routine that used an implicit boolean or such and fixing that made the problem go away. Charlotte Foust From dwaters at usinternet.com Wed Aug 2 12:07:16 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 12:07:16 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <30569536.1154534337455.JavaMail.root@sniper14> Message-ID: <001301c6b656$1be47ec0$0200a8c0@danwaters> Well, I typically have Error Trapping set to 'Break on all Unhandled Errors'. I'll change to 'Break in Class Module' to see if that does the trick. Thanks! Dan -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping There can be a couple of issues here. One is as stated, if you have "On Error Resume Next" active when you invoke a sub or function then errors in the lower level routine will kick back to the upper level. The other issue is that if you invoke a method in a class module, even without On Error active, what happens depends on the setting Error Trapping option in VBA. If Error Trapping is not set to "Break in Class Module" then the error will be trapped in the routine that invoked the method. Regards, Steve From dw-murphy at cox.net Wed Aug 2 12:15:20 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Wed, 2 Aug 2006 10:15:20 -0700 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." In-Reply-To: Message-ID: <001d01c6b657$3b848b70$0200a8c0@murphy3234aaf1> Thanks Gustav, After the form is loaded I can run the code to set the textbox to a value and it works fine. As I said in a previous post on this I put a button on the form and ran the line of code and all worked well. Since the line runs in the onload event the form should be populated with all the bound values and my code should update, I thought. Tried to set me.txtFee = 0 and got the same error. Tried without the subform and got the same error. Will keep banging away at it. I didn't realize you could use two fields in a domain aggregate function. That is great, I learned something else. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 11:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- 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 Aug 2 12:18:08 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Wed, 2 Aug 2006 10:18:08 -0700 Subject: [AccessD] Error 2448 "You can not assign a value to thisobject." In-Reply-To: <000001c6b62d$5e48f120$2f01a8c0@dorismanning> Message-ID: <002101c6b657$9f98f790$0200a8c0@murphy3234aaf1> Thanks Doris, This did work! Don't know why I can't update a bound control in the onLoad event, but apparently it causes and error. I can update the control through code when when I can interact with the form by pressing a button on it with no error. Obviously there is something here I don't understand. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mike & Doris Manning Sent: Wednesday, August 02, 2006 5:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Error 2448 "You can not assign a value to thisobject." Check the Control Source property of the textbox. If it isn't empty, you will get the 2448 error. Doris Manning mikedorism at verizon.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 Aug 2 13:39:16 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 2 Aug 2006 14:39:16 -0400 Subject: [AccessD] Error Trapping In-Reply-To: <001001c6b646$3a5cbd00$0200a8c0@danwaters> Message-ID: <004a01c6b662$f63dbfd0$147aa8c0@m6805> A long time ago I co-wrote and then Seth Galitzer ported to VB a wizard for inserting an error handler into one specific function, in every function in a specific module or in every function in every module. You can press a button to just insert error handlers everywhere that no handler already exists. I highly recommend doing that. I use this myself pretty much daily as I am writing code, and on occasion when it appears that I have let a function slip through that is causing issues. It is available as a download from our web site - http://www.databaseadvisors.com/downloads.htm Click VBErrorHandler to download it. View the readme and install it. You will then have a toolbar in the code editor for inserting the error handlers. It can also be used in Word and Excel BTW. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 11:14 AM To: AccessD Subject: [AccessD] Error Trapping For a long time I've seen that an error trapped in one procedure may have actually occurred in a called procedure. For example, if Procedure A calls procedure B and an error occurs in B, then the error might get trapped in A, not in B. So my error log shows an error trapped in A, but I need to know that it happened in B. Is there a way to accurately know which procedure actually triggered an error? Thanks! Dan Waters -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Wed Aug 2 14:08:23 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 2 Aug 2006 14:08:23 -0500 Subject: [AccessD] Error Trapping In-Reply-To: <15753762.1154544923660.JavaMail.root@sniper19> Message-ID: <001e01c6b667$070d32b0$0200a8c0@danwaters> That sounds great! And you're not charging for this??? You should compete with FMS! I know I said that I Error Trap almost all procedures. What I mean is that if a combobox Enter event has the single line of cboName.Dropdown (or something as reliable as that), then I skip the error handling. Anything more complicated than that does get error trapped. Dan Waters -----Original Message----- Subject: Re: [AccessD] Error Trapping A long time ago I co-wrote and then Seth Galitzer ported to VB a wizard for inserting an error handler into one specific function, in every function in a specific module or in every function in every module. You can press a button to just insert error handlers everywhere that no handler already exists. I highly recommend doing that. I use this myself pretty much daily as I am writing code, and on occasion when it appears that I have let a function slip through that is causing issues. It is available as a download from our web site - http://www.databaseadvisors.com/downloads.htm Click VBErrorHandler to download it. View the readme and install it. You will then have a toolbar in the code editor for inserting the error handlers. It can also be used in Word and Excel BTW. John W. Colby Colby Consulting www.ColbyConsulting.com From Patricia.O'Connor at otda.state.ny.us Wed Aug 2 14:28:30 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 2 Aug 2006 15:28:30 -0400 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <443413E7.3060603@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270C@EXCNYSM0A1AI.nysemail.nyenet> I finally was able to upgrade office to 2003 custom since I have Access97 and 2k. Office Professional - Access 2003 (11.5614.6568) I was reading through the memos and it says that update SP2 caused major problems. Is this still true? What else should I download or NOT download? What other things do I need to watch out for. I have tried the archive but get lots of old items. Thank you ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 cfoust at infostatsystems.com Wed Aug 2 15:27:56 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 13:27:56 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270C@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: I had no problems a few months ago when I upgrade my Office XP to Office 2003. Since we don't use Access 2003, I kept Access 2002, which was at SP3. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, Patricia (OTDA) Sent: Wednesday, August 02, 2006 12:28 PM To: Access Developers discussion and problem solving Subject: [AccessD] Upgrade to Office 2003 - Access2k3 I finally was able to upgrade office to 2003 custom since I have Access97 and 2k. Office Professional - Access 2003 (11.5614.6568) I was reading through the memos and it says that update SP2 caused major problems. Is this still true? What else should I download or NOT download? What other things do I need to watch out for. I have tried the archive but get lots of old items. Thank you From martyconnelly at shaw.ca Wed Aug 2 15:54:03 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Wed, 02 Aug 2006 13:54:03 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: References: Message-ID: <44D110EB.6010302@shaw.ca> well the two major ones I can think of 1. http://support.microsoft.com/kb/904953/en-us This functionality has now been disabled "permanently" with Office 2003 SP2. "Because of legal issues, Microsoft has disabled the functionality in Access 2003 and in Access 2002 that let users change the data in linked tables that point to a range in an Excel workbook." 2. How you handle Office and Access Macro Security, there are various options in archives. Not really a problem for a single user as can be disabled from menus. There are palso roblems with Outlook Forms and a lot of minor problems if you do an adminstrative install to a whole series of machines. If you run both Access 97 and 2003 from a non admin user you have to change an .srg file. Charlotte Foust wrote: >I had no problems a few months ago when I upgrade my Office XP to Office >2003. Since we don't use Access 2003, I kept Access 2002, which was at >SP3. > >Charlotte Foust > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, >Patricia (OTDA) >Sent: Wednesday, August 02, 2006 12:28 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] Upgrade to Office 2003 - Access2k3 > >I finally was able to upgrade office to 2003 custom since I have >Access97 and 2k. >Office Professional - Access 2003 (11.5614.6568) > >I was reading through the memos and it says that update SP2 caused major >problems. Is this still true? What else should I download or NOT >download? > What other things do I need to watch out for. > >I have tried the archive but get lots of old items. > >Thank you > > -- Marty Connelly Victoria, B.C. Canada From cfoust at infostatsystems.com Wed Aug 2 16:20:31 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 2 Aug 2006 14:20:31 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <44D110EB.6010302@shaw.ca> Message-ID: No wonder I didn't have any problems. None of those apply! LOL Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Wednesday, August 02, 2006 1:54 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 well the two major ones I can think of 1. http://support.microsoft.com/kb/904953/en-us This functionality has now been disabled "permanently" with Office 2003 SP2. "Because of legal issues, Microsoft has disabled the functionality in Access 2003 and in Access 2002 that let users change the data in linked tables that point to a range in an Excel workbook." 2. How you handle Office and Access Macro Security, there are various options in archives. Not really a problem for a single user as can be disabled from menus. There are palso roblems with Outlook Forms and a lot of minor problems if you do an adminstrative install to a whole series of machines. If you run both Access 97 and 2003 from a non admin user you have to change an .srg file. Charlotte Foust wrote: >I had no problems a few months ago when I upgrade my Office XP to >Office 2003. Since we don't use Access 2003, I kept Access 2002, which >was at SP3. > >Charlotte Foust > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, >Patricia (OTDA) >Sent: Wednesday, August 02, 2006 12:28 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] Upgrade to Office 2003 - Access2k3 > >I finally was able to upgrade office to 2003 custom since I have >Access97 and 2k. >Office Professional - Access 2003 (11.5614.6568) > >I was reading through the memos and it says that update SP2 caused major >problems. Is this still true? What else should I download or NOT >download? > What other things do I need to watch out for. > >I have tried the archive but get lots of old items. > >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 Gustav at cactus.dk Thu Aug 3 03:39:50 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 03 Aug 2006 10:39:50 +0200 Subject: [AccessD] Unprovoked ERROR 3197 fixed....?? Message-ID: Hi Robert Just saw this error today at a client running Access97. It does not happen every day, just once in a while ... Which version of Jet is this hotfix related to? /gustav >>> robert at servicexp.com 25-07-2006 01:02:23 >>> I have been struggling with this problem for more then year and half, looks like it may finally have been resolved. I was able to get the patch and so far (3 weeks now) not one of these errors... I was receiving this error on at least a daily basis; most of the time several times during the day.... Pulled most of my hair out thinking it was something in my design... Thought you guys may want to know.. http://www.databasecreations.com/pdf/JET%20Error%20Issues%20Resolved.pdf Robert From Gustav at cactus.dk Thu Aug 3 04:28:27 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 03 Aug 2006 11:28:27 +0200 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." Message-ID: Hi Doug Then try doing this at the OnCurrent event. Set a flag when done to do this once only. If you try to set the value of a bound control while the form is opening you are trying to update the form which is not possible at that moment. Updating an unbound control does not involve an update of the form. /gustav >>> dw-murphy at cox.net 02-08-2006 19:15:20 >>> Thanks Gustav, After the form is loaded I can run the code to set the textbox to a value and it works fine. As I said in a previous post on this I put a button on the form and ran the line of code and all worked well. Since the line runs in the onload event the form should be populated with all the bound values and my code should update, I thought. Tried to set me.txtFee = 0 and got the same error. Tried without the subform and got the same error. Will keep banging away at it. I didn't realize you could use two fields in a domain aggregate function. That is great, I learned something else. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 11:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug From dw-murphy at cox.net Thu Aug 3 10:57:38 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Thu, 3 Aug 2006 08:57:38 -0700 Subject: [AccessD] Error 2448 "You can not assign a value tothis object." In-Reply-To: Message-ID: <002a01c6b715$8b5e09f0$0200a8c0@murphy3234aaf1> Thanks Gustav, I came to the conclusion that something in the form load was preventing me from updating the control. I got around it by using the form timer event to put in a half second delay between form oncurrent and updating the value. This works reliably. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 03, 2006 2:28 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug Then try doing this at the OnCurrent event. Set a flag when done to do this once only. If you try to set the value of a bound control while the form is opening you are trying to update the form which is not possible at that moment. Updating an unbound control does not involve an update of the form. /gustav >>> dw-murphy at cox.net 02-08-2006 19:15:20 >>> Thanks Gustav, After the form is loaded I can run the code to set the textbox to a value and it works fine. As I said in a previous post on this I put a button on the form and ran the line of code and all worked well. Since the line runs in the onload event the form should be populated with all the bound values and my code should update, I thought. Tried to set me.txtFee = 0 and got the same error. Tried without the subform and got the same error. Will keep banging away at it. I didn't realize you could use two fields in a domain aggregate function. That is great, I learned something else. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 01, 2006 11:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Error 2448 "You can not assign a value tothis object." Hi Doug If this works: Me!txtFee.Value = 0 it could have something to do with your query, or you may have an update event of the textbox. Or try without your subform. Also, you don't need to call the query twice: Me!txtFee.Value = DSum("Nz(ShowAmount, 0) + Nz(TotalTax, 0)", "qryVendorWeddingFee") /gustav >>> dw-murphy at cox.net 02-08-2006 05:05:57 >>> Folks, I am frustrated because a form has started throwing an error and I can not seem to isolate it. This was working last week, I think, and now I get the error. It is probably something very simple I am not seeing. IN the onLoad event of the form I have a statement Me.txtFee.Value = Nz(DSum("ShowAmount", "qryVendorWeddingFee"), 0) + Nz(DSum("TotalTax", "qryVendorWeddingFee"), 0) When the form opens I get the subject error message. For debugging purposes I commmented the line out and put a button on the form that does the same thing. This works fine setting me.txtFee to the proper value. At first I was using me.txtFee =, and got the same error. Do any of you see what is going on here? Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From scapistrant at symphonyinfo.com Thu Aug 3 11:37:24 2006 From: scapistrant at symphonyinfo.com (Steve Capistrant) Date: Thu, 3 Aug 2006 11:37:24 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <000401c6b659$5eecf550$0210a8c0@Symphony.local> Message-ID: <02F5B8F3D893A845A3DF342F14D80F010619B0@LAKATOS.Symphony.local> Dan, Maybe you already know this but, just in case... One option is change your subprocedure(s) into a function, returning a Boolean value. Default it to return FALSE, by putting this near the top: MyFunction() = FALSE On the very last line of the code, before the error handling section, put: MyFunction() = TRUE In the error handling section, make sure you insert a developer controlled comment in the msgbox, like: "Error occurred in MyFunction" Finally, on the parent procedure, call the subfunction with this: If MyFunction() = False then GoTo ex In this way, you can always know at what level the error handling is triggered, and gracefully shut down the calling context too. Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Office, Twin Cities: 763-391-7400, ext. 801. Office, Toll free: 888-357-1373, ext. 801 Direct: 612-237-0075 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Wednesday, August 02, 2006 12:31 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Well, I typically have Error Trapping set to 'Break on all Unhandled Errors'. I'll change to 'Break in Class Module' to see if that does the trick. Thanks! Dan -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping There can be a couple of issues here. One is as stated, if you have "On Error Resume Next" active when you invoke a sub or function then errors in the lower level routine will kick back to the upper level. The other issue is that if you invoke a method in a class module, even without On Error active, what happens depends on the setting Error Trapping option in VBA. If Error Trapping is not set to "Break in Class Module" then the error will be trapped in the routine that invoked the method. Regards, Steve -- 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 Aug 3 11:38:14 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Thu, 3 Aug 2006 12:38:14 -0400 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <44D110EB.6010302@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270E@EXCNYSM0A1AI.nysemail.nyenet> Marty - Thanks for the quick response. I have not upgraded to SP2 yet. I am currently running a monthly system that has an A2k mdb, an excel workbook with 6 pivot table with graphs created from Excel queries (dqy). The dqy is what populates the tables which sets the graphs. So I figured to run that first before upgrading just in case. What about the SANDBOX unsafe expressions warning I get when opening my 2k mdb. It says to upgrade my jet Microsoft Jet 4.0 Service Pack 8. If I update to this will my old systems no longer work? I already have a 4.08 version of Jet but it still comes up everytime. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > MartyConnelly > Sent: Wednesday, August 02, 2006 04:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 > > well the two major ones I can think of > 1. > http://support.microsoft.com/kb/904953/en-us > > This functionality has now been disabled "permanently" with > Office 2003 SP2. > "Because of legal issues, Microsoft has disabled the > functionality in Access > 2003 and in Access 2002 that let users change the data in > linked tables that point to a range in an Excel workbook." > 2. > How you handle Office and Access Macro Security, there are > various options in archives. > Not really a problem for a single user as can be disabled from menus. > > There are palso roblems with Outlook Forms and a lot of minor > problems if you do an adminstrative install to a whole series > of machines. > > If you run both Access 97 and 2003 from a non admin user you > have to change an .srg file. > From martyconnelly at shaw.ca Thu Aug 3 13:13:52 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 03 Aug 2006 11:13:52 -0700 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270E@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270E@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: <44D23CE0.8000805@shaw.ca> I have been running with Jet SP 8.0 for over a year so I have forgotten any problems that might have occured but it doesn't affect my version of 97 2003 or 2007 There is a registry key, you can switch if sudden problems occur with sandbox mode but some form of sandbox has been around since JetSP4 You should perhaps upgrade to Jet SP8 before installing Office 2003 It shouldn't affect you unless you are doing weird things in SQL like SELECT Shell("c:\windows\System32\calc.exe") FROM Customers; Sandbox protection applies not just to SQL but also to Form Event properties Here is a long article explaining it from Gerry Robinson How To Avoid An Access 2003 Sandbox Storm http://www.vb123.com/toolshed/04_docs/sandbox.htm O'Connor, Patricia (OTDA) wrote: >Marty - Thanks for the quick response. > >I have not upgraded to SP2 yet. I am currently running a monthly system >that has an A2k mdb, an excel workbook with 6 pivot table with graphs >created from Excel queries (dqy). The dqy is what populates the tables >which sets the graphs. So I figured to run that first before upgrading >just in case. > >What about the SANDBOX unsafe expressions warning I get when opening my >2k mdb. It says to upgrade my jet Microsoft Jet 4.0 Service Pack 8. If >I update to this will my old systems no longer work? I already have a >4.08 version of Jet but it still comes up everytime. > >Thanks >************************************************** >* Patricia O'Connor >* Associate Computer Programmer Analyst >* OTDA - BDMA >* (W) mailto:Patricia.O'Connor at otda.state.ny.us >* (w) mailto:aa1160 at nysemail.state.ny.us >************************************************** > > > > >-----Original Message----- > > > >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >>MartyConnelly >>Sent: Wednesday, August 02, 2006 04:54 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 >> >>well the two major ones I can think of >>1. >>http://support.microsoft.com/kb/904953/en-us >> >>This functionality has now been disabled "permanently" with >>Office 2003 SP2. >>"Because of legal issues, Microsoft has disabled the >>functionality in Access >>2003 and in Access 2002 that let users change the data in >>linked tables that point to a range in an Excel workbook." >>2. >> How you handle Office and Access Macro Security, there are >>various options in archives. >>Not really a problem for a single user as can be disabled from menus. >> >>There are palso roblems with Outlook Forms and a lot of minor >>problems if you do an adminstrative install to a whole series >>of machines. >> >>If you run both Access 97 and 2003 from a non admin user you >>have to change an .srg file. >> >> >> -- Marty Connelly Victoria, B.C. Canada From Patricia.O'Connor at otda.state.ny.us Thu Aug 3 13:40:05 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Thu, 3 Aug 2006 14:40:05 -0400 Subject: [AccessD] Upgrade to Office 2003 - Access2k3 -Thank you In-Reply-To: <44D23CE0.8000805@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B270F@EXCNYSM0A1AI.nysemail.nyenet> Thank you ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > MartyConnelly > Sent: Thursday, August 03, 2006 02:14 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Upgrade to Office 2003 - Access2k3 > > I have been running with Jet SP 8.0 for over a year so I have > forgotten any problems that might have occured but it doesn't > affect my version of 97 > 2003 or 2007 > There is a registry key, you can switch if sudden problems > occur with sandbox mode but some form of sandbox has been > around since JetSP4 You should perhaps upgrade to Jet SP8 > before installing Office 2003 It shouldn't affect you unless > you are doing weird things in SQL like SELECT > Shell("c:\windows\System32\calc.exe") FROM Customers; Sandbox > protection applies not just to SQL but also to Form Event properties > > Here is a long article explaining it from Gerry Robinson > > How To Avoid An Access 2003 Sandbox Storm > http://www.vb123.com/toolshed/04_docs/sandbox.htm > > > O'Connor, Patricia (OTDA) wrote: > > >Marty - Thanks for the quick response. > > > >I have not upgraded to SP2 yet. I am currently running a > monthly system > >that has an A2k mdb, an excel workbook with 6 pivot table > with graphs > >created from Excel queries (dqy). The dqy is what populates > the tables > >which sets the graphs. So I figured to run that first > before upgrading > >just in case. > > > >What about the SANDBOX unsafe expressions warning I get when > opening my > >2k mdb. It says to upgrade my jet Microsoft Jet 4.0 Service > Pack 8. > >If I update to this will my old systems no longer work? I > already have > >a > >4.08 version of Jet but it still comes up everytime. > > > >Thanks > >************************************************** > >* Patricia O'Connor > >* Associate Computer Programmer Analyst > >* OTDA - BDMA > >* (W) mailto:Patricia.O'Connor at otda.state.ny.us > >* (w) mailto:aa1160 at nysemail.state.ny.us > >************************************************** > > > > > From Chester_Kaup at kindermorgan.com Thu Aug 3 15:04:34 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:04:34 -0500 Subject: [AccessD] SQL Syntax Problem Message-ID: The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From artful at rogers.com Thu Aug 3 15:39:44 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 3 Aug 2006 13:39:44 -0700 (PDT) Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: <20060803203944.32095.qmail@web88208.mail.re2.yahoo.com> Would you kindly provide the DDL for the table so I can reproduce the situation? No data required, just the DDL. Thanks, Arthur ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:04:34 PM Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Thu Aug 3 15:40:50 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 03 Aug 2006 13:40:50 -0700 Subject: [AccessD] SQL Syntax Problem In-Reply-To: References: Message-ID: <44D25F52.8060001@shaw.ca> If you intended a wildcard Like '" & PID* & "')) should be Like '" & PID & "*')) Kaup, Chester wrote: >The following SQL gives a syntax error of compile error expected >expression when it gets to the & in this part And ((ConfigMaster.PID) >Like '" & PID* & "')). I don't see the problem. PID is text. > > > >strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID >INTO [tbl Pattern Occurances] " & _ > > "FROM [tbl Producers in a Scaleup Pattern] " & _ > > "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup >Pattern].ChildPID = ConfigMaster.ChildPID " & _ > > "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & >PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ > > "GROUP BY ConfigMaster.PID;" > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number of electrons were terribly inconvenienced. > > > > > -- Marty Connelly Victoria, B.C. Canada From Chester_Kaup at kindermorgan.com Thu Aug 3 15:50:29 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:50:29 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: <20060803203944.32095.qmail@web88208.mail.re2.yahoo.com> Message-ID: I must express my ignorance here. What do you mean by DDL? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 03, 2006 3:40 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Would you kindly provide the DDL for the table so I can reproduce the situation? No data required, just the DDL. Thanks, Arthur ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:04:34 PM Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 15:52:26 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Thu, 3 Aug 2006 15:52:26 -0500 Subject: [AccessD] SQL Syntax Problem Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AD6B@MARLOW_MAIN2.marlow.com> Like '" & PID & "*')) Also, keep in mind, if you are using ADO, the * should be a %. Drew -----Original Message----- From: Kaup, Chester [mailto:Chester_Kaup at kindermorgan.com] Sent: Thursday, August 03, 2006 3:05 PM To: Access Developers discussion and problem solving Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Chester_Kaup at kindermorgan.com Thu Aug 3 15:54:45 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:54:45 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: <44D25F52.8060001@shaw.ca> Message-ID: Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Thursday, August 03, 2006 3:41 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem If you intended a wildcard Like '" & PID* & "')) should be Like '" & PID & "*')) Kaup, Chester wrote: >The following SQL gives a syntax error of compile error expected >expression when it gets to the & in this part And ((ConfigMaster.PID) >Like '" & PID* & "')). I don't see the problem. PID is text. > > > >strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID >INTO [tbl Pattern Occurances] " & _ > > "FROM [tbl Producers in a Scaleup Pattern] " & _ > > "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup >Pattern].ChildPID = ConfigMaster.ChildPID " & _ > > "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & >PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ > > "GROUP BY ConfigMaster.PID;" > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number of electrons were terribly inconvenienced. > > > > > -- 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 Chester_Kaup at kindermorgan.com Thu Aug 3 15:58:24 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 15:58:24 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AD6B@MARLOW_MAIN2.marlow.com> Message-ID: Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com Sent: Thursday, August 03, 2006 3:52 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] SQL Syntax Problem Like '" & PID & "*')) Also, keep in mind, if you are using ADO, the * should be a %. Drew -----Original Message----- From: Kaup, Chester [mailto:Chester_Kaup at kindermorgan.com] Sent: Thursday, August 03, 2006 3:05 PM To: Access Developers discussion and problem solving Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 16:05:18 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 3 Aug 2006 14:05:18 -0700 Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: You seem to suggest that all your PIDs start with the prefix "PID". If that is so, then just put the literals into the SQL Statement at that point: "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like 'PID*')) " & _ Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Thursday, August 03, 2006 1:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. From Chester_Kaup at kindermorgan.com Thu Aug 3 16:20:10 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Thu, 3 Aug 2006 16:20:10 -0500 Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: Thanks everyone. That got it. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, August 03, 2006 4:05 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem You seem to suggest that all your PIDs start with the prefix "PID". If that is so, then just put the literals into the SQL Statement at that point: "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like 'PID*')) " & _ Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Thursday, August 03, 2006 1:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Tried your change but when I do a debug print of the problem area of the query I get And ((ConfigMaster.PID) Like '*')) What I need it to say is And ((ConfigMaster.PID) Like 'PID*')) Thanks. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From robert at servicexp.com Thu Aug 3 16:28:18 2006 From: robert at servicexp.com (Robert) Date: Thu, 3 Aug 2006 17:28:18 -0400 Subject: [AccessD] Unprovoked ERROR 3197 fixed....?? In-Reply-To: Message-ID: <000f01c6b743$bdd6a350$6501a8c0@roberts> Gustav, Version 4 Robert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 03, 2006 4:40 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Unprovoked ERROR 3197 fixed....?? Hi Robert Just saw this error today at a client running Access97. It does not happen every day, just once in a while ... Which version of Jet is this hotfix related to? /gustav >>> robert at servicexp.com 25-07-2006 01:02:23 >>> I have been struggling with this problem for more then year and half, looks like it may finally have been resolved. I was able to get the patch and so far (3 weeks now) not one of these errors... I was receiving this error on at least a daily basis; most of the time several times during the day.... Pulled most of my hair out thinking it was something in my design... Thought you guys may want to know.. http://www.databasecreations.com/pdf/JET%20Error%20Issues%20Resolved.pdf Robert -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Thu Aug 3 18:44:00 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 3 Aug 2006 18:44:00 -0500 Subject: [AccessD] [SPAM SUSPECT] Error Trapping In-Reply-To: <23625630.1154623575499.JavaMail.root@sniper18> Message-ID: <001e01c6b756$b2ec7830$0200a8c0@danwaters> Hey Steve! I did not know this one! Very clever . . . :-) Dan Waters -----Original Message----- Subject: Re: [AccessD] [SPAM SUSPECT] Error Trapping Dan, Maybe you already know this but, just in case... One option is change your subprocedure(s) into a function, returning a Boolean value. Default it to return FALSE, by putting this near the top: MyFunction() = FALSE On the very last line of the code, before the error handling section, put: MyFunction() = TRUE In the error handling section, make sure you insert a developer controlled comment in the msgbox, like: "Error occurred in MyFunction" Finally, on the parent procedure, call the subfunction with this: If MyFunction() = False then GoTo ex In this way, you can always know at what level the error handling is triggered, and gracefully shut down the calling context too. Steve Capistrant From Gustav at cactus.dk Fri Aug 4 07:29:04 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 14:29:04 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav From harkins1 at setel.com Fri Aug 4 08:18:01 2006 From: harkins1 at setel.com (Susan Harkins) Date: Fri, 4 Aug 2006 09:18:01 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <000001c6b7c8$69a5e5e0$0301a8c0@SUSANONE> a. 182 b. 233 c. 320 320 From Jim.Hale at FleetPride.com Fri Aug 4 08:28:19 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Fri, 4 Aug 2006 08:28:19 -0500 Subject: [AccessD] OT: Friday info Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE4A@corp-es01.fleetpride.com> and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 Fri Aug 4 09:45:39 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 4 Aug 2006 07:45:39 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Fri Aug 4 09:56:15 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Fri, 4 Aug 2006 10:56:15 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE4A@corp-es01.fleetpride.com> Message-ID: <005501c6b7d6$237da900$647aa8c0@m6805> Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments occurred after Drew joined the list. Of course 7468 were after JWC joined the list. ;-) John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim Sent: Friday, August 04, 2006 9:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 Gustav at cactus.dk Fri Aug 4 10:02:23 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 17:02:23 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. From DWUTKA at marlow.com Fri Aug 4 10:11:00 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 10:11:00 -0500 Subject: [AccessD] OT: Friday info Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7ADBB@MARLOW_MAIN2.marlow.com> I think that answer should be represented with the Eval function: Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) ;) Drew -----Original Message----- From: Hale, Jim [mailto:Jim.Hale at fleetpride.com] Sent: Friday, August 04, 2006 8:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 cfoust at infostatsystems.com Fri Aug 4 10:11:20 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 4 Aug 2006 08:11:20 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: Since I'm not familiar with the weather in Denmark, I'll pass on this one. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 8:02 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From JHewson at karta.com Fri Aug 4 10:15:45 2006 From: JHewson at karta.com (Jim Hewson) Date: Fri, 4 Aug 2006 10:15:45 -0500 Subject: [AccessD] OT: Friday info Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C045C9DC6@karta-exc-int.Karta.com> b. 233 Jim jhewson at karta.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 10:02 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jmhecht at earthlink.net Fri Aug 4 10:19:54 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Fri, 4 Aug 2006 08:19:54 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADBB@MARLOW_MAIN2.marlow.com> Message-ID: SICKER 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: Friday, August 04, 2006 8:11 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info I think that answer should be represented with the Eval function: Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) ;) Drew From Gustav at cactus.dk Fri Aug 4 10:22:45 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 17:22:45 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Charlotte OK, a hint: Many people consider this part of the world the cold North ... /gustav >>> cfoust at infostatsystems.com 04-08-2006 17:11:20 >>> Since I'm not familiar with the weather in Denmark, I'll pass on this one. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 8:02 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Charlotte No tricks. Sunshine. /gustav >>> cfoust at infostatsystems.com 04-08-2006 16:45:39 >>> Sunshine or daylight? I suspect this is a trick question. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. From DWUTKA at marlow.com Fri Aug 4 10:30:50 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 10:30:50 -0500 Subject: [AccessD] OT: Friday info Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7ADBF@MARLOW_MAIN2.marlow.com> Who did you argue with before I joined the list, yourself? Drew -----Original Message----- From: JWColby [mailto:jwcolby at colbyconsulting.com] Sent: Friday, August 04, 2006 9:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments occurred after Drew joined the list. Of course 7468 were after JWC joined the list. ;-) John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim Sent: Friday, August 04, 2006 9:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 artful at rogers.com Fri Aug 4 11:04:54 2006 From: artful at rogers.com (artful at rogers.com) Date: Fri, 4 Aug 2006 09:04:54 -0700 (PDT) Subject: [AccessD] SQL Syntax Problem In-Reply-To: Message-ID: <20060804160454.36130.qmail@web88201.mail.re2.yahoo.com> There are two aspects to SQL: DDL (data definition language) and DML (data manipulation language). What I was requesting was the CREATE TABLE statement that creates your table, so I can create it here and toy with your query. In the abstract I find it difficult to sort out this kind of problem. I much prefer to have an instance of the table to work against. If this table is in Access, you could simply extract that one table into a new MDB and send it to me. If it's in SQL Server, then you can generate the DDL statement directly. ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:50:29 PM Subject: Re: [AccessD] SQL Syntax Problem I must express my ignorance here. What do you mean by DDL? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 03, 2006 3:40 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Syntax Problem Would you kindly provide the DDL for the table so I can reproduce the situation? No data required, just the DDL. Thanks, Arthur ----- Original Message ---- From: "Kaup, Chester" To: Access Developers discussion and problem solving Sent: Thursday, August 3, 2006 4:04:34 PM Subject: [AccessD] SQL Syntax Problem The following SQL gives a syntax error of compile error expected expression when it gets to the & in this part And ((ConfigMaster.PID) Like '" & PID* & "')). I don't see the problem. PID is text. strSQL = "SELECT ConfigMaster.PID, Count(ConfigMaster.PID) AS CountOfPID INTO [tbl Pattern Occurances] " & _ "FROM [tbl Producers in a Scaleup Pattern] " & _ "INNER JOIN ConfigMaster ON [tbl Producers in a Scaleup Pattern].ChildPID = ConfigMaster.ChildPID " & _ "WHERE ((([tbl Producers in a Scaleup Pattern].PID)= '" & PatternName & "' And ((ConfigMaster.PID) Like '" & PID* & "')) " & _ "GROUP BY ConfigMaster.PID;" Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 4 11:32:40 2006 From: artful at rogers.com (artful at rogers.com) Date: Fri, 4 Aug 2006 09:32:40 -0700 (PDT) Subject: [AccessD] OT: Friday info In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADBF@MARLOW_MAIN2.marlow.com> Message-ID: <20060804163240.82560.qmail@web88202.mail.re2.yahoo.com> No, Drew, JC argued with me and a few others. It's always about You, init? However, my work has taken me increasingly into SQL Server and relatively away from Access, so my former regular forays into the arguments here have grown fewer and fewer as time passes. Now I find myself thinking about SQL 2005 and ERwin to the exclusion of most everything else. But I do miss the arguments here. And speaking of which, I think that I'll proffer a self-contradiction here. Long-time readers may recall my strenuous advocations of autonumbers/identity keys. My most recent two projects have caused me to rethink this position. I am beginning to realize the intelligence underlying the "business keys" approach. That is, given three tables, T1, T2 and T3, arranged hierarchically: T1: PK is, say T1PK. T2: inherits T1PK and adds a new column T2K, the combination being unique. T3: inherits its parent PK (T1PK+T2K) and adds a column that produces unique values. Formerly, I judged this scenario a complete waste of time and space. No longer. I have found myself in situations where sids (surrogate IDs) have pointed to sids -- which is ridiculous! I had to create 20+ joins to get the required data assembled. Intelligent (business) keys made the problem a LOT simpler and the retrieval times a LOT faster, and the only cost was disk space. The app already knew what the parent key values were, so it was trivial to write them to the new child record. The point of this is that for years I have advocated position X, but the last two apps made me rethink it, and for those two apps I chose to go the intelligent key approach instead. Mind you, I was dealing with many millions of rows, so that is a factor in the decision, for sure. Arthur ----- Original Message ---- From: DWUTKA at marlow.com To: accessd at databaseadvisors.com Sent: Friday, August 4, 2006 11:30:50 AM Subject: Re: [AccessD] OT: Friday info Who did you argue with before I joined the list, yourself? Drew -----Original Message----- From: JWColby [mailto:jwcolby at colbyconsulting.com] Sent: Friday, August 04, 2006 9:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments occurred after Drew joined the list. Of course 7468 were after JWC joined the list. ;-) John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim Sent: Friday, August 04, 2006 9:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 cclenright at yahoo.com Fri Aug 4 11:36:36 2006 From: cclenright at yahoo.com (Chris Enright) Date: Fri, 4 Aug 2006 09:36:36 -0700 (PDT) Subject: [AccessD] OT: Friday Humour Message-ID: <20060804163636.93361.qmail@web34307.mail.mud.yahoo.com> v\:* {behavior:url (#default#vml);}v\:* { BEHAVIOR: url (#default#vml)} This is probably very old but... A tourist walked into a pet shop and was looking at the animals on display, when another customer walked in and said to the shopkeeper, "I'll have a "C" monkey please." The shopkeeper nodded, went over to a cage at the side of the shop and took out a monkey. "That'll be $5,000." The customer paid and walked out with his monkey. Startled, the tourist went over to the shopkeeper and said, "That was a very expensive monkey. Why did it cost so much?" The shopkeeper answered, "Ah, that monkey can programme in C - very fast, tight code, no bugs, well worth the money." The tourist looked at the monkey in another cage. "That one's even more expensive! $10,000! What does it do?" "Oh, that one's a C++ monkey; it can manage object-oriented programming, Visual C++, even some Java. All the really useful stuff," said the shopkeeper. The tourist looked around for a little longer and saw a third monkey in a cage of its own. The price tag around its neck read $50,000. He gasped to the shopkeeper, "That one costs more than all the others put together! What on earth does it do?" The shopkeeper replied, "Well, I haven't actually seen it do anything, but the other monkeys call him the Management consultant." Chris --------------------------------- Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2?/min or less. From wdhindman at dejpolsystems.com Fri Aug 4 11:48:30 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 4 Aug 2006 12:48:30 -0400 Subject: [AccessD] OT: Friday info References: <005501c6b7d6$237da900$647aa8c0@m6805> Message-ID: <01be01c6b7e5$d1a8eb20$969aa545@50NM721> ...but we all know there was no list before JC joined. William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Friday, August 04, 2006 10:56 AM Subject: Re: [AccessD] OT: Friday info > Rrrrrr, no the answer is 9263. Curiously, 2486 of those arguments > occurred > after Drew joined the list. Of course 7468 were after JWC joined the > list. > > ;-) > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim > Sent: Friday, August 04, 2006 9:28 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] OT: Friday info > > and the final Jeopardy answer is > "How many times have we argued about bound vs unbound forms?": > c. 320 > > Jim Hale > > -----Original Message----- > From: Susan Harkins [mailto:harkins1 at setel.com] > Sent: Friday, August 04, 2006 8:18 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] OT: Friday info > > > > a. 182 > b. 233 > c. 320 > > 320 > > > > -- > 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 markamatte at hotmail.com Fri Aug 4 13:01:39 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 18:01:39 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <01be01c6b7e5$d1a8eb20$969aa545@50NM721> Message-ID: Hello All, I know someone helped me do this a couple of years ago...but I can't find it in my stuff or the archives. I need to search a large pipe delimited text file and remove a string of characters. I'm sure I opened it in vba and did this 'search/edit' thing...but not sure where to start. Also...importing it is not an option due to the one of ther characters I need to delete. any ideas? Thanks, Mark A. Matte From accessd at shaw.ca Fri Aug 4 13:10:17 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Fri, 04 Aug 2006 11:10:17 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <0J3H00JCUJSEOZY0@l-daemon> Hi Gustav: My best guess would be 320 as I know it has been a real hot summer in Europe. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DWUTKA at marlow.com Fri Aug 4 13:10:33 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 13:10:33 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7ADF7@MARLOW_MAIN2.marlow.com> Dim f as long Dim strTemp as string F=freefile Open "C:\PathToFile\FileName.txt" for binary access read as f Strtemp=space(lof(f)) Get f,,strtemp Close f Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") F=freefile Open "C:\NewFile.txt" for binary access write as f Put f,,strtemp Close f If you just want to replace the original file, I recommend using the kill statement to delete the old file, then change the path of the last 'open' statement to rewrite it. If you 'write' a file that is smaller then the one you are writing over, you'll get the remainder at the end. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 1:02 PM To: accessd at databaseadvisors.com Subject: [AccessD] Edit Large text file via VBA Hello All, I know someone helped me do this a couple of years ago...but I can't find it in my stuff or the archives. I need to search a large pipe delimited text file and remove a string of characters. I'm sure I opened it in vba and did this 'search/edit' thing...but not sure where to start. Also...importing it is not an option due to the one of ther characters I need to delete. any ideas? Thanks, Mark A. Matte -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Fri Aug 4 13:14:10 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Fri, 04 Aug 2006 11:14:10 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADBB@MARLOW_MAIN2.marlow.com> Message-ID: <0J3H00JKSJYVOSY0@l-daemon> Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) = minus(x) x equals: a. 182 b. 233 c. 320 :-) Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com Sent: Friday, August 04, 2006 8:11 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info I think that answer should be represented with the Eval function: Eval((JCsFreeTime*DrewsFreeTime)^LengthOfTimeSinceLastHeatedDiscussion) ;) Drew -----Original Message----- From: Hale, Jim [mailto:Jim.Hale at fleetpride.com] Sent: Friday, August 04, 2006 8:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info and the final Jeopardy answer is "How many times have we argued about bound vs unbound forms?": c. 320 Jim Hale -----Original Message----- From: Susan Harkins [mailto:harkins1 at setel.com] Sent: Friday, August 04, 2006 8:18 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] OT: Friday info a. 182 b. 233 c. 320 320 -- 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 Gustav at cactus.dk Fri Aug 4 13:32:40 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 20:32:40 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Jim Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 /gustav >>> accessd at shaw.ca 04-08-2006 20:10:17 >>> Hi Gustav: My best guess would be 320 as I know it has been a real hot summer in Europe. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 5:29 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Friday info Hi all First a small quiz about the July weather in Denmark. How many sunshine hours were measured for the 31 days of July 2006: a. 182 b. 233 c. 320 Nothing to win except the honour. Then, regarding sculptural architecture. How to combine 3000 apartments, unique architecture, 44 playgrounds, and a 20 m wide green grass running track in one space within a city? Can't be done? Well, think twice: http://www.kloverkarreen.dk It's in fact the very first air field of Copenhagen - from the first half of the last century. /gustav From markamatte at hotmail.com Fri Aug 4 13:50:32 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 18:50:32 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7ADF7@MARLOW_MAIN2.marlow.com> Message-ID: Drew, Thanks for the code...I'm getting an error on the OPEN line when I execute...error="Bad file name or number" I even shortened the name to less than 8 characters...no spaces, just letters. Any ideas? Thanks, Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 13:10:33 -0500 > >Dim f as long >Dim strTemp as string >F=freefile >Open "C:\PathToFile\FileName.txt" for binary access read as f >Strtemp=space(lof(f)) >Get f,,strtemp >Close f >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") >F=freefile >Open "C:\NewFile.txt" for binary access write as f >Put f,,strtemp >Close f > > >If you just want to replace the original file, I recommend using the kill >statement to delete the old file, then change the path of the last 'open' >statement to rewrite it. If you 'write' a file that is smaller then the >one >you are writing over, you'll get the remainder at the end. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:02 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] Edit Large text file via VBA > >Hello All, > >I know someone helped me do this a couple of years ago...but I can't find >it > >in my stuff or the archives. > >I need to search a large pipe delimited text file and remove a string of >characters. I'm sure I opened it in vba and did this 'search/edit' >thing...but not sure where to start. > >Also...importing it is not an option due to the one of ther characters I >need to delete. > >any ideas? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From harkins1 at setel.com Fri Aug 4 14:11:30 2006 From: harkins1 at setel.com (Susan Harkins) Date: Fri, 4 Aug 2006 15:11:30 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <000001c6b7f9$cb137eb0$0301a8c0@SUSANONE> Well, I wasn't thinking of global warming but rather your close relationship to the arctic, and it's summer there now, so I figured Denmark probably gets a fair piece of those long winter days too. :) Susan H. Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 From DWUTKA at marlow.com Fri Aug 4 14:19:00 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 14:19:00 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE13@MARLOW_MAIN2.marlow.com> Can you post your code? Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 1:51 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Drew, Thanks for the code...I'm getting an error on the OPEN line when I execute...error="Bad file name or number" I even shortened the name to less than 8 characters...no spaces, just letters. Any ideas? Thanks, Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 13:10:33 -0500 > >Dim f as long >Dim strTemp as string >F=freefile >Open "C:\PathToFile\FileName.txt" for binary access read as f >Strtemp=space(lof(f)) >Get f,,strtemp >Close f >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") >F=freefile >Open "C:\NewFile.txt" for binary access write as f >Put f,,strtemp >Close f > > >If you just want to replace the original file, I recommend using the kill >statement to delete the old file, then change the path of the last 'open' >statement to rewrite it. If you 'write' a file that is smaller then the >one >you are writing over, you'll get the remainder at the end. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:02 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] Edit Large text file via VBA > >Hello All, > >I know someone helped me do this a couple of years ago...but I can't find >it > >in my stuff or the archives. > >I need to search a large pipe delimited text file and remove a string of >characters. I'm sure I opened it in vba and did this 'search/edit' >thing...but not sure where to start. > >Also...importing it is not an option due to the one of ther characters I >need to delete. > >any ideas? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 14:23:52 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 04 Aug 2006 21:23:52 +0200 Subject: [AccessD] OT: Friday info Message-ID: Hi Susan Good thinking! The price, however, to pay for the long summer days - where in the peak months the sky never turns fully black during the night - is the _short_ winter days. Nothing comes free. /gustav >>> harkins1 at setel.com 04-08-2006 21:11:30 >>> Well, I wasn't thinking of global warming but rather your close relationship to the arctic, and it's summer there now, so I figured Denmark probably gets a fair piece of those long winter days too. :) Susan H. Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 From markamatte at hotmail.com Fri Aug 4 14:29:24 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 19:29:24 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE13@MARLOW_MAIN2.marlow.com> Message-ID: Dim f As Long Dim strtemp As String Open "C:\temp\y2003d.txt" For Binary Access Read As f strtemp = Space(LOF(f)) Get f, , strtemp Close f strtemp = Replace(strtemp, "\|", "") f = FreeFile Open "C:\temp\y2003ded.txt" For Binary Access Write As f Put f, , strtemp Close f >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 14:34:42 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 19:34:42 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE13@MARLOW_MAIN2.marlow.com> Message-ID: Sorry Drew...I forgot the F=Freefile Thanks again for the code. Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Fri Aug 4 14:49:42 2006 From: dmcafee at pacbell.net (David McAfee) Date: Fri, 4 Aug 2006 12:49:42 -0700 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: It was the Hottest July on record here in Los Angeles. Up in the San Fernando Valley, we had 22 (or was it 25) days above 100 degrees F, peaking at 117 :( David -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock Sent: Friday, August 04, 2006 11:33 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] OT: Friday info Hi Jim Susan was first and this choice is right except I did a minor mistake - the figure is really 321. It has been the hottest and most sunny July here ever since such recordings were started a long time ago. Note the average temperature too: http://www.dmi.dk/dmi/vejret_i_danmark_-_juli_2006 /gustav From Patricia.O'Connor at otda.state.ny.us Fri Aug 4 14:51:32 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Fri, 4 Aug 2006 15:51:32 -0400 Subject: [AccessD] Access 2k3 Linked Table Manager not showing tables In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2713@EXCNYSM0A1AI.nysemail.nyenet> I have several Access2k mdb that I have opened with Access 2003 but still formatted with 2k. When I try the Linked table manager none of my oracle linked tables are showing up in there. Am I supposed to do something special so 2k3 will do this like 97 & 2k Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 harkins1 at setel.com Fri Aug 4 15:16:46 2006 From: harkins1 at setel.com (Susan Harkins) Date: Fri, 4 Aug 2006 16:16:46 -0400 Subject: [AccessD] OT: Friday info In-Reply-To: Message-ID: <000001c6b802$ea18ff70$0301a8c0@SUSANONE> It's been fairly normal in Kentucky. In fact, June was very mild. Of course, last night, I took the dogs out after dark (about 10:00 pm) and was hit with a sauna, but that's kind of typical for Kentucky mid-summer. Susan H. It was the Hottest July on record here in Los Angeles. Up in the San Fernando Valley, we had 22 (or was it 25) days above 100 degrees F, peaking at 117 :( From markamatte at hotmail.com Fri Aug 4 15:24:53 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 04 Aug 2006 20:24:53 +0000 Subject: [AccessD] Edit Large text file via VBA In-Reply-To: Message-ID: Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 04 Aug 2006 19:34:42 +0000 > >Sorry Drew...I forgot the F=Freefile > >Thanks again for the code. > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 14:19:00 -0500 > > > >Can you post your code? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:51 PM > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Drew, > > > >Thanks for the code...I'm getting an error on the OPEN line when I > >execute...error="Bad file name or number" > > > >I even shortened the name to less than 8 characters...no spaces, just > >letters. > > > >Any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > > >From: DWUTKA at marlow.com > > >Reply-To: Access Developers discussion and problem > > >solving > > >To: accessd at databaseadvisors.com > > >Subject: Re: [AccessD] Edit Large text file via VBA > > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > > > >Dim f as long > > >Dim strTemp as string > > >F=freefile > > >Open "C:\PathToFile\FileName.txt" for binary access read as f > > >Strtemp=space(lof(f)) > > >Get f,,strtemp > > >Close f > > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > > >F=freefile > > >Open "C:\NewFile.txt" for binary access write as f > > >Put f,,strtemp > > >Close f > > > > > > > > >If you just want to replace the original file, I recommend using the >kill > > >statement to delete the old file, then change the path of the last >'open' > > >statement to rewrite it. If you 'write' a file that is smaller then >the > > >one > > >you are writing over, you'll get the remainder at the end. > > > > > >Drew > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Friday, August 04, 2006 1:02 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Edit Large text file via VBA > > > > > >Hello All, > > > > > >I know someone helped me do this a couple of years ago...but I can't >find > > >it > > > > > >in my stuff or the archives. > > > > > >I need to search a large pipe delimited text file and remove a string >of > > >characters. I'm sure I opened it in vba and did this 'search/edit' > > >thing...but not sure where to start. > > > > > >Also...importing it is not an option due to the one of ther characters >I > > >need to delete. > > > > > >any ideas? > > > > > >Thanks, > > > > > >Mark A. Matte > > > > > > > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >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 Aug 4 15:26:17 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Fri, 4 Aug 2006 16:26:17 -0400 Subject: [AccessD] SOLVED - Access 2k3 Linked Table Manager not showing tables In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2713@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2714@EXCNYSM0A1AI.nysemail.nyenet> Solved finally found something on microsoft took 8 searches http://support.microsoft.com/kb/835519/en-us ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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, August 04, 2006 03:52 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Access 2k3 Linked Table Manager not showing tables > > I have several Access2k mdb that I have opened with Access > 2003 but still formatted with 2k. When I try the Linked table > manager none of my oracle linked tables are showing up in > there. Am I supposed to do something special so 2k3 will do > this like 97 & 2k > > Thanks > > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.state.ny.us > ************************************************** > From rusty.hammond at cpiqpc.com Fri Aug 4 15:46:39 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Fri, 4 Aug 2006 15:46:39 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8985@cpixchng-1.cpiqpc.net> Would something like the following work? This would read the text file one line at a time so it assumes a carriage return or carriage return+line feed at the end of each line of your text file. Function CleanFile() Dim strInputFile as string Dim strOutputFile as string Dim strTextLine as string strInputFile = "c:\pathtofile\filename.txt" strOutputFile = "c:\pathtofile\newfilename.txt" Open strInputFile For Input As #1 Open strOutputFile For Output As #2 Do While Not EOF(1) Line Input #1, strTextLine 'Get text lines from the original file strTextLine = Replace(strTextLine,"WhateverCharactersYouWantToReplace","") Print #2, strTextLine 'Print the text lines to the new text file Loop Close #1 Close #2 Kill strInputFile End Function -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 3:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 04 Aug 2006 19:34:42 +0000 > >Sorry Drew...I forgot the F=Freefile > >Thanks again for the code. > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 14:19:00 -0500 > > > >Can you post your code? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:51 PM > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Drew, > > > >Thanks for the code...I'm getting an error on the OPEN line when I > >execute...error="Bad file name or number" > > > >I even shortened the name to less than 8 characters...no spaces, just > >letters. > > > >Any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > > >From: DWUTKA at marlow.com > > >Reply-To: Access Developers discussion and problem > > >solving > > >To: accessd at databaseadvisors.com > > >Subject: Re: [AccessD] Edit Large text file via VBA > > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > > > >Dim f as long > > >Dim strTemp as string > > >F=freefile > > >Open "C:\PathToFile\FileName.txt" for binary access read as f > > >Strtemp=space(lof(f)) > > >Get f,,strtemp > > >Close f > > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > > >F=freefile > > >Open "C:\NewFile.txt" for binary access write as f > > >Put f,,strtemp > > >Close f > > > > > > > > >If you just want to replace the original file, I recommend using the >kill > > >statement to delete the old file, then change the path of the last >'open' > > >statement to rewrite it. If you 'write' a file that is smaller then >the > > >one > > >you are writing over, you'll get the remainder at the end. > > > > > >Drew > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Friday, August 04, 2006 1:02 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Edit Large text file via VBA > > > > > >Hello All, > > > > > >I know someone helped me do this a couple of years ago...but I can't >find > > >it > > > > > >in my stuff or the archives. > > > > > >I need to search a large pipe delimited text file and remove a string >of > > >characters. I'm sure I opened it in vba and did this 'search/edit' > > >thing...but not sure where to start. > > > > > >Also...importing it is not an option due to the one of ther characters >I > > >need to delete. > > > > > >any ideas? > > > > > >Thanks, > > > > > >Mark A. Matte > > > > > > > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/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 DWUTKA at marlow.com Fri Aug 4 16:15:25 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:15:25 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE2C@MARLOW_MAIN2.marlow.com> Ah, your missing the first f=freefile. That sets f to a number that represents a 'file' to the OS. Put it between the 'Dim strtemp As String' and the open statement. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 2:29 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Dim f As Long Dim strtemp As String Open "C:\temp\y2003d.txt" For Binary Access Read As f strtemp = Space(LOF(f)) Get f, , strtemp Close f strtemp = Replace(strtemp, "\|", "") f = FreeFile Open "C:\temp\y2003ded.txt" For Binary Access Write As f Put f, , strtemp Close f >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 16:15:45 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:15:45 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE2D@MARLOW_MAIN2.marlow.com> No problem, would have replied sooner, but went to lunch. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 2:35 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Sorry Drew...I forgot the F=Freefile Thanks again for the code. Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 4 Aug 2006 14:19:00 -0500 > >Can you post your code? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 1:51 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Drew, > >Thanks for the code...I'm getting an error on the OPEN line when I >execute...error="Bad file name or number" > >I even shortened the name to less than 8 characters...no spaces, just >letters. > >Any ideas? > >Thanks, > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > >Dim f as long > >Dim strTemp as string > >F=freefile > >Open "C:\PathToFile\FileName.txt" for binary access read as f > >Strtemp=space(lof(f)) > >Get f,,strtemp > >Close f > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > >F=freefile > >Open "C:\NewFile.txt" for binary access write as f > >Put f,,strtemp > >Close f > > > > > >If you just want to replace the original file, I recommend using the kill > >statement to delete the old file, then change the path of the last 'open' > >statement to rewrite it. If you 'write' a file that is smaller then the > >one > >you are writing over, you'll get the remainder at the end. > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:02 PM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] Edit Large text file via VBA > > > >Hello All, > > > >I know someone helped me do this a couple of years ago...but I can't find > >it > > > >in my stuff or the archives. > > > >I need to search a large pipe delimited text file and remove a string of > >characters. I'm sure I opened it in vba and did this 'search/edit' > >thing...but not sure where to start. > > > >Also...importing it is not an option due to the one of ther characters I > >need to delete. > > > >any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 16:17:14 2006 From: Lambert.Heenan at AIG.COM (Heenan, Lambert) Date: Fri, 4 Aug 2006 16:17:14 -0500 Subject: [AccessD] Edit Large text file via VBA Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F24F3235D@xlivmbx21.aig.com> Instead of Strtemp=space(lof(f)) and then Get() ing the whole file, define a chunk of (say) 50,000,000 bytes. Then you need a loop to Get(CHUNKSIZE), do the replace on it, write the chunk to the new file and then go get the next chunk. Repeat until done. This should be much faster that using Line Input #1, to process it a line at a time. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte Sent: Friday, August 04, 2006 4:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA >Date: Fri, 04 Aug 2006 19:34:42 +0000 > >Sorry Drew...I forgot the F=Freefile > >Thanks again for the code. > >Mark A. Matte > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > >Date: Fri, 4 Aug 2006 14:19:00 -0500 > > > >Can you post your code? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Friday, August 04, 2006 1:51 PM > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Drew, > > > >Thanks for the code...I'm getting an error on the OPEN line when I > >execute...error="Bad file name or number" > > > >I even shortened the name to less than 8 characters...no spaces, just > >letters. > > > >Any ideas? > > > >Thanks, > > > >Mark A. Matte > > > > > > >From: DWUTKA at marlow.com > > >Reply-To: Access Developers discussion and problem > > >solving > > >To: accessd at databaseadvisors.com > > >Subject: Re: [AccessD] Edit Large text file via VBA > > >Date: Fri, 4 Aug 2006 13:10:33 -0500 > > > > > >Dim f as long > > >Dim strTemp as string > > >F=freefile > > >Open "C:\PathToFile\FileName.txt" for binary access read as f > > >Strtemp=space(lof(f)) > > >Get f,,strtemp > > >Close f > > >Strtemp=replace(strtemp,"WhateverCharactersYouWantToReplace","") > > >F=freefile > > >Open "C:\NewFile.txt" for binary access write as f > > >Put f,,strtemp > > >Close f > > > > > > > > >If you just want to replace the original file, I recommend using > > >the >kill > > >statement to delete the old file, then change the path of the last >'open' > > >statement to rewrite it. If you 'write' a file that is smaller > > >then >the > > >one > > >you are writing over, you'll get the remainder at the end. > > > > > >Drew > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Friday, August 04, 2006 1:02 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Edit Large text file via VBA > > > > > >Hello All, > > > > > >I know someone helped me do this a couple of years ago...but I > > >can't >find > > >it > > > > > >in my stuff or the archives. > > > > > >I need to search a large pipe delimited text file and remove a > > >string >of > > >characters. I'm sure I opened it in vba and did this 'search/edit' > > >thing...but not sure where to start. > > > > > >Also...importing it is not an option due to the one of ther > > >characters >I > > >need to delete. > > > > > >any ideas? > > > > > >Thanks, > > > > > >Mark A. Matte > > > > > > > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >-- > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 4 16:28:25 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:28:25 -0500 Subject: [AccessD] FW: Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE34@MARLOW_MAIN2.marlow.com> You can use the same code, but 'chunk' the read... The get statement retrieves the amount of data available in the strTemp variable, ie: strTemp=Space(lof(f)) get f,,strTemp in the first line, it is setting strtemp as a string (of spaces) the length of the file (lof statement, f being the file pointer). The get statement can be used to read portions of the file. By default, it keeps reading through, for example: Dim f as Long Dim intBufferSize As Long Dim strTemp as string Dim intSpaceRemaining as Long intBufferSize=512 F=freefile Open "C:\YourTextFile.txt" for binary access read as f intSpaceRemaining=lof(f) do until intspaceremaining=0 if intBuffersize>intSpaceRemaining then intBuffersize=intSpaceRemaining strTemp=Space(intBuffersize) get f,,strTemp strTemp=Replace(strTemp,"YourCharacters","") intspaceremaining=intspaceremaining-intbuffersize loop close f In this example, it just keeps reading chunks (512 bytes (or characters) at a time). You can be writing to a new file at the same time, just need a different variable to represent the NewFile pointer. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 3:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files. The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S... The largest is just over 150 mb From DWUTKA at marlow.com Fri Aug 4 16:55:42 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Fri, 4 Aug 2006 16:55:42 -0500 Subject: [AccessD] FW: Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD7AE40@MARLOW_MAIN2.marlow.com> ________________________________________ From: Drew Wutka Sent: Friday, August 04, 2006 4:28 PM To: 'Access Developers discussion and problem solving' Subject: FW: [AccessD] Edit Large text file via VBA You can use the same code, but 'chunk' the read... The get statement retrieves the amount of data available in the strTemp variable, ie: strTemp=Space(lof(f)) get f,,strTemp in the first line, it is setting strtemp as a string (of spaces) the length of the file (lof statement, f being the file pointer). The get statement can be used to read portions of the file.? By default, it keeps reading through, for example: Dim f as Long Dim intBufferSize As Long Dim strTemp as string Dim intSpaceRemaining as Long intBufferSize=512 F=freefile Open "C:\YourTextFile.txt" for binary access read as f intSpaceRemaining=lof(f) do until intspaceremaining=0 ????? if intBuffersize>intSpaceRemaining then intBuffersize=intSpaceRemaining ????? strTemp=Space(intBuffersize) ????? get f,,strTemp ????? strTemp=Replace(strTemp,"YourCharacters","") ????? intspaceremaining=intspaceremaining-intbuffersize loop close f In this example, it just keeps reading chunks (512 bytes (or characters) at a time).? You can be writing to a new file at the same time, just need a different variable to represent the NewFile pointer. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Friday, August 04, 2006 3:25 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Edit Large text file via VBA Thanks again Drew. I might have forgotten to mention that these are farely LARGE text files.? The one it is crashing on is 138 mb ...error= "Out of String Space" Any other ideas? Thanks again, Mark A. Matte P.S...? The largest is just over 150 mb From markamatte at hotmail.com Fri Aug 4 23:02:06 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Sat, 05 Aug 2006 04:02:06 +0000 Subject: [AccessD] FW: Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE40@MARLOW_MAIN2.marlow.com> Message-ID: Drew, I am home already(having cool refreshing beverages)...thank you very much for the help...I will plug in your latest version Monday. I hope you have a wonderful weekend!!! Thanks again, Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:55:42 -0500 > > > >________________________________________ >From: Drew Wutka >Sent: Friday, August 04, 2006 4:28 PM >To: 'Access Developers discussion and problem solving' >Subject: FW: [AccessD] Edit Large text file via VBA > >You can use the same code, but 'chunk' the read... > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > >strTemp=Space(lof(f)) >get f,,strTemp > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > >The get statement can be used to read portions of the file.? By default, it >keeps reading through, for example: > >Dim f as Long >Dim intBufferSize As Long >Dim strTemp as string >Dim intSpaceRemaining as Long >intBufferSize=512 >F=freefile >Open "C:\YourTextFile.txt" for binary access read as f >intSpaceRemaining=lof(f) >do until intspaceremaining=0 >????? if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining >????? strTemp=Space(intBuffersize) >????? get f,,strTemp >????? strTemp=Replace(strTemp,"YourCharacters","") >????? intspaceremaining=intspaceremaining-intbuffersize >loop >close f > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time).? You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Thanks again Drew. > >I might have forgotten to mention that these are farely LARGE text files.? >The one it is crashing on is 138 mb ...error= "Out of String Space" > >Any other ideas? > >Thanks again, > >Mark A. Matte > >P.S...? The largest is just over 150 mb > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Sat Aug 5 09:37:15 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Sat, 5 Aug 2006 10:37:15 -0400 Subject: [AccessD] Move update Message-ID: <002001c6b89c$a69db480$647aa8c0@m6805> Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. http://www.caldwellcochamber.org/main.asp http://www.city-data.com/city/Hudson-North-Carolina.html Hickory is 13 miles away towards the south. http://www.city-data.com/city/Hickory-North-Carolina.html We managed to find an awesome house - 3300 heated square feet, 1700 unheated (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new master bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch built in 1990 with a huge master bed/bath/office extension added in 2000. The house is really beautiful, built by a builder for his daughter and so has all top quality materials and workmanship. It sits all by itself on a one lane road, about 1000 feet off of the "main road" (which isn't all that busy either), so there is no traffic to speak of on our "driveway". Woods and fields on either side of the house, though there is a very nice (well kept) subdivision across the "road" (driveway) from us, we look at their back yards out across our front yard. There are about 10 tiny springs that run water down the back of my property creating a small creek, so my 5 year old son Robbie is down there every day building dams and looking for salamanders and crawdads. We are kind of "out in the country", with a couple of small towns within two miles. There is a small convenience store / gas station (which sells gas for $2.87 / gallon at the moment) just about a quarter mile up the main road. Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes hardware about 4 miles away. North about 8 miles is Lenoir which has all the typical shopping. South about 13 miles is Hickory with even more shopping. 60 miles south is Charlotte, with the closest major airport. We really like being outside of town so this is a perfect match for us. We arrived Saturday morning (July 22nd), the truck with all out possessions arrived Monday, and we almost killed ourselves getting it unloaded (with a lot of volunteer help - they refused payment!). My office is a mess but I am slowly digging out. Lots to do still. We got a refrigerator last Tuesday, and had a sectional delivered Wed. We sold a lot of our furniture since Hickory is known as the furniture capital of the US and furniture is really cheap down here. So we then purchased a beautiful 60" round solid oak dining table with 6 chairs for an incredible price! I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as I am accustomed to but serviceable. I have tested remote access to my client DIS and it works. So basically, the move is done. I am still running around getting business done - drivers license, register car, getting business checking, DBA paperwork etc. but we are now home in Hudson. John W. Colby Colby Consulting www.ColbyConsulting.com From ssharkins at setel.com Sat Aug 5 09:52:27 2006 From: ssharkins at setel.com (Susan Harkins) Date: Sat, 5 Aug 2006 10:52:27 -0400 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <000d01c6b89e$c5a471f0$0301a8c0@SUSANONE> Congratulations -- it sounds grand. I have a good friend in Lenoir -- I really like it down there. Susan H. Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. From shamil at users.mns.ru Sat Aug 5 11:31:42 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Sat, 5 Aug 2006 20:31:42 +0400 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <001901c6b8ac$a3a14a20$6501a8c0@nant> My congratulations, John! -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 6:37 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. <<< tail skipped >>> From wdhindman at dejpolsystems.com Sat Aug 5 12:28:20 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sat, 5 Aug 2006 13:28:20 -0400 Subject: [AccessD] Move update References: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <003001c6b8b4$8c850630$969aa545@50NM721> ...not many better places to raise kids than the Blueridge ...congratulations, JC :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 05, 2006 10:37 AM Subject: [AccessD] Move update > Just an update for the list members. If you remember, 6 or 8 months ago I > was asking questions of list members re North Carolina. Well, last week > we > moved out of the house we were leasing, and drove down to Hudson, NC - our > "official" home town now. > > > http://www.caldwellcochamber.org/main.asp > > > http://www.city-data.com/city/Hudson-North-Carolina.html > > Hickory is 13 miles away towards the south. > > > http://www.city-data.com/city/Hickory-North-Carolina.html > > We managed to find an awesome house - 3300 heated square feet, 1700 > unheated > (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new > master > bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a > ranch > built in 1990 with a huge master bed/bath/office extension added in 2000. > The house is really beautiful, built by a builder for his daughter and so > has all top quality materials and workmanship. It sits all by itself on a > one lane road, about 1000 feet off of the "main road" (which isn't all > that > busy either), so there is no traffic to speak of on our "driveway". Woods > and fields on either side of the house, though there is a very nice (well > kept) subdivision across the "road" (driveway) from us, we look at their > back yards out across our front yard. There are about 10 tiny springs > that > run water down the back of my property creating a small creek, so my 5 > year > old son Robbie is down there every day building dams and looking for > salamanders and crawdads. > > We are kind of "out in the country", with a couple of small towns within > two > miles. There is a small convenience store / gas station (which sells gas > for > $2.87 / gallon at the moment) just about a quarter mile up the main road. > Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes > hardware about 4 miles away. North about 8 miles is Lenoir which has all > the > typical shopping. South about 13 miles is Hickory with even more shopping. > 60 miles south is Charlotte, with the closest major airport. We really > like > being outside of town so this is a perfect match for us. > > We arrived Saturday morning (July 22nd), the truck with all out > possessions > arrived Monday, and we almost killed ourselves getting it unloaded (with a > lot of volunteer help - they refused payment!). My office is a mess but I > am > slowly digging out. Lots to do still. We got a refrigerator last Tuesday, > and had a sectional delivered Wed. We sold a lot of our furniture since > Hickory is known as the furniture capital of the US and furniture is > really > cheap down here. So we then purchased a beautiful 60" round solid oak > dining table with 6 chairs for an incredible price! > > I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as > I > am accustomed to but serviceable. I have tested remote access to my client > DIS and it works. > > So basically, the move is done. I am still running around getting > business > done - drivers license, register car, getting business checking, DBA > paperwork etc. but we are now home in Hudson. > > John W. Colby > Colby Consulting > 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 Aug 5 12:37:56 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Sat, 5 Aug 2006 13:37:56 -0400 Subject: [AccessD] Move update In-Reply-To: <001901c6b8ac$a3a14a20$6501a8c0@nant> Message-ID: <002801c6b8b5$e4112cc0$647aa8c0@m6805> Shamil, I will be in touch ASAP. Thanks, John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil Salakhetdinov Sent: Saturday, August 05, 2006 12:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Move update My congratulations, John! -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 6:37 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. <<< tail skipped >>> -- 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 Sat Aug 5 13:36:35 2006 From: lembit.dbamail at t-online.de (Lembit Soobik) Date: Sat, 5 Aug 2006 20:36:35 +0200 Subject: [AccessD] Move update References: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <001201c6b8be$15276c40$1400a8c0@v1000> congratulations John, seems you found a real good place to live and work Lembit ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 05, 2006 4:37 PM Subject: [AccessD] Move update > Just an update for the list members. If you remember, 6 or 8 months ago I > was asking questions of list members re North Carolina. Well, last week > we > moved out of the house we were leasing, and drove down to Hudson, NC - our > "official" home town now. > > > http://www.caldwellcochamber.org/main.asp > > > http://www.city-data.com/city/Hudson-North-Carolina.html > > Hickory is 13 miles away towards the south. > > > http://www.city-data.com/city/Hickory-North-Carolina.html > > We managed to find an awesome house - 3300 heated square feet, 1700 > unheated > (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new > master > bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a > ranch > built in 1990 with a huge master bed/bath/office extension added in 2000. > The house is really beautiful, built by a builder for his daughter and so > has all top quality materials and workmanship. It sits all by itself on a > one lane road, about 1000 feet off of the "main road" (which isn't all > that > busy either), so there is no traffic to speak of on our "driveway". Woods > and fields on either side of the house, though there is a very nice (well > kept) subdivision across the "road" (driveway) from us, we look at their > back yards out across our front yard. There are about 10 tiny springs > that > run water down the back of my property creating a small creek, so my 5 > year > old son Robbie is down there every day building dams and looking for > salamanders and crawdads. > > We are kind of "out in the country", with a couple of small towns within > two > miles. There is a small convenience store / gas station (which sells gas > for > $2.87 / gallon at the moment) just about a quarter mile up the main road. > Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes > hardware about 4 miles away. North about 8 miles is Lenoir which has all > the > typical shopping. South about 13 miles is Hickory with even more shopping. > 60 miles south is Charlotte, with the closest major airport. We really > like > being outside of town so this is a perfect match for us. > > We arrived Saturday morning (July 22nd), the truck with all out > possessions > arrived Monday, and we almost killed ourselves getting it unloaded (with a > lot of volunteer help - they refused payment!). My office is a mess but I > am > slowly digging out. Lots to do still. We got a refrigerator last Tuesday, > and had a sectional delivered Wed. We sold a lot of our furniture since > Hickory is known as the furniture capital of the US and furniture is > really > cheap down here. So we then purchased a beautiful 60" round solid oak > dining table with 6 chairs for an incredible price! > > I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as > I > am accustomed to but serviceable. I have tested remote access to my client > DIS and it works. > > So basically, the move is done. I am still running around getting > business > done - drivers license, register car, getting business checking, DBA > paperwork etc. but we are now home in Hudson. > > John W. Colby > Colby Consulting > www.ColbyConsulting.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.394 / Virus Database: 268.10.7/409 - Release Date: 04.08.2006 > > From accessd at shaw.ca Sat Aug 5 13:42:49 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 05 Aug 2006 11:42:49 -0700 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <0J3J00GHCFZ0OB00@l-daemon> Hi John: Sounds like a quite an estate! :-) The area looks grand but if you could send along some pictures of the abode we/I would have a better idea of where we would be staying if we came for a visit. A definite congratulation! Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 7:37 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. http://www.caldwellcochamber.org/main.asp http://www.city-data.com/city/Hudson-North-Carolina.html Hickory is 13 miles away towards the south. http://www.city-data.com/city/Hickory-North-Carolina.html We managed to find an awesome house - 3300 heated square feet, 1700 unheated (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new master bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch built in 1990 with a huge master bed/bath/office extension added in 2000. The house is really beautiful, built by a builder for his daughter and so has all top quality materials and workmanship. It sits all by itself on a one lane road, about 1000 feet off of the "main road" (which isn't all that busy either), so there is no traffic to speak of on our "driveway". Woods and fields on either side of the house, though there is a very nice (well kept) subdivision across the "road" (driveway) from us, we look at their back yards out across our front yard. There are about 10 tiny springs that run water down the back of my property creating a small creek, so my 5 year old son Robbie is down there every day building dams and looking for salamanders and crawdads. We are kind of "out in the country", with a couple of small towns within two miles. There is a small convenience store / gas station (which sells gas for $2.87 / gallon at the moment) just about a quarter mile up the main road. Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes hardware about 4 miles away. North about 8 miles is Lenoir which has all the typical shopping. South about 13 miles is Hickory with even more shopping. 60 miles south is Charlotte, with the closest major airport. We really like being outside of town so this is a perfect match for us. We arrived Saturday morning (July 22nd), the truck with all out possessions arrived Monday, and we almost killed ourselves getting it unloaded (with a lot of volunteer help - they refused payment!). My office is a mess but I am slowly digging out. Lots to do still. We got a refrigerator last Tuesday, and had a sectional delivered Wed. We sold a lot of our furniture since Hickory is known as the furniture capital of the US and furniture is really cheap down here. So we then purchased a beautiful 60" round solid oak dining table with 6 chairs for an incredible price! I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as I am accustomed to but serviceable. I have tested remote access to my client DIS and it works. So basically, the move is done. I am still running around getting business done - drivers license, register car, getting business checking, DBA paperwork etc. but we are now home in Hudson. John W. Colby Colby Consulting www.ColbyConsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From carbonnb at sympatico.ca Sat Aug 5 13:49:41 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Sat, 05 Aug 2006 14:49:41 -0400 Subject: [AccessD] Move update In-Reply-To: <0J3J00GHCFZ0OB00@l-daemon> References: <002001c6b89c$a69db480$647aa8c0@m6805>, <0J3J00GHCFZ0OB00@l-daemon> Message-ID: On 5 Aug 2006 at 11:42, Jim Lawrence wrote: > Sounds like a quite an estate! :-) The area looks grand but if you could > send along some pictures of the abode we/I would have a better idea of > where we would be staying if we came for a visit. Don't you mean when :) Sounds like an amazing place John!! A place I know I'd love too Quite the coincidence too, I grew up in a place called Hudson, Quebec :) -- Bryan Carbonnell - carbonnb at sympatico.ca When there's a will, I want to be in it. From accessd at shaw.ca Sat Aug 5 14:33:46 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 05 Aug 2006 12:33:46 -0700 Subject: [AccessD] OT request In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <0J3J00GLGIBVOB20@l-daemon> Hi All: Any help please. I have been having some problems with my internet connections. They keep cycling off and on. The ISP seems nonplus about the situation and I believe they are doing some renovations or design upgraded which is causing havoc. I have to first determine that there are not some internal network issues that may be directly or indirectly causing some problems or whether it is totally an external event. To that end does anyone know of or have an application that can monitor 'pings' for example. If times when the site losses it access can be recorded then it can be cross-referenced against server network events. Regardless of the results this would determine cause or at least the guilty party. MTIA Jim From robert at servicexp.com Sat Aug 5 14:39:41 2006 From: robert at servicexp.com (Robert) Date: Sat, 5 Aug 2006 15:39:41 -0400 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: <000401c6b8c6$e5782710$6501a8c0@roberts> I'm jealous..... Robert SNIP From martyconnelly at shaw.ca Sat Aug 5 14:55:03 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sat, 05 Aug 2006 12:55:03 -0700 Subject: [AccessD] OT request In-Reply-To: <0J3J00GLGIBVOB20@l-daemon> References: <0J3J00GLGIBVOB20@l-daemon> Message-ID: <44D4F797.1090500@shaw.ca> Well I am on same ISP and area and Thursday and Friday I was getting hourly "work off-line" popup messages, so I guess I was losing connection, Haven't noticed it today. Just another case of Last night upon the stair I saw a man who wasn't there He wasn't there again today Oh how I wish he'd go away. Jim Lawrence wrote: >Hi All: > >Any help please. > >I have been having some problems with my internet connections. They keep >cycling off and on. The ISP seems nonplus about the situation and I believe >they are doing some renovations or design upgraded which is causing havoc. > >I have to first determine that there are not some internal network issues >that may be directly or indirectly causing some problems or whether it is >totally an external event. > >To that end does anyone know of or have an application that can monitor >'pings' for example. If times when the site losses it access can be recorded >then it can be cross-referenced against server network events. Regardless of >the results this would determine cause or at least the guilty party. > >MTIA >Jim > > > -- Marty Connelly Victoria, B.C. Canada From accessd at shaw.ca Sat Aug 5 17:15:17 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 05 Aug 2006 15:15:17 -0700 Subject: [AccessD] OT request In-Reply-To: <44D4F797.1090500@shaw.ca> Message-ID: <0J3J00753PT1FPF0@l-daemon> Thank you Marty... Glad for the local update as other areas in the city seem either not affected or less affected. As we live so close one of these days we should T up for coffee.... now back to work.... what a way to waste a beautiful Saturday. Regards Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Saturday, August 05, 2006 12:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] OT request Well I am on same ISP and area and Thursday and Friday I was getting hourly "work off-line" popup messages, so I guess I was losing connection, Haven't noticed it today. Just another case of Last night upon the stair I saw a man who wasn't there He wasn't there again today Oh how I wish he'd go away. Jim Lawrence wrote: >Hi All: > >Any help please. > >I have been having some problems with my internet connections. They keep >cycling off and on. The ISP seems nonplus about the situation and I believe >they are doing some renovations or design upgraded which is causing havoc. > >I have to first determine that there are not some internal network issues >that may be directly or indirectly causing some problems or whether it is >totally an external event. > >To that end does anyone know of or have an application that can monitor >'pings' for example. If times when the site losses it access can be recorded >then it can be cross-referenced against server network events. Regardless of >the results this would determine cause or at least the guilty party. > >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 stuart at lexacorp.com.pg Sat Aug 5 19:11:07 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sun, 06 Aug 2006 10:11:07 +1000 Subject: [AccessD] Move update In-Reply-To: <0J3J00GHCFZ0OB00@l-daemon> References: <002001c6b89c$a69db480$647aa8c0@m6805>, <0J3J00GHCFZ0OB00@l-daemon> Message-ID: <44D5C03B.21874.1AEEB6@stuart.lexacorp.com.pg> On 5 Aug 2006 at 11:42, Jim Lawrence wrote: > Hi John: > > Sounds like a quite an estate! :-) The area looks grand but if you could > send along some pictures of the abode we/I would have a better idea of where > we would be staying if we came for a visit. > How about a Google Earth link? Here's one to my humble abode. (You can copy it and paste it into GE's "My Places" Stuart McLachlan's House 147.2003449707596 -9.463899125387561 48.00852926872756 -3.413644024727666e-010 -0.2796713234446147 root://styleMaps#default+nicon=0x307+hicon=0x317 147.2002818840805,-9.463970665195062,0 -- Stuart From jmhecht at earthlink.net Sat Aug 5 22:44:03 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Sat, 5 Aug 2006 20:44:03 -0700 Subject: [AccessD] Move update In-Reply-To: <0J3J00GHCFZ0OB00@l-daemon> Message-ID: I think we know the site if the next Access-d Conference. ; ) 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: Saturday, August 05, 2006 11:43 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Move update Hi John: Sounds like a quite an estate! :-) The area looks grand but if you could send along some pictures of the abode we/I would have a better idea of where we would be staying if we came for a visit. A definite congratulation! Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Saturday, August 05, 2006 7:37 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Move update Just an update for the list members. If you remember, 6 or 8 months ago I was asking questions of list members re North Carolina. Well, last week we moved out of the house we were leasing, and drove down to Hudson, NC - our "official" home town now. http://www.caldwellcochamber.org/main.asp http://www.city-data.com/city/Hudson-North-Carolina.html Hickory is 13 miles away towards the south. http://www.city-data.com/city/Hickory-North-Carolina.html We managed to find an awesome house - 3300 heated square feet, 1700 unheated (basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new master bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch built in 1990 with a huge master bed/bath/office extension added in 2000. The house is really beautiful, built by a builder for his daughter and so has all top quality materials and workmanship. It sits all by itself on a one lane road, about 1000 feet off of the "main road" (which isn't all that busy either), so there is no traffic to speak of on our "driveway". Woods and fields on either side of the house, though there is a very nice (well kept) subdivision across the "road" (driveway) from us, we look at their back yards out across our front yard. There are about 10 tiny springs that run water down the back of my property creating a small creek, so my 5 year old son Robbie is down there every day building dams and looking for salamanders and crawdads. We are kind of "out in the country", with a couple of small towns within two miles. There is a small convenience store / gas station (which sells gas for $2.87 / gallon at the moment) just about a quarter mile up the main road. Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes hardware about 4 miles away. North about 8 miles is Lenoir which has all the typical shopping. South about 13 miles is Hickory with even more shopping. 60 miles south is Charlotte, with the closest major airport. We really like being outside of town so this is a perfect match for us. We arrived Saturday morning (July 22nd), the truck with all out possessions arrived Monday, and we almost killed ourselves getting it unloaded (with a lot of volunteer help - they refused payment!). My office is a mess but I am slowly digging out. Lots to do still. We got a refrigerator last Tuesday, and had a sectional delivered Wed. We sold a lot of our furniture since Hickory is known as the furniture capital of the US and furniture is really cheap down here. So we then purchased a beautiful 60" round solid oak dining table with 6 chairs for an incredible price! I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as I am accustomed to but serviceable. I have tested remote access to my client DIS and it works. So basically, the move is done. I am still running around getting business done - drivers license, register car, getting business checking, DBA paperwork etc. but we are now home in Hudson. John W. Colby Colby Consulting 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 Mon Aug 7 08:15:03 2006 From: darrend at nimble.com.au (Darren DICK) Date: Mon, 7 Aug 2006 23:15:03 +1000 Subject: [AccessD] A2003:Rename Files in a folder Message-ID: <20060807131521.MSSA10893.omta02ps.mx.bigpond.com@DENZILLAP> Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:\CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance Darren From markamatte at hotmail.com Mon Aug 7 09:08:12 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 07 Aug 2006 14:08:12 +0000 Subject: [AccessD] Move update In-Reply-To: <002001c6b89c$a69db480$647aa8c0@m6805> Message-ID: Congrats JC... Let me know when...I'll buy the first round...Looks like I'm only 1.5 hours E NE. I live in Greensboro. My girlfriend and I might actually be going to Hickory in a couple of weeks. If you're available maybe we can grab lunch or something. Mark A. Matte >From: "JWColby" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: [AccessD] Move update >Date: Sat, 5 Aug 2006 10:37:15 -0400 > >Just an update for the list members. If you remember, 6 or 8 months ago I >was asking questions of list members re North Carolina. Well, last week we >moved out of the house we were leasing, and drove down to Hudson, NC - our >"official" home town now. > > >http://www.caldwellcochamber.org/main.asp > > >http://www.city-data.com/city/Hudson-North-Carolina.html > >Hickory is 13 miles away towards the south. > > >http://www.city-data.com/city/Hickory-North-Carolina.html > >We managed to find an awesome house - 3300 heated square feet, 1700 >unheated >(basement), 4 bedroom, 4 & 1/2 bathroom, with an office above the new >master >bedroom, and a rec room in the basement, on 1 acre, for $260K. It's a ranch >built in 1990 with a huge master bed/bath/office extension added in 2000. >The house is really beautiful, built by a builder for his daughter and so >has all top quality materials and workmanship. It sits all by itself on a >one lane road, about 1000 feet off of the "main road" (which isn't all that >busy either), so there is no traffic to speak of on our "driveway". Woods >and fields on either side of the house, though there is a very nice (well >kept) subdivision across the "road" (driveway) from us, we look at their >back yards out across our front yard. There are about 10 tiny springs that >run water down the back of my property creating a small creek, so my 5 year >old son Robbie is down there every day building dams and looking for >salamanders and crawdads. > >We are kind of "out in the country", with a couple of small towns within >two >miles. There is a small convenience store / gas station (which sells gas >for >$2.87 / gallon at the moment) just about a quarter mile up the main road. >Two supermarkets and a CVS pharmacy about 2 miles away, and a huge Lowes >hardware about 4 miles away. North about 8 miles is Lenoir which has all >the >typical shopping. South about 13 miles is Hickory with even more shopping. >60 miles south is Charlotte, with the closest major airport. We really >like >being outside of town so this is a perfect match for us. > >We arrived Saturday morning (July 22nd), the truck with all out possessions >arrived Monday, and we almost killed ourselves getting it unloaded (with a >lot of volunteer help - they refused payment!). My office is a mess but I >am >slowly digging out. Lots to do still. We got a refrigerator last Tuesday, >and had a sectional delivered Wed. We sold a lot of our furniture since >Hickory is known as the furniture capital of the US and furniture is really >cheap down here. So we then purchased a beautiful 60" round solid oak >dining table with 6 chairs for an incredible price! > >I got internet on July 25th - cable - 3 mbit down, 256k up. Not as fast as >I >am accustomed to but serviceable. I have tested remote access to my client >DIS and it works. > >So basically, the move is done. I am still running around getting business >done - drivers license, register car, getting business checking, DBA >paperwork etc. but we are now home in Hudson. > >John W. Colby >Colby Consulting >www.ColbyConsulting.com > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Mon Aug 7 09:37:05 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 10:37:05 -0400 Subject: [AccessD] A2003:Rename Files in a folder References: <20060807131521.MSSA10893.omta02ps.mx.bigpond.com@DENZILLAP> Message-ID: <005001c6ba2e$f4f64500$969aa545@50NM721> ...from VBA "Help" Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. ...FMS has some more elaborate code that should give you a running start http://www.fmsinc.com/free/newtips/Access/accesstip31.asp ...hth William ----- Original Message ----- From: "Darren DICK" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 07, 2006 9:15 AM Subject: [AccessD] A2003:Rename Files in a folder > Hi all > > I have to loop through a folder and rename all the files in it to have > some text > as a prefix > > For EG there may be a folder C:\CoolFolder > In it may be 5 files or 5000 files that are all sequentially numbered and > named > like... > 1012.pdf, 1013.pdf, 1014.pdf etc etc > > What I need to do is loop all the files and add a prefix such as "inv" so > the > file names become > inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc > > Any pointers - anyone got any file renaming snippets they'd care to share? > > many thanks in advance > > Darren > > > -- > 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 Aug 7 10:47:21 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Mon, 7 Aug 2006 15:47:21 +0000 Subject: [AccessD] A2003:Rename Files in a folder Message-ID: <20060807144725.E95732732B4@smtp.nildram.co.uk> Hiya matey. This might help. Function RenameFilesInFolder(strFolder As String) Dim strFullFolder As String Dim strFilename As String Dim strFullFileName As String Dim strNewFullFilename As String strFullFolder = strFolder & IIf(Right(strFolder, 1) <> "\", "\", "") strFilename = Dir(strFullFolder & "*.*", vbNormal) Do While strFilename <> "" strFullFileName = strFullFolder & strFilename strNewFullFilename = strFullFolder & "inv" & strFilename Name strFullFileName As strNewFullFilename strFilename = Dir Loop End Function See ya. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "'Access Developers discussion and problem solving'" Subject: [AccessD] A2003:Rename Files in a folder Date: 07/08/06 13:19 Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance Darren -- 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 markamatte at hotmail.com Mon Aug 7 09:59:14 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 07 Aug 2006 14:59:14 +0000 Subject: [AccessD] FW: Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE34@MARLOW_MAIN2.marlow.com> Message-ID: Thanks Drew...but I'm kinda lost on this part: >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. I know I need to do this...but I would have to do it within the loop...and can I have to files open at the same time? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:28:25 -0500 > >You can use the same code, but 'chunk' the read... > > > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > > > >strTemp=Space(lof(f)) > >get f,,strTemp > > > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > > > >The get statement can be used to read portions of the file. By default, it >keeps reading through, for example: > > > >Dim f as Long > >Dim intBufferSize As Long > >Dim strTemp as string > >Dim intSpaceRemaining as Long > >intBufferSize=512 > >F=freefile > >Open "C:\YourTextFile.txt" for binary access read as f > >intSpaceRemaining=lof(f) > >do until intspaceremaining=0 > > if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining > > strTemp=Space(intBuffersize) > > get f,,strTemp > > strTemp=Replace(strTemp,"YourCharacters","") > > intspaceremaining=intspaceremaining-intbuffersize > >loop > >close f > > > > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > > > >Drew > > > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Thanks again Drew. > > > >I might have forgotten to mention that these are farely LARGE text files. > >The one it is crashing on is 138 mb ...error= "Out of String Space" > > > >Any other ideas? > > > >Thanks again, > > > >Mark A. Matte > > > >P.S... The largest is just over 150 mb > > > >-- >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 Aug 7 09:59:32 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 07:59:32 -0700 Subject: [AccessD] Broken Reference Message-ID: <44D75554.8070700@san.rr.com> Dear List: I have a client who prints bar coded labels through an application called Bartender (cute, huh?). I wrote a production management system for them which contains all the information in the db that they are inputting manually into Bartender. So the client asked me to add a function to the app to run Bartender from the production system and that is working great. To do this I downloaded and installed the trial version of Bartender and so was able to set a reference to it in the VBA code so I could run Bartender from the client's app (stuff like Public BtApp As BarTender.Application and Public BtFormat As BarTender.Format and Set BtApp = CreateObject("BarTender.Application")). Problem is that the app won't run on any machine which doesn't have Bartender loaded - it gets a broken reference error when the app opens. So I'm wondering how to handle this. Perhaps I unset the reference in the Tools-->References and set it when the bar code form opens? Or is there a way to trap and get around this error when the app loads? What's the best way to handle this? MTIA, Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From markamatte at hotmail.com Mon Aug 7 10:11:06 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 07 Aug 2006 15:11:06 +0000 Subject: [AccessD] FW: Edit Large text file via VBA In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD7AE40@MARLOW_MAIN2.marlow.com> Message-ID: Ok please disregard the last post...its Monday and apparently I'm not thinking clear...I rewrote using the example below...and apparently my code had run once...opened the file I was going to create...and crashed. And after that...evertime I tried I tried to execute I got the error File Already Open... ....anyway...blahhh....blahhh.blahhh... It works now. Very many thanks to all that contributed. Mark A. Matte >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:55:42 -0500 > > > >________________________________________ >From: Drew Wutka >Sent: Friday, August 04, 2006 4:28 PM >To: 'Access Developers discussion and problem solving' >Subject: FW: [AccessD] Edit Large text file via VBA > >You can use the same code, but 'chunk' the read... > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > >strTemp=Space(lof(f)) >get f,,strTemp > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > >The get statement can be used to read portions of the file.? By default, it >keeps reading through, for example: > >Dim f as Long >Dim intBufferSize As Long >Dim strTemp as string >Dim intSpaceRemaining as Long >intBufferSize=512 >F=freefile >Open "C:\YourTextFile.txt" for binary access read as f >intSpaceRemaining=lof(f) >do until intspaceremaining=0 >????? if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining >????? strTemp=Space(intBuffersize) >????? get f,,strTemp >????? strTemp=Replace(strTemp,"YourCharacters","") >????? intspaceremaining=intspaceremaining-intbuffersize >loop >close f > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time).? You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > >Thanks again Drew. > >I might have forgotten to mention that these are farely LARGE text files.? >The one it is crashing on is 138 mb ...error= "Out of String Space" > >Any other ideas? > >Thanks again, > >Mark A. Matte > >P.S...? The largest is just over 150 mb > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From askolits at ot.com Mon Aug 7 10:13:00 2006 From: askolits at ot.com (John Skolits) Date: Mon, 7 Aug 2006 11:13:00 -0400 Subject: [AccessD] A2003:Rename Files in a folder In-Reply-To: <20060807131521.MSSA10893.omta02ps.mx.bigpond.com@DENZILLAP> Message-ID: <004a01c6ba33$fbe3da30$800101df@officexp> Here ya' go: Function RenameFiles() Dim strFileName As String Dim strPath As String 'Set Your Path '***Important, Make sure you include the last backslash strPath = "C:\Temp\" 'Return the 'first' filename in the folder strFileName = Dir(strPath) Do Until strFileName = "" 'rename it Name strPath & strFileName As strPath & "INV" & strFileName 'If you just execute the DIR() function, it returns the next file in the folder. strFileName = Dir Loop End Function John Skolits -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK Sent: Monday, August 07, 2006 9:15 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] A2003:Rename Files in a folder Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:\CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Mon Aug 7 10:50:38 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 11:50:38 -0400 Subject: [AccessD] Broken Reference References: <44D75554.8070700@san.rr.com> Message-ID: <00a901c6ba39$3b348e00$969aa545@50NM721> Rocky ...Neal Kling has a references sample mdb that I use in modified form ...you can run it at your app open and check for broken references since it uses no references itself ...it lets you fix or remove them ...no reason you couldn't call the function using the known reference and do whatever you needed to with it. http://www.geocities.com/nealakling/index.html William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Monday, August 07, 2006 10:59 AM Subject: [AccessD] Broken Reference > Dear List: > > I have a client who prints bar coded labels through an application > called Bartender (cute, huh?). I wrote a production management system > for them which contains all the information in the db that they are > inputting manually into Bartender. So the client asked me to add a > function to the app to run Bartender from the production system and that > is working great. > > To do this I downloaded and installed the trial version of Bartender and > so was able to set a reference to it in the VBA code so I could run > Bartender from the client's app (stuff like Public BtApp As > BarTender.Application and Public BtFormat As BarTender.Format and Set > BtApp = CreateObject("BarTender.Application")). > > Problem is that the app won't run on any machine which doesn't have > Bartender loaded - it gets a broken reference error when the app opens. > > So I'm wondering how to handle this. Perhaps I unset the reference in > the Tools-->References and set it when the bar code form opens? Or is > there a way to trap and get around this error when the app loads? > > What's the best way to handle this? > > MTIA, > > 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 cfoust at infostatsystems.com Mon Aug 7 10:52:10 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 7 Aug 2006 08:52:10 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D75554.8070700@san.rr.com> Message-ID: I'll tell you what we did to handle a similar situation with Redemption and the CDO libraries: We put all the direct calls to the redemption dll into a code library compiled as an mde. When the CDO library is missing, the redemption library sinks the broken reference. Our Access code makes calls to the mde, which the regular application to go on about its business without a broken reference, and we do a test for the CDO library in our regular app and disable the email capabilities if it's not present. No calls to redemption, no broken reference errors. 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, August 07, 2006 8:00 AM To: Access Developers discussion and problem solving Subject: [AccessD] Broken Reference Dear List: I have a client who prints bar coded labels through an application called Bartender (cute, huh?). I wrote a production management system for them which contains all the information in the db that they are inputting manually into Bartender. So the client asked me to add a function to the app to run Bartender from the production system and that is working great. To do this I downloaded and installed the trial version of Bartender and so was able to set a reference to it in the VBA code so I could run Bartender from the client's app (stuff like Public BtApp As BarTender.Application and Public BtFormat As BarTender.Format and Set BtApp = CreateObject("BarTender.Application")). Problem is that the app won't run on any machine which doesn't have Bartender loaded - it gets a broken reference error when the app opens. So I'm wondering how to handle this. Perhaps I unset the reference in the Tools-->References and set it when the bar code form opens? Or is there a way to trap and get around this error when the app loads? What's the best way to handle this? MTIA, 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 Mon Aug 7 11:17:21 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 09:17:21 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <00a901c6ba39$3b348e00$969aa545@50NM721> References: <44D75554.8070700@san.rr.com> <00a901c6ba39$3b348e00$969aa545@50NM721> Message-ID: <44D76791.5040801@san.rr.com> Thanks. Looks like it will do the job. Rocky William Hindman wrote: > Rocky > > ...Neal Kling has a references sample mdb that I use in modified form ...you > can run it at your app open and check for broken references since it uses no > references itself ...it lets you fix or remove them ...no reason you > couldn't call the function using the known reference and do whatever you > needed to with it. > > http://www.geocities.com/nealakling/index.html > > William > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Monday, August 07, 2006 10:59 AM > Subject: [AccessD] Broken Reference > > > >> Dear List: >> >> I have a client who prints bar coded labels through an application >> called Bartender (cute, huh?). I wrote a production management system >> for them which contains all the information in the db that they are >> inputting manually into Bartender. So the client asked me to add a >> function to the app to run Bartender from the production system and that >> is working great. >> >> To do this I downloaded and installed the trial version of Bartender and >> so was able to set a reference to it in the VBA code so I could run >> Bartender from the client's app (stuff like Public BtApp As >> BarTender.Application and Public BtFormat As BarTender.Format and Set >> BtApp = CreateObject("BarTender.Application")). >> >> Problem is that the app won't run on any machine which doesn't have >> Bartender loaded - it gets a broken reference error when the app opens. >> >> So I'm wondering how to handle this. Perhaps I unset the reference in >> the Tools-->References and set it when the bar code form opens? Or is >> there a way to trap and get around this error when the app loads? >> >> What's the best way to handle this? >> >> MTIA, >> >> 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 >> >> > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Mon Aug 7 11:53:58 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 09:53:58 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D75554.8070700@san.rr.com> References: <44D75554.8070700@san.rr.com> Message-ID: <44D77026.9030107@shaw.ca> You are mixing Early and Late Binding methods First remove the reference Then just change your declarations to things like Public BtApp As Object 'BarTender.Application Public BtFormat As String 'BarTender.Format If you are unsure of the type returned try using a variant especially in the case of returned arrays. or leave both types in and do a conditional compile around them #Const DebugVersion = 0 #if DebugVersion = 1 then Dim wa as BarTender.Application Set wa = new BarTender.Application #else Dim wa as Object set wa = createobject ("BarTender.Application") #endif You'l have to set the flag to 1 (#Const DebugVersion = 1) and then add a reference to Bartender for the debug intellisence to work.. Then to check if Bartender is actually installed on the machine On Error Resume Next Set objExcelapp = CreateObject("BarTender.Application") If Err.Number Then MsgBox "Bartender not installed or not registered for Automation" Exit Sub End If 'reset error Rocky Smolin - Beach Access Software wrote: >Dear List: > >I have a client who prints bar coded labels through an application >called Bartender (cute, huh?). I wrote a production management system >for them which contains all the information in the db that they are >inputting manually into Bartender. So the client asked me to add a >function to the app to run Bartender from the production system and that >is working great. > >To do this I downloaded and installed the trial version of Bartender and >so was able to set a reference to it in the VBA code so I could run >Bartender from the client's app (stuff like Public BtApp As >BarTender.Application and Public BtFormat As BarTender.Format and Set >BtApp = CreateObject("BarTender.Application")). > >Problem is that the app won't run on any machine which doesn't have >Bartender loaded - it gets a broken reference error when the app opens. > >So I'm wondering how to handle this. Perhaps I unset the reference in >the Tools-->References and set it when the bar code form opens? Or is >there a way to trap and get around this error when the app loads? > >What's the best way to handle this? > >MTIA, > >Rocky > > > -- Marty Connelly Victoria, B.C. Canada From shamil at users.mns.ru Mon Aug 7 10:22:43 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Mon, 7 Aug 2006 19:22:43 +0400 Subject: [AccessD] Broken Reference In-Reply-To: <44D75554.8070700@san.rr.com> Message-ID: <002401c6ba35$5467a730$6401a8c0@nant> Rocky, You can drop reference and use late (run-time) binding. Setting references on run-time will not work for MDEs. Setting references on run-time for MDBs will force your application (FE) database to loose compiled state. I'd also encapsulate all the calls to BarTender application's functions into a custom class. -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Monday, August 07, 2006 7:00 PM To: Access Developers discussion and problem solving Subject: [AccessD] Broken Reference Dear List: I have a client who prints bar coded labels through an application called Bartender (cute, huh?). I wrote a production management system for them which contains all the information in the db that they are inputting manually into Bartender. So the client asked me to add a function to the app to run Bartender from the production system and that is working great. To do this I downloaded and installed the trial version of Bartender and so was able to set a reference to it in the VBA code so I could run Bartender from the client's app (stuff like Public BtApp As BarTender.Application and Public BtFormat As BarTender.Format and Set BtApp = CreateObject("BarTender.Application")). Problem is that the app won't run on any machine which doesn't have Bartender loaded - it gets a broken reference error when the app opens. So I'm wondering how to handle this. Perhaps I unset the reference in the Tools-->References and set it when the bar code form opens? Or is there a way to trap and get around this error when the app loads? What's the best way to handle this? MTIA, 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 Mon Aug 7 12:30:04 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 10:30:04 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <002401c6ba35$5467a730$6401a8c0@nant> References: <002401c6ba35$5467a730$6401a8c0@nant> Message-ID: <44D7789C.2060608@san.rr.com> Shamil: "Setting references on run-time for MDBs will force your application (FE)database to loose compiled state." Any penalty for that? "I'd also encapsulate all the calls to BarTender application's functions into a custom class." A bit beyond my talents at the moment but I suppose I should learn how to do it. But the late binding thing looks like the way to go. I'll try it with Marty's snips. I have a second machine without BarTender I can test it on. What happens if I don't put all the BarTender functions in a custom class? Rocky Shamil Salakhetdinov wrote: > Rocky, > > You can drop reference and use late (run-time) binding. > Setting references on run-time will not work for MDEs. > Setting references on run-time for MDBs will force your application (FE) > database to loose compiled state. > > I'd also encapsulate all the calls to BarTender application's functions into > a custom class. > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Monday, August 07, 2006 7:00 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Broken Reference > > Dear List: > > I have a client who prints bar coded labels through an application > called Bartender (cute, huh?). I wrote a production management system > for them which contains all the information in the db that they are > inputting manually into Bartender. So the client asked me to add a > function to the app to run Bartender from the production system and that > is working great. > > To do this I downloaded and installed the trial version of Bartender and > so was able to set a reference to it in the VBA code so I could run > Bartender from the client's app (stuff like Public BtApp As > BarTender.Application and Public BtFormat As BarTender.Format and Set > BtApp = CreateObject("BarTender.Application")). > > Problem is that the app won't run on any machine which doesn't have > Bartender loaded - it gets a broken reference error when the app opens. > > So I'm wondering how to handle this. Perhaps I unset the reference in > the Tools-->References and set it when the bar code form opens? Or is > there a way to trap and get around this error when the app loads? > > What's the best way to handle this? > > MTIA, > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Mon Aug 7 12:30:34 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 10:30:34 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D77026.9030107@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> Message-ID: <44D778BA.9080308@san.rr.com> That looks like what I'm really looking for. Late binding. I'll give it a try. Thanks and regards, Rocky MartyConnelly wrote: > You are mixing Early and Late Binding methods > First remove the reference > Then just change your declarations to things like > > Public BtApp As Object 'BarTender.Application > Public BtFormat As String 'BarTender.Format > > > If you are unsure of the type returned try using a variant > especially in the case of returned arrays. > > or leave both types in and do a conditional compile around them > > #Const DebugVersion = 0 > > #if DebugVersion = 1 then > Dim wa as BarTender.Application > Set wa = new BarTender.Application > #else > Dim wa as Object > set wa = createobject ("BarTender.Application") > #endif > You'l have to set the flag to 1 > (#Const DebugVersion = 1) > and then add a reference to Bartender > for the debug intellisence to work.. > > Then to check if Bartender is actually installed on the machine > > On Error Resume Next > Set objExcelapp = CreateObject("BarTender.Application") > If Err.Number Then > MsgBox "Bartender not installed or not registered for Automation" > Exit Sub > End If > 'reset error > > > > > Rocky Smolin - Beach Access Software wrote: > > >> Dear List: >> >> I have a client who prints bar coded labels through an application >> called Bartender (cute, huh?). I wrote a production management system >> for them which contains all the information in the db that they are >> inputting manually into Bartender. So the client asked me to add a >> function to the app to run Bartender from the production system and that >> is working great. >> >> To do this I downloaded and installed the trial version of Bartender and >> so was able to set a reference to it in the VBA code so I could run >> Bartender from the client's app (stuff like Public BtApp As >> BarTender.Application and Public BtFormat As BarTender.Format and Set >> BtApp = CreateObject("BarTender.Application")). >> >> Problem is that the app won't run on any machine which doesn't have >> Bartender loaded - it gets a broken reference error when the app opens. >> >> So I'm wondering how to handle this. Perhaps I unset the reference in >> the Tools-->References and set it when the bar code form opens? Or is >> there a way to trap and get around this error when the app loads? >> >> What's the best way to handle this? >> >> MTIA, >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From DWUTKA at marlow.com Mon Aug 7 12:56:08 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Mon, 7 Aug 2006 12:56:08 -0500 Subject: [AccessD] FW: Edit Large text file via VBA Message-ID: <17724746D360394AA3BFE5B8D40A9C1BDCAC@MARLOW_MAIN2.marlow.com> Yep. Ie: Dim f as long Dim g as long F=freefile G=freefile Open ..... for binary access read as f Open ..... for binary access write as g Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Monday, August 07, 2006 9:59 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] FW: Edit Large text file via VBA Thanks Drew...but I'm kinda lost on this part: >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. I know I need to do this...but I would have to do it within the loop...and can I have to files open at the same time? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: [AccessD] FW: Edit Large text file via VBA >Date: Fri, 4 Aug 2006 16:28:25 -0500 > >You can use the same code, but 'chunk' the read... > > > >The get statement retrieves the amount of data available in the strTemp >variable, ie: > > > >strTemp=Space(lof(f)) > >get f,,strTemp > > > >in the first line, it is setting strtemp as a string (of spaces) the length >of the file (lof statement, f being the file pointer). > > > >The get statement can be used to read portions of the file. By default, it >keeps reading through, for example: > > > >Dim f as Long > >Dim intBufferSize As Long > >Dim strTemp as string > >Dim intSpaceRemaining as Long > >intBufferSize=512 > >F=freefile > >Open "C:\YourTextFile.txt" for binary access read as f > >intSpaceRemaining=lof(f) > >do until intspaceremaining=0 > > if intBuffersize>intSpaceRemaining then >intBuffersize=intSpaceRemaining > > strTemp=Space(intBuffersize) > > get f,,strTemp > > strTemp=Replace(strTemp,"YourCharacters","") > > intspaceremaining=intspaceremaining-intbuffersize > >loop > >close f > > > > > >In this example, it just keeps reading chunks (512 bytes (or characters) at >a time). You can be writing to a new file at the same time, just need a >different variable to represent the NewFile pointer. > > > >Drew > > > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Friday, August 04, 2006 3:25 PM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] Edit Large text file via VBA > > > >Thanks again Drew. > > > >I might have forgotten to mention that these are farely LARGE text files. > >The one it is crashing on is 138 mb ...error= "Out of String Space" > > > >Any other ideas? > > > >Thanks again, > > > >Mark A. Matte > > > >P.S... The largest is just over 150 mb > > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 7 13:07:49 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 11:07:49 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D77026.9030107@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> Message-ID: <44D78175.2000407@san.rr.com> Marty: I deleted the Reference to Bartender and changed the declarations to: Public BtApp As Object 'BarTender.Application Public BtFormat As Variant 'BarTender.Format In the load event I put: Set BtApp = CreateObject("BarTender.Application") In the Print event however, on the line Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) I get an 'argument not optional' error. With the old declarations it worked. Any idea what's going wrong? Thanks and regards, Rocky MartyConnelly wrote: > You are mixing Early and Late Binding methods > First remove the reference > Then just change your declarations to things like > > Public BtApp As Object 'BarTender.Application > Public BtFormat As String 'BarTender.Format > > > If you are unsure of the type returned try using a variant > especially in the case of returned arrays. > > or leave both types in and do a conditional compile around them > > #Const DebugVersion = 0 > > #if DebugVersion = 1 then > Dim wa as BarTender.Application > Set wa = new BarTender.Application > #else > Dim wa as Object > set wa = createobject ("BarTender.Application") > #endif > You'l have to set the flag to 1 > (#Const DebugVersion = 1) > and then add a reference to Bartender > for the debug intellisence to work.. > > Then to check if Bartender is actually installed on the machine > > On Error Resume Next > Set objExcelapp = CreateObject("BarTender.Application") > If Err.Number Then > MsgBox "Bartender not installed or not registered for Automation" > Exit Sub > End If > 'reset error > > > > > Rocky Smolin - Beach Access Software wrote: > > >> Dear List: >> >> I have a client who prints bar coded labels through an application >> called Bartender (cute, huh?). I wrote a production management system >> for them which contains all the information in the db that they are >> inputting manually into Bartender. So the client asked me to add a >> function to the app to run Bartender from the production system and that >> is working great. >> >> To do this I downloaded and installed the trial version of Bartender and >> so was able to set a reference to it in the VBA code so I could run >> Bartender from the client's app (stuff like Public BtApp As >> BarTender.Application and Public BtFormat As BarTender.Format and Set >> BtApp = CreateObject("BarTender.Application")). >> >> Problem is that the app won't run on any machine which doesn't have >> Bartender loaded - it gets a broken reference error when the app opens. >> >> So I'm wondering how to handle this. Perhaps I unset the reference in >> the Tools-->References and set it when the bar code form opens? Or is >> there a way to trap and get around this error when the app loads? >> >> What's the best way to handle this? >> >> MTIA, >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Mon Aug 7 13:13:16 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Mon, 7 Aug 2006 22:13:16 +0400 Subject: [AccessD] Broken Reference In-Reply-To: <44D7789C.2060608@san.rr.com> Message-ID: <000601c6ba4d$27aa05e0$6401a8c0@nant> Rocky, With compiled state lost large MS Access applications will run slower. That's the only penalty I know. Recompiling can be done on run-time using SysCmd(...) but this technique is not 100% safe I think and I don't know does it work with MS Access runtime or not. Instead of custom class you can use standard wrapper module with wrapper functions - I'd prefix them e.g. using bta prefix string: - btaCreateObject() - btaWhatEverItDoes(...) - ... - btaDispose() btaCreateObject() would create "BarTender.Application" object and would set module level object variable to created object instance (if any). All the other wrapper module's functions/subs would check if object variable is not nothing and if it's not then make a call to "BarTender.Application" object's methods or its related objects' methods. -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Monday, August 07, 2006 9:30 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Broken Reference Shamil: "Setting references on run-time for MDBs will force your application (FE)database to loose compiled state." Any penalty for that? "I'd also encapsulate all the calls to BarTender application's functions into a custom class." A bit beyond my talents at the moment but I suppose I should learn how to do it. But the late binding thing looks like the way to go. I'll try it with Marty's snips. I have a second machine without BarTender I can test it on. What happens if I don't put all the BarTender functions in a custom class? Rocky Shamil Salakhetdinov wrote: > Rocky, > > You can drop reference and use late (run-time) binding. > Setting references on run-time will not work for MDEs. > Setting references on run-time for MDBs will force your application (FE) > database to loose compiled state. > > I'd also encapsulate all the calls to BarTender application's functions into > a custom class. > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Monday, August 07, 2006 7:00 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Broken Reference > > Dear List: > > I have a client who prints bar coded labels through an application > called Bartender (cute, huh?). I wrote a production management system > for them which contains all the information in the db that they are > inputting manually into Bartender. So the client asked me to add a > function to the app to run Bartender from the production system and that > is working great. > > To do this I downloaded and installed the trial version of Bartender and > so was able to set a reference to it in the VBA code so I could run > Bartender from the client's app (stuff like Public BtApp As > BarTender.Application and Public BtFormat As BarTender.Format and Set > BtApp = CreateObject("BarTender.Application")). > > Problem is that the app won't run on any machine which doesn't have > Bartender loaded - it gets a broken reference error when the app opens. > > So I'm wondering how to handle this. Perhaps I unset the reference in > the Tools-->References and set it when the bar code form opens? Or is > there a way to trap and get around this error when the app loads? > > What's the best way to handle this? > > MTIA, > > 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 martyconnelly at shaw.ca Mon Aug 7 13:20:18 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 11:20:18 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D78175.2000407@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> Message-ID: <44D78462.4080204@shaw.ca> If you are setting it, you must be returning an object rather than a variant. Set a reference to bartender and look at the values in the Object Browser libary for Bartender to see what they should be set to. Rocky Smolin - Beach Access Software wrote: >Marty: > >I deleted the Reference to Bartender and changed the declarations to: > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >In the load event I put: > >Set BtApp = CreateObject("BarTender.Application") >In the Print event however, on the line > >Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error. With the old declarations it >worked. Any idea what's going wrong? > >Thanks and regards, > >Rocky > > >MartyConnelly wrote: > > >>You are mixing Early and Late Binding methods >>First remove the reference >>Then just change your declarations to things like >> >>Public BtApp As Object 'BarTender.Application >>Public BtFormat As String 'BarTender.Format >> >> >>If you are unsure of the type returned try using a variant >>especially in the case of returned arrays. >> >>or leave both types in and do a conditional compile around them >> >>#Const DebugVersion = 0 >> >>#if DebugVersion = 1 then >> Dim wa as BarTender.Application >> Set wa = new BarTender.Application >>#else >> Dim wa as Object >> set wa = createobject ("BarTender.Application") >>#endif >>You'l have to set the flag to 1 >> (#Const DebugVersion = 1) >>and then add a reference to Bartender >>for the debug intellisence to work.. >> >>Then to check if Bartender is actually installed on the machine >> >> On Error Resume Next >>Set objExcelapp = CreateObject("BarTender.Application") >>If Err.Number Then >> MsgBox "Bartender not installed or not registered for Automation" >> Exit Sub >> End If >>'reset error >> >> >> >> >>Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>>Dear List: >>> >>>I have a client who prints bar coded labels through an application >>>called Bartender (cute, huh?). I wrote a production management system >>>for them which contains all the information in the db that they are >>>inputting manually into Bartender. So the client asked me to add a >>>function to the app to run Bartender from the production system and that >>>is working great. >>> >>>To do this I downloaded and installed the trial version of Bartender and >>>so was able to set a reference to it in the VBA code so I could run >>>Bartender from the client's app (stuff like Public BtApp As >>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>BtApp = CreateObject("BarTender.Application")). >>> >>>Problem is that the app won't run on any machine which doesn't have >>>Bartender loaded - it gets a broken reference error when the app opens. >>> >>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>the Tools-->References and set it when the bar code form opens? Or is >>>there a way to trap and get around this error when the app loads? >>> >>>What's the best way to handle this? >>> >>>MTIA, >>> >>>Rocky >>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From martyconnelly at shaw.ca Mon Aug 7 13:27:02 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 11:27:02 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D78462.4080204@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> Message-ID: <44D785F6.8030501@shaw.ca> Err the Object Browser should tell you the data type being returned. if you have the reference set. MartyConnelly wrote: >If you are setting it, you must be returning an object rather than a >variant. >Set a reference to bartender and look at the values in the Object Browser >libary for Bartender to see what they should be set to. > >Rocky Smolin - Beach Access Software wrote: > > > >>Marty: >> >>I deleted the Reference to Bartender and changed the declarations to: >> >>Public BtApp As Object 'BarTender.Application >>Public BtFormat As Variant 'BarTender.Format >> >>In the load event I put: >> >>Set BtApp = CreateObject("BarTender.Application") >>In the Print event however, on the line >> >>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >>I get an 'argument not optional' error. With the old declarations it >>worked. Any idea what's going wrong? >> >>Thanks and regards, >> >>Rocky >> >> >>MartyConnelly wrote: >> >> >> >> >>>You are mixing Early and Late Binding methods >>>First remove the reference >>>Then just change your declarations to things like >>> >>>Public BtApp As Object 'BarTender.Application >>>Public BtFormat As String 'BarTender.Format >>> >>> >>>If you are unsure of the type returned try using a variant >>>especially in the case of returned arrays. >>> >>>or leave both types in and do a conditional compile around them >>> >>>#Const DebugVersion = 0 >>> >>>#if DebugVersion = 1 then >>> Dim wa as BarTender.Application >>> Set wa = new BarTender.Application >>>#else >>> Dim wa as Object >>> set wa = createobject ("BarTender.Application") >>>#endif >>>You'l have to set the flag to 1 >>> (#Const DebugVersion = 1) >>>and then add a reference to Bartender >>>for the debug intellisence to work.. >>> >>>Then to check if Bartender is actually installed on the machine >>> >>> On Error Resume Next >>>Set objExcelapp = CreateObject("BarTender.Application") >>>If Err.Number Then >>> MsgBox "Bartender not installed or not registered for Automation" >>> Exit Sub >>> End If >>>'reset error >>> >>> >>> >>> >>>Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>> >>> >>>>Dear List: >>>> >>>>I have a client who prints bar coded labels through an application >>>>called Bartender (cute, huh?). I wrote a production management system >>>>for them which contains all the information in the db that they are >>>>inputting manually into Bartender. So the client asked me to add a >>>>function to the app to run Bartender from the production system and that >>>>is working great. >>>> >>>>To do this I downloaded and installed the trial version of Bartender and >>>>so was able to set a reference to it in the VBA code so I could run >>>>Bartender from the client's app (stuff like Public BtApp As >>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>BtApp = CreateObject("BarTender.Application")). >>>> >>>>Problem is that the app won't run on any machine which doesn't have >>>>Bartender loaded - it gets a broken reference error when the app opens. >>>> >>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>the Tools-->References and set it when the bar code form opens? Or is >>>>there a way to trap and get around this error when the app loads? >>>> >>>>What's the best way to handle this? >>>> >>>>MTIA, >>>> >>>>Rocky >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Mon Aug 7 13:42:50 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 11:42:50 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D785F6.8030501@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> Message-ID: <44D789AA.4040702@san.rr.com> It says Formats is a member of Bar Tender. and Open is a member of Formats. Where do I see the data type being returned? T&R Rocky MartyConnelly wrote: > Err the Object Browser should tell you the data type being returned. > if you have the reference set. > > MartyConnelly wrote: > > >> If you are setting it, you must be returning an object rather than a >> variant. >> Set a reference to bartender and look at the values in the Object Browser >> libary for Bartender to see what they should be set to. >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>> Marty: >>> >>> I deleted the Reference to Bartender and changed the declarations to: >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> In the load event I put: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> In the Print event however, on the line >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error. With the old declarations it >>> worked. Any idea what's going wrong? >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> MartyConnelly wrote: >>> >>> >>> >>> >>> >>>> You are mixing Early and Late Binding methods >>>> First remove the reference >>>> Then just change your declarations to things like >>>> >>>> Public BtApp As Object 'BarTender.Application >>>> Public BtFormat As String 'BarTender.Format >>>> >>>> >>>> If you are unsure of the type returned try using a variant >>>> especially in the case of returned arrays. >>>> >>>> or leave both types in and do a conditional compile around them >>>> >>>> #Const DebugVersion = 0 >>>> >>>> #if DebugVersion = 1 then >>>> Dim wa as BarTender.Application >>>> Set wa = new BarTender.Application >>>> #else >>>> Dim wa as Object >>>> set wa = createobject ("BarTender.Application") >>>> #endif >>>> You'l have to set the flag to 1 >>>> (#Const DebugVersion = 1) >>>> and then add a reference to Bartender >>>> for the debug intellisence to work.. >>>> >>>> Then to check if Bartender is actually installed on the machine >>>> >>>> On Error Resume Next >>>> Set objExcelapp = CreateObject("BarTender.Application") >>>> If Err.Number Then >>>> MsgBox "Bartender not installed or not registered for Automation" >>>> Exit Sub >>>> End If >>>> 'reset error >>>> >>>> >>>> >>>> >>>> Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>> Dear List: >>>>> >>>>> I have a client who prints bar coded labels through an application >>>>> called Bartender (cute, huh?). I wrote a production management system >>>>> for them which contains all the information in the db that they are >>>>> inputting manually into Bartender. So the client asked me to add a >>>>> function to the app to run Bartender from the production system and that >>>>> is working great. >>>>> >>>>> To do this I downloaded and installed the trial version of Bartender and >>>>> so was able to set a reference to it in the VBA code so I could run >>>>> Bartender from the client's app (stuff like Public BtApp As >>>>> BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>> BtApp = CreateObject("BarTender.Application")). >>>>> >>>>> Problem is that the app won't run on any machine which doesn't have >>>>> Bartender loaded - it gets a broken reference error when the app opens. >>>>> >>>>> So I'm wondering how to handle this. Perhaps I unset the reference in >>>>> the Tools-->References and set it when the bar code form opens? Or is >>>>> there a way to trap and get around this error when the app loads? >>>>> >>>>> What's the best way to handle this? >>>>> >>>>> MTIA, >>>>> >>>>> Rocky >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Mon Aug 7 14:42:45 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 12:42:45 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D789AA.4040702@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> Message-ID: <44D797B5.7090202@shaw.ca> Under the library selection pane of OB, when you open the library the two lower panes the left most has the members, It will say somethinglike classes, select the one you want and its members are displayed in the right pane, left click on the one you want to see in right pane and its calling parameters input and ouput will be displayed in lowest pane along with datatypes. You also may have to right click and select hidden members. Rocky Smolin - Beach Access Software wrote: >It says Formats is a member of Bar Tender. and Open is a member of >Formats. Where do I see the data type being returned? > >T&R > >Rocky > > >MartyConnelly wrote: > > >>Err the Object Browser should tell you the data type being returned. >>if you have the reference set. >> >>MartyConnelly wrote: >> >> >> >> >>>If you are setting it, you must be returning an object rather than a >>>variant. >>>Set a reference to bartender and look at the values in the Object Browser >>>libary for Bartender to see what they should be set to. >>> >>>Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>> >>> >>>>Marty: >>>> >>>>I deleted the Reference to Bartender and changed the declarations to: >>>> >>>>Public BtApp As Object 'BarTender.Application >>>>Public BtFormat As Variant 'BarTender.Format >>>> >>>>In the load event I put: >>>> >>>>Set BtApp = CreateObject("BarTender.Application") >>>>In the Print event however, on the line >>>> >>>>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>> >>>>I get an 'argument not optional' error. With the old declarations it >>>>worked. Any idea what's going wrong? >>>> >>>>Thanks and regards, >>>> >>>>Rocky >>>> >>>> >>>>MartyConnelly wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>>You are mixing Early and Late Binding methods >>>>>First remove the reference >>>>>Then just change your declarations to things like >>>>> >>>>>Public BtApp As Object 'BarTender.Application >>>>>Public BtFormat As String 'BarTender.Format >>>>> >>>>> >>>>>If you are unsure of the type returned try using a variant >>>>>especially in the case of returned arrays. >>>>> >>>>>or leave both types in and do a conditional compile around them >>>>> >>>>>#Const DebugVersion = 0 >>>>> >>>>>#if DebugVersion = 1 then >>>>> Dim wa as BarTender.Application >>>>> Set wa = new BarTender.Application >>>>>#else >>>>> Dim wa as Object >>>>> set wa = createobject ("BarTender.Application") >>>>>#endif >>>>>You'l have to set the flag to 1 >>>>> (#Const DebugVersion = 1) >>>>>and then add a reference to Bartender >>>>>for the debug intellisence to work.. >>>>> >>>>>Then to check if Bartender is actually installed on the machine >>>>> >>>>>On Error Resume Next >>>>>Set objExcelapp = CreateObject("BarTender.Application") >>>>>If Err.Number Then >>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>> Exit Sub >>>>>End If >>>>>'reset error >>>>> >>>>> >>>>> >>>>> >>>>>Rocky Smolin - Beach Access Software wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Dear List: >>>>>> >>>>>>I have a client who prints bar coded labels through an application >>>>>>called Bartender (cute, huh?). I wrote a production management system >>>>>>for them which contains all the information in the db that they are >>>>>>inputting manually into Bartender. So the client asked me to add a >>>>>>function to the app to run Bartender from the production system and that >>>>>>is working great. >>>>>> >>>>>>To do this I downloaded and installed the trial version of Bartender and >>>>>>so was able to set a reference to it in the VBA code so I could run >>>>>>Bartender from the client's app (stuff like Public BtApp As >>>>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>BtApp = CreateObject("BarTender.Application")). >>>>>> >>>>>>Problem is that the app won't run on any machine which doesn't have >>>>>>Bartender loaded - it gets a broken reference error when the app opens. >>>>>> >>>>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>the Tools-->References and set it when the bar code form opens? Or is >>>>>>there a way to trap and get around this error when the app loads? >>>>>> >>>>>>What's the best way to handle this? >>>>>> >>>>>>MTIA, >>>>>> >>>>>>Rocky >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Mon Aug 7 15:07:00 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 07 Aug 2006 13:07:00 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D797B5.7090202@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> Message-ID: <44D79D64.8010906@san.rr.com> Marty: Here's what it says: Function Open(FileName As String, [CloseOutFirstFormat As Boolean = False], [UsePrinter As String]) As Format Member of BarTender.Formats Opens an existing format file. 'as Format' doesn't make sense though, does it? Rocky MartyConnelly wrote: > Under the library selection pane of OB, when you open the library the > two lower panes > the left most has the members, It will say somethinglike classes, > select the one > you want and its members are displayed in the right pane, left click on > the one > you want to see in right pane and its calling parameters input and ouput > will be displayed in > lowest pane along with datatypes. You also may have to right click and > select hidden members. > > > Rocky Smolin - Beach Access Software wrote: > > >> It says Formats is a member of Bar Tender. and Open is a member of >> Formats. Where do I see the data type being returned? >> >> T&R >> >> Rocky >> >> >> MartyConnelly wrote: >> >> >> >>> Err the Object Browser should tell you the data type being returned. >>> if you have the reference set. >>> >>> MartyConnelly wrote: >>> >>> >>> >>> >>> >>>> If you are setting it, you must be returning an object rather than a >>>> variant. >>>> Set a reference to bartender and look at the values in the Object Browser >>>> libary for Bartender to see what they should be set to. >>>> >>>> Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>> Marty: >>>>> >>>>> I deleted the Reference to Bartender and changed the declarations to: >>>>> >>>>> Public BtApp As Object 'BarTender.Application >>>>> Public BtFormat As Variant 'BarTender.Format >>>>> >>>>> In the load event I put: >>>>> >>>>> Set BtApp = CreateObject("BarTender.Application") >>>>> In the Print event however, on the line >>>>> >>>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>> >>>>> I get an 'argument not optional' error. With the old declarations it >>>>> worked. Any idea what's going wrong? >>>>> >>>>> Thanks and regards, >>>>> >>>>> Rocky >>>>> >>>>> >>>>> MartyConnelly wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> You are mixing Early and Late Binding methods >>>>>> First remove the reference >>>>>> Then just change your declarations to things like >>>>>> >>>>>> Public BtApp As Object 'BarTender.Application >>>>>> Public BtFormat As String 'BarTender.Format >>>>>> >>>>>> >>>>>> If you are unsure of the type returned try using a variant >>>>>> especially in the case of returned arrays. >>>>>> >>>>>> or leave both types in and do a conditional compile around them >>>>>> >>>>>> #Const DebugVersion = 0 >>>>>> >>>>>> #if DebugVersion = 1 then >>>>>> Dim wa as BarTender.Application >>>>>> Set wa = new BarTender.Application >>>>>> #else >>>>>> Dim wa as Object >>>>>> set wa = createobject ("BarTender.Application") >>>>>> #endif >>>>>> You'l have to set the flag to 1 >>>>>> (#Const DebugVersion = 1) >>>>>> and then add a reference to Bartender >>>>>> for the debug intellisence to work.. >>>>>> >>>>>> Then to check if Bartender is actually installed on the machine >>>>>> >>>>>> On Error Resume Next >>>>>> Set objExcelapp = CreateObject("BarTender.Application") >>>>>> If Err.Number Then >>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>> Exit Sub >>>>>> End If >>>>>> 'reset error >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> Rocky Smolin - Beach Access Software wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Dear List: >>>>>>> >>>>>>> I have a client who prints bar coded labels through an application >>>>>>> called Bartender (cute, huh?). I wrote a production management system >>>>>>> for them which contains all the information in the db that they are >>>>>>> inputting manually into Bartender. So the client asked me to add a >>>>>>> function to the app to run Bartender from the production system and that >>>>>>> is working great. >>>>>>> >>>>>>> To do this I downloaded and installed the trial version of Bartender and >>>>>>> so was able to set a reference to it in the VBA code so I could run >>>>>>> Bartender from the client's app (stuff like Public BtApp As >>>>>>> BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>> BtApp = CreateObject("BarTender.Application")). >>>>>>> >>>>>>> Problem is that the app won't run on any machine which doesn't have >>>>>>> Bartender loaded - it gets a broken reference error when the app opens. >>>>>>> >>>>>>> So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>> the Tools-->References and set it when the bar code form opens? Or is >>>>>>> there a way to trap and get around this error when the app loads? >>>>>>> >>>>>>> What's the best way to handle this? >>>>>>> >>>>>>> MTIA, >>>>>>> >>>>>>> Rocky >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Mon Aug 7 15:50:51 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 13:50:51 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D79D64.8010906@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> Message-ID: <44D7A7AB.2000507@shaw.ca> Just a guess but could be a TypeDef called Format Ugh, I wouldn't have used a reserved word for a TypeDef name. Don't know what the dll was written in. However Might look like this, so just add this type to beginning of your module or however it's defined in the OB Type Format i As Long str As String End Type Then in your calling routine dim btFormat as Format In the browser select Bartender library then look for a Public Type Format , the individual variables will be in the right pane Rocky Smolin - Beach Access Software wrote: >Marty: > >Here's what it says: > >Function Open(FileName As String, [CloseOutFirstFormat As Boolean = >False], [UsePrinter As String]) As Format > Member of BarTender.Formats > Opens an existing format file. > >'as Format' doesn't make sense though, does it? > >Rocky > > >MartyConnelly wrote: > > >>Under the library selection pane of OB, when you open the library the >>two lower panes >>the left most has the members, It will say somethinglike classes, >>select the one >>you want and its members are displayed in the right pane, left click on >>the one >>you want to see in right pane and its calling parameters input and ouput >>will be displayed in >>lowest pane along with datatypes. You also may have to right click and >>select hidden members. >> >> >>Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>>It says Formats is a member of Bar Tender. and Open is a member of >>>Formats. Where do I see the data type being returned? >>> >>>T&R >>> >>>Rocky >>> >>> >>>MartyConnelly wrote: >>> >>> >>> >>> >>> >>>>Err the Object Browser should tell you the data type being returned. >>>>if you have the reference set. >>>> >>>>MartyConnelly wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>>If you are setting it, you must be returning an object rather than a >>>>>variant. >>>>>Set a reference to bartender and look at the values in the Object Browser >>>>>libary for Bartender to see what they should be set to. >>>>> >>>>>Rocky Smolin - Beach Access Software wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Marty: >>>>>> >>>>>>I deleted the Reference to Bartender and changed the declarations to: >>>>>> >>>>>>Public BtApp As Object 'BarTender.Application >>>>>>Public BtFormat As Variant 'BarTender.Format >>>>>> >>>>>>In the load event I put: >>>>>> >>>>>>Set BtApp = CreateObject("BarTender.Application") >>>>>>In the Print event however, on the line >>>>>> >>>>>>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>>> >>>>>>I get an 'argument not optional' error. With the old declarations it >>>>>>worked. Any idea what's going wrong? >>>>>> >>>>>>Thanks and regards, >>>>>> >>>>>>Rocky >>>>>> >>>>>> >>>>>>MartyConnelly wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>>You are mixing Early and Late Binding methods >>>>>>>First remove the reference >>>>>>>Then just change your declarations to things like >>>>>>> >>>>>>>Public BtApp As Object 'BarTender.Application >>>>>>>Public BtFormat As String 'BarTender.Format >>>>>>> >>>>>>> >>>>>>>If you are unsure of the type returned try using a variant >>>>>>>especially in the case of returned arrays. >>>>>>> >>>>>>>or leave both types in and do a conditional compile around them >>>>>>> >>>>>>>#Const DebugVersion = 0 >>>>>>> >>>>>>>#if DebugVersion = 1 then >>>>>>> Dim wa as BarTender.Application >>>>>>> Set wa = new BarTender.Application >>>>>>>#else >>>>>>> Dim wa as Object >>>>>>> set wa = createobject ("BarTender.Application") >>>>>>>#endif >>>>>>>You'l have to set the flag to 1 >>>>>>> (#Const DebugVersion = 1) >>>>>>>and then add a reference to Bartender >>>>>>>for the debug intellisence to work.. >>>>>>> >>>>>>>Then to check if Bartender is actually installed on the machine >>>>>>> >>>>>>>On Error Resume Next >>>>>>>Set objExcelapp = CreateObject("BarTender.Application") >>>>>>>If Err.Number Then >>>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>>> Exit Sub >>>>>>>End If >>>>>>>'reset error >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>Rocky Smolin - Beach Access Software wrote: >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>>Dear List: >>>>>>>> >>>>>>>>I have a client who prints bar coded labels through an application >>>>>>>>called Bartender (cute, huh?). I wrote a production management system >>>>>>>>for them which contains all the information in the db that they are >>>>>>>>inputting manually into Bartender. So the client asked me to add a >>>>>>>>function to the app to run Bartender from the production system and that >>>>>>>>is working great. >>>>>>>> >>>>>>>>To do this I downloaded and installed the trial version of Bartender and >>>>>>>>so was able to set a reference to it in the VBA code so I could run >>>>>>>>Bartender from the client's app (stuff like Public BtApp As >>>>>>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>>>BtApp = CreateObject("BarTender.Application")). >>>>>>>> >>>>>>>>Problem is that the app won't run on any machine which doesn't have >>>>>>>>Bartender loaded - it gets a broken reference error when the app opens. >>>>>>>> >>>>>>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>>>the Tools-->References and set it when the bar code form opens? Or is >>>>>>>>there a way to trap and get around this error when the app loads? >>>>>>>> >>>>>>>>What's the best way to handle this? >>>>>>>> >>>>>>>>MTIA, >>>>>>>> >>>>>>>>Rocky >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Mon Aug 7 16:30:00 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 17:30:00 -0400 Subject: [AccessD] system colors References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca><44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca><44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com><44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> Message-ID: <000201c6ba68$a4f25d70$969aa545@50NM721> ...is there a reasonable way to set my forms to automatically use the Windows system colors/theme selected by the user? I'm currently using a home grown user preference system that is getting to be a royal pita. I'd like to be able to set form/object/control/font properties to system colors somehow and have them change whenever the user changes the win display options? William From stuart at lexacorp.com.pg Mon Aug 7 16:59:23 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Tue, 08 Aug 2006 07:59:23 +1000 Subject: [AccessD] system colors In-Reply-To: <000201c6ba68$a4f25d70$969aa545@50NM721> References: <44D75554.8070700@san.rr.com>, <000201c6ba68$a4f25d70$969aa545@50NM721> Message-ID: <44D8445B.26745.9EEFDEB@stuart.lexacorp.com.pg> On 7 Aug 2006 at 17:30, William Hindman wrote: > ...is there a reasonable way to set my forms to automatically use the > Windows system colors/theme selected by the user? I'm currently using a home > grown user preference system that is getting to be a royal pita. I'd like to > be able to set form/object/control/font properties to system colors somehow > and have them change whenever the user changes the win display options? Ever noticed negative numbers in form color properties. They are Systemcolorconstants. You can find them all in the Object Browser under the VBA library. Or you can get a list of them here: http://msdn.microsoft.com/library/default.asp?url=/library/en- us/vbenlr98/html/vamscsystemcolorconstants.asp -- Stuart From martyconnelly at shaw.ca Mon Aug 7 17:07:53 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 07 Aug 2006 15:07:53 -0700 Subject: [AccessD] system colors In-Reply-To: <000201c6ba68$a4f25d70$969aa545@50NM721> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> <000201c6ba68$a4f25d70$969aa545@50NM721> Message-ID: <44D7B9B9.4030101@shaw.ca> You also might have a look at Helen Feddema's Access Archon Columns 76 and 77 It is an MDA to reset the Forms colour schemes and fonts It requires opening all the forms in design view, changing and recompiling. http://www.helenfeddema.com/ William Hindman wrote: >...is there a reasonable way to set my forms to automatically use the >Windows system colors/theme selected by the user? I'm currently using a home >grown user preference system that is getting to be a royal pita. I'd like to >be able to set form/object/control/font properties to system colors somehow >and have them change whenever the user changes the win display options? > >William > > > > > -- Marty Connelly Victoria, B.C. Canada From darrend at nimble.com.au Mon Aug 7 18:45:06 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 8 Aug 2006 09:45:06 +1000 Subject: [AccessD] A2003:Rename Files in a folder In-Reply-To: <004a01c6ba33$fbe3da30$800101df@officexp> Message-ID: <20060807234520.GOEI3131.omta04sl.mx.bigpond.com@DENZILLAP> Thank you William, thank you Andy (I'll speak to you later) and thank you John I jumped on this morning - 3 replies - excellent - from eminent legends too - woohoo I feel like I have new toys to play with Thanks guys - I really do appreciate it Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Tuesday, 8 August 2006 1:13 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] A2003:Rename Files in a folder Here ya' go: Function RenameFiles() Dim strFileName As String Dim strPath As String 'Set Your Path '***Important, Make sure you include the last backslash strPath = "C:\Temp\" 'Return the 'first' filename in the folder strFileName = Dir(strPath) Do Until strFileName = "" 'rename it Name strPath & strFileName As strPath & "INV" & strFileName 'If you just execute the DIR() function, it returns the next file in the folder. strFileName = Dir Loop End Function John Skolits -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK Sent: Monday, August 07, 2006 9:15 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] A2003:Rename Files in a folder Hi all I have to loop through a folder and rename all the files in it to have some text as a prefix For EG there may be a folder C:\CoolFolder In it may be 5 files or 5000 files that are all sequentially numbered and named like... 1012.pdf, 1013.pdf, 1014.pdf etc etc What I need to do is loop all the files and add a prefix such as "inv" so the file names become inv1012.pdf, inv1013.pdf, inv1014.pdf etc etc Any pointers - anyone got any file renaming snippets they'd care to share? many thanks in advance 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 wdhindman at dejpolsystems.com Mon Aug 7 19:15:11 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 7 Aug 2006 20:15:11 -0400 Subject: [AccessD] system colors References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca><44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca><44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com><44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com><000201c6ba68$a4f25d70$969aa545@50NM721> <44D7B9B9.4030101@shaw.ca> Message-ID: <000b01c6ba7f$b7704900$969aa545@50NM721> ...thanks Marty & Stu ...using system colors stu but its a rpita setting them and then the trial and error of what works where ...I'll give Helen a shot, should have known to look there first :) William ----- Original Message ----- From: "MartyConnelly" To: "Access Developers discussion and problem solving" Sent: Monday, August 07, 2006 6:07 PM Subject: Re: [AccessD] system colors > You also might have a look at Helen Feddema's > Access Archon Columns 76 and 77 > It is an MDA to reset the Forms colour schemes and fonts > It requires opening all the forms in design view, changing and > recompiling. > http://www.helenfeddema.com/ > > William Hindman wrote: > >>...is there a reasonable way to set my forms to automatically use the >>Windows system colors/theme selected by the user? I'm currently using a >>home >>grown user preference system that is getting to be a royal pita. I'd like >>to >>be able to set form/object/control/font properties to system colors >>somehow >>and have them change whenever the user changes the win display options? >> >>William >> >> >> >> >> > > -- > 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 john at winhaven.net Mon Aug 7 22:11:46 2006 From: john at winhaven.net (John Bartow) Date: Mon, 7 Aug 2006 22:11:46 -0500 Subject: [AccessD] Groupwise version 7 Message-ID: <086b01c6ba98$62c104d0$6502a8c0@ScuzzPaq> Anyone working with a GroupWise version 7 environment. I've had an application on a customer site for years. No problems now they went from GW6 to GW7 and mine app won't email anymore. I use an activeX object (idsMail to perform the mailing functions but their support says tere shouldn't be a problem as long as the Groupwise client is still using MAPI or SMTP/POP. TIA John B. From carbonnb at sympatico.ca Mon Aug 7 23:16:06 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Tue, 08 Aug 2006 00:16:06 -0400 Subject: [AccessD] Groupwise version 7 In-Reply-To: <086b01c6ba98$62c104d0$6502a8c0@ScuzzPaq> References: <086b01c6ba98$62c104d0$6502a8c0@ScuzzPaq> Message-ID: On 7 Aug 2006 at 22:11, John Bartow wrote: > Anyone working with a GroupWise version 7 environment. Nope, still 6.5 > I've had an application on a customer site for years. No problems now they > went from GW6 to GW7 and mine app won't email anymore. I use an activeX > object (idsMail to perform the mailing functions but their support says > tere shouldn't be a problem as long as the Groupwise client is still using > MAPI or SMTP/POP. There are ActiveX's you can use? Who knew. Going from memory, I just set a reference to the GW object and did all the e-mail creating that way. -- Bryan Carbonnell - carbonnb at sympatico.ca If you never fail, you're not trying hard enough. From darrend at nimble.com.au Mon Aug 7 23:41:13 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 8 Aug 2006 14:41:13 +1000 Subject: [AccessD] OT - Microsoft Subscriptions Message-ID: <20060808044127.BTTU2500.omta03sl.mx.bigpond.com@DENZILLAP> Hi All Just the other week someone mentioned some sort of Microsoft subscription to various MS things if they were going to create 1 MS product per year Is that person or anyone else able to contact let me know what's involved and any details? Please contact me off list at...darrend at nimble dot com dot au, please? Many thanks Darren From john at winhaven.net Mon Aug 7 23:57:14 2006 From: john at winhaven.net (John Bartow) Date: Mon, 7 Aug 2006 23:57:14 -0500 Subject: [AccessD] Groupwise version 7 In-Reply-To: Message-ID: <002901c6baa7$1e1b7ae0$6502a8c0@ScuzzPaq> idsMail isn't a GW activeX (IIRC GW has an SDK full of them though). idsMail is a third party app that interfaces with a whole slew of email systems (MS, GW, Notes, etc,). The beauty of it is that I only had to send calls to it and its handled the hard part of figuring out which mail system was being used on the PC and handle sending the mail. The ugly part of it is that I do't get the source code so I can't troubleshoot it directly. That's what I'm dealing with now. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell On 7 Aug 2006 at 22:11, John Bartow wrote: > Anyone working with a GroupWise version 7 environment. Nope, still 6.5 > I've had an application on a customer site for years. No problems now > they went from GW6 to GW7 and mine app won't email anymore. I use an > activeX object (idsMail to perform the mailing functions but their > support says tere shouldn't be a problem as long as the Groupwise > client is still using MAPI or SMTP/POP. There are ActiveX's you can use? Who knew. Going from memory, I just set a reference to the GW object and did all the e-mail creating that way. From carbonnb at sympatico.ca Tue Aug 8 00:09:04 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Tue, 08 Aug 2006 01:09:04 -0400 Subject: [AccessD] Groupwise version 7 In-Reply-To: <002901c6baa7$1e1b7ae0$6502a8c0@ScuzzPaq> References: , <002901c6baa7$1e1b7ae0$6502a8c0@ScuzzPaq> Message-ID: On 7 Aug 2006 at 23:57, John Bartow wrote: > idsMail isn't a GW activeX (IIRC GW has an SDK full of them though). > > idsMail is a third party app that interfaces with a whole slew of email > systems (MS, GW, Notes, etc,). The beauty of it is that I only had to send > calls to it and its handled the hard part of figuring out which mail > system was being used on the PC and handle sending the mail. The ugly part > of it is that I do't get the source code so I can't troubleshoot it > directly. That's what I'm dealing with now. Ah, misunderstood the ActiveX part. Sorry I wish I could help but alas we are still on GW 6.5. -- Bryan Carbonnell - carbonnb at sympatico.ca It was difficult to code. So it damn well better be difficult to use. From Gustav at cactus.dk Tue Aug 8 02:19:11 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 09:19:11 +0200 Subject: [AccessD] Groupwise version 7 Message-ID: Hi John If the developers of idsMail claim this to support GW7 and your setup at the client follows the guidelines, ask them to send you a debug version which you can install to log what's going on. That will enable them to track down the error. /gustav >>> john at winhaven.net 08-08-2006 05:11:46 >>> Anyone working with a GroupWise version 7 environment. I've had an application on a customer site for years. No problems now they went from GW6 to GW7 and mine app won't email anymore. I use an activeX object (idsMail to perform the mailing functions but their support says tere shouldn't be a problem as long as the Groupwise client is still using MAPI or SMTP/POP. TIA John B. From bchacc at san.rr.com Tue Aug 8 08:21:44 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 06:21:44 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D7A7AB.2000507@shaw.ca> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> <44D7A7AB.2000507@shaw.ca> Message-ID: <44D88FE8.8000207@san.rr.com> Marty: No Soap. It didn't like Format. I'm thinking now that I could use early binding, test for the reference, delete it if its missing, and gray out the button on the main menu which runs the bar code printing form. Would that be simpler? Rocky MartyConnelly wrote: > Just a guess but could be a TypeDef called Format > Ugh, I wouldn't have used a reserved word for a TypeDef name. > Don't know what the dll was written in. However > > Might look like this, so just add this type to beginning of your module > or however it's defined in the OB > > Type Format > i As Long > str As String > End Type > > Then in your calling routine > dim btFormat as Format > > In the browser select Bartender library then look > for a Public Type Format , the individual variables > will be in the right pane > > > Rocky Smolin - Beach Access Software wrote: > > >> Marty: >> >> Here's what it says: >> >> Function Open(FileName As String, [CloseOutFirstFormat As Boolean = >> False], [UsePrinter As String]) As Format >> Member of BarTender.Formats >> Opens an existing format file. >> >> 'as Format' doesn't make sense though, does it? >> >> Rocky >> >> >> MartyConnelly wrote: >> >> >> >>> Under the library selection pane of OB, when you open the library the >>> two lower panes >>> the left most has the members, It will say somethinglike classes, >>> select the one >>> you want and its members are displayed in the right pane, left click on >>> the one >>> you want to see in right pane and its calling parameters input and ouput >>> will be displayed in >>> lowest pane along with datatypes. You also may have to right click and >>> select hidden members. >>> >>> >>> Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>> >>>> It says Formats is a member of Bar Tender. and Open is a member of >>>> Formats. Where do I see the data type being returned? >>>> >>>> T&R >>>> >>>> Rocky >>>> >>>> >>>> MartyConnelly wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>>> Err the Object Browser should tell you the data type being returned. >>>>> if you have the reference set. >>>>> >>>>> MartyConnelly wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> If you are setting it, you must be returning an object rather than a >>>>>> variant. >>>>>> Set a reference to bartender and look at the values in the Object Browser >>>>>> libary for Bartender to see what they should be set to. >>>>>> >>>>>> Rocky Smolin - Beach Access Software wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Marty: >>>>>>> >>>>>>> I deleted the Reference to Bartender and changed the declarations to: >>>>>>> >>>>>>> Public BtApp As Object 'BarTender.Application >>>>>>> Public BtFormat As Variant 'BarTender.Format >>>>>>> >>>>>>> In the load event I put: >>>>>>> >>>>>>> Set BtApp = CreateObject("BarTender.Application") >>>>>>> In the Print event however, on the line >>>>>>> >>>>>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>>>> >>>>>>> I get an 'argument not optional' error. With the old declarations it >>>>>>> worked. Any idea what's going wrong? >>>>>>> >>>>>>> Thanks and regards, >>>>>>> >>>>>>> Rocky >>>>>>> >>>>>>> >>>>>>> MartyConnelly wrote: >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>> You are mixing Early and Late Binding methods >>>>>>>> First remove the reference >>>>>>>> Then just change your declarations to things like >>>>>>>> >>>>>>>> Public BtApp As Object 'BarTender.Application >>>>>>>> Public BtFormat As String 'BarTender.Format >>>>>>>> >>>>>>>> >>>>>>>> If you are unsure of the type returned try using a variant >>>>>>>> especially in the case of returned arrays. >>>>>>>> >>>>>>>> or leave both types in and do a conditional compile around them >>>>>>>> >>>>>>>> #Const DebugVersion = 0 >>>>>>>> >>>>>>>> #if DebugVersion = 1 then >>>>>>>> Dim wa as BarTender.Application >>>>>>>> Set wa = new BarTender.Application >>>>>>>> #else >>>>>>>> Dim wa as Object >>>>>>>> set wa = createobject ("BarTender.Application") >>>>>>>> #endif >>>>>>>> You'l have to set the flag to 1 >>>>>>>> (#Const DebugVersion = 1) >>>>>>>> and then add a reference to Bartender >>>>>>>> for the debug intellisence to work.. >>>>>>>> >>>>>>>> Then to check if Bartender is actually installed on the machine >>>>>>>> >>>>>>>> On Error Resume Next >>>>>>>> Set objExcelapp = CreateObject("BarTender.Application") >>>>>>>> If Err.Number Then >>>>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>>>> Exit Sub >>>>>>>> End If >>>>>>>> 'reset error >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> Rocky Smolin - Beach Access Software wrote: >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>>> Dear List: >>>>>>>>> >>>>>>>>> I have a client who prints bar coded labels through an application >>>>>>>>> called Bartender (cute, huh?). I wrote a production management system >>>>>>>>> for them which contains all the information in the db that they are >>>>>>>>> inputting manually into Bartender. So the client asked me to add a >>>>>>>>> function to the app to run Bartender from the production system and that >>>>>>>>> is working great. >>>>>>>>> >>>>>>>>> To do this I downloaded and installed the trial version of Bartender and >>>>>>>>> so was able to set a reference to it in the VBA code so I could run >>>>>>>>> Bartender from the client's app (stuff like Public BtApp As >>>>>>>>> BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>>>> BtApp = CreateObject("BarTender.Application")). >>>>>>>>> >>>>>>>>> Problem is that the app won't run on any machine which doesn't have >>>>>>>>> Bartender loaded - it gets a broken reference error when the app opens. >>>>>>>>> >>>>>>>>> So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>>>> the Tools-->References and set it when the bar code form opens? Or is >>>>>>>>> there a way to trap and get around this error when the app loads? >>>>>>>>> >>>>>>>>> What's the best way to handle this? >>>>>>>>> >>>>>>>>> MTIA, >>>>>>>>> >>>>>>>>> Rocky >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Lambert.Heenan at AIG.com Tue Aug 8 08:33:52 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Tue, 8 Aug 2006 08:33:52 -0500 Subject: [AccessD] system colors Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F24F328B4@xlivmbx21.aig.com> Hmm. It seems like Helen's website is missing all the zipped articles. The page of links is there, but nothing behind it. ;-( Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Monday, August 07, 2006 6:08 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] system colors You also might have a look at Helen Feddema's Access Archon Columns 76 and 77 It is an MDA to reset the Forms colour schemes and fonts It requires opening all the forms in design view, changing and recompiling. http://www.helenfeddema.com/ William Hindman wrote: >...is there a reasonable way to set my forms to automatically use the >Windows system colors/theme selected by the user? I'm currently using a home >grown user preference system that is getting to be a royal pita. I'd like to >be able to set form/object/control/font properties to system colors somehow >and have them change whenever the user changes the win display options? > >William > > > > > -- 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 Aug 8 10:02:33 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 17:02:33 +0200 Subject: [AccessD] Borland Turbo products are "back" Message-ID: Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav From Jim.Hale at FleetPride.com Tue Aug 8 10:22:42 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Tue, 8 Aug 2006 10:22:42 -0500 Subject: [AccessD] Borland Turbo products are "back" Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDE60@corp-es01.fleetpride.com> "Even a development novice, who hasn't written a line of code, will find the Turbo editions extremely easy to use," said David Intersimone, vice president of developer relations and chief evangelist at Borland Ah yes, the siren call of the PC since the days of dos 2.0. I wonder how many innocents have lost their minds, not to mention their souls, buying into this chestnut? Remember, your mama told you could go blind playing with this stuff too much. Jim Hale -----Original Message----- From: Gustav Brock [mailto:Gustav at cactus.dk] Sent: Tuesday, August 08, 2006 10:03 AM To: accessd at databaseadvisors.com Subject: [AccessD] Borland Turbo products are "back" Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav -- 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 martyconnelly at shaw.ca Tue Aug 8 10:28:13 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 08:28:13 -0700 Subject: [AccessD] Broken Reference In-Reply-To: <44D88FE8.8000207@san.rr.com> References: <44D75554.8070700@san.rr.com> <44D77026.9030107@shaw.ca> <44D78175.2000407@san.rr.com> <44D78462.4080204@shaw.ca> <44D785F6.8030501@shaw.ca> <44D789AA.4040702@san.rr.com> <44D797B5.7090202@shaw.ca> <44D79D64.8010906@san.rr.com> <44D7A7AB.2000507@shaw.ca> <44D88FE8.8000207@san.rr.com> Message-ID: <44D8AD8D.3060709@shaw.ca> Well it is either returning a TypeDef or an Object Without access to the olb or dll file, kinda of hard to tell. If it is an object this should work. Dim BtFormat as Object Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) Rocky Smolin - Beach Access Software wrote: >Marty: > >No Soap. It didn't like Format. > >I'm thinking now that I could use early binding, test for the reference, >delete it if its missing, and gray out the button on the main menu which >runs the bar code printing form. Would that be simpler? > >Rocky > > >MartyConnelly wrote: > > >>Just a guess but could be a TypeDef called Format >>Ugh, I wouldn't have used a reserved word for a TypeDef name. >>Don't know what the dll was written in. However >> >>Might look like this, so just add this type to beginning of your module >>or however it's defined in the OB >> >>Type Format >> i As Long >> str As String >>End Type >> >>Then in your calling routine >>dim btFormat as Format >> >> In the browser select Bartender library then look >>for a Public Type Format , the individual variables >>will be in the right pane >> >> >>Rocky Smolin - Beach Access Software wrote: >> >> >> >> >>>Marty: >>> >>>Here's what it says: >>> >>>Function Open(FileName As String, [CloseOutFirstFormat As Boolean = >>>False], [UsePrinter As String]) As Format >>> Member of BarTender.Formats >>> Opens an existing format file. >>> >>>'as Format' doesn't make sense though, does it? >>> >>>Rocky >>> >>> >>>MartyConnelly wrote: >>> >>> >>> >>> >>> >>>>Under the library selection pane of OB, when you open the library the >>>>two lower panes >>>>the left most has the members, It will say somethinglike classes, >>>>select the one >>>>you want and its members are displayed in the right pane, left click on >>>>the one >>>>you want to see in right pane and its calling parameters input and ouput >>>>will be displayed in >>>>lowest pane along with datatypes. You also may have to right click and >>>>select hidden members. >>>> >>>> >>>>Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>>It says Formats is a member of Bar Tender. and Open is a member of >>>>>Formats. Where do I see the data type being returned? >>>>> >>>>>T&R >>>>> >>>>>Rocky >>>>> >>>>> >>>>>MartyConnelly wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Err the Object Browser should tell you the data type being returned. >>>>>>if you have the reference set. >>>>>> >>>>>>MartyConnelly wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>>If you are setting it, you must be returning an object rather than a >>>>>>>variant. >>>>>>>Set a reference to bartender and look at the values in the Object Browser >>>>>>>libary for Bartender to see what they should be set to. >>>>>>> >>>>>>>Rocky Smolin - Beach Access Software wrote: >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>>Marty: >>>>>>>> >>>>>>>>I deleted the Reference to Bartender and changed the declarations to: >>>>>>>> >>>>>>>>Public BtApp As Object 'BarTender.Application >>>>>>>>Public BtFormat As Variant 'BarTender.Format >>>>>>>> >>>>>>>>In the load event I put: >>>>>>>> >>>>>>>>Set BtApp = CreateObject("BarTender.Application") >>>>>>>>In the Print event however, on the line >>>>>>>> >>>>>>>>Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>>>>> >>>>>>>>I get an 'argument not optional' error. With the old declarations it >>>>>>>>worked. Any idea what's going wrong? >>>>>>>> >>>>>>>>Thanks and regards, >>>>>>>> >>>>>>>>Rocky >>>>>>>> >>>>>>>> >>>>>>>>MartyConnelly wrote: >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>>>You are mixing Early and Late Binding methods >>>>>>>>>First remove the reference >>>>>>>>>Then just change your declarations to things like >>>>>>>>> >>>>>>>>>Public BtApp As Object 'BarTender.Application >>>>>>>>>Public BtFormat As String 'BarTender.Format >>>>>>>>> >>>>>>>>> >>>>>>>>>If you are unsure of the type returned try using a variant >>>>>>>>>especially in the case of returned arrays. >>>>>>>>> >>>>>>>>>or leave both types in and do a conditional compile around them >>>>>>>>> >>>>>>>>>#Const DebugVersion = 0 >>>>>>>>> >>>>>>>>>#if DebugVersion = 1 then >>>>>>>>>Dim wa as BarTender.Application >>>>>>>>>Set wa = new BarTender.Application >>>>>>>>>#else >>>>>>>>>Dim wa as Object >>>>>>>>>set wa = createobject ("BarTender.Application") >>>>>>>>>#endif >>>>>>>>>You'l have to set the flag to 1 >>>>>>>>>(#Const DebugVersion = 1) >>>>>>>>>and then add a reference to Bartender >>>>>>>>>for the debug intellisence to work.. >>>>>>>>> >>>>>>>>>Then to check if Bartender is actually installed on the machine >>>>>>>>> >>>>>>>>>On Error Resume Next >>>>>>>>>Set objExcelapp = CreateObject("BarTender.Application") >>>>>>>>>If Err.Number Then >>>>>>>>> MsgBox "Bartender not installed or not registered for Automation" >>>>>>>>> Exit Sub >>>>>>>>>End If >>>>>>>>>'reset error >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>>Rocky Smolin - Beach Access Software wrote: >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>>>Dear List: >>>>>>>>>> >>>>>>>>>>I have a client who prints bar coded labels through an application >>>>>>>>>>called Bartender (cute, huh?). I wrote a production management system >>>>>>>>>>for them which contains all the information in the db that they are >>>>>>>>>>inputting manually into Bartender. So the client asked me to add a >>>>>>>>>>function to the app to run Bartender from the production system and that >>>>>>>>>>is working great. >>>>>>>>>> >>>>>>>>>>To do this I downloaded and installed the trial version of Bartender and >>>>>>>>>>so was able to set a reference to it in the VBA code so I could run >>>>>>>>>>Bartender from the client's app (stuff like Public BtApp As >>>>>>>>>>BarTender.Application and Public BtFormat As BarTender.Format and Set >>>>>>>>>>BtApp = CreateObject("BarTender.Application")). >>>>>>>>>> >>>>>>>>>>Problem is that the app won't run on any machine which doesn't have >>>>>>>>>>Bartender loaded - it gets a broken reference error when the app opens. >>>>>>>>>> >>>>>>>>>>So I'm wondering how to handle this. Perhaps I unset the reference in >>>>>>>>>>the Tools-->References and set it when the bar code form opens? Or is >>>>>>>>>>there a way to trap and get around this error when the app loads? >>>>>>>>>> >>>>>>>>>>What's the best way to handle this? >>>>>>>>>> >>>>>>>>>>MTIA, >>>>>>>>>> >>>>>>>>>>Rocky >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >>> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From shamil at users.mns.ru Tue Aug 8 10:20:53 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Tue, 8 Aug 2006 19:20:53 +0400 Subject: [AccessD] Borland Turbo products are "back" In-Reply-To: Message-ID: <006701c6bafe$3dd470b0$6601a8c0@nant> These are interesting news, Gustav, thanks. -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 08, 2006 7:03 PM To: accessd at databaseadvisors.com Subject: [AccessD] Borland Turbo products are "back" Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Tue Aug 8 10:38:45 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 08:38:45 -0700 Subject: [AccessD] system colors In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F24F328B4@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F24F328B4@xlivmbx21.aig.com> Message-ID: <44D8B005.8000706@shaw.ca> I think her site may have a download cap from her ISP, maybe try early in the day. I have had similar problems. Heenan, Lambert wrote: >Hmm. It seems like Helen's website is missing all the zipped articles. The >page of links is there, but nothing behind it. ;-( > >Lambert > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly >Sent: Monday, August 07, 2006 6:08 PM >To: Access Developers discussion and problem solving >Subject: Re: [AccessD] system colors > > >You also might have a look at Helen Feddema's >Access Archon Columns 76 and 77 >It is an MDA to reset the Forms colour schemes and fonts >It requires opening all the forms in design view, changing and recompiling. >http://www.helenfeddema.com/ > >William Hindman wrote: > > > >>...is there a reasonable way to set my forms to automatically use the >>Windows system colors/theme selected by the user? I'm currently using a >> >> >home > > >>grown user preference system that is getting to be a royal pita. I'd like >> >> >to > > >>be able to set form/object/control/font properties to system colors somehow >> >> > > > >>and have them change whenever the user changes the win display options? >> >>William >> >> >> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From jwcolby at colbyconsulting.com Tue Aug 8 11:08:25 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 8 Aug 2006 12:08:25 -0400 Subject: [AccessD] Borland Turbo products are "back" In-Reply-To: Message-ID: <005001c6bb04$e20fd6f0$647aa8c0@m6805> Well, almost back anyway. Turbo Pascal was the language I cut my teeth on in 1982/3 and I used it until I switched to Access and VBA. Of course it was also priced much cheaper. $500 is a lot to pay for a language you may never use for real apps. I certainly hope they succeed though. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 08, 2006 11:03 AM To: accessd at databaseadvisors.com Subject: [AccessD] Borland Turbo products are "back" Hi all Did you notice that the Borland Turbo C++, Turbo Delphi, Turbo Delphi for .NET and Turbo C# are back: http://www.turboexplorer.com Includes Interbase and MSDE database engines. Could be an alternative if Visual Studio feels too big. /gustav -- 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 Aug 8 12:46:07 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 10:46:07 -0700 Subject: [AccessD] Removing a missing reference Message-ID: <44D8CDDF.5010205@san.rr.com> Dear List: Still struggling with this references thing. It seem the easiest thing to do would be to remove the missing reference in the Open event of the opening form in the event the app is loaded onto a machine which doesn't have the library. However, all the code that I've seen to remove missing references fail. Code like: Dim refCurr As Reference For Each refCurr In References If refCurr.IsBroken Then References.Remove refCurr End If Next Seems straightforward but when it comes to the missing reference it errors out on the .Remove line because it doesn't have a name. So. How do you remove a missing reference when the application the reference is referring to doesn't exist? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From dmcafee at pacbell.net Tue Aug 8 12:56:03 2006 From: dmcafee at pacbell.net (David McAfee) Date: Tue, 8 Aug 2006 10:56:03 -0700 Subject: [AccessD] Delete first row in Excel from Access In-Reply-To: <44D8CDDF.5010205@san.rr.com> Message-ID: Does anyone know how to delete the first row of an Excel file from within access? TIA, David From cfoust at infostatsystems.com Tue Aug 8 12:55:54 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 10:55:54 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8CDDF.5010205@san.rr.com> Message-ID: Rocky, If you search the archives, I went through references problems a couple of years ago and beat them into submissions. You must have the code to check in a module all by itself. It must run before any other code. It must fully reference the VBE library. And if I recall correctly, IsBroken isn't reliable. 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, August 08, 2006 10:46 AM To: Access Developers discussion and problem solving Subject: [AccessD] Removing a missing reference Dear List: Still struggling with this references thing. It seem the easiest thing to do would be to remove the missing reference in the Open event of the opening form in the event the app is loaded onto a machine which doesn't have the library. However, all the code that I've seen to remove missing references fail. Code like: Dim refCurr As Reference For Each refCurr In References If refCurr.IsBroken Then References.Remove refCurr End If Next Seems straightforward but when it comes to the missing reference it errors out on the .Remove line because it doesn't have a name. So. How do you remove a missing reference when the application the reference is referring to doesn't exist? MTIA 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 Gustav at cactus.dk Tue Aug 8 13:03:19 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 20:03:19 +0200 Subject: [AccessD] Delete first row in Excel from Access Message-ID: Hi David If you link or open the file as a table, you can't. You have to use automation to open Excel and the file and then delete the row in an "Excel way". /gustav >>> dmcafee at pacbell.net 08-08-2006 19:56:03 >>> Does anyone know how to delete the first row of an Excel file from within access? TIA, David From martyconnelly at shaw.ca Tue Aug 8 13:05:27 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 11:05:27 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8CDDF.5010205@san.rr.com> References: <44D8CDDF.5010205@san.rr.com> Message-ID: <44D8D267.1030804@shaw.ca> Should be References.Remove refCurr.name needs a path string to reference not an object Rocky Smolin - Beach Access Software wrote: >Dear List: > >Still struggling with this references thing. It seem the easiest thing >to do would be to remove the missing reference in the Open event of the >opening form in the event the app is loaded onto a machine which doesn't >have the library. However, all the code that I've seen to remove >missing references fail. Code like: > >Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > >Seems straightforward but when it comes to the missing reference it >errors out on the .Remove line because it doesn't have a name. So. How >do you remove a missing reference when the application the reference is >referring to doesn't exist? > >MTIA > >Rocky > > > -- Marty Connelly Victoria, B.C. Canada From Gustav at cactus.dk Tue Aug 8 13:12:58 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 20:12:58 +0200 Subject: [AccessD] Removing a missing reference Message-ID: Hi Rocky Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: Public Function ReferencesClean() As Boolean ' Remove all missing references. ' Return True if no reference was removed. ' ' 2001-08-20. Cactus Data ApS, CPH. Dim ref As Reference Dim lngItem As Long Dim booMissing As Boolean With References For lngItem = .Count To 1 Step -1 Set ref = .Item(lngItem) If ref.BuiltIn = True Then ' No need to check built in reference. ElseIf IsBroken97(ref) Then .Remove ref booMissing = True End If Next End With Set ref = Nothing ReferencesClean = Not booMissing End Function Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: "Broken References in Runtime AXP and A97" /gustav >>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> Dear List: Still struggling with this references thing. It seem the easiest thing to do would be to remove the missing reference in the Open event of the opening form in the event the app is loaded onto a machine which doesn't have the library. However, all the code that I've seen to remove missing references fail. Code like: Dim refCurr As Reference For Each refCurr In References If refCurr.IsBroken Then References.Remove refCurr End If Next Seems straightforward but when it comes to the missing reference it errors out on the .Remove line because it doesn't have a name. So. How do you remove a missing reference when the application the reference is referring to doesn't exist? MTIA Rocky From bchacc at san.rr.com Tue Aug 8 13:13:53 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:13:53 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8D461.7080700@san.rr.com> Charlotte: The IsBroken is working OK. The problem I'm encountering is when it gets to References.Remove ref - there's nothing in ref. If I put in a debug statement MsgBox ref.Name it errors out. Rocky Charlotte Foust wrote: > Rocky, > > If you search the archives, I went through references problems a couple > of years ago and beat them into submissions. You must have the code to > check in a module all by itself. It must run before any other code. It > must fully reference the VBE library. And if I recall correctly, > IsBroken isn't reliable. > > 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, August 08, 2006 10:46 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Removing a missing reference > > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > 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 > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 13:27:19 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:27:19 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8D267.1030804@shaw.ca> References: <44D8CDDF.5010205@san.rr.com> <44D8D267.1030804@shaw.ca> Message-ID: <44D8D787.7050700@san.rr.com> Marty: If I put in a debug MsgBox refCurr.Name that errors out with Method 'Name' of object 'Reference' failed, I think because there's nothing in refCurr.Name Rocky MartyConnelly wrote: > Should be References.Remove refCurr.name > needs a path string to reference not an object > > Rocky Smolin - Beach Access Software wrote: > > >> Dear List: >> >> Still struggling with this references thing. It seem the easiest thing >> to do would be to remove the missing reference in the Open event of the >> opening form in the event the app is loaded onto a machine which doesn't >> have the library. However, all the code that I've seen to remove >> missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. How >> do you remove a missing reference when the application the reference is >> referring to doesn't exist? >> >> MTIA >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 13:29:35 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:29:35 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8D80F.6090107@san.rr.com> Gustav: The code I was using did go backwards through the references but still choked on the first one which was the missing reference. Seems there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 13:30:33 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 11:30:33 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8D849.5090103@san.rr.com> P.S. This reference, when it's there, references a .exe. Don't know if that makes any difference. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From ssharkins at setel.com Tue Aug 8 13:53:23 2006 From: ssharkins at setel.com (Susan Harkins) Date: Tue, 8 Aug 2006 14:53:23 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: <003801c6bb1b$eca3b2a0$0301a8c0@SUSANONE> And if I recall correctly, IsBroken isn't reliable. =======Nope, it isn't -- I wasn't an entire article on this discussion -- I couldn't get any of it to work consistently and had to dump the article. :( Susan H. From martyconnelly at shaw.ca Tue Aug 8 13:53:39 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 11:53:39 -0700 Subject: [AccessD] Delete first row in Excel from Access In-Reply-To: References: Message-ID: <44D8DDB3.9070405@shaw.ca> Something like xl.Application.Worksheets("WorkSheetName").Range("A2:D10").Delete Are you trying to delete the header records with the column names?. Cause you can also open an Excel Spreadsheet using the JET OLE DB Provider to read into a Access table, removing the header record oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\somepath\mySpreadsheet.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes""" Where "HDR=Yes" means that there is a header row in the cell range (or named range), so the provider will not include the first row of the selection into the recordset. If "HDR=No", then the provider will include the first row of the cell range (or named ranged) into the recordset. http://support.microsoft.com/default.aspx?scid=kb;en-us;278973 Gustav Brock wrote: >Hi David > >If you link or open the file as a table, you can't. >You have to use automation to open Excel and the file and then delete the row in an "Excel way". > >/gustav > > > >>>>dmcafee at pacbell.net 08-08-2006 19:56:03 >>> >>>> >>>> >Does anyone know how to delete the first row of an Excel file from within >access? > > >TIA, >David > > > -- Marty Connelly Victoria, B.C. Canada From Gustav at cactus.dk Tue Aug 8 14:00:36 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 08 Aug 2006 21:00:36 +0200 Subject: [AccessD] Removing a missing reference Message-ID: Hi Rocky That sounds a bit strange, also regarding the exe-name. Here's a function that may help you: Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As Boolean ' Verify Access' external references and re-establish these if possible. ' Uses function IsBroken97(). ' ' 2001-07-29. Cactus Data ApS, CPH. ' 2003-07-23. ' Changes: ' Added call to DoCmd.Echo True to allow for display of MsgBox. ' Removed call to SysCmd() compilation which did not work. Dim refA As Access.Reference Dim refX As Access.Reference Dim strRefFullPath As String Dim booNotBuiltInRefExists As Boolean Dim booIsBroken As Boolean Dim booRefIsMissing As Boolean Dim strMsgTitle As String Dim strMsgPrompt As String Dim strMsgHeader As String Dim strMsgFooter As String Dim lngMsgStyle As Long Dim strCrLf As String ' No special error handling. On Error Resume Next ' User oriented error message. strMsgTitle = "Missing support file" strMsgHeader = "One or more supporting files are missing:" & vbCrLf strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf strMsgFooter = strMsgFooter & "Program execution cannot continue." lngMsgStyle = vbCritical + vbOKOnly ' Look for the first reference in the database other than ' the built in "Access" and "Visual Basic for Applications". For Each refA In Access.Application.References If refA.BuiltIn = False Then ' At least one not built in reference is in use. booNotBuiltInRefExists = True ' Check if the reference is not broken. If IsBroken97(refA) = False Then ' The first not missing not built in reference is found. Set refX = refA Exit For End If End If Next If booNotBuiltInRefExists = False Then ' Only built in references are in use. ' Nothing more to do. Else If refX Is Nothing Then ' All not built in references are missing. ' Don't remove missing references as there is no way to ' re-establish a reference if its identity is lost. Else ' Remove this not built in reference and add it back to ' force Access to revalidate all references. ' This may or may not rebuild links to missing references. With Access.Application.References strRefFullPath = refX.FullPath .Remove refX .AddFromFile strRefFullPath End With Set refX = Nothing End If ' Check references if any should be missing. ' If so, no attempt to read a reference is done as it most likely ' either is not installed or has been moved to an unknown directory. For Each refA In Access.Application.References booIsBroken = IsBroken97(refA) If booIsBroken = True Then ' Build list of missing files. strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath End If booRefIsMissing = booRefIsMissing Or booIsBroken Next ' If any reference is broken, display error message if requested. If booRefIsMissing = True And booErrorDisplay = True Then strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter Access.Application.DoCmd.Beep Access.DoCmd.Echo True VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle End If End If Set refA = Nothing ' If References have been updated, the application is left decompiled. ' Run command in AutoExec macro to compile and save all modules. VerifyReferences = Not booRefIsMissing End Function - and the IsBroken97 function: Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean ' Alternative method to check if a reference is broken ' as the IsBroken property cannot be used in Access97. ' ' 2000-03-19. Gustav Brock. Cactus Data ApS. ' Refer to this article at Microsoft Technet: ' ' Article ID: Q186720 ' ' The information in this article applies to: ' Microsoft Access 97 ' ' SYMPTOMS ' In Microsoft Access, IsBroken is a property of the References collection. ' The Microsoft Access Help topic on the Isbroken property states the following: ' ' The IsBroken property returns a Boolean value indicating whether a ' Reference object points to a valid reference in the Windows Registry. ' ' Although this statement is correct, to receive this Boolean value ' you must trap for errors that are generated by the broken reference. ' Also, the IsBroken property becomes True only when the file being referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. ' This article details the steps necessary to receive the Boolean value. Dim booRefOK As Boolean On Error GoTo Err_IsBroken97 If Len(Dir(ref.FullPath, vbNormal)) > 0 Then booRefOK = Not ref.IsBroken End If Exit_IsBroken97: IsBroken97 = Not booRefOK Exit Function Err_IsBroken97: ' Ignore non existing servers, drives, and paths. Resume Exit_IsBroken97 End Function /gustav >>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> Gustav: The code I was using did go backwards through the references but still choked on the first one which was the missing reference. Seems there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest thing > to do would be to remove the missing reference in the Open event of the > opening form in the event the app is loaded onto a machine which doesn't > have the library. However, all the code that I've seen to remove > missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. How > do you remove a missing reference when the application the reference is > referring to doesn't exist? > > MTIA > > Rocky From jmhecht at earthlink.net Tue Aug 8 14:03:40 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Tue, 8 Aug 2006 12:03:40 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: Wow is this stuff way past me. Good luck Rocky 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: Tuesday, August 08, 2006 12:01 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Removing a missing reference Hi Rocky That sounds a bit strange, also regarding the exe-name. Here's a function that may help you: Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As Boolean ' Verify Access' external references and re-establish these if possible. ' Uses function IsBroken97(). ' ' 2001-07-29. Cactus Data ApS, CPH. ' 2003-07-23. ' Changes: ' Added call to DoCmd.Echo True to allow for display of MsgBox. ' Removed call to SysCmd() compilation which did not work. Dim refA As Access.Reference Dim refX As Access.Reference Dim strRefFullPath As String Dim booNotBuiltInRefExists As Boolean Dim booIsBroken As Boolean Dim booRefIsMissing As Boolean Dim strMsgTitle As String Dim strMsgPrompt As String Dim strMsgHeader As String Dim strMsgFooter As String Dim lngMsgStyle As Long Dim strCrLf As String ' No special error handling. On Error Resume Next ' User oriented error message. strMsgTitle = "Missing support file" strMsgHeader = "One or more supporting files are missing:" & vbCrLf strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf strMsgFooter = strMsgFooter & "Program execution cannot continue." lngMsgStyle = vbCritical + vbOKOnly ' Look for the first reference in the database other than ' the built in "Access" and "Visual Basic for Applications". For Each refA In Access.Application.References If refA.BuiltIn = False Then ' At least one not built in reference is in use. booNotBuiltInRefExists = True ' Check if the reference is not broken. If IsBroken97(refA) = False Then ' The first not missing not built in reference is found. Set refX = refA Exit For End If End If Next If booNotBuiltInRefExists = False Then ' Only built in references are in use. ' Nothing more to do. Else If refX Is Nothing Then ' All not built in references are missing. ' Don't remove missing references as there is no way to ' re-establish a reference if its identity is lost. Else ' Remove this not built in reference and add it back to ' force Access to revalidate all references. ' This may or may not rebuild links to missing references. With Access.Application.References strRefFullPath = refX.FullPath .Remove refX .AddFromFile strRefFullPath End With Set refX = Nothing End If ' Check references if any should be missing. ' If so, no attempt to read a reference is done as it most likely ' either is not installed or has been moved to an unknown directory. For Each refA In Access.Application.References booIsBroken = IsBroken97(refA) If booIsBroken = True Then ' Build list of missing files. strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath End If booRefIsMissing = booRefIsMissing Or booIsBroken Next ' If any reference is broken, display error message if requested. If booRefIsMissing = True And booErrorDisplay = True Then strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter Access.Application.DoCmd.Beep Access.DoCmd.Echo True VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle End If End If Set refA = Nothing ' If References have been updated, the application is left decompiled. ' Run command in AutoExec macro to compile and save all modules. VerifyReferences = Not booRefIsMissing End Function - and the IsBroken97 function: Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean ' Alternative method to check if a reference is broken ' as the IsBroken property cannot be used in Access97. ' ' 2000-03-19. Gustav Brock. Cactus Data ApS. ' Refer to this article at Microsoft Technet: ' ' Article ID: Q186720 ' ' The information in this article applies to: ' Microsoft Access 97 ' ' SYMPTOMS ' In Microsoft Access, IsBroken is a property of the References collection. ' The Microsoft Access Help topic on the Isbroken property states the following: ' ' The IsBroken property returns a Boolean value indicating whether a ' Reference object points to a valid reference in the Windows Registry. ' ' Although this statement is correct, to receive this Boolean value ' you must trap for errors that are generated by the broken reference. ' Also, the IsBroken property becomes True only when the file being referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. ' This article details the steps necessary to receive the Boolean value. Dim booRefOK As Boolean On Error GoTo Err_IsBroken97 If Len(Dir(ref.FullPath, vbNormal)) > 0 Then booRefOK = Not ref.IsBroken End If Exit_IsBroken97: IsBroken97 = Not booRefOK Exit Function Err_IsBroken97: ' Ignore non existing servers, drives, and paths. Resume Exit_IsBroken97 End Function /gustav >>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> Gustav: The code I was using did go backwards through the references but still choked on the first one which was the missing reference. Seems there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. Rocky Gustav Brock wrote: > Hi Rocky > > Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: > > Public Function ReferencesClean() As Boolean > > ' Remove all missing references. > ' Return True if no reference was removed. > ' > ' 2001-08-20. Cactus Data ApS, CPH. > > Dim ref As Reference > Dim lngItem As Long > Dim booMissing As Boolean > > With References > For lngItem = .Count To 1 Step -1 > Set ref = .Item(lngItem) > If ref.BuiltIn = True Then > ' No need to check built in reference. > ElseIf IsBroken97(ref) Then > .Remove ref > booMissing = True > End If > Next > End With > > Set ref = Nothing > > ReferencesClean = Not booMissing > > End Function > > Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: > "Broken References in Runtime AXP and A97" > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>> > Dear List: > > Still struggling with this references thing. It seem the easiest > thing to do would be to remove the missing reference in the Open event > of the opening form in the event the app is loaded onto a machine > which doesn't have the library. However, all the code that I've seen > to remove missing references fail. Code like: > > Dim refCurr As Reference > For Each refCurr In References > If refCurr.IsBroken Then > References.Remove refCurr > End If > Next > > Seems straightforward but when it comes to the missing reference it > errors out on the .Remove line because it doesn't have a name. So. > How do you remove a missing reference when the application the > reference is referring to doesn't exist? > > MTIA > > Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bheid at appdevgrp.com Tue Aug 8 14:14:35 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 8 Aug 2006 15:14:35 -0400 Subject: [AccessD] Raising errors... Message-ID: <916187228923D311A6FE00A0CC3FAA30D3579D@ADGSERVER> I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby From martyconnelly at shaw.ca Tue Aug 8 14:25:28 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 12:25:28 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8D849.5090103@san.rr.com> References: <44D8D849.5090103@san.rr.com> Message-ID: <44D8E528.5060400@shaw.ca> Grr, I am always mixing up Reference and References collection Could try disambiguating the code like this Dim refCurr As Access.Reference Dim intCount As Integer For intCount = Access.References.Count To 1 Step -1 Set refCurr = Access.References(intCount) If Not refCurr.BuiltIn Then If refCurr.IsBroken Then 'might want to check if it has a valid name otherwise skip 'or use on error next ' debug.print refCurr.name Access.References.Remove refCurr End If End If Next Rocky Smolin - Beach Access Software wrote: >P.S. This reference, when it's there, references a .exe. Don't know if >that makes any difference. > >Rocky > > >Gustav Brock wrote: > > >>Hi Rocky >> >>Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >> >>Public Function ReferencesClean() As Boolean >> >>' Remove all missing references. >>' Return True if no reference was removed. >>' >>' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >>End Function >> >>Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>"Broken References in Runtime AXP and A97" >> >>/gustav >> >> >> >> >>>>>bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >>>>> >>Dear List: >> >>Still struggling with this references thing. It seem the easiest thing >>to do would be to remove the missing reference in the Open event of the >>opening form in the event the app is loaded onto a machine which doesn't >>have the library. However, all the code that I've seen to remove >>missing references fail. Code like: >> >>Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >>Seems straightforward but when it comes to the missing reference it >>errors out on the .Remove line because it doesn't have a name. So. How >>do you remove a missing reference when the application the reference is >>referring to doesn't exist? >> >>MTIA >> >>Rocky >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Tue Aug 8 14:40:47 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 12:40:47 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8E8BF.6070702@san.rr.com> Get in line behind me. Rocky Joe Hecht wrote: > Wow is this stuff way past me. > > Good luck Rocky > > > 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: Tuesday, August 08, 2006 12:01 PM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Removing a missing reference > > Hi Rocky > > That sounds a bit strange, also regarding the exe-name. > Here's a function that may help you: > > > > Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As > Boolean > > ' Verify Access' external references and re-establish these if possible. > ' Uses function IsBroken97(). > ' > ' 2001-07-29. Cactus Data ApS, CPH. > ' 2003-07-23. > ' Changes: > ' Added call to DoCmd.Echo True to allow for display of MsgBox. > ' Removed call to SysCmd() compilation which did not work. > > Dim refA As Access.Reference > Dim refX As Access.Reference > Dim strRefFullPath As String > Dim booNotBuiltInRefExists As Boolean > Dim booIsBroken As Boolean > Dim booRefIsMissing As Boolean > Dim strMsgTitle As String > Dim strMsgPrompt As String > Dim strMsgHeader As String > Dim strMsgFooter As String > Dim lngMsgStyle As Long > Dim strCrLf As String > > ' No special error handling. > On Error Resume Next > > ' User oriented error message. > strMsgTitle = "Missing support file" > strMsgHeader = "One or more supporting files are missing:" & vbCrLf > strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf > strMsgFooter = strMsgFooter & "Program execution cannot continue." > lngMsgStyle = vbCritical + vbOKOnly > > ' Look for the first reference in the database other than > ' the built in "Access" and "Visual Basic for Applications". > For Each refA In Access.Application.References > If refA.BuiltIn = False Then > ' At least one not built in reference is in use. > booNotBuiltInRefExists = True > ' Check if the reference is not broken. > If IsBroken97(refA) = False Then > ' The first not missing not built in reference is found. > Set refX = refA > Exit For > End If > End If > Next > > If booNotBuiltInRefExists = False Then > ' Only built in references are in use. > ' Nothing more to do. > Else > If refX Is Nothing Then > ' All not built in references are missing. > ' Don't remove missing references as there is no way to > ' re-establish a reference if its identity is lost. > Else > ' Remove this not built in reference and add it back to > ' force Access to revalidate all references. > ' This may or may not rebuild links to missing references. > With Access.Application.References > strRefFullPath = refX.FullPath > .Remove refX > .AddFromFile strRefFullPath > End With > Set refX = Nothing > End If > ' Check references if any should be missing. > ' If so, no attempt to read a reference is done as it most likely > ' either is not installed or has been moved to an unknown directory. > For Each refA In Access.Application.References > booIsBroken = IsBroken97(refA) > If booIsBroken = True Then > ' Build list of missing files. > strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath > End If > booRefIsMissing = booRefIsMissing Or booIsBroken > Next > > ' If any reference is broken, display error message if requested. > If booRefIsMissing = True And booErrorDisplay = True Then > strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter > Access.Application.DoCmd.Beep > Access.DoCmd.Echo True > VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > End If > > Set refA = Nothing > > ' If References have been updated, the application is left decompiled. > ' Run command in AutoExec macro to compile and save all modules. > > VerifyReferences = Not booRefIsMissing > > End Function > > > > - and the IsBroken97 function: > > > > Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean > > ' Alternative method to check if a reference is broken ' as the IsBroken > property cannot be used in Access97. > ' > ' 2000-03-19. Gustav Brock. Cactus Data ApS. > > ' Refer to this article at Microsoft Technet: > ' > ' Article ID: Q186720 > ' > ' The information in this article applies to: > ' Microsoft Access 97 > ' > ' SYMPTOMS > ' In Microsoft Access, IsBroken is a property of the References collection. > ' The Microsoft Access Help topic on the Isbroken property states the > following: > ' > ' The IsBroken property returns a Boolean value indicating whether a ' > Reference object points to a valid reference in the Windows Registry. > ' > ' Although this statement is correct, to receive this Boolean value ' you > must trap for errors that are generated by the broken reference. > ' Also, the IsBroken property becomes True only when the file being > referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. > ' This article details the steps necessary to receive the Boolean value. > > Dim booRefOK As Boolean > On Error GoTo Err_IsBroken97 > > If Len(Dir(ref.FullPath, vbNormal)) > 0 Then > booRefOK = Not ref.IsBroken > End If > > Exit_IsBroken97: > IsBroken97 = Not booRefOK > Exit Function > > Err_IsBroken97: > ' Ignore non existing servers, drives, and paths. > Resume Exit_IsBroken97 > > End Function > > > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> >>>> > Gustav: > > The code I was using did go backwards through the references but still > choked on the first one which was the missing reference. Seems there's > nothing in the reference so MsgBox ref.Name fails as well as .Remove. > > Rocky > > > Gustav Brock wrote: > >> Hi Rocky >> >> Further to Charlotte's comments, I faintly recall you have to move >> > backwards in the References collection: > >> Public Function ReferencesClean() As Boolean >> >> ' Remove all missing references. >> ' Return True if no reference was removed. >> ' >> ' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >> End Function >> >> Still, your code will be left non-compiled after this. A method to compile >> > the code is described by Charlotte and me if you search the archives of July > 2003 for: > >> "Broken References in Runtime AXP and A97" >> >> /gustav >> >> >> >>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >> Dear List: >> >> Still struggling with this references thing. It seem the easiest >> thing to do would be to remove the missing reference in the Open event >> of the opening form in the event the app is loaded onto a machine >> which doesn't have the library. However, all the code that I've seen >> to remove missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. >> How do you remove a missing reference when the application the >> reference is referring to doesn't exist? >> >> MTIA >> >> Rocky >> > > -- > 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 Tue Aug 8 14:45:03 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 12:45:03 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E528.5060400@shaw.ca> References: <44D8D849.5090103@san.rr.com> <44D8E528.5060400@shaw.ca> Message-ID: <44D8E9BF.7030709@san.rr.com> Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky MartyConnelly wrote: > Grr, I am always mixing up Reference and References collection > Could try disambiguating the code like this > > Dim refCurr As Access.Reference > Dim intCount As Integer > > > For intCount = Access.References.Count To 1 Step -1 > Set refCurr = Access.References(intCount) > If Not refCurr.BuiltIn Then > If refCurr.IsBroken Then > 'might want to check if it has a valid name otherwise skip > 'or use on error next > ' debug.print refCurr.name > > Access.References.Remove refCurr > End If > End If > Next > > > > Rocky Smolin - Beach Access Software wrote: > > >> P.S. This reference, when it's there, references a .exe. Don't know if >> that makes any difference. >> >> Rocky >> >> >> Gustav Brock wrote: >> >> >> >>> Hi Rocky >>> >>> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >>> >>> Public Function ReferencesClean() As Boolean >>> >>> ' Remove all missing references. >>> ' Return True if no reference was removed. >>> ' >>> ' 2001-08-20. Cactus Data ApS, CPH. >>> >>> Dim ref As Reference >>> Dim lngItem As Long >>> Dim booMissing As Boolean >>> >>> With References >>> For lngItem = .Count To 1 Step -1 >>> Set ref = .Item(lngItem) >>> If ref.BuiltIn = True Then >>> ' No need to check built in reference. >>> ElseIf IsBroken97(ref) Then >>> .Remove ref >>> booMissing = True >>> End If >>> Next >>> End With >>> >>> Set ref = Nothing >>> >>> ReferencesClean = Not booMissing >>> >>> End Function >>> >>> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>> "Broken References in Runtime AXP and A97" >>> >>> /gustav >>> >>> >>> >>> >>> >>>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>>> >>>>>> >>>>>> >>>>>> >>> Dear List: >>> >>> Still struggling with this references thing. It seem the easiest thing >>> to do would be to remove the missing reference in the Open event of the >>> opening form in the event the app is loaded onto a machine which doesn't >>> have the library. However, all the code that I've seen to remove >>> missing references fail. Code like: >>> >>> Dim refCurr As Reference >>> For Each refCurr In References >>> If refCurr.IsBroken Then >>> References.Remove refCurr >>> End If >>> Next >>> >>> Seems straightforward but when it comes to the missing reference it >>> errors out on the .Remove line because it doesn't have a name. So. How >>> do you remove a missing reference when the application the reference is >>> referring to doesn't exist? >>> >>> MTIA >>> >>> Rocky >>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Tue Aug 8 14:51:35 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 12:51:35 -0700 Subject: [AccessD] Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579D@ADGSERVER> Message-ID: Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bheid at appdevgrp.com Tue Aug 8 14:59:28 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 8 Aug 2006 15:59:28 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A628@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3579E@ADGSERVER> Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 14:59:45 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 12:59:45 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: Message-ID: <44D8ED31.2050508@san.rr.com> Gustav: After running this code I find that the missing reference is still checked. Any other ideas? TIA Rocky Gustav Brock wrote: > Hi Rocky > > That sounds a bit strange, also regarding the exe-name. > Here's a function that may help you: > > > > Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As Boolean > > ' Verify Access' external references and re-establish these if possible. > ' Uses function IsBroken97(). > ' > ' 2001-07-29. Cactus Data ApS, CPH. > ' 2003-07-23. > ' Changes: > ' Added call to DoCmd.Echo True to allow for display of MsgBox. > ' Removed call to SysCmd() compilation which did not work. > > Dim refA As Access.Reference > Dim refX As Access.Reference > Dim strRefFullPath As String > Dim booNotBuiltInRefExists As Boolean > Dim booIsBroken As Boolean > Dim booRefIsMissing As Boolean > Dim strMsgTitle As String > Dim strMsgPrompt As String > Dim strMsgHeader As String > Dim strMsgFooter As String > Dim lngMsgStyle As Long > Dim strCrLf As String > > ' No special error handling. > On Error Resume Next > > ' User oriented error message. > strMsgTitle = "Missing support file" > strMsgHeader = "One or more supporting files are missing:" & vbCrLf > strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf > strMsgFooter = strMsgFooter & "Program execution cannot continue." > lngMsgStyle = vbCritical + vbOKOnly > > ' Look for the first reference in the database other than > ' the built in "Access" and "Visual Basic for Applications". > For Each refA In Access.Application.References > If refA.BuiltIn = False Then > ' At least one not built in reference is in use. > booNotBuiltInRefExists = True > ' Check if the reference is not broken. > If IsBroken97(refA) = False Then > ' The first not missing not built in reference is found. > Set refX = refA > Exit For > End If > End If > Next > > If booNotBuiltInRefExists = False Then > ' Only built in references are in use. > ' Nothing more to do. > Else > If refX Is Nothing Then > ' All not built in references are missing. > ' Don't remove missing references as there is no way to > ' re-establish a reference if its identity is lost. > Else > ' Remove this not built in reference and add it back to > ' force Access to revalidate all references. > ' This may or may not rebuild links to missing references. > With Access.Application.References > strRefFullPath = refX.FullPath > .Remove refX > .AddFromFile strRefFullPath > End With > Set refX = Nothing > End If > ' Check references if any should be missing. > ' If so, no attempt to read a reference is done as it most likely > ' either is not installed or has been moved to an unknown directory. > For Each refA In Access.Application.References > booIsBroken = IsBroken97(refA) > If booIsBroken = True Then > ' Build list of missing files. > strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath > End If > booRefIsMissing = booRefIsMissing Or booIsBroken > Next > > ' If any reference is broken, display error message if requested. > If booRefIsMissing = True And booErrorDisplay = True Then > strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter > Access.Application.DoCmd.Beep > Access.DoCmd.Echo True > VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > End If > > Set refA = Nothing > > ' If References have been updated, the application is left decompiled. > ' Run command in AutoExec macro to compile and save all modules. > > VerifyReferences = Not booRefIsMissing > > End Function > > > > - and the IsBroken97 function: > > > > Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean > > ' Alternative method to check if a reference is broken > ' as the IsBroken property cannot be used in Access97. > ' > ' 2000-03-19. Gustav Brock. Cactus Data ApS. > > ' Refer to this article at Microsoft Technet: > ' > ' Article ID: Q186720 > ' > ' The information in this article applies to: > ' Microsoft Access 97 > ' > ' SYMPTOMS > ' In Microsoft Access, IsBroken is a property of the References collection. > ' The Microsoft Access Help topic on the Isbroken property states the following: > ' > ' The IsBroken property returns a Boolean value indicating whether a > ' Reference object points to a valid reference in the Windows Registry. > ' > ' Although this statement is correct, to receive this Boolean value > ' you must trap for errors that are generated by the broken reference. > ' Also, the IsBroken property becomes True only when the file being referenced > ' is deleted and the Microsoft Windows Recycle Bin is emptied. > ' This article details the steps necessary to receive the Boolean value. > > Dim booRefOK As Boolean > On Error GoTo Err_IsBroken97 > > If Len(Dir(ref.FullPath, vbNormal)) > 0 Then > booRefOK = Not ref.IsBroken > End If > > Exit_IsBroken97: > IsBroken97 = Not booRefOK > Exit Function > > Err_IsBroken97: > ' Ignore non existing servers, drives, and paths. > Resume Exit_IsBroken97 > > End Function > > > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> >>>> > Gustav: > > The code I was using did go backwards through the references but still > choked on the first one which was the missing reference. Seems there's > nothing in the reference so MsgBox ref.Name fails as well as .Remove. > > Rocky > > > Gustav Brock wrote: > >> Hi Rocky >> >> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >> >> Public Function ReferencesClean() As Boolean >> >> ' Remove all missing references. >> ' Return True if no reference was removed. >> ' >> ' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >> End Function >> >> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >> "Broken References in Runtime AXP and A97" >> >> /gustav >> >> >> >>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >> Dear List: >> >> Still struggling with this references thing. It seem the easiest thing >> to do would be to remove the missing reference in the Open event of the >> opening form in the event the app is loaded onto a machine which doesn't >> have the library. However, all the code that I've seen to remove >> missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. How >> do you remove a missing reference when the application the reference is >> referring to doesn't exist? >> >> MTIA >> >> Rocky >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Tue Aug 8 14:59:01 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 12:59:01 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E9BF.7030709@san.rr.com> Message-ID: Rocky, The problem with testing references is that a broken reference breaks the tests. You can't reference the Access object, you have to use Application like this: Public Function EnumRefs() Dim ref As VBIDE.Reference Dim element As Variant For Each ref In VBE.ActiveVBProject.References Debug.Print ref.name, ref.Description, ref.FullPath, ref.BuiltIn Next ref Set ref = Nothing End Function 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky MartyConnelly wrote: > Grr, I am always mixing up Reference and References collection Could > try disambiguating the code like this > > Dim refCurr As Access.Reference > Dim intCount As Integer > > > For intCount = Access.References.Count To 1 Step -1 > Set refCurr = Access.References(intCount) > If Not refCurr.BuiltIn Then > If refCurr.IsBroken Then > 'might want to check if it has a valid name otherwise skip > 'or use on error next > ' debug.print refCurr.name > > Access.References.Remove refCurr > End If > End If > Next > > > > Rocky Smolin - Beach Access Software wrote: > > >> P.S. This reference, when it's there, references a .exe. Don't know >> if that makes any difference. >> >> Rocky >> >> >> Gustav Brock wrote: >> >> >> >>> Hi Rocky >>> >>> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >>> >>> Public Function ReferencesClean() As Boolean >>> >>> ' Remove all missing references. >>> ' Return True if no reference was removed. >>> ' >>> ' 2001-08-20. Cactus Data ApS, CPH. >>> >>> Dim ref As Reference >>> Dim lngItem As Long >>> Dim booMissing As Boolean >>> >>> With References >>> For lngItem = .Count To 1 Step -1 >>> Set ref = .Item(lngItem) >>> If ref.BuiltIn = True Then >>> ' No need to check built in reference. >>> ElseIf IsBroken97(ref) Then >>> .Remove ref >>> booMissing = True >>> End If >>> Next >>> End With >>> >>> Set ref = Nothing >>> >>> ReferencesClean = Not booMissing >>> >>> End Function >>> >>> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>> "Broken References in Runtime AXP and A97" >>> >>> /gustav >>> >>> >>> >>> >>> >>>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>>> >>>>>> >>>>>> >>>>>> >>> Dear List: >>> >>> Still struggling with this references thing. It seem the easiest >>> thing to do would be to remove the missing reference in the Open >>> event of the opening form in the event the app is loaded onto a >>> machine which doesn't have the library. However, all the code that >>> I've seen to remove missing references fail. Code like: >>> >>> Dim refCurr As Reference >>> For Each refCurr In References >>> If refCurr.IsBroken Then >>> References.Remove refCurr >>> End If >>> Next >>> >>> Seems straightforward but when it comes to the missing reference it >>> errors out on the .Remove line because it doesn't have a name. So. >>> How do you remove a missing reference when the application the >>> reference is referring to doesn't exist? >>> >>> MTIA >>> >>> 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 Aug 8 15:19:32 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 00:19:32 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E9BF.7030709@san.rr.com> Message-ID: <000501c6bb27$f5cf25b0$6601a8c0@nant> Rocky, I still think the easiest and the most reliable solution for your case is to use late binding. Did I miss something in this thread - why it didn't work for you? If you decide to not use late binding and if remove reference doesn't work for you - then you can use Add Reference (anyway your intention to use Remove Reference forces your FE to loose its compiled state as well as Add Reference does). I mean the following: - put all your bar code printing code into a separate library/utility database, set reference to bar code printing library in this database; - in your FE keep the code to check is it possible to create bar code printing object or not; - if it's possible to create bar code printing object then add reference to its library (code to add reference MUST BE kept in another library database - if executed in FE such will force FEs global vars to loose their values); Etc. This above is a flexible solution but its above description isn't a full story - in this case if your FE uses global variables then you have to create another "proxy" FE to keep start-up code, (dynamic) references, commandbars... and use your current FE as a library database - then CurrentDb if you use it becomes a problem etc. This above technique works very well - it was used in real life apps here and there back to the years 1998-2000 but program databases and their code should be refactored to be used within this technique.... It's very shortly described here - "A method to modularize MS Access applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm But applying it for your case looks like using "cannons to shoot at nightingales" - why not use simple and effective late binding? -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 11:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky From cfoust at infostatsystems.com Tue Aug 8 15:28:11 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 13:28:11 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8ED31.2050508@san.rr.com> Message-ID: Rocky, I won't guarantee this will work, but here's the code I finally came down to several years ago. When you're checking references, you cannot use any built-in constants, and everything has to be fully disambiguated. Charlotte '******** Begin Module ********* Attribute VB_Name = "basReferences" Option Compare Database Option Explicit Public Function TestReference() ' loops through references collection and attempts to repair broken references ' by removing and adding back the reference. For the Redemption code library, ' attempts to set the reference to the folder where this is placed by default. ' Disambiguation is used to prevent this code from breaking when there are broken ' references in the project. Dim objRef As Access.Reference Dim strRefPath As String Dim strFile As String Dim strAccessPath As String Dim strMsg As String Dim strLogTxt As String Dim intCount As Integer On Error GoTo TestReference_err ' *** this for testing only strLogTxt = "Broken References = " & Access.Application.BrokenReference strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & Access.Application.SysCmd(6) RefAddEvent "REF", "TestReference", strLogTxt ' *** strLogTxt = "" ' check for broken references For intCount = Access.Application.References.Count To 1 Step -1 Set objRef = Access.Application.References(intCount) ' store the full path of the reference and the filename itself strRefPath = objRef.FullPath strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) - 1) ' if we're dealing with Redemption, try to set it to the ' Access runtime path If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & VBA.Chr(10) _ & objRef.FullPath ' store the runtime path strAccessPath = Access.Application.SysCmd(9) strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) ' we need only the folder portion of the runtime path strAccessPath = VBA.Mid(strAccessPath, 1, VBA.InStrRev(strAccessPath, "\")) If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) = 0 Or _ (objRef.Name <> "RIMCDORedemption" And VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Broken reference: " & objRef.Name If VBA.Len(VBA.Dir(strAccessPath & "RIMCDORedemptionXP.*")) = 0 Then VBA.MsgBox "You must repair a broken reference which will otherwise " _ & "prevent the application from functioning normally.", _ 64, "Warning - Runtime Session Required" strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Not a runtime session." Exit For Else ' remove the broken and add it back Access.Application.References.Remove objRef strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Broken Reference removed" Access.Application.References.AddFromFile strAccessPath & strFile strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Reference added: " _ & VBA.Chr(13) & VBA.Chr(10) & strAccessPath & strFile ' if any broken references were handled, recompile the project ' See MSKB 194374 for info on SysCmd hidden arguments ' Note that if we do NOT run the compile, the repaired reference ' does not seem to "stick" and this will run each time the app opens Access.Application.SysCmd 504, 16483 strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Recompiled Application" End If End If Exit For End If Next intCount TestReference_exit: On Error Resume Next RefAddEvent "REF", "TestReference", strLogTxt Set objRef = Nothing Exit Function TestReference_err: RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & VBA.Chr(10) & VBA.Err.Description VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number Resume TestReference_exit End Function Private Sub RefAddEvent(strType As String, strDescription As String, Optional strDetails As String, Optional fPrint As Boolean) ' Purpose: create an event record of the required type ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, CODE, ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR ' strDescription - simple description ' strDetails - optional details ' fPrint - automatically generates a printed report of the event ' strTitle - title for report if printed ' Created: 26-Aug-97 By: SJW ' Updated: 07-Oct-98 By: SJW - add A4 paper size options ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options with SetpaperSize Dim rstEvent As DAO.Recordset Dim lngTmp As Long On Error GoTo AddEvent_Err Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog where 1 = 2", 2) rstEvent.AddNew rstEvent!datTimeStamp = VBA.Now() rstEvent!strType = strType rstEvent!strSystemID = "NONE" ' truncate the description to 255 chars just in case we have exceeded it If VBA.Len(strDescription) > 255 Then rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) ' if we do not pass details then place the complete description in details If Len(strDetails) = 0 Then rstEvent!memDetails = strDescription End If Else rstEvent!strDescription = strDescription If Len(strDetails) > 0 Then rstEvent!memDetails = strDetails End If End If lngTmp = rstEvent!lngID rstEvent.Update AddEvent_Exit: On Error Resume Next rstEvent.Close Set rstEvent = Nothing Exit Sub AddEvent_Err: VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" Resume AddEvent_Exit End Sub '******** End Module ********* -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 1:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Gustav: After running this code I find that the missing reference is still checked. Any other ideas? TIA Rocky Gustav Brock wrote: > Hi Rocky > > That sounds a bit strange, also regarding the exe-name. > Here's a function that may help you: > > > > Public Function VerifyReferences(ByVal booErrorDisplay As Boolean) As > Boolean > > ' Verify Access' external references and re-establish these if possible. > ' Uses function IsBroken97(). > ' > ' 2001-07-29. Cactus Data ApS, CPH. > ' 2003-07-23. > ' Changes: > ' Added call to DoCmd.Echo True to allow for display of MsgBox. > ' Removed call to SysCmd() compilation which did not work. > > Dim refA As Access.Reference > Dim refX As Access.Reference > Dim strRefFullPath As String > Dim booNotBuiltInRefExists As Boolean > Dim booIsBroken As Boolean > Dim booRefIsMissing As Boolean > Dim strMsgTitle As String > Dim strMsgPrompt As String > Dim strMsgHeader As String > Dim strMsgFooter As String > Dim lngMsgStyle As Long > Dim strCrLf As String > > ' No special error handling. > On Error Resume Next > > ' User oriented error message. > strMsgTitle = "Missing support file" > strMsgHeader = "One or more supporting files are missing:" & vbCrLf > strMsgFooter = vbCrLf & vbCrLf & "Report this to IT support." & vbCrLf > strMsgFooter = strMsgFooter & "Program execution cannot continue." > lngMsgStyle = vbCritical + vbOKOnly > > ' Look for the first reference in the database other than > ' the built in "Access" and "Visual Basic for Applications". > For Each refA In Access.Application.References > If refA.BuiltIn = False Then > ' At least one not built in reference is in use. > booNotBuiltInRefExists = True > ' Check if the reference is not broken. > If IsBroken97(refA) = False Then > ' The first not missing not built in reference is found. > Set refX = refA > Exit For > End If > End If > Next > > If booNotBuiltInRefExists = False Then > ' Only built in references are in use. > ' Nothing more to do. > Else > If refX Is Nothing Then > ' All not built in references are missing. > ' Don't remove missing references as there is no way to > ' re-establish a reference if its identity is lost. > Else > ' Remove this not built in reference and add it back to > ' force Access to revalidate all references. > ' This may or may not rebuild links to missing references. > With Access.Application.References > strRefFullPath = refX.FullPath > .Remove refX > .AddFromFile strRefFullPath > End With > Set refX = Nothing > End If > ' Check references if any should be missing. > ' If so, no attempt to read a reference is done as it most likely > ' either is not installed or has been moved to an unknown directory. > For Each refA In Access.Application.References > booIsBroken = IsBroken97(refA) > If booIsBroken = True Then > ' Build list of missing files. > strMsgPrompt = strMsgPrompt & vbCrLf & refA.FullPath > End If > booRefIsMissing = booRefIsMissing Or booIsBroken > Next > > ' If any reference is broken, display error message if requested. > If booRefIsMissing = True And booErrorDisplay = True Then > strMsgPrompt = strMsgHeader & strMsgPrompt & strMsgFooter > Access.Application.DoCmd.Beep > Access.DoCmd.Echo True > VBA.MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > End If > > Set refA = Nothing > > ' If References have been updated, the application is left decompiled. > ' Run command in AutoExec macro to compile and save all modules. > > VerifyReferences = Not booRefIsMissing > > End Function > > > > - and the IsBroken97 function: > > > > Public Function IsBroken97(ByVal ref As Access.Reference) As Boolean > > ' Alternative method to check if a reference is broken ' as the > IsBroken property cannot be used in Access97. > ' > ' 2000-03-19. Gustav Brock. Cactus Data ApS. > > ' Refer to this article at Microsoft Technet: > ' > ' Article ID: Q186720 > ' > ' The information in this article applies to: > ' Microsoft Access 97 > ' > ' SYMPTOMS > ' In Microsoft Access, IsBroken is a property of the References collection. > ' The Microsoft Access Help topic on the Isbroken property states the following: > ' > ' The IsBroken property returns a Boolean value indicating whether a ' > Reference object points to a valid reference in the Windows Registry. > ' > ' Although this statement is correct, to receive this Boolean value ' > you must trap for errors that are generated by the broken reference. > ' Also, the IsBroken property becomes True only when the file being > referenced ' is deleted and the Microsoft Windows Recycle Bin is emptied. > ' This article details the steps necessary to receive the Boolean value. > > Dim booRefOK As Boolean > On Error GoTo Err_IsBroken97 > > If Len(Dir(ref.FullPath, vbNormal)) > 0 Then > booRefOK = Not ref.IsBroken > End If > > Exit_IsBroken97: > IsBroken97 = Not booRefOK > Exit Function > > Err_IsBroken97: > ' Ignore non existing servers, drives, and paths. > Resume Exit_IsBroken97 > > End Function > > > > /gustav > > >>>> bchacc at san.rr.com 08-08-2006 20:29:35 >>> >>>> > Gustav: > > The code I was using did go backwards through the references but still > choked on the first one which was the missing reference. Seems > there's nothing in the reference so MsgBox ref.Name fails as well as .Remove. > > Rocky > > > Gustav Brock wrote: > >> Hi Rocky >> >> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >> >> Public Function ReferencesClean() As Boolean >> >> ' Remove all missing references. >> ' Return True if no reference was removed. >> ' >> ' 2001-08-20. Cactus Data ApS, CPH. >> >> Dim ref As Reference >> Dim lngItem As Long >> Dim booMissing As Boolean >> >> With References >> For lngItem = .Count To 1 Step -1 >> Set ref = .Item(lngItem) >> If ref.BuiltIn = True Then >> ' No need to check built in reference. >> ElseIf IsBroken97(ref) Then >> .Remove ref >> booMissing = True >> End If >> Next >> End With >> >> Set ref = Nothing >> >> ReferencesClean = Not booMissing >> >> End Function >> >> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >> "Broken References in Runtime AXP and A97" >> >> /gustav >> >> >> >>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>> >>>>> >> Dear List: >> >> Still struggling with this references thing. It seem the easiest >> thing to do would be to remove the missing reference in the Open >> event of the opening form in the event the app is loaded onto a >> machine which doesn't have the library. However, all the code that >> I've seen to remove missing references fail. Code like: >> >> Dim refCurr As Reference >> For Each refCurr In References >> If refCurr.IsBroken Then >> References.Remove refCurr >> End If >> Next >> >> Seems straightforward but when it comes to the missing reference it >> errors out on the .Remove line because it doesn't have a name. So. >> How do you remove a missing reference when the application the >> reference is referring to doesn't exist? >> >> MTIA >> >> 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 cfoust at infostatsystems.com Tue Aug 8 15:30:47 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 13:30:47 -0700 Subject: [AccessD] [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579E@ADGSERVER> Message-ID: I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 15:35:31 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 13:35:31 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <000501c6bb27$f5cf25b0$6601a8c0@nant> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> Message-ID: <44D8F593.5070103@san.rr.com> Shamil: I tried using late binding which would work real well but partway into the code I got an error. On the statement: Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) I get an 'argument not optional' error - don't know why. But the reference is to the Bartender.exe, if that makes any difference. Using early binding, this code works well. To change from early to late binding I changed Public BtApp As BarTender.Application Public BtFormat As BarTender.Format to Public BtApp As Object 'BarTender.Application Public BtFormat As Variant 'BarTender.Format and then in the load event: Set BtApp = CreateObject("BarTender.Application") There is no object model for Bartender so I don't know what it is expecting for BtFormat. But late binding would solve the problem. Any ideas? If I want to try your other solution I'll have some questions. It's a bit past my capabilities. Thanks and regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > I still think the easiest and the most reliable solution for your case is to > use late binding. Did I miss something in this thread - why it didn't work > for you? > > If you decide to not use late binding and if remove reference doesn't work > for you - then you can use Add Reference (anyway your intention to use > Remove Reference forces your FE to loose its compiled state as well as Add > Reference does). > > I mean the following: > > - put all your bar code printing code into a separate library/utility > database, set reference to bar code printing library in this database; > > - in your FE keep the code to check is it possible to create bar code > printing object or not; > > - if it's possible to create bar code printing object then add reference to > its library (code to add reference MUST BE kept in another library database > - if executed in FE such will force FEs global vars to loose their values); > > Etc. > > This above is a flexible solution but its above description isn't a full > story - in this case if your FE uses global variables then you have to > create another "proxy" FE to keep start-up code, (dynamic) references, > commandbars... and use your current FE as a library database - then > CurrentDb if you use it becomes a problem etc. > > This above technique works very well - it was used in real life apps here > and there back to the years 1998-2000 but program databases and their code > should be refactored to be used within this technique.... > > It's very shortly described here - "A method to modularize MS Access > applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm > > But applying it for your case looks like using "cannons to shoot at > nightingales" - why not use simple and effective late binding? > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Tuesday, August 08, 2006 11:45 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Marty: > > Access.References.Remove refCurr still generates error: -2147319779 - Object > library not registered. > > Rocky > > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Tue Aug 8 15:42:10 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 8 Aug 2006 16:42:10 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A63C@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3579F@ADGSERVER> A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 16:17:47 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 14:17:47 -0700 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579F@ADGSERVER> Message-ID: Backup. Is the routine in a class? Is it being called from a class? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 8 16:20:49 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 14:20:49 -0700 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D3579F@ADGSERVER> Message-ID: Bobby, I just looked at your code again instread of just at the error handling. You have On Error Resume Next set, which clears the error. If you want to raise an error, you have to use an error handler and raise the error from there. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Tue Aug 8 16:33:35 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 14:33:35 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8F593.5070103@san.rr.com> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> Message-ID: <44D9032F.3050403@shaw.ca> If you are using something like Set BtFormat then it should be declared as an object. Dim BtFormat as Object Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case is to >>use late binding. Did I miss something in this thread - why it didn't work >>for you? >> >>If you decide to not use late binding and if remove reference doesn't work >>for you - then you can use Add Reference (anyway your intention to use >>Remove Reference forces your FE to loose its compiled state as well as Add >>Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a full >>story - in this case if your FE uses global variables then you have to >>create another "proxy" FE to keep start-up code, (dynamic) references, >>commandbars... and use your current FE as a library database - then >>CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps here >>and there back to the years 1998-2000 but program databases and their code >>should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Tue Aug 8 18:00:09 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 16:00:09 -0700 Subject: [AccessD] Removing a missing reference] Message-ID: <44D91779.9080308@san.rr.com> Charlotte: Thanks for all the code. Unfortunately I'm getting the same problem when looking at this missing reference on your line of code strRefPath = objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' failed (A2K). I think it's because there is no reference there. The app being referred to isn't on the machine. So I think it's more a question of getting that box unchecked than deleting a reference which doesn't really exist (or are those the same things?). Thanks and regards, Rocky Charlotte Foust wrote: > Rocky, > > I won't guarantee this will work, but here's the code I finally came > down to several years ago. When you're checking references, you cannot > use any built-in constants, and everything has to be fully > disambiguated. > > Charlotte > > '******** Begin Module ********* > Attribute VB_Name = "basReferences" > Option Compare Database > Option Explicit > > Public Function TestReference() > ' loops through references collection and attempts to repair broken > references > ' by removing and adding back the reference. For the Redemption code > library, > ' attempts to set the reference to the folder where this is placed by > default. > ' Disambiguation is used to prevent this code from breaking when there > are broken > ' references in the project. > > Dim objRef As Access.Reference > Dim strRefPath As String > Dim strFile As String > Dim strAccessPath As String > Dim strMsg As String > Dim strLogTxt As String > Dim intCount As Integer > > On Error GoTo TestReference_err > > ' *** this for testing only > strLogTxt = "Broken References = " & > Access.Application.BrokenReference > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & > Access.Application.SysCmd(6) > RefAddEvent "REF", "TestReference", strLogTxt > ' *** > strLogTxt = "" > > ' check for broken references > For intCount = Access.Application.References.Count To 1 Step -1 > Set objRef = Access.Application.References(intCount) > > ' store the full path of the reference and the filename itself > strRefPath = objRef.FullPath > strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) > strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) > - 1) > > ' if we're dealing with Redemption, try to set it to the > ' Access runtime path > If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then > strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & > VBA.Chr(10) _ > & objRef.FullPath > > ' store the runtime path > strAccessPath = Access.Application.SysCmd(9) > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime > Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) > > ' we need only the folder portion of the runtime path > strAccessPath = VBA.Mid(strAccessPath, 1, > VBA.InStrRev(strAccessPath, "\")) > > If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) > = 0 Or _ > (objRef.Name <> "RIMCDORedemption" And > VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken reference: " & objRef.Name > > If VBA.Len(VBA.Dir(strAccessPath & > "RIMCDORedemptionXP.*")) = 0 Then > VBA.MsgBox "You must repair a broken reference which > will otherwise " _ > & "prevent the application from > functioning normally.", _ > 64, "Warning - Runtime Session Required" > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Not a runtime session." > Exit For > > Else > ' remove the broken and add it back > Access.Application.References.Remove objRef > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken Reference removed" > Access.Application.References.AddFromFile > strAccessPath & strFile > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Reference added: " _ > & VBA.Chr(13) & VBA.Chr(10) & > strAccessPath & strFile > > ' if any broken references were handled, recompile > the project > ' See MSKB 194374 for info on SysCmd hidden > arguments > ' Note that if we do NOT run the compile, the > repaired reference > ' does not seem to "stick" and this will run each > time the app opens > Access.Application.SysCmd 504, 16483 > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Recompiled Application" > End If > End If > Exit For > End If > > Next intCount > > TestReference_exit: > On Error Resume Next > RefAddEvent "REF", "TestReference", strLogTxt > Set objRef = Nothing > Exit Function > TestReference_err: > RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & > VBA.Chr(10) & VBA.Err.Description > VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number > Resume TestReference_exit > > End Function > > Private Sub RefAddEvent(strType As String, strDescription As String, > Optional strDetails As String, Optional fPrint As Boolean) > ' Purpose: create an event record of the required type > ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, > CODE, > ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR > ' strDescription - simple description > ' strDetails - optional details > ' fPrint - automatically generates a printed report of the > event > ' strTitle - title for report if printed > ' Created: 26-Aug-97 By: SJW > ' Updated: 07-Oct-98 By: SJW - add A4 paper size options > ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options > with SetpaperSize > > Dim rstEvent As DAO.Recordset > Dim lngTmp As Long > > On Error GoTo AddEvent_Err > > Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog > where 1 = 2", 2) > rstEvent.AddNew > rstEvent!datTimeStamp = VBA.Now() > rstEvent!strType = strType > rstEvent!strSystemID = "NONE" > > ' truncate the description to 255 chars just in case we have exceeded it > If VBA.Len(strDescription) > 255 Then > rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) > ' if we do not pass details then place the complete description in > details > If Len(strDetails) = 0 Then > rstEvent!memDetails = strDescription > End If > Else > rstEvent!strDescription = strDescription > If Len(strDetails) > 0 Then > rstEvent!memDetails = strDetails > End If > End If > lngTmp = rstEvent!lngID > rstEvent.Update > > AddEvent_Exit: > On Error Resume Next > rstEvent.Close > Set rstEvent = Nothing > Exit Sub > > AddEvent_Err: > VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" > Resume AddEvent_Exit > > End Sub > '******** End Module ********* > From shamil at users.mns.ru Tue Aug 8 18:52:38 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 03:52:38 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8F593.5070103@san.rr.com> Message-ID: <001201c6bb45$bcaa6920$6601a8c0@nant> Rocky, This code should work OK with late binding(watch code lines wraps): 'Declaring a BarTender application variable Dim btApp As Object 'BarTender.Application 'Declaring a format variable Dim btFormat As Object ' BarTender.Format 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") 'Printing the label format btFormat.PrintOut False, False 'Ending the BarTender process btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges As you were recommended here you can use conditional compilation and early binding to have intellisense while developing/testing and to compile and run using late binding when preparing/using a production version: #if PRODUCTION_VERSION then 'Declaring a BarTender application variable Dim btApp As Object 'BarTender.Application 'Declaring a format variable Dim btFormat As Object ' BarTender.Format #else 'Declaring a BarTender application variable Dim btApp As BarTender.Application 'Declaring a format variable Dim btFormat as BarTender.Format #endif 'Instantiating the BarTender object Set btApp = GetBarTenderApp() If Not btApp is Nothing then 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") 'Printing the label format btFormat.PrintOut False, False 'Ending the BarTender process btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges End if ... Private function GetBarTenderApp() as object On error resume next Set GetBarTenderApp = CreateObject("BarTender.Application") End function -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 12:36 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Shamil: I tried using late binding which would work real well but partway into the code I got an error. On the statement: Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) I get an 'argument not optional' error - don't know why. But the reference is to the Bartender.exe, if that makes any difference. Using early binding, this code works well. To change from early to late binding I changed Public BtApp As BarTender.Application Public BtFormat As BarTender.Format to Public BtApp As Object 'BarTender.Application Public BtFormat As Variant 'BarTender.Format and then in the load event: Set BtApp = CreateObject("BarTender.Application") There is no object model for Bartender so I don't know what it is expecting for BtFormat. But late binding would solve the problem. Any ideas? If I want to try your other solution I'll have some questions. It's a bit past my capabilities. Thanks and regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > I still think the easiest and the most reliable solution for your case is to > use late binding. Did I miss something in this thread - why it didn't work > for you? > > If you decide to not use late binding and if remove reference doesn't work > for you - then you can use Add Reference (anyway your intention to use > Remove Reference forces your FE to loose its compiled state as well as Add > Reference does). > > I mean the following: > > - put all your bar code printing code into a separate library/utility > database, set reference to bar code printing library in this database; > > - in your FE keep the code to check is it possible to create bar code > printing object or not; > > - if it's possible to create bar code printing object then add reference to > its library (code to add reference MUST BE kept in another library database > - if executed in FE such will force FEs global vars to loose their values); > > Etc. > > This above is a flexible solution but its above description isn't a full > story - in this case if your FE uses global variables then you have to > create another "proxy" FE to keep start-up code, (dynamic) references, > commandbars... and use your current FE as a library database - then > CurrentDb if you use it becomes a problem etc. > > This above technique works very well - it was used in real life apps here > and there back to the years 1998-2000 but program databases and their code > should be refactored to be used within this technique.... > > It's very shortly described here - "A method to modularize MS Access > applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm > > But applying it for your case looks like using "cannons to shoot at > nightingales" - why not use simple and effective late binding? > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Tuesday, August 08, 2006 11:45 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Marty: > > Access.References.Remove refCurr still generates error: -2147319779 - Object > library not registered. > > 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 cfoust at infostatsystems.com Tue Aug 8 19:06:07 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 8 Aug 2006 17:06:07 -0700 Subject: [AccessD] Removing a missing reference] In-Reply-To: <44D91779.9080308@san.rr.com> Message-ID: Same thing. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 4:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference] Charlotte: Thanks for all the code. Unfortunately I'm getting the same problem when looking at this missing reference on your line of code strRefPath = objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' failed (A2K). I think it's because there is no reference there. The app being referred to isn't on the machine. So I think it's more a question of getting that box unchecked than deleting a reference which doesn't really exist (or are those the same things?). Thanks and regards, Rocky Charlotte Foust wrote: > Rocky, > > I won't guarantee this will work, but here's the code I finally came > down to several years ago. When you're checking references, you > cannot use any built-in constants, and everything has to be fully > disambiguated. > > Charlotte > > '******** Begin Module ********* > Attribute VB_Name = "basReferences" > Option Compare Database > Option Explicit > > Public Function TestReference() > ' loops through references collection and attempts to repair broken > references ' by removing and adding back the reference. For the > Redemption code library, ' attempts to set the reference to the folder > where this is placed by default. > ' Disambiguation is used to prevent this code from breaking when there > are broken ' references in the project. > > Dim objRef As Access.Reference > Dim strRefPath As String > Dim strFile As String > Dim strAccessPath As String > Dim strMsg As String > Dim strLogTxt As String > Dim intCount As Integer > > On Error GoTo TestReference_err > > ' *** this for testing only > strLogTxt = "Broken References = " & > Access.Application.BrokenReference > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & > Access.Application.SysCmd(6) > RefAddEvent "REF", "TestReference", strLogTxt > ' *** > strLogTxt = "" > > ' check for broken references > For intCount = Access.Application.References.Count To 1 Step -1 > Set objRef = Access.Application.References(intCount) > > ' store the full path of the reference and the filename itself > strRefPath = objRef.FullPath > strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) > strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, > strFile) > - 1) > > ' if we're dealing with Redemption, try to set it to the > ' Access runtime path > If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then > strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) > & > VBA.Chr(10) _ > & objRef.FullPath > > ' store the runtime path > strAccessPath = Access.Application.SysCmd(9) > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Runtime > Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) > > ' we need only the folder portion of the runtime path > strAccessPath = VBA.Mid(strAccessPath, 1, > VBA.InStrRev(strAccessPath, "\")) > > If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", > 0)) = 0 Or _ > (objRef.Name <> "RIMCDORedemption" And > VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken reference: " & objRef.Name > > If VBA.Len(VBA.Dir(strAccessPath & > "RIMCDORedemptionXP.*")) = 0 Then > VBA.MsgBox "You must repair a broken reference > which will otherwise " _ > & "prevent the application from > functioning normally.", _ > 64, "Warning - Runtime Session Required" > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Not a runtime session." > Exit For > > Else > ' remove the broken and add it back > Access.Application.References.Remove objRef > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Broken Reference removed" > Access.Application.References.AddFromFile > strAccessPath & strFile > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Reference added: " _ > & VBA.Chr(13) & VBA.Chr(10) & > strAccessPath & strFile > > ' if any broken references were handled, recompile > the project > ' See MSKB 194374 for info on SysCmd hidden > arguments > ' Note that if we do NOT run the compile, the > repaired reference > ' does not seem to "stick" and this will run each > time the app opens > Access.Application.SysCmd 504, 16483 > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) > & "Recompiled Application" > End If > End If > Exit For > End If > > Next intCount > > TestReference_exit: > On Error Resume Next > RefAddEvent "REF", "TestReference", strLogTxt > Set objRef = Nothing > Exit Function > TestReference_err: > RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & > VBA.Chr(10) & VBA.Err.Description > VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number > Resume TestReference_exit > > End Function > > Private Sub RefAddEvent(strType As String, strDescription As String, > Optional strDetails As String, Optional fPrint As Boolean) > ' Purpose: create an event record of the required type > ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, > CODE, > ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR > ' strDescription - simple description > ' strDetails - optional details > ' fPrint - automatically generates a printed report of the > event > ' strTitle - title for report if printed > ' Created: 26-Aug-97 By: SJW > ' Updated: 07-Oct-98 By: SJW - add A4 paper size options > ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options > with SetpaperSize > > Dim rstEvent As DAO.Recordset > Dim lngTmp As Long > > On Error GoTo AddEvent_Err > > Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog > where 1 = 2", 2) rstEvent.AddNew rstEvent!datTimeStamp = VBA.Now() > rstEvent!strType = strType rstEvent!strSystemID = "NONE" > > ' truncate the description to 255 chars just in case we have exceeded > it If VBA.Len(strDescription) > 255 Then > rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) > ' if we do not pass details then place the complete description in > details > If Len(strDetails) = 0 Then > rstEvent!memDetails = strDescription > End If > Else > rstEvent!strDescription = strDescription > If Len(strDetails) > 0 Then > rstEvent!memDetails = strDetails > End If > End If > lngTmp = rstEvent!lngID > rstEvent.Update > > AddEvent_Exit: > On Error Resume Next > rstEvent.Close > Set rstEvent = Nothing > Exit Sub > > AddEvent_Err: > VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" > Resume AddEvent_Exit > > End Sub > '******** End Module ********* > -- 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 Aug 8 20:34:56 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 18:34:56 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001201c6bb45$bcaa6920$6601a8c0@nant> References: <001201c6bb45$bcaa6920$6601a8c0@nant> Message-ID: <44D93BC0.8090503@san.rr.com> You're kidding! We're about to eat dinner so I can't test it now. That was too fast! I'll let you know what happens. Best, Rocky Shamil Salakhetdinov wrote: > Rocky, > > This code should work OK with late binding(watch code lines wraps): > > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > > As you were recommended here you can use conditional compilation and early > binding to have intellisense while developing/testing and to compile and run > using late binding when preparing/using a production version: > > #if PRODUCTION_VERSION then > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > #else > 'Declaring a BarTender application variable > Dim btApp As BarTender.Application > 'Declaring a format variable > Dim btFormat as BarTender.Format > #endif > 'Instantiating the BarTender object > Set btApp = GetBarTenderApp() > If Not btApp is Nothing then > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > End if > > ... > > Private function GetBarTenderApp() as object > On error resume next > Set GetBarTenderApp = CreateObject("BarTender.Application") > End function > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 12:36 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > I tried using late binding which would work real well but partway into > the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > > I get an 'argument not optional' error - don't know why. But the > reference is to the Bartender.exe, if that makes any difference. Using > early binding, this code works well. > > To change from early to late binding I changed > > Public BtApp As BarTender.Application > Public BtFormat As BarTender.Format > > to > > Public BtApp As Object 'BarTender.Application > Public BtFormat As Variant 'BarTender.Format > > and then in the load event: > > Set BtApp = CreateObject("BarTender.Application") > > There is no object model for Bartender so I don't know what it is > expecting for BtFormat. > > But late binding would solve the problem. > > Any ideas? > > If I want to try your other solution I'll have some questions. It's a > bit past my capabilities. > > Thanks and regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> I still think the easiest and the most reliable solution for your case is >> > to > >> use late binding. Did I miss something in this thread - why it didn't work >> for you? >> >> If you decide to not use late binding and if remove reference doesn't work >> for you - then you can use Add Reference (anyway your intention to use >> Remove Reference forces your FE to loose its compiled state as well as Add >> Reference does). >> >> I mean the following: >> >> - put all your bar code printing code into a separate library/utility >> database, set reference to bar code printing library in this database; >> >> - in your FE keep the code to check is it possible to create bar code >> printing object or not; >> >> - if it's possible to create bar code printing object then add reference >> > to > >> its library (code to add reference MUST BE kept in another library >> > database > >> - if executed in FE such will force FEs global vars to loose their >> > values); > >> Etc. >> >> This above is a flexible solution but its above description isn't a full >> story - in this case if your FE uses global variables then you have to >> create another "proxy" FE to keep start-up code, (dynamic) references, >> commandbars... and use your current FE as a library database - then >> CurrentDb if you use it becomes a problem etc. >> >> This above technique works very well - it was used in real life apps here >> and there back to the years 1998-2000 but program databases and their code >> should be refactored to be used within this technique.... >> >> It's very shortly described here - "A method to modularize MS Access >> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >> But applying it for your case looks like using "cannons to shoot at >> nightingales" - why not use simple and effective late binding? >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Tuesday, August 08, 2006 11:45 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Marty: >> >> Access.References.Remove refCurr still generates error: -2147319779 - >> > Object > >> library not registered. >> >> Rocky >> >> >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Tue Aug 8 21:12:31 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 08 Aug 2006 19:12:31 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8F593.5070103@san.rr.com> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> Message-ID: <44D9448F.4090703@shaw.ca> All the docs on the calls are in C:\Program Files\Seagull\BarTender\7.74\Automation.chm The VB.Net code is almost same as VBA except instantiation. This runs and prints Sub testbar() 'Declaring a BarTender application variable Dim btApp As Object 'Declaring a format variable Dim btFormat As Object 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open 'the .btw template file might have to be previously saved from Bartender Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") 'Printing the label format Dim lRet As Long lRet = btFormat.PrintOut(True, True) 'Ending the BarTender process btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) End Sub Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case is to >>use late binding. Did I miss something in this thread - why it didn't work >>for you? >> >>If you decide to not use late binding and if remove reference doesn't work >>for you - then you can use Add Reference (anyway your intention to use >>Remove Reference forces your FE to loose its compiled state as well as Add >>Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a full >>story - in this case if your FE uses global variables then you have to >>create another "proxy" FE to keep start-up code, (dynamic) references, >>commandbars... and use your current FE as a library database - then >>CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps here >>and there back to the years 1998-2000 but program databases and their code >>should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Tue Aug 8 22:33:50 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 20:33:50 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001201c6bb45$bcaa6920$6601a8c0@nant> References: <001201c6bb45$bcaa6920$6601a8c0@nant> Message-ID: <44D9579E.9060205@san.rr.com> Shamil: Well, it works. As you knew it would. :-) I am in awe. Couldn't have taken you more then 15 minutes! Questions: how did you determine that the Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") needed two more arguments (False and "")? How did you determine that PrintOut needed two more arguments? btFormat.PrintOut False, False How did you determine that btApp.Quit 1 needed the '1'? Thanks and best regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > This code should work OK with late binding(watch code lines wraps): > > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > > As you were recommended here you can use conditional compilation and early > binding to have intellisense while developing/testing and to compile and run > using late binding when preparing/using a production version: > > #if PRODUCTION_VERSION then > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > #else > 'Declaring a BarTender application variable > Dim btApp As BarTender.Application > 'Declaring a format variable > Dim btFormat as BarTender.Format > #endif > 'Instantiating the BarTender object > Set btApp = GetBarTenderApp() > If Not btApp is Nothing then > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > End if > > ... > > Private function GetBarTenderApp() as object > On error resume next > Set GetBarTenderApp = CreateObject("BarTender.Application") > End function > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 12:36 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > I tried using late binding which would work real well but partway into > the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > > I get an 'argument not optional' error - don't know why. But the > reference is to the Bartender.exe, if that makes any difference. Using > early binding, this code works well. > > To change from early to late binding I changed > > Public BtApp As BarTender.Application > Public BtFormat As BarTender.Format > > to > > Public BtApp As Object 'BarTender.Application > Public BtFormat As Variant 'BarTender.Format > > and then in the load event: > > Set BtApp = CreateObject("BarTender.Application") > > There is no object model for Bartender so I don't know what it is > expecting for BtFormat. > > But late binding would solve the problem. > > Any ideas? > > If I want to try your other solution I'll have some questions. It's a > bit past my capabilities. > > Thanks and regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> I still think the easiest and the most reliable solution for your case is >> > to > >> use late binding. Did I miss something in this thread - why it didn't work >> for you? >> >> If you decide to not use late binding and if remove reference doesn't work >> for you - then you can use Add Reference (anyway your intention to use >> Remove Reference forces your FE to loose its compiled state as well as Add >> Reference does). >> >> I mean the following: >> >> - put all your bar code printing code into a separate library/utility >> database, set reference to bar code printing library in this database; >> >> - in your FE keep the code to check is it possible to create bar code >> printing object or not; >> >> - if it's possible to create bar code printing object then add reference >> > to > >> its library (code to add reference MUST BE kept in another library >> > database > >> - if executed in FE such will force FEs global vars to loose their >> > values); > >> Etc. >> >> This above is a flexible solution but its above description isn't a full >> story - in this case if your FE uses global variables then you have to >> create another "proxy" FE to keep start-up code, (dynamic) references, >> commandbars... and use your current FE as a library database - then >> CurrentDb if you use it becomes a problem etc. >> >> This above technique works very well - it was used in real life apps here >> and there back to the years 1998-2000 but program databases and their code >> should be refactored to be used within this technique.... >> >> It's very shortly described here - "A method to modularize MS Access >> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >> But applying it for your case looks like using "cannons to shoot at >> nightingales" - why not use simple and effective late binding? >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Tuesday, August 08, 2006 11:45 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Marty: >> >> Access.References.Remove refCurr still generates error: -2147319779 - >> > Object > >> library not registered. >> >> Rocky >> >> >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 8 22:39:33 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 08 Aug 2006 20:39:33 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9448F.4090703@shaw.ca> References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> <44D9448F.4090703@shaw.ca> Message-ID: <44D958F5.3070200@san.rr.com> I'll be damned. Who knew? When all else fails, read the manual? I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of Vodka as well). Might be able to pay off the debt as well next week. We're in Vancouver for the week. And are planning a day trip to Victoria. Maybe we can say hello. Best, Rocky MartyConnelly wrote: > All the docs on the calls are in C:\Program > Files\Seagull\BarTender\7.74\Automation.chm > The VB.Net code is almost same as VBA except instantiation. > > This runs and prints > > Sub testbar() > 'Declaring a BarTender application variable > Dim btApp As Object > 'Declaring a format variable > Dim btFormat As Object > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > 'the .btw template file might have to be previously saved from Bartender > Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") > 'Printing the label format > Dim lRet As Long > lRet = btFormat.PrintOut(True, True) > 'Ending the BarTender process > btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) > End Sub > > > > Rocky Smolin - Beach Access Software wrote: > > >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is to >>> use late binding. Did I miss something in this thread - why it didn't work >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't work >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as Add >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference to >>> its library (code to add reference MUST BE kept in another library database >>> - if executed in FE such will force FEs global vars to loose their values); >>> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their code >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>> library not registered. >>> >>> Rocky >>> >>> >>> >>> >>> >>> >>> >>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From mwp.reid at qub.ac.uk Wed Aug 9 02:55:00 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Wed, 9 Aug 2006 08:55:00 +0100 Subject: [AccessD] Removing a missing reference References: <000501c6bb27$f5cf25b0$6601a8c0@nant><44D8F593.5070103@san.rr.com> <44D9448F.4090703@shaw.ca> <44D958F5.3070200@san.rr.com> Message-ID: Rocky Tricias sister is living in Vancouver island. WIll you be over there? Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - Beach Access Software Sent: Wed 09/08/2006 04:39 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference I'll be damned. Who knew? When all else fails, read the manual? I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of Vodka as well). Might be able to pay off the debt as well next week. We're in Vancouver for the week. And are planning a day trip to Victoria. Maybe we can say hello. Best, Rocky MartyConnelly wrote: > All the docs on the calls are in C:\Program > Files\Seagull\BarTender\7.74\Automation.chm > The VB.Net code is almost same as VBA except instantiation. > > This runs and prints > > Sub testbar() > 'Declaring a BarTender application variable > Dim btApp As Object > 'Declaring a format variable > Dim btFormat As Object > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > 'the .btw template file might have to be previously saved from Bartender > Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") > 'Printing the label format > Dim lRet As Long > lRet = btFormat.PrintOut(True, True) > 'Ending the BarTender process > btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) > End Sub > > > > Rocky Smolin - Beach Access Software wrote: > > >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is to >>> use late binding. Did I miss something in this thread - why it didn't work >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't work >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as Add >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference to >>> its library (code to add reference MUST BE kept in another library database >>> - if executed in FE such will force FEs global vars to loose their values); >>> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their code >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>> library not registered. >>> >>> 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 Aug 9 08:20:16 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 06:20:16 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: References: <000501c6bb27$f5cf25b0$6601a8c0@nant> <44D8F593.5070103@san.rr.com> <44D9448F.4090703@shaw.ca> <44D958F5.3070200@san.rr.com> Message-ID: <44D9E110.1040009@san.rr.com> You know I gotta admit I haven't studied a map yet. I know we'll be in Vancouver most of the time but we plan to take the ferry to Victoria one day. That's Vancouver Island, yes? Whereabouts does she live? Rocky Martin Reid wrote: > Rocky > > Tricias sister is living in Vancouver island. WIll you be over there? > > Martin > > Martin WP Reid > Training and Assessment Unit > Riddle Hall > Belfast > > tel: 02890 974477 > > > ________________________________ > > From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - Beach Access Software > Sent: Wed 09/08/2006 04:39 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case is to >>>> use late binding. Did I miss something in this thread - why it didn't work >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't work >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as Add >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference to >>>> its library (code to add reference MUST BE kept in another library database >>>> - if executed in FE such will force FEs global vars to loose their values); >>>> >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps here >>>> and there back to the years 1998-2000 but program databases and their code >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>>> library not registered. >>>> >>>> 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 > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Wed Aug 9 09:30:08 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 18:30:08 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D958F5.3070200@san.rr.com> Message-ID: <001e01c6bbc0$52806920$6401a8c0@nant> Thank you, Rocky, A gallon of vodka would kill me. A glass and in several shots with good snacks that would be enough. :) In fact I prefer a few of good red wine or Tequila or Caperinja or Cointreau or Whiskey or Martini - nothing special... -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:40 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference I'll be damned. Who knew? When all else fails, read the manual? I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of Vodka as well). Might be able to pay off the debt as well next week. We're in Vancouver for the week. And are planning a day trip to Victoria. Maybe we can say hello. Best, Rocky MartyConnelly wrote: > All the docs on the calls are in C:\Program > Files\Seagull\BarTender\7.74\Automation.chm > The VB.Net code is almost same as VBA except instantiation. > > This runs and prints > > Sub testbar() > 'Declaring a BarTender application variable > Dim btApp As Object > 'Declaring a format variable > Dim btFormat As Object > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > 'the .btw template file might have to be previously saved from Bartender > Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") > 'Printing the label format > Dim lRet As Long > lRet = btFormat.PrintOut(True, True) > 'Ending the BarTender process > btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) > End Sub > > > > Rocky Smolin - Beach Access Software wrote: > > >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is to >>> use late binding. Did I miss something in this thread - why it didn't work >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't work >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as Add >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference to >>> its library (code to add reference MUST BE kept in another library database >>> - if executed in FE such will force FEs global vars to loose their values); >>> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their code >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>> library not registered. >>> >>> 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 Wed Aug 9 09:30:08 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 18:30:08 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9579E.9060205@san.rr.com> Message-ID: <001f01c6bbc0$539c3960$6401a8c0@nant> Hello Rocky, I did first try to use the code without optional parameters and I have found (as you did) that it doesn't run well in late binding mode. That was strange because in general case such code should have run well. Therefore I made an assumption that they have done something wrong in their type library definitions (type library is embedded into their ActiveX bartender.exe and it's also supplied separated as a .tlb file but this one isn't registered and can be investigated only using OleView - a utility from VS6). Then I did have a look through BarTender installation directory and I did find their manual, from which I have got VB.Net sample, which I have got adjusted to VBA/VB6 and posted here... <<< How did you determine that btApp.Quit 1 needed the '1'? >>> You can see the actual value for BarTender.BtSaveOptions.btDoNotSaveChanges in the Object Browser or when in early binding mode you can just copy and paste it into immediate window and push [Enter]: ?BarTender.BtSaveOptions.btDoNotSaveChanges 1 -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Shamil: Well, it works. As you knew it would. :-) I am in awe. Couldn't have taken you more then 15 minutes! Questions: how did you determine that the Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") needed two more arguments (False and "")? How did you determine that PrintOut needed two more arguments? btFormat.PrintOut False, False How did you determine that btApp.Quit 1 needed the '1'? Thanks and best regards, Rocky Shamil Salakhetdinov wrote: > Rocky, > > This code should work OK with late binding(watch code lines wraps): > > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > 'Instantiating the BarTender object > Set btApp = CreateObject("BarTender.Application") > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > > As you were recommended here you can use conditional compilation and early > binding to have intellisense while developing/testing and to compile and run > using late binding when preparing/using a production version: > > #if PRODUCTION_VERSION then > 'Declaring a BarTender application variable > Dim btApp As Object 'BarTender.Application > 'Declaring a format variable > Dim btFormat As Object ' BarTender.Format > #else > 'Declaring a BarTender application variable > Dim btApp As BarTender.Application > 'Declaring a format variable > Dim btFormat as BarTender.Format > #endif > 'Instantiating the BarTender object > Set btApp = GetBarTenderApp() > If Not btApp is Nothing then > 'Setting the BarTender Application Visible > btApp.Visible = True > 'Setting the BarTender format to open > Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") > 'Printing the label format > btFormat.PrintOut False, False > 'Ending the BarTender process > btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges > End if > > ... > > Private function GetBarTenderApp() as object > On error resume next > Set GetBarTenderApp = CreateObject("BarTender.Application") > End function > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 12:36 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > I tried using late binding which would work real well but partway into > the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > > I get an 'argument not optional' error - don't know why. But the > reference is to the Bartender.exe, if that makes any difference. Using > early binding, this code works well. > > To change from early to late binding I changed > > Public BtApp As BarTender.Application > Public BtFormat As BarTender.Format > > to > > Public BtApp As Object 'BarTender.Application > Public BtFormat As Variant 'BarTender.Format > > and then in the load event: > > Set BtApp = CreateObject("BarTender.Application") > > There is no object model for Bartender so I don't know what it is > expecting for BtFormat. > > But late binding would solve the problem. > > Any ideas? > > If I want to try your other solution I'll have some questions. It's a > bit past my capabilities. > > Thanks and regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> I still think the easiest and the most reliable solution for your case is >> > to > >> use late binding. Did I miss something in this thread - why it didn't work >> for you? >> >> If you decide to not use late binding and if remove reference doesn't work >> for you - then you can use Add Reference (anyway your intention to use >> Remove Reference forces your FE to loose its compiled state as well as Add >> Reference does). >> >> I mean the following: >> >> - put all your bar code printing code into a separate library/utility >> database, set reference to bar code printing library in this database; >> >> - in your FE keep the code to check is it possible to create bar code >> printing object or not; >> >> - if it's possible to create bar code printing object then add reference >> > to > >> its library (code to add reference MUST BE kept in another library >> > database > >> - if executed in FE such will force FEs global vars to loose their >> > values); > >> Etc. >> >> This above is a flexible solution but its above description isn't a full >> story - in this case if your FE uses global variables then you have to >> create another "proxy" FE to keep start-up code, (dynamic) references, >> commandbars... and use your current FE as a library database - then >> CurrentDb if you use it becomes a problem etc. >> >> This above technique works very well - it was used in real life apps here >> and there back to the years 1998-2000 but program databases and their code >> should be refactored to be used within this technique.... >> >> It's very shortly described here - "A method to modularize MS Access >> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >> But applying it for your case looks like using "cannons to shoot at >> nightingales" - why not use simple and effective late binding? >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Tuesday, August 08, 2006 11:45 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Marty: >> >> Access.References.Remove refCurr still generates error: -2147319779 - >> > Object > >> library not registered. >> >> 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 Aug 9 10:07:29 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:07:29 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001e01c6bbc0$52806920$6401a8c0@nant> References: <001e01c6bbc0$52806920$6401a8c0@nant> Message-ID: <44D9FA31.2020908@san.rr.com> (Well I didn't require you to drink it all at once.) I'm not likely to be in your neighborhood soon. Did anything develop for you over here that might bring you our way? Best, Rocky Shamil Salakhetdinov wrote: > Thank you, Rocky, > > A gallon of vodka would kill me. > A glass and in several shots with good snacks that would be enough. :) > In fact I prefer a few of good red wine or Tequila or Caperinja or Cointreau > or Whiskey or Martini - nothing special... > > -- > Shamil > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:40 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case >>>> > is to > >>>> use late binding. Did I miss something in this thread - why it didn't >>>> > work > >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't >>>> > work > >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as >>>> > Add > >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference >>>> > to > >>>> its library (code to add reference MUST BE kept in another library >>>> > database > >>>> - if executed in FE such will force FEs global vars to loose their >>>> > values); > >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps >>>> > here > >>>> and there back to the years 1998-2000 but program databases and their >>>> > code > >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>> > - > >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>> > Object > >>>> library not registered. >>>> >>>> Rocky >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 9 10:08:13 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:08:13 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <001f01c6bbc0$539c3960$6401a8c0@nant> References: <001f01c6bbc0$539c3960$6401a8c0@nant> Message-ID: <44D9FA5D.8050603@san.rr.com> Read the manual. What a concept! Rocky Shamil Salakhetdinov wrote: > Hello Rocky, > > I did first try to use the code without optional parameters and I have found > (as you did) that it doesn't run well in late binding mode. That was strange > because in general case such code should have run well. Therefore I made an > assumption that they have done something wrong in their type library > definitions (type library is embedded into their ActiveX bartender.exe and > it's also supplied separated as a .tlb file but this one isn't registered > and can be investigated only using OleView - a utility from VS6). > > Then I did have a look through BarTender installation directory and I did > find their manual, from which I have got VB.Net sample, which I have got > adjusted to VBA/VB6 and posted here... > > <<< > How did you determine that btApp.Quit 1 needed the '1'? > > You can see the actual value for BarTender.BtSaveOptions.btDoNotSaveChanges > in the Object Browser or when in early binding mode you can just copy and > paste it into immediate window and push [Enter]: > > ?BarTender.BtSaveOptions.btDoNotSaveChanges > 1 > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:34 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > Well, it works. As you knew it would. :-) I am in awe. Couldn't > have taken you more then 15 minutes! > > Questions: how did you determine that the > > Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") > > needed two more arguments (False and "")? > > How did you determine that PrintOut needed two more arguments? > > btFormat.PrintOut False, False > > How did you determine that btApp.Quit 1 needed the '1'? > > Thanks and best regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> This code should work OK with late binding(watch code lines wraps): >> >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> >> As you were recommended here you can use conditional compilation and early >> binding to have intellisense while developing/testing and to compile and >> > run > >> using late binding when preparing/using a production version: >> >> #if PRODUCTION_VERSION then >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> #else >> 'Declaring a BarTender application variable >> Dim btApp As BarTender.Application >> 'Declaring a format variable >> Dim btFormat as BarTender.Format >> #endif >> 'Instantiating the BarTender object >> Set btApp = GetBarTenderApp() >> If Not btApp is Nothing then >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> End if >> >> ... >> >> Private function GetBarTenderApp() as object >> On error resume next >> Set GetBarTenderApp = CreateObject("BarTender.Application") >> End function >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 09, 2006 12:36 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is >>> >>> >> to >> >> >>> use late binding. Did I miss something in this thread - why it didn't >>> > work > >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't >>> > work > >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as >>> > Add > >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference >>> >>> >> to >> >> >>> its library (code to add reference MUST BE kept in another library >>> >>> >> database >> >> >>> - if executed in FE such will force FEs global vars to loose their >>> >>> >> values); >> >> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their >>> > code > >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - >>> >>> >> Object >> >> >>> library not registered. >>> >>> Rocky >>> >>> >>> >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From ssharkins at setel.com Wed Aug 9 10:16:20 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 9 Aug 2006 11:16:20 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9FA31.2020908@san.rr.com> Message-ID: <000901c6bbc6$c4e37ec0$0301a8c0@SUSANONE> Unfortunately, you can't send liquor through the mail. :( I wanted to send some good old Kentucky bourbon to a friend and found, upon checking into it, that you can't -- it's illegal. But Shamil, if this is something that you think might be of general interest to the Access crowd, contact me privately -- maybe we can write it up. You can buy your own vodka then. :) BTW, for those of you that sometimes contact me privately, I have a new email address: ssharkins at setel.com. Susan H. (Well I didn't require you to drink it all at once.) From accessd at shaw.ca Wed Aug 9 10:24:24 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 09 Aug 2006 08:24:24 -0700 Subject: [AccessD] Removing a missing reference] In-Reply-To: <44D91779.9080308@san.rr.com> Message-ID: <0J3Q00NZLLG82OI0@l-daemon> Hi Rocky: If the bartender.exe file is supposed to resides in a specific location why no check that location. If the file is not there no reference is possible. Just a thought Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 08, 2006 4:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference] Charlotte: Thanks for all the code. Unfortunately I'm getting the same problem when looking at this missing reference on your line of code strRefPath = objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' failed (A2K). I think it's because there is no reference there. The app being referred to isn't on the machine. So I think it's more a question of getting that box unchecked than deleting a reference which doesn't really exist (or are those the same things?). Thanks and regards, Rocky Charlotte Foust wrote: > Rocky, > > I won't guarantee this will work, but here's the code I finally came > down to several years ago. When you're checking references, you cannot > use any built-in constants, and everything has to be fully > disambiguated. > > Charlotte > > '******** Begin Module ********* > Attribute VB_Name = "basReferences" > Option Compare Database > Option Explicit > > Public Function TestReference() > ' loops through references collection and attempts to repair broken > references > ' by removing and adding back the reference. For the Redemption code > library, > ' attempts to set the reference to the folder where this is placed by > default. > ' Disambiguation is used to prevent this code from breaking when there > are broken > ' references in the project. > > Dim objRef As Access.Reference > Dim strRefPath As String > Dim strFile As String > Dim strAccessPath As String > Dim strMsg As String > Dim strLogTxt As String > Dim intCount As Integer > > On Error GoTo TestReference_err > > ' *** this for testing only > strLogTxt = "Broken References = " & > Access.Application.BrokenReference > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & > Access.Application.SysCmd(6) > RefAddEvent "REF", "TestReference", strLogTxt > ' *** > strLogTxt = "" > > ' check for broken references > For intCount = Access.Application.References.Count To 1 Step -1 > Set objRef = Access.Application.References(intCount) > > ' store the full path of the reference and the filename itself > strRefPath = objRef.FullPath > strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) > strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) > - 1) > > ' if we're dealing with Redemption, try to set it to the > ' Access runtime path > If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then > strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & > VBA.Chr(10) _ > & objRef.FullPath > > ' store the runtime path > strAccessPath = Access.Application.SysCmd(9) > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime > Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) > > ' we need only the folder portion of the runtime path > strAccessPath = VBA.Mid(strAccessPath, 1, > VBA.InStrRev(strAccessPath, "\")) > > If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) > = 0 Or _ > (objRef.Name <> "RIMCDORedemption" And > VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken reference: " & objRef.Name > > If VBA.Len(VBA.Dir(strAccessPath & > "RIMCDORedemptionXP.*")) = 0 Then > VBA.MsgBox "You must repair a broken reference which > will otherwise " _ > & "prevent the application from > functioning normally.", _ > 64, "Warning - Runtime Session Required" > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Not a runtime session." > Exit For > > Else > ' remove the broken and add it back > Access.Application.References.Remove objRef > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Broken Reference removed" > Access.Application.References.AddFromFile > strAccessPath & strFile > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Reference added: " _ > & VBA.Chr(13) & VBA.Chr(10) & > strAccessPath & strFile > > ' if any broken references were handled, recompile > the project > ' See MSKB 194374 for info on SysCmd hidden > arguments > ' Note that if we do NOT run the compile, the > repaired reference > ' does not seem to "stick" and this will run each > time the app opens > Access.Application.SysCmd 504, 16483 > strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & > "Recompiled Application" > End If > End If > Exit For > End If > > Next intCount > > TestReference_exit: > On Error Resume Next > RefAddEvent "REF", "TestReference", strLogTxt > Set objRef = Nothing > Exit Function > TestReference_err: > RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & > VBA.Chr(10) & VBA.Err.Description > VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number > Resume TestReference_exit > > End Function > > Private Sub RefAddEvent(strType As String, strDescription As String, > Optional strDetails As String, Optional fPrint As Boolean) > ' Purpose: create an event record of the required type > ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, > CODE, > ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR > ' strDescription - simple description > ' strDetails - optional details > ' fPrint - automatically generates a printed report of the > event > ' strTitle - title for report if printed > ' Created: 26-Aug-97 By: SJW > ' Updated: 07-Oct-98 By: SJW - add A4 paper size options > ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options > with SetpaperSize > > Dim rstEvent As DAO.Recordset > Dim lngTmp As Long > > On Error GoTo AddEvent_Err > > Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog > where 1 = 2", 2) > rstEvent.AddNew > rstEvent!datTimeStamp = VBA.Now() > rstEvent!strType = strType > rstEvent!strSystemID = "NONE" > > ' truncate the description to 255 chars just in case we have exceeded it > If VBA.Len(strDescription) > 255 Then > rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) > ' if we do not pass details then place the complete description in > details > If Len(strDetails) = 0 Then > rstEvent!memDetails = strDescription > End If > Else > rstEvent!strDescription = strDescription > If Len(strDetails) > 0 Then > rstEvent!memDetails = strDetails > End If > End If > lngTmp = rstEvent!lngID > rstEvent.Update > > AddEvent_Exit: > On Error Resume Next > rstEvent.Close > Set rstEvent = Nothing > Exit Sub > > AddEvent_Err: > VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" > Resume AddEvent_Exit > > End Sub > '******** End Module ********* > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Wed Aug 9 10:28:01 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 09 Aug 2006 08:28:01 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9E110.1040009@san.rr.com> Message-ID: <0J3Q00NWLLM92ZI0@l-daemon> Hi Rocky: If you ever make it over to Victoria you can look me up.... Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 6:20 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference You know I gotta admit I haven't studied a map yet. I know we'll be in Vancouver most of the time but we plan to take the ferry to Victoria one day. That's Vancouver Island, yes? Whereabouts does she live? Rocky Martin Reid wrote: > Rocky > > Tricias sister is living in Vancouver island. WIll you be over there? > > Martin > > Martin WP Reid > Training and Assessment Unit > Riddle Hall > Belfast > > tel: 02890 974477 > > > ________________________________ > > From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - Beach Access Software > Sent: Wed 09/08/2006 04:39 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case is to >>>> use late binding. Did I miss something in this thread - why it didn't work >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't work >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as Add >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference to >>>> its library (code to add reference MUST BE kept in another library database >>>> - if executed in FE such will force FEs global vars to loose their values); >>>> >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps here >>>> and there back to the years 1998-2000 but program databases and their code >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - Object >>>> library not registered. >>>> >>>> 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 > > > -- 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 EdTesiny at oasas.state.ny.us Wed Aug 9 10:29:58 2006 From: EdTesiny at oasas.state.ny.us (Tesiny, Ed) Date: Wed, 9 Aug 2006 11:29:58 -0400 Subject: [AccessD] Removing a missing reference Message-ID: But you can send it using UPS and maybe FedEx, not sure about FedEx though. 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 > Susan Harkins > Sent: Wednesday, August 09, 2006 11:16 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Removing a missing reference > > Unfortunately, you can't send liquor through the mail. :( From john at winhaven.net Wed Aug 9 10:31:50 2006 From: john at winhaven.net (John Bartow) Date: Wed, 9 Aug 2006 10:31:50 -0500 Subject: [AccessD] Groupwise version 7 In-Reply-To: Message-ID: <011001c6bbc8$ef3d8ec0$6502a8c0@ScuzzPaq> Thanks Gustav, Although I don't pay for their support, I guess its worth a try! -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock If the developers of idsMail claim this to support GW7 and your setup at the client follows the guidelines, ask them to send you a debug version which you can install to log what's going on. That will enable them to track down the error. From john at winhaven.net Wed Aug 9 10:31:50 2006 From: john at winhaven.net (John Bartow) Date: Wed, 9 Aug 2006 10:31:50 -0500 Subject: [AccessD] Groupwise version 7 In-Reply-To: Message-ID: <011101c6bbc8$efdd5130$6502a8c0@ScuzzPaq> Well come on now Bryan, do a quick upgrade and help a guy out hey! ;o) -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Ah, misunderstood the ActiveX part. Sorry I wish I could help but alas we are still on GW 6.5. From ssharkins at setel.com Wed Aug 9 10:38:38 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 9 Aug 2006 11:38:38 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> Really? I had thought we checked UPS, but maybe we didn't... I'll check into it. Thanks Ed. :) Susan H. But you can send it using UPS and maybe FedEx, not sure about FedEx though. > Unfortunately, you can't send liquor through the mail. :( From bchacc at san.rr.com Wed Aug 9 10:42:11 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:42:11 -0700 Subject: [AccessD] Removing a missing reference] In-Reply-To: <0J3Q00NZLLG82OI0@l-daemon> References: <0J3Q00NZLLG82OI0@l-daemon> Message-ID: <44DA0253.9050604@san.rr.com> Jim: Well, I used an earlier solution posted here of trying to create the object when the app starts. If the object can't be created then in the error trap I set a global variable to false. On the Main Menu then if the variable is false I disable the command button that opens the label printer form. Your method would be more simpler. Until, of course, the user decides to move the whole app somewhere else. (Users...you gotta love 'em.) Rocky Jim Lawrence wrote: > Hi Rocky: > > If the bartender.exe file is supposed to resides in a specific location why > no check that location. If the file is not there no reference is possible. > > Just a thought > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Tuesday, August 08, 2006 4:00 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference] > > Charlotte: > > Thanks for all the code. Unfortunately I'm getting the same problem > when looking at this missing reference on your line of code strRefPath = > objRef.FullPath. Error reads: Method 'FullPath' of object 'Reference' > failed (A2K). > > I think it's because there is no reference there. The app being > referred to isn't on the machine. So I think it's more a question of > getting that box unchecked than deleting a reference which doesn't > really exist (or are those the same things?). > > Thanks and regards, > > Rocky > > > Charlotte Foust wrote: > >> Rocky, >> >> I won't guarantee this will work, but here's the code I finally came >> down to several years ago. When you're checking references, you cannot >> use any built-in constants, and everything has to be fully >> disambiguated. >> >> Charlotte >> >> '******** Begin Module ********* >> Attribute VB_Name = "basReferences" >> Option Compare Database >> Option Explicit >> >> Public Function TestReference() >> ' loops through references collection and attempts to repair broken >> references >> ' by removing and adding back the reference. For the Redemption code >> library, >> ' attempts to set the reference to the folder where this is placed by >> default. >> ' Disambiguation is used to prevent this code from breaking when there >> are broken >> ' references in the project. >> >> Dim objRef As Access.Reference >> Dim strRefPath As String >> Dim strFile As String >> Dim strAccessPath As String >> Dim strMsg As String >> Dim strLogTxt As String >> Dim intCount As Integer >> >> On Error GoTo TestReference_err >> >> ' *** this for testing only >> strLogTxt = "Broken References = " & >> Access.Application.BrokenReference >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime = " & >> Access.Application.SysCmd(6) >> RefAddEvent "REF", "TestReference", strLogTxt >> ' *** >> strLogTxt = "" >> >> ' check for broken references >> For intCount = Access.Application.References.Count To 1 Step -1 >> Set objRef = Access.Application.References(intCount) >> >> ' store the full path of the reference and the filename itself >> strRefPath = objRef.FullPath >> strFile = VBA.Mid(strRefPath, VBA.InStrRev(strRefPath, "\") + 1) >> strRefPath = VBA.Left(strRefPath, VBA.InStr(strRefPath, strFile) >> - 1) >> >> ' if we're dealing with Redemption, try to set it to the >> ' Access runtime path >> If VBA.InStr(objRef.Name, "RIMCDORedemption") > 0 Then >> strLogTxt = "Reference Path: " & objRef.Name & VBA.Chr(13) & >> VBA.Chr(10) _ >> & objRef.FullPath >> >> ' store the runtime path >> strAccessPath = Access.Application.SysCmd(9) >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & "Runtime >> Engine: " & strAccessPath & VBA.Chr(13) & VBA.Chr(10) >> >> ' we need only the folder portion of the runtime path >> strAccessPath = VBA.Mid(strAccessPath, 1, >> VBA.InStrRev(strAccessPath, "\")) >> >> If VBA.Len(VBA.Dir(strRefPath & "RIMCDORedemptionXP.*", 0)) >> = 0 Or _ >> (objRef.Name <> "RIMCDORedemption" And >> VBA.Len(VBA.Dir(objRef.Name, 0)) = 0) Then >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Broken reference: " & objRef.Name >> >> If VBA.Len(VBA.Dir(strAccessPath & >> "RIMCDORedemptionXP.*")) = 0 Then >> VBA.MsgBox "You must repair a broken reference which >> will otherwise " _ >> & "prevent the application from >> functioning normally.", _ >> 64, "Warning - Runtime Session Required" >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Not a runtime session." >> Exit For >> >> Else >> ' remove the broken and add it back >> Access.Application.References.Remove objRef >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Broken Reference removed" >> Access.Application.References.AddFromFile >> strAccessPath & strFile >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Reference added: " _ >> & VBA.Chr(13) & VBA.Chr(10) & >> strAccessPath & strFile >> >> ' if any broken references were handled, recompile >> the project >> ' See MSKB 194374 for info on SysCmd hidden >> arguments >> ' Note that if we do NOT run the compile, the >> repaired reference >> ' does not seem to "stick" and this will run each >> time the app opens >> Access.Application.SysCmd 504, 16483 >> strLogTxt = strLogTxt & VBA.Chr(13) & VBA.Chr(10) & >> "Recompiled Application" >> End If >> End If >> Exit For >> End If >> >> Next intCount >> >> TestReference_exit: >> On Error Resume Next >> RefAddEvent "REF", "TestReference", strLogTxt >> Set objRef = Nothing >> Exit Function >> TestReference_err: >> RefAddEvent "ERROR", "TestReference: ", strLogTxt & VBA.Chr(13) & >> VBA.Chr(10) & VBA.Err.Description >> VBA.MsgBox VBA.Err.Description, 48, "Error " & VBA.Err.Number >> Resume TestReference_exit >> >> End Function >> >> Private Sub RefAddEvent(strType As String, strDescription As String, >> Optional strDetails As String, Optional fPrint As Boolean) >> ' Purpose: create an event record of the required type >> ' Arguments: strType - type of event - ERROR, STARTSTOP, BACKUP, >> CODE, >> ' COMMSIN, COMMSOUT, DELETE, ERROR, EXPORT, IMPORT, REPAIR >> ' strDescription - simple description >> ' strDetails - optional details >> ' fPrint - automatically generates a printed report of the >> event >> ' strTitle - title for report if printed >> ' Created: 26-Aug-97 By: SJW >> ' Updated: 07-Oct-98 By: SJW - add A4 paper size options >> ' Updated: 16-Mar-99 By: SJW - modify A4 paper size options >> with SetpaperSize >> >> Dim rstEvent As DAO.Recordset >> Dim lngTmp As Long >> >> On Error GoTo AddEvent_Err >> >> Set rstEvent = Access.CurrentDb.OpenRecordset("Select * from EventLog >> where 1 = 2", 2) >> rstEvent.AddNew >> rstEvent!datTimeStamp = VBA.Now() >> rstEvent!strType = strType >> rstEvent!strSystemID = "NONE" >> >> ' truncate the description to 255 chars just in case we have exceeded it >> If VBA.Len(strDescription) > 255 Then >> rstEvent!strDescription = VBA.Mid$(strDescription, 1, 255) >> ' if we do not pass details then place the complete description in >> details >> If Len(strDetails) = 0 Then >> rstEvent!memDetails = strDescription >> End If >> Else >> rstEvent!strDescription = strDescription >> If Len(strDetails) > 0 Then >> rstEvent!memDetails = strDetails >> End If >> End If >> lngTmp = rstEvent!lngID >> rstEvent.Update >> >> AddEvent_Exit: >> On Error Resume Next >> rstEvent.Close >> Set rstEvent = Nothing >> Exit Sub >> >> AddEvent_Err: >> VBA.MsgBox "Error: " & VBA.Err.Description, 48, "RefAddEvent" >> Resume AddEvent_Exit >> >> End Sub >> '******** End Module ********* >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 9 10:43:22 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 08:43:22 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <0J3Q00NWLLM92ZI0@l-daemon> References: <0J3Q00NWLLM92ZI0@l-daemon> Message-ID: <44DA029A.5090205@san.rr.com> Cool. Send me your phone number off-line and I'll give you a call if we go. I thought Marty lived there as well. No? Rocky Jim Lawrence wrote: > Hi Rocky: > > If you ever make it over to Victoria you can look me up.... > > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 6:20 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > You know I gotta admit I haven't studied a map yet. I know we'll be in > Vancouver most of the time but we plan to take the ferry to Victoria one > day. That's Vancouver Island, yes? Whereabouts does she live? > > Rocky > > > Martin Reid wrote: > >> Rocky >> >> Tricias sister is living in Vancouver island. WIll you be over there? >> >> Martin >> >> Martin WP Reid >> Training and Assessment Unit >> Riddle Hall >> Belfast >> >> tel: 02890 974477 >> >> >> ________________________________ >> >> From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - >> > Beach Access Software > >> Sent: Wed 09/08/2006 04:39 >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> >> >> I'll be damned. Who knew? >> >> When all else fails, read the manual? >> >> I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of >> Vodka as well). Might be able to pay off the debt as well next week. >> We're in Vancouver for the week. And are planning a day trip to >> Victoria. Maybe we can say hello. >> >> Best, >> >> Rocky >> >> >> >> MartyConnelly wrote: >> >> >>> All the docs on the calls are in C:\Program >>> Files\Seagull\BarTender\7.74\Automation.chm >>> The VB.Net code is almost same as VBA except instantiation. >>> >>> This runs and prints >>> >>> Sub testbar() >>> 'Declaring a BarTender application variable >>> Dim btApp As Object >>> 'Declaring a format variable >>> Dim btFormat As Object >>> 'Instantiating the BarTender object >>> Set btApp = CreateObject("BarTender.Application") >>> 'Setting the BarTender Application Visible >>> btApp.Visible = True >>> 'Setting the BarTender format to open >>> 'the .btw template file might have to be previously saved from Bartender >>> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >>> 'Printing the label format >>> Dim lRet As Long >>> lRet = btFormat.PrintOut(True, True) >>> 'Ending the BarTender process >>> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >>> End Sub >>> >>> >>> >>> Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>>> Shamil: >>>> >>>> I tried using late binding which would work real well but partway into >>>> the code I got an error. On the statement: >>>> >>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>> >>>> I get an 'argument not optional' error - don't know why. But the >>>> reference is to the Bartender.exe, if that makes any difference. Using >>>> early binding, this code works well. >>>> >>>> To change from early to late binding I changed >>>> >>>> Public BtApp As BarTender.Application >>>> Public BtFormat As BarTender.Format >>>> >>>> to >>>> >>>> Public BtApp As Object 'BarTender.Application >>>> Public BtFormat As Variant 'BarTender.Format >>>> >>>> and then in the load event: >>>> >>>> Set BtApp = CreateObject("BarTender.Application") >>>> >>>> There is no object model for Bartender so I don't know what it is >>>> expecting for BtFormat. >>>> >>>> But late binding would solve the problem. >>>> >>>> Any ideas? >>>> >>>> If I want to try your other solution I'll have some questions. It's a >>>> bit past my capabilities. >>>> >>>> Thanks and regards, >>>> >>>> Rocky >>>> >>>> >>>> Shamil Salakhetdinov wrote: >>>> >>>> >>>> >>>> >>>> >>>>> Rocky, >>>>> >>>>> I still think the easiest and the most reliable solution for your case >>>>> > is to > >>>>> use late binding. Did I miss something in this thread - why it didn't >>>>> > work > >>>>> for you? >>>>> >>>>> If you decide to not use late binding and if remove reference doesn't >>>>> > work > >>>>> for you - then you can use Add Reference (anyway your intention to use >>>>> Remove Reference forces your FE to loose its compiled state as well as >>>>> > Add > >>>>> Reference does). >>>>> >>>>> I mean the following: >>>>> >>>>> - put all your bar code printing code into a separate library/utility >>>>> database, set reference to bar code printing library in this database; >>>>> >>>>> - in your FE keep the code to check is it possible to create bar code >>>>> printing object or not; >>>>> >>>>> - if it's possible to create bar code printing object then add >>>>> > reference to > >>>>> its library (code to add reference MUST BE kept in another library >>>>> > database > >>>>> - if executed in FE such will force FEs global vars to loose their >>>>> > values); > >>>>> Etc. >>>>> >>>>> This above is a flexible solution but its above description isn't a >>>>> > full > >>>>> story - in this case if your FE uses global variables then you have to >>>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>>> commandbars... and use your current FE as a library database - then >>>>> CurrentDb if you use it becomes a problem etc. >>>>> >>>>> This above technique works very well - it was used in real life apps >>>>> > here > >>>>> and there back to the years 1998-2000 but program databases and their >>>>> > code > >>>>> should be refactored to be used within this technique.... >>>>> >>>>> It's very shortly described here - "A method to modularize MS Access >>>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>>> >>>>> But applying it for your case looks like using "cannons to shoot at >>>>> nightingales" - why not use simple and effective late binding? >>>>> >>>>> -- >>>>> Shamil >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>>> > - > >>>>> Beach Access Software >>>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Removing a missing reference >>>>> >>>>> Marty: >>>>> >>>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>>> > Object > >>>>> library not registered. >>>>> >>>>> 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 >> > > >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Wed Aug 9 10:50:55 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 19:50:55 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9FA31.2020908@san.rr.com> Message-ID: <002501c6bbcb$99e191d0$6401a8c0@nant> <<< Did anything develop for you over here that Might bring you our way? >>> No, Rocky, it didn't. Well, I have still an open US Visa and if I happen to make some good money till the next summer I'd definitely go to visit NYC. California and Pacific looks like a good place to visit too but these are for the next time to visit... I must say I have found Seattle/Bellvue area where I have been in the beginning of this summer too quiet to be good fit for me - I'm seems to be addicted forever to the big cities like St.Petersburg, Russia is... NYC would be a good fit for me I think... -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:07 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference (Well I didn't require you to drink it all at once.) I'm not likely to be in your neighborhood soon. Did anything develop for you over here that might bring you our way? Best, Rocky Shamil Salakhetdinov wrote: > Thank you, Rocky, > > A gallon of vodka would kill me. > A glass and in several shots with good snacks that would be enough. :) > In fact I prefer a few of good red wine or Tequila or Caperinja or Cointreau > or Whiskey or Martini - nothing special... > > -- > Shamil > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:40 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > I'll be damned. Who knew? > > When all else fails, read the manual? > > I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of > Vodka as well). Might be able to pay off the debt as well next week. > We're in Vancouver for the week. And are planning a day trip to > Victoria. Maybe we can say hello. > > Best, > > Rocky > > > > MartyConnelly wrote: > >> All the docs on the calls are in C:\Program >> Files\Seagull\BarTender\7.74\Automation.chm >> The VB.Net code is almost same as VBA except instantiation. >> >> This runs and prints >> >> Sub testbar() >> 'Declaring a BarTender application variable >> Dim btApp As Object >> 'Declaring a format variable >> Dim btFormat As Object >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> 'the .btw template file might have to be previously saved from Bartender >> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >> 'Printing the label format >> Dim lRet As Long >> lRet = btFormat.PrintOut(True, True) >> 'Ending the BarTender process >> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >> End Sub >> >> >> >> Rocky Smolin - Beach Access Software wrote: >> >> >> >>> Shamil: >>> >>> I tried using late binding which would work real well but partway into >>> the code I got an error. On the statement: >>> >>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>> >>> I get an 'argument not optional' error - don't know why. But the >>> reference is to the Bartender.exe, if that makes any difference. Using >>> early binding, this code works well. >>> >>> To change from early to late binding I changed >>> >>> Public BtApp As BarTender.Application >>> Public BtFormat As BarTender.Format >>> >>> to >>> >>> Public BtApp As Object 'BarTender.Application >>> Public BtFormat As Variant 'BarTender.Format >>> >>> and then in the load event: >>> >>> Set BtApp = CreateObject("BarTender.Application") >>> >>> There is no object model for Bartender so I don't know what it is >>> expecting for BtFormat. >>> >>> But late binding would solve the problem. >>> >>> Any ideas? >>> >>> If I want to try your other solution I'll have some questions. It's a >>> bit past my capabilities. >>> >>> Thanks and regards, >>> >>> Rocky >>> >>> >>> Shamil Salakhetdinov wrote: >>> >>> >>> >>> >>>> Rocky, >>>> >>>> I still think the easiest and the most reliable solution for your case >>>> > is to > >>>> use late binding. Did I miss something in this thread - why it didn't >>>> > work > >>>> for you? >>>> >>>> If you decide to not use late binding and if remove reference doesn't >>>> > work > >>>> for you - then you can use Add Reference (anyway your intention to use >>>> Remove Reference forces your FE to loose its compiled state as well as >>>> > Add > >>>> Reference does). >>>> >>>> I mean the following: >>>> >>>> - put all your bar code printing code into a separate library/utility >>>> database, set reference to bar code printing library in this database; >>>> >>>> - in your FE keep the code to check is it possible to create bar code >>>> printing object or not; >>>> >>>> - if it's possible to create bar code printing object then add reference >>>> > to > >>>> its library (code to add reference MUST BE kept in another library >>>> > database > >>>> - if executed in FE such will force FEs global vars to loose their >>>> > values); > >>>> Etc. >>>> >>>> This above is a flexible solution but its above description isn't a full >>>> story - in this case if your FE uses global variables then you have to >>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>> commandbars... and use your current FE as a library database - then >>>> CurrentDb if you use it becomes a problem etc. >>>> >>>> This above technique works very well - it was used in real life apps >>>> > here > >>>> and there back to the years 1998-2000 but program databases and their >>>> > code > >>>> should be refactored to be used within this technique.... >>>> >>>> It's very shortly described here - "A method to modularize MS Access >>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>> >>>> But applying it for your case looks like using "cannons to shoot at >>>> nightingales" - why not use simple and effective late binding? >>>> >>>> -- >>>> Shamil >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>> > - > >>>> Beach Access Software >>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Removing a missing reference >>>> >>>> Marty: >>>> >>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>> > Object > >>>> library not registered. >>>> >>>> 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 Chester_Kaup at kindermorgan.com Wed Aug 9 10:53:20 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 9 Aug 2006 10:53:20 -0500 Subject: [AccessD] Parameters to make table query Message-ID: I am trying to pass parameters to a make table query with the following code. The part that passes the parameters works fine for a select query. When I run the code the query still asks for input. What do I need to do different to make it work for a make table query? Set MyQDef5 = MyDb.QueryDefs("qry Injected Volume Total around Producer") PatternName = "PAT 145-4" Set myds2 = MyQDef2.OpenRecordset() WellName = myds2.Fields(1) MyQDef5.Parameters![Pattern Name] = PatternName MyQDef5.Parameters![WellName] = WellName DoCmd.OpenQuery "qry Injected Volume Total around Producer", acViewNormal, acEdit Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From shamil at users.mns.ru Wed Aug 9 10:50:05 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Wed, 9 Aug 2006 19:50:05 +0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9FA5D.8050603@san.rr.com> Message-ID: <002401c6bbcb$7bf9ee10$6401a8c0@nant> <<< Read the manual. What a concept! >>> Yes, Rocky, when younger we used to say RTFM (sorry) as soon as you see that you're getting stuck with your "brute force attack"... -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 09, 2006 7:08 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Read the manual. What a concept! Rocky Shamil Salakhetdinov wrote: > Hello Rocky, > > I did first try to use the code without optional parameters and I have found > (as you did) that it doesn't run well in late binding mode. That was strange > because in general case such code should have run well. Therefore I made an > assumption that they have done something wrong in their type library > definitions (type library is embedded into their ActiveX bartender.exe and > it's also supplied separated as a .tlb file but this one isn't registered > and can be investigated only using OleView - a utility from VS6). > > Then I did have a look through BarTender installation directory and I did > find their manual, from which I have got VB.Net sample, which I have got > adjusted to VBA/VB6 and posted here... > > <<< > How did you determine that btApp.Quit 1 needed the '1'? > > You can see the actual value for BarTender.BtSaveOptions.btDoNotSaveChanges > in the Object Browser or when in early binding mode you can just copy and > paste it into immediate window and push [Enter]: > > ?BarTender.BtSaveOptions.btDoNotSaveChanges > 1 > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:34 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > Shamil: > > Well, it works. As you knew it would. :-) I am in awe. Couldn't > have taken you more then 15 minutes! > > Questions: how did you determine that the > > Set btFormat = btApp.Formats.Open(Me.fldFABLabelFile, False, "") > > needed two more arguments (False and "")? > > How did you determine that PrintOut needed two more arguments? > > btFormat.PrintOut False, False > > How did you determine that btApp.Quit 1 needed the '1'? > > Thanks and best regards, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Rocky, >> >> This code should work OK with late binding(watch code lines wraps): >> >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> 'Instantiating the BarTender object >> Set btApp = CreateObject("BarTender.Application") >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> >> As you were recommended here you can use conditional compilation and early >> binding to have intellisense while developing/testing and to compile and >> > run > >> using late binding when preparing/using a production version: >> >> #if PRODUCTION_VERSION then >> 'Declaring a BarTender application variable >> Dim btApp As Object 'BarTender.Application >> 'Declaring a format variable >> Dim btFormat As Object ' BarTender.Format >> #else >> 'Declaring a BarTender application variable >> Dim btApp As BarTender.Application >> 'Declaring a format variable >> Dim btFormat as BarTender.Format >> #endif >> 'Instantiating the BarTender object >> Set btApp = GetBarTenderApp() >> If Not btApp is Nothing then >> 'Setting the BarTender Application Visible >> btApp.Visible = True >> 'Setting the BarTender format to open >> Set btFormat = btApp.Formats.Open("c:\Temp\Format1.btw", False, "") >> 'Printing the label format >> btFormat.PrintOut False, False >> 'Ending the BarTender process >> btApp.Quit 1 'BarTender.BtSaveOptions.btDoNotSaveChanges >> End if >> >> ... >> >> Private function GetBarTenderApp() as object >> On error resume next >> Set GetBarTenderApp = CreateObject("BarTender.Application") >> End function >> >> -- >> Shamil >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 09, 2006 12:36 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> Shamil: >> >> I tried using late binding which would work real well but partway into >> the code I got an error. On the statement: >> >> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >> >> I get an 'argument not optional' error - don't know why. But the >> reference is to the Bartender.exe, if that makes any difference. Using >> early binding, this code works well. >> >> To change from early to late binding I changed >> >> Public BtApp As BarTender.Application >> Public BtFormat As BarTender.Format >> >> to >> >> Public BtApp As Object 'BarTender.Application >> Public BtFormat As Variant 'BarTender.Format >> >> and then in the load event: >> >> Set BtApp = CreateObject("BarTender.Application") >> >> There is no object model for Bartender so I don't know what it is >> expecting for BtFormat. >> >> But late binding would solve the problem. >> >> Any ideas? >> >> If I want to try your other solution I'll have some questions. It's a >> bit past my capabilities. >> >> Thanks and regards, >> >> Rocky >> >> >> Shamil Salakhetdinov wrote: >> >> >>> Rocky, >>> >>> I still think the easiest and the most reliable solution for your case is >>> >>> >> to >> >> >>> use late binding. Did I miss something in this thread - why it didn't >>> > work > >>> for you? >>> >>> If you decide to not use late binding and if remove reference doesn't >>> > work > >>> for you - then you can use Add Reference (anyway your intention to use >>> Remove Reference forces your FE to loose its compiled state as well as >>> > Add > >>> Reference does). >>> >>> I mean the following: >>> >>> - put all your bar code printing code into a separate library/utility >>> database, set reference to bar code printing library in this database; >>> >>> - in your FE keep the code to check is it possible to create bar code >>> printing object or not; >>> >>> - if it's possible to create bar code printing object then add reference >>> >>> >> to >> >> >>> its library (code to add reference MUST BE kept in another library >>> >>> >> database >> >> >>> - if executed in FE such will force FEs global vars to loose their >>> >>> >> values); >> >> >>> Etc. >>> >>> This above is a flexible solution but its above description isn't a full >>> story - in this case if your FE uses global variables then you have to >>> create another "proxy" FE to keep start-up code, (dynamic) references, >>> commandbars... and use your current FE as a library database - then >>> CurrentDb if you use it becomes a problem etc. >>> >>> This above technique works very well - it was used in real life apps here >>> and there back to the years 1998-2000 but program databases and their >>> > code > >>> should be refactored to be used within this technique.... >>> >>> It's very shortly described here - "A method to modularize MS Access >>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>> >>> But applying it for your case looks like using "cannons to shoot at >>> nightingales" - why not use simple and effective late binding? >>> >>> -- >>> Shamil >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Tuesday, August 08, 2006 11:45 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Removing a missing reference >>> >>> Marty: >>> >>> Access.References.Remove refCurr still generates error: -2147319779 - >>> >>> >> Object >> >> >>> library not registered. >>> >>> 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 garykjos at gmail.com Wed Aug 9 11:06:54 2006 From: garykjos at gmail.com (Gary Kjos) Date: Wed, 9 Aug 2006 11:06:54 -0500 Subject: [AccessD] Removing a missing reference In-Reply-To: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> References: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> Message-ID: It's a state by state thing. 28 states say you can't ship it according to this.... http://www.legalaffairs.org/issues/March-April-2003/story_marapr03_garrone.msp Minnesota does not allow it I don't think because our state adds it's own tax to Liquor and so if it gets shipped in the state isn't getting it's taste of the action. GK On 8/9/06, Susan Harkins wrote: > Really? I had thought we checked UPS, but maybe we didn't... I'll check into > it. Thanks Ed. :) > > Susan H. > > But you can send it using UPS and maybe FedEx, not sure about FedEx though. > > > Unfortunately, you can't send liquor through the mail. :( > > -- > 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 carbonnb at sympatico.ca Wed Aug 9 11:07:57 2006 From: carbonnb at sympatico.ca (Bryan Carbonnell) Date: Wed, 09 Aug 2006 12:07:57 -0400 Subject: [AccessD] Groupwise version 7 In-Reply-To: <011101c6bbc8$efdd5130$6502a8c0@ScuzzPaq> References: , <011101c6bbc8$efdd5130$6502a8c0@ScuzzPaq> Message-ID: On 9 Aug 2006 at 10:31, John Bartow wrote: > Well come on now Bryan, do a quick upgrade and help a guy out hey! > ;o) Ifn' I could I would. But definitely not this week. I'm on vacation man. Not thinking about work until oh, late next week sometime, even though I'm back in the office on Monday :) -- Bryan Carbonnell - carbonnb at sympatico.ca Every time I walk into a singles bar I can hear Mom's wise words: "Don't pick that up, you don't know where it's been." From Gustav at cactus.dk Wed Aug 9 11:53:48 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Wed, 09 Aug 2006 18:53:48 +0200 Subject: [AccessD] Parameters to make table query Message-ID: Hi Chester You are opening a second instance of the query with DoCmd. .. Replace it with: MyQDef5.Execute /gustav >>> Chester_Kaup at kindermorgan.com 09-08-2006 17:53:20 >>> I am trying to pass parameters to a make table query with the following code. The part that passes the parameters works fine for a select query. When I run the code the query still asks for input. What do I need to do different to make it work for a make table query? Set MyQDef5 = MyDb.QueryDefs("qry Injected Volume Total around Producer") PatternName = "PAT 145-4" Set myds2 = MyQDef2.OpenRecordset() WellName = myds2.Fields(1) MyQDef5.Parameters![Pattern Name] = PatternName MyQDef5.Parameters![WellName] = WellName DoCmd.OpenQuery "qry Injected Volume Total around Producer", acViewNormal, acEdit Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 From Chester_Kaup at kindermorgan.com Wed Aug 9 12:46:02 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 9 Aug 2006 12:46:02 -0500 Subject: [AccessD] Parameters to make table query In-Reply-To: Message-ID: Thanks! Works great. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, August 09, 2006 11:54 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Parameters to make table query Hi Chester You are opening a second instance of the query with DoCmd. .. Replace it with: MyQDef5.Execute /gustav >>> Chester_Kaup at kindermorgan.com 09-08-2006 17:53:20 >>> I am trying to pass parameters to a make table query with the following code. The part that passes the parameters works fine for a select query. When I run the code the query still asks for input. What do I need to do different to make it work for a make table query? Set MyQDef5 = MyDb.QueryDefs("qry Injected Volume Total around Producer") PatternName = "PAT 145-4" Set myds2 = MyQDef2.OpenRecordset() WellName = myds2.Fields(1) MyQDef5.Parameters![Pattern Name] = PatternName MyQDef5.Parameters![WellName] = WellName DoCmd.OpenQuery "qry Injected Volume Total around Producer", acViewNormal, acEdit Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at earthlink.net Wed Aug 9 13:26:26 2006 From: jimdettman at earthlink.net (Jim Dettman) Date: Wed, 9 Aug 2006 14:26:26 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D9448F.4090703@shaw.ca> Message-ID: <200608091821.k79IKpxP024647@mx.911domain.com> <> I thought this app sounded familiar. I used it about 10 years ago. They (Seagull Scientific) were the only ones with Windows drivers for Zebra bar code printers at the time. I used them and Bartender out on a production line. Nice to see their still in business. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Tuesday, August 08, 2006 10:13 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference All the docs on the calls are in C:\Program Files\Seagull\BarTender\7.74\Automation.chm The VB.Net code is almost same as VBA except instantiation. This runs and prints Sub testbar() 'Declaring a BarTender application variable Dim btApp As Object 'Declaring a format variable Dim btFormat As Object 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open 'the .btw template file might have to be previously saved from Bartender Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") 'Printing the label format Dim lRet As Long lRet = btFormat.PrintOut(True, True) 'Ending the BarTender process btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) End Sub Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application >Public BtFormat As Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case is to >>use late binding. Did I miss something in this thread - why it didn't work >>for you? >> >>If you decide to not use late binding and if remove reference doesn't work >>for you - then you can use Add Reference (anyway your intention to use >>Remove Reference forces your FE to loose its compiled state as well as Add >>Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a full >>story - in this case if your FE uses global variables then you have to >>create another "proxy" FE to keep start-up code, (dynamic) references, >>commandbars... and use your current FE as a library database - then >>CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps here >>and there back to the years 1998-2000 but program databases and their code >>should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- 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 Wed Aug 9 13:30:57 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Wed, 9 Aug 2006 11:30:57 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <200608091821.k79IKpxP024647@mx.911domain.com> Message-ID: I thought bartender exe was for when all code was fixed and done. Joe Hecht jmhecht at earthlink.net -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Wednesday, August 09, 2006 11:26 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Removing a missing reference <> I thought this app sounded familiar. I used it about 10 years ago. They (Seagull Scientific) were the only ones with Windows drivers for Zebra bar code printers at the time. I used them and Bartender out on a production line. Nice to see their still in business. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Tuesday, August 08, 2006 10:13 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference All the docs on the calls are in C:\Program Files\Seagull\BarTender\7.74\Automation.chm The VB.Net code is almost same as VBA except instantiation. This runs and prints Sub testbar() 'Declaring a BarTender application variable Dim btApp As Object 'Declaring a format variable Dim btFormat As Object 'Instantiating the BarTender object Set btApp = CreateObject("BarTender.Application") 'Setting the BarTender Application Visible btApp.Visible = True 'Setting the BarTender format to open 'the .btw template file might have to be previously saved from Bartender Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") 'Printing the label format Dim lRet As Long lRet = btFormat.PrintOut(True, True) 'Ending the BarTender process btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) End Sub Rocky Smolin - Beach Access Software wrote: >Shamil: > >I tried using late binding which would work real well but partway into >the code I got an error. On the statement: > > Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) > >I get an 'argument not optional' error - don't know why. But the >reference is to the Bartender.exe, if that makes any difference. Using >early binding, this code works well. > >To change from early to late binding I changed > >Public BtApp As BarTender.Application >Public BtFormat As BarTender.Format > >to > >Public BtApp As Object 'BarTender.Application Public BtFormat As >Variant 'BarTender.Format > >and then in the load event: > >Set BtApp = CreateObject("BarTender.Application") > >There is no object model for Bartender so I don't know what it is >expecting for BtFormat. > >But late binding would solve the problem. > >Any ideas? > >If I want to try your other solution I'll have some questions. It's a >bit past my capabilities. > >Thanks and regards, > >Rocky > > >Shamil Salakhetdinov wrote: > > >>Rocky, >> >>I still think the easiest and the most reliable solution for your case >>is to >>use late binding. Did I miss something in this thread - why it didn't >>work for you? >> >>If you decide to not use late binding and if remove reference doesn't >>work for you - then you can use Add Reference (anyway your intention >>to use Remove Reference forces your FE to loose its compiled state as >>well as Add Reference does). >> >>I mean the following: >> >>- put all your bar code printing code into a separate library/utility >>database, set reference to bar code printing library in this database; >> >>- in your FE keep the code to check is it possible to create bar code >>printing object or not; >> >>- if it's possible to create bar code printing object then add >>reference to >>its library (code to add reference MUST BE kept in another library database >>- if executed in FE such will force FEs global vars to loose their values); >> >>Etc. >> >>This above is a flexible solution but its above description isn't a >>full story - in this case if your FE uses global variables then you >>have to create another "proxy" FE to keep start-up code, (dynamic) >>references, commandbars... and use your current FE as a library >>database - then CurrentDb if you use it becomes a problem etc. >> >>This above technique works very well - it was used in real life apps >>here and there back to the years 1998-2000 but program databases and >>their code should be refactored to be used within this technique.... >> >>It's very shortly described here - "A method to modularize MS Access >>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >> >>But applying it for your case looks like using "cannons to shoot at >>nightingales" - why not use simple and effective late binding? >> >>-- >>Shamil >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>Smolin - Beach Access Software >>Sent: Tuesday, August 08, 2006 11:45 PM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>Marty: >> >>Access.References.Remove refCurr still generates error: -2147319779 - Object >>library not registered. >> >>Rocky >> >> >> >> >> >> >> > > > -- 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 From bchacc at san.rr.com Wed Aug 9 13:39:18 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 09 Aug 2006 11:39:18 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <002501c6bbcb$99e191d0$6401a8c0@nant> References: <002501c6bbcb$99e191d0$6401a8c0@nant> Message-ID: <44DA2BD6.3050204@san.rr.com> I know what you mean. I grew up in Chicago. I'm an urban guy. Where we are now, however, kind of in the suburbs is a good fit. New York would be an exciting place to live. Rocky Shamil Salakhetdinov wrote: > <<< > Did anything develop for you over here that > Might bring you our way? > > No, Rocky, it didn't. > > Well, I have still an open US Visa and if I happen to make some good money > till the next summer I'd definitely go to visit NYC. California and Pacific > looks like a good place to visit too but these are for the next time to > visit... > > I must say I have found Seattle/Bellvue area where I have been in the > beginning of this summer too quiet to be good fit for me - I'm seems to be > addicted forever to the big cities like St.Petersburg, Russia is... > > NYC would be a good fit for me I think... > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 09, 2006 7:07 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Removing a missing reference > > (Well I didn't require you to drink it all at once.) > > I'm not likely to be in your neighborhood soon. Did anything develop > for you over here that might bring you our way? > > Best, > > Rocky > > > Shamil Salakhetdinov wrote: > >> Thank you, Rocky, >> >> A gallon of vodka would kill me. >> A glass and in several shots with good snacks that would be enough. :) >> In fact I prefer a few of good red wine or Tequila or Caperinja or >> > Cointreau > >> or Whiskey or Martini - nothing special... >> >> -- >> Shamil >> >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 09, 2006 7:40 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Removing a missing reference >> >> I'll be damned. Who knew? >> >> When all else fails, read the manual? >> >> I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of >> Vodka as well). Might be able to pay off the debt as well next week. >> We're in Vancouver for the week. And are planning a day trip to >> Victoria. Maybe we can say hello. >> >> Best, >> >> Rocky >> >> >> >> MartyConnelly wrote: >> >> >>> All the docs on the calls are in C:\Program >>> Files\Seagull\BarTender\7.74\Automation.chm >>> The VB.Net code is almost same as VBA except instantiation. >>> >>> This runs and prints >>> >>> Sub testbar() >>> 'Declaring a BarTender application variable >>> Dim btApp As Object >>> 'Declaring a format variable >>> Dim btFormat As Object >>> 'Instantiating the BarTender object >>> Set btApp = CreateObject("BarTender.Application") >>> 'Setting the BarTender Application Visible >>> btApp.Visible = True >>> 'Setting the BarTender format to open >>> 'the .btw template file might have to be previously saved from Bartender >>> Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >>> 'Printing the label format >>> Dim lRet As Long >>> lRet = btFormat.PrintOut(True, True) >>> 'Ending the BarTender process >>> btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >>> End Sub >>> >>> >>> >>> Rocky Smolin - Beach Access Software wrote: >>> >>> >>> >>> >>>> Shamil: >>>> >>>> I tried using late binding which would work real well but partway into >>>> the code I got an error. On the statement: >>>> >>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>> >>>> I get an 'argument not optional' error - don't know why. But the >>>> reference is to the Bartender.exe, if that makes any difference. Using >>>> early binding, this code works well. >>>> >>>> To change from early to late binding I changed >>>> >>>> Public BtApp As BarTender.Application >>>> Public BtFormat As BarTender.Format >>>> >>>> to >>>> >>>> Public BtApp As Object 'BarTender.Application >>>> Public BtFormat As Variant 'BarTender.Format >>>> >>>> and then in the load event: >>>> >>>> Set BtApp = CreateObject("BarTender.Application") >>>> >>>> There is no object model for Bartender so I don't know what it is >>>> expecting for BtFormat. >>>> >>>> But late binding would solve the problem. >>>> >>>> Any ideas? >>>> >>>> If I want to try your other solution I'll have some questions. It's a >>>> bit past my capabilities. >>>> >>>> Thanks and regards, >>>> >>>> Rocky >>>> >>>> >>>> Shamil Salakhetdinov wrote: >>>> >>>> >>>> >>>> >>>> >>>>> Rocky, >>>>> >>>>> I still think the easiest and the most reliable solution for your case >>>>> >>>>> >> is to >> >> >>>>> use late binding. Did I miss something in this thread - why it didn't >>>>> >>>>> >> work >> >> >>>>> for you? >>>>> >>>>> If you decide to not use late binding and if remove reference doesn't >>>>> >>>>> >> work >> >> >>>>> for you - then you can use Add Reference (anyway your intention to use >>>>> Remove Reference forces your FE to loose its compiled state as well as >>>>> >>>>> >> Add >> >> >>>>> Reference does). >>>>> >>>>> I mean the following: >>>>> >>>>> - put all your bar code printing code into a separate library/utility >>>>> database, set reference to bar code printing library in this database; >>>>> >>>>> - in your FE keep the code to check is it possible to create bar code >>>>> printing object or not; >>>>> >>>>> - if it's possible to create bar code printing object then add >>>>> > reference > >>>>> >>>>> >> to >> >> >>>>> its library (code to add reference MUST BE kept in another library >>>>> >>>>> >> database >> >> >>>>> - if executed in FE such will force FEs global vars to loose their >>>>> >>>>> >> values); >> >> >>>>> Etc. >>>>> >>>>> This above is a flexible solution but its above description isn't a >>>>> > full > >>>>> story - in this case if your FE uses global variables then you have to >>>>> create another "proxy" FE to keep start-up code, (dynamic) references, >>>>> commandbars... and use your current FE as a library database - then >>>>> CurrentDb if you use it becomes a problem etc. >>>>> >>>>> This above technique works very well - it was used in real life apps >>>>> >>>>> >> here >> >> >>>>> and there back to the years 1998-2000 but program databases and their >>>>> >>>>> >> code >> >> >>>>> should be refactored to be used within this technique.... >>>>> >>>>> It's very shortly described here - "A method to modularize MS Access >>>>> applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>>> >>>>> But applying it for your case looks like using "cannons to shoot at >>>>> nightingales" - why not use simple and effective late binding? >>>>> >>>>> -- >>>>> Shamil >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>>> >>>>> >> - >> >> >>>>> Beach Access Software >>>>> Sent: Tuesday, August 08, 2006 11:45 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Removing a missing reference >>>>> >>>>> Marty: >>>>> >>>>> Access.References.Remove refCurr still generates error: -2147319779 - >>>>> >>>>> >> Object >> >> >>>>> library not registered. >>>>> >>>>> Rocky >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Wed Aug 9 13:58:50 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Wed, 9 Aug 2006 14:58:50 -0400 Subject: [AccessD] Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A64B@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357AB@ADGSERVER> Charlotte, Thanks for the pointers. What I was doing was using resume next and looking at the error code myself and deciding whether or not to raise the same error. So I went back and used an error handler and had the logic in the error handler to raise the error again and it works as I expected. Thanks again, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 5:21 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... Importance: Low Bobby, I just looked at your code again instread of just at the error handling. You have On Error Resume Next set, which clears the error. If you want to raise an error, you have to use an error handler and raise the error from there. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby From cfoust at infostatsystems.com Wed Aug 9 17:04:46 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 9 Aug 2006 15:04:46 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <000101c6bbc9$e2936950$0301a8c0@SUSANONE> Message-ID: Well SOMEBODY ships liquor to the retailers! Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins Sent: Wednesday, August 09, 2006 8:39 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Removing a missing reference Really? I had thought we checked UPS, but maybe we didn't... I'll check into it. Thanks Ed. :) Susan H. But you can send it using UPS and maybe FedEx, not sure about FedEx though. > Unfortunately, you can't send liquor through the mail. :( -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Wed Aug 9 17:07:50 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 9 Aug 2006 15:07:50 -0700 Subject: [AccessD] Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D357AB@ADGSERVER> Message-ID: I should have caught that the first time. Using Resume Next means that all errors in the routine get absorbed, including the ones you try to raise. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Wednesday, August 09, 2006 11:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Raising errors... Charlotte, Thanks for the pointers. What I was doing was using resume next and looking at the error code myself and deciding whether or not to raise the same error. So I went back and used an error handler and had the logic in the error handler to raise the error again and it works as I expected. Thanks again, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 5:21 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... Importance: Low Bobby, I just looked at your code again instread of just at the error handling. You have On Error Resume Next set, which clears the error. If you want to raise an error, you have to use an error handler and raise the error from there. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 1:42 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Raisingerrors... A class object. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 4:31 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Importance: Low I'ts what happens in .Net, but I don't remember how it works in Access. Is the error occurring in a class object or a standard module? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:59 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] [SPAM SUSPECT] Re: Raising errors... Hi Charlotte, No I have not. Is there not a way to bubble the error up to the calling routine as if the error happened there? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 08, 2006 3:52 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low Raising errors only bumps them up to the next level. It's a somewhat passive action. You have to check for the raised error in the calling routine. Have you done that? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 08, 2006 12:15 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Raising errors... I tried to find information in the archives but could not. I have a class that I am using to handle the opening of databases and one of the opens a database and returns a database variable. This works well. In the original code, there was error handling in place to handle 'database is opened exclusively by someone...', and other errors. So in replacing the opendatabase call with my class call, I would like the class to raise any errors so that it propagates back to the calling function. There are several older passwords that I have to keep track of. I tried something like this: Public Function OpenDB(ByVal strDBName As String, ByVal bOpenExclusive As Boolean, ByVal bRO As Boolean) As Database Dim db As Database Dim i As Long On Error Resume Next Set OpenDB = Nothing 'init the db return value For i = 0 To NUMPWS - 1 Set db = Workspaces(0).OpenDatabase(strDBName, bOpenExclusive, bRO, ";pwd=" & mstrPW(i)) If Err.Number = 0 Then 'if =0 then good open Set OpenDB = db Exit For End If If Err.Number <> 3031 Then 'some error other than invalid pw Err.Raise Err.Number, "clsPW.OpenDB", Err.Description Else 'if we're on the last pw, and it is invalid, raise an error If i = NUMPWS - 1 Then 'last one Err.Raise 3031, "clsPW.OpenDB", "Invalid password" End If End If Next i Proc_Exit: Exit Function End Function It executes the err.raise statement as I expected, but nothing happens. Am I misunderstanding the raise event? Thanks, Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From ssharkins at setel.com Wed Aug 9 17:31:44 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 9 Aug 2006 18:31:44 -0400 Subject: [AccessD] Removing a missing reference In-Reply-To: Message-ID: <001601c6bc03$97ff42d0$0301a8c0@SUSANONE> I've gotta find me an UPS man... ;) Susan H. Well SOMEBODY ships liquor to the retailers! From darrend at nimble.com.au Wed Aug 9 20:39:03 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 10 Aug 2006 11:39:03 +1000 Subject: [AccessD] OT: Reporting Services Guru Required Message-ID: <20060810013903.CRCI10893.omta02ps.mx.bigpond.com@DENZILLAP> Hi Team CROSS POSTED A bit OT I know - so please respond off-list - thanks Our firm needs to find a Sydney based Reporting Services Guru we can call on from time to time to assist with various things who from time to time may be required to come on-site with us to some of our clients If you or someone you know fits the bill - can you get them to contact me off list please at darrend @ nimble.com.au? Many thanks See y'all Darren From bheid at appdevgrp.com Thu Aug 10 07:32:50 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 10 Aug 2006 08:32:50 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: Raising errors... In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0A7F5@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357B1@ADGSERVER> Well, that's just asinine! LOL. I did not know that. Have to store that info away. Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Wednesday, August 09, 2006 6:08 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] Raising errors... Importance: Low I should have caught that the first time. Using Resume Next means that all errors in the routine get absorbed, including the ones you try to raise. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Wednesday, August 09, 2006 11:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Raising errors... Charlotte, Thanks for the pointers. What I was doing was using resume next and looking at the error code myself and deciding whether or not to raise the same error. So I went back and used an error handler and had the logic in the error handler to raise the error again and it works as I expected. Thanks again, Bobby From bchacc at san.rr.com Thu Aug 10 11:09:22 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 09:09:22 -0700 Subject: [AccessD] Trigger code every day Message-ID: <44DB5A32.8040104@san.rr.com> Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bill_Patten at earthlink.net Thu Aug 10 11:23:54 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 10 Aug 2006 09:23:54 -0700 Subject: [AccessD] Trigger code every day References: <44DB5A32.8040104@san.rr.com> Message-ID: <001701c6bc99$615fe310$6401a8c0@BPCS> Hi Rocky, With out knowing all the details, I'd be tempted to use Windows Schedule tasks and let it do the work. You can pick times days etc. HTH Bill ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 9:09 AM Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 rusty.hammond at cpiqpc.com Thu Aug 10 11:24:55 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Thu, 10 Aug 2006 11:24:55 -0500 Subject: [AccessD] Trigger code every day Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A1@cpixchng-1.cpiqpc.net> Rocky, Don't know how bad it's going to affect the server by running it directly on it with one process a day, but what we have done is setup another workstation that runs these type of things. Seems like once you automate one thing, then other items could suddenly be automated that noone had thought of before, then you could run into server issues with multiple processes running throughout the day. We're using MS Access with the OnTimer event and time checking just like you suggest. Pretty solid solution. HTH Rusty -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Thursday, August 10, 2006 11:09 AM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 ********************************************************************** 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 Thu Aug 10 11:29:01 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 09:29:01 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A1@cpixchng-1.cpiqpc.net> References: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A1@cpixchng-1.cpiqpc.net> Message-ID: <44DB5ECD.7000103@san.rr.com> Since the back end where the data to export resides is currently linked to the front end (both the regular app and the other stand-alone exporter) I suppose it would be best not to put it on the server, yes? Rocky rusty.hammond at cpiqpc.com wrote: > Rocky, > > Don't know how bad it's going to affect the server by running it directly on > it with one process a day, but what we have done is setup another > workstation that runs these type of things. Seems like once you automate > one thing, then other items could suddenly be automated that noone had > thought of before, then you could run into server issues with multiple > processes running throughout the day. We're using MS Access with the > OnTimer event and time checking just like you suggest. Pretty solid > solution. > > HTH > > Rusty > > -----Original Message----- > From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] > Sent: Thursday, August 10, 2006 11:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Thu Aug 10 11:46:52 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 09:46:52 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <001701c6bc99$615fe310$6401a8c0@BPCS> References: <44DB5A32.8040104@san.rr.com> <001701c6bc99$615fe310$6401a8c0@BPCS> Message-ID: <44DB62FC.50603@san.rr.com> Bill: Never used Windows Scheduler before but it looked pretty simple so I set up a task and pointed to the mdb and set the time for two minutes later than the current clock. But it didn't run because I didn't specify a user account password. But there is no password for this machine. Just the default account 'HAL9004\Rocky' but I don't have a password. Do I need to set a password in order to use the scheduler? Thanks and regards, Rocky Bill Patten wrote: > Hi Rocky, > > With out knowing all the details, I'd be tempted to use Windows Schedule > tasks and let it do the work. You can pick times days etc. > > HTH > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Thursday, August 10, 2006 9:09 AM > Subject: [AccessD] Trigger code every day > > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From shamil at users.mns.ru Thu Aug 10 12:12:22 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Thu, 10 Aug 2006 21:12:22 +0400 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: <000301c6bca0$24f58fe0$6401a8c0@nant> Rocky, I'd use Windows Scheduler - http://www.iopus.com/guides/winscheduler.htm -- Shamil -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 10, 2006 8:09 PM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 jwcolby at colbyconsulting.com Thu Aug 10 12:10:53 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 10 Aug 2006 13:10:53 -0400 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: <006f01c6bc9f$f18a4330$657aa8c0@m6805> Rocky, It isn't going to suck up a lot of server time, remember that Access is a file server database. What will happen is that it will run on EVERY front end, possibly running more than once if you have several users and each user's workstation is doing this. You can get around that by causing it to only run on a single specific workstation but then that workstation has to be turned on and logged in to. I built what I called a "server app", which is an FE that runs on the server. Since only a single instance is running, it now runs only a single time per day / hour / whatever time interval you choose here. The up side is it runs regardless of who or how many users are running your application out on workstations, and only a single instance is run. The down side is that the server has to be logged in to and that user on the server has to run the application. If the server reboots and no one logs in, then the app doesn't run. Access cannot directly run as a service. This down side also causes a couple of other inconveniences. Because I set the server login to run the app in the startup, if I log in remotely, a second instance starts up. It is not immediately obvious that it is a second instance since you cannot see tasks already running under another user without looking at the task manager. I have been known to leave two instances running accidentally, and I have also been known to shut down the instance running under the other user (the user logged in from the server console) and then log off my remote desktop and not fire up the app again for the still logged in main user. In fact to do that you have to use VNC to log back in to the main user's login and start the program. This method can also cause problems if you use an open table to speed things up and then want to compact / repair the BE. All of your other workstations can be out of the db but the ServerApp is still logged in and so the BE can't be compacted. All in all though, this strategy does work and that is how I handle it. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 10, 2006 12:09 PM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 markamatte at hotmail.com Thu Aug 10 12:16:37 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Thu, 10 Aug 2006 17:16:37 +0000 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: <006f01c6bc9f$f18a4330$657aa8c0@m6805> Message-ID: Hello All, Other than creating a query that gets the sum and join it to the query I'm using as a recordsource...Is there a way to sort by the sum on a footer in a report...sorting/grouping doesn't seem to like the idea...any ideas? Thanks, Mark A. Matte From bchacc at san.rr.com Thu Aug 10 12:29:05 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 10:29:05 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <006f01c6bc9f$f18a4330$657aa8c0@m6805> References: <006f01c6bc9f$f18a4330$657aa8c0@m6805> Message-ID: <44DB6CE1.1000405@san.rr.com> John: It would seem that putting this front end on a workstation (it's linked to the BE on the server) and using Windows Scheduler would be another alternative. It tried this and it works if I put a password on my account (which is a PITA because now I have to enter the PW when I start up the box and I'm the only user). Do you know of any downside to using Windows Scheduler? Thanks and regards, Rocky JWColby wrote: > Rocky, > > It isn't going to suck up a lot of server time, remember that Access is a > file server database. What will happen is that it will run on EVERY front > end, possibly running more than once if you have several users and each > user's workstation is doing this. You can get around that by causing it to > only run on a single specific workstation but then that workstation has to > be turned on and logged in to. > > I built what I called a "server app", which is an FE that runs on the > server. Since only a single instance is running, it now runs only a single > time per day / hour / whatever time interval you choose here. > > The up side is it runs regardless of who or how many users are running your > application out on workstations, and only a single instance is run. > > The down side is that the server has to be logged in to and that user on the > server has to run the application. If the server reboots and no one logs > in, then the app doesn't run. Access cannot directly run as a service. > > This down side also causes a couple of other inconveniences. Because I set > the server login to run the app in the startup, if I log in remotely, a > second instance starts up. It is not immediately obvious that it is a > second instance since you cannot see tasks already running under another > user without looking at the task manager. I have been known to leave two > instances running accidentally, and I have also been known to shut down the > instance running under the other user (the user logged in from the server > console) and then log off my remote desktop and not fire up the app again > for the still logged in main user. In fact to do that you have to use VNC > to log back in to the main user's login and start the program. > > This method can also cause problems if you use an open table to speed things > up and then want to compact / repair the BE. All of your other workstations > can be out of the db but the ServerApp is still logged in and so the BE > can't be compacted. > > All in all though, this strategy does work and that is how I handle it. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 10, 2006 12:09 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export some > files. I'm thinking that I use the OnTimer event with some timer interval > (like 5 minutes) and check the clock to see if it's time to do the export. > This app will run all the time in the background and reside probably on > their server. Is this going to suck up a lot of server cycles? Is there a > better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Thu Aug 10 12:30:05 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 10:30:05 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <000301c6bca0$24f58fe0$6401a8c0@nant> References: <000301c6bca0$24f58fe0$6401a8c0@nant> Message-ID: <44DB6D1D.2050902@san.rr.com> Tried it. It works. Seems too easy. Only thing is you have to have a password on the account to schedule a task which I didn't have. Now I have this password and I have to enter it when I start up the machine. Thanks Rocky Shamil Salakhetdinov wrote: > Rocky, > > I'd use Windows Scheduler - http://www.iopus.com/guides/winscheduler.htm > > -- > Shamil > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 10, 2006 8:09 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bill_Patten at earthlink.net Thu Aug 10 12:54:33 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 10 Aug 2006 10:54:33 -0700 Subject: [AccessD] Trigger code every day References: <44DB5A32.8040104@san.rr.com> <001701c6bc99$615fe310$6401a8c0@BPCS> <44DB62FC.50603@san.rr.com> Message-ID: <001f01c6bca6$0a3471c0$6401a8c0@BPCS> I don't know about the no password, it seems that if it is empty and works for other things it should work but .... You can test it by right clicking and then run so you don't have to mess with the time thing. You might try right clicking on it, going to properties and entering System in the run as and try that. I did that on a test running a test batch file, and the name was changed to NT AUTHORITY\SYSTEM and see if that works. Bill ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 9:46 AM Subject: Re: [AccessD] Trigger code every day Bill: Never used Windows Scheduler before but it looked pretty simple so I set up a task and pointed to the mdb and set the time for two minutes later than the current clock. But it didn't run because I didn't specify a user account password. But there is no password for this machine. Just the default account 'HAL9004\Rocky' but I don't have a password. Do I need to set a password in order to use the scheduler? Thanks and regards, Rocky Bill Patten wrote: > Hi Rocky, > > With out knowing all the details, I'd be tempted to use Windows Schedule > tasks and let it do the work. You can pick times days etc. > > HTH > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Thursday, August 10, 2006 9:09 AM > Subject: [AccessD] Trigger code every day > > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 rusty.hammond at cpiqpc.com Thu Aug 10 12:55:21 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Thu, 10 Aug 2006 12:55:21 -0500 Subject: [AccessD] Trigger code every day Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F89A3@cpixchng-1.cpiqpc.net> The only reason we didn't go with windows scheduler is the access app writes to a text file every time the OnTimer event fires and logs when a process was started. This is so another computer can check that file to see if it's being updated. If it isn't we get notified. We have critical apps that get started/automated on these machines (we actually have 3 of them running right now). For applications that aren't so critical we have set them up on Windows scheduler and it works just fine. Rusty -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Thursday, August 10, 2006 12:29 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Trigger code every day John: It would seem that putting this front end on a workstation (it's linked to the BE on the server) and using Windows Scheduler would be another alternative. It tried this and it works if I put a password on my account (which is a PITA because now I have to enter the PW when I start up the box and I'm the only user). Do you know of any downside to using Windows Scheduler? Thanks and regards, Rocky JWColby wrote: > Rocky, > > It isn't going to suck up a lot of server time, remember that Access is a > file server database. What will happen is that it will run on EVERY front > end, possibly running more than once if you have several users and each > user's workstation is doing this. You can get around that by causing it to > only run on a single specific workstation but then that workstation has to > be turned on and logged in to. > > I built what I called a "server app", which is an FE that runs on the > server. Since only a single instance is running, it now runs only a single > time per day / hour / whatever time interval you choose here. > > The up side is it runs regardless of who or how many users are running your > application out on workstations, and only a single instance is run. > > The down side is that the server has to be logged in to and that user on the > server has to run the application. If the server reboots and no one logs > in, then the app doesn't run. Access cannot directly run as a service. > > This down side also causes a couple of other inconveniences. Because I set > the server login to run the app in the startup, if I log in remotely, a > second instance starts up. It is not immediately obvious that it is a > second instance since you cannot see tasks already running under another > user without looking at the task manager. I have been known to leave two > instances running accidentally, and I have also been known to shut down the > instance running under the other user (the user logged in from the server > console) and then log off my remote desktop and not fire up the app again > for the still logged in main user. In fact to do that you have to use VNC > to log back in to the main user's login and start the program. > > This method can also cause problems if you use an open table to speed things > up and then want to compact / repair the BE. All of your other workstations > can be out of the db but the ServerApp is still logged in and so the BE > can't be compacted. > > All in all though, this strategy does work and that is how I handle it. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 10, 2006 12:09 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export some > files. I'm thinking that I use the OnTimer event with some timer interval > (like 5 minutes) and check the clock to see if it's time to do the export. > This app will run all the time in the background and reside probably on > their server. Is this going to suck up a lot of server cycles? Is there a > better way to do this? > > MTIA > > 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 ********************************************************************** 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 john at winhaven.net Thu Aug 10 13:05:40 2006 From: john at winhaven.net (John Bartow) Date: Thu, 10 Aug 2006 13:05:40 -0500 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB62FC.50603@san.rr.com> Message-ID: <006a01c6bca7$979989a0$6501a8c0@ScuzzPaq> Rocky, Replace the 'HAL9004\Rocky' with 'NT Authority\System'. Then you don't have to be logged in. I do this for all the maintenance tasks I schedule like disk cleanup, defrag, spyware scans, etc. You could start the access app on the server via the server's scheduler and have it run the necessary code via code in the startup form. HTH John B. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software But it didn't run because I didn't specify a user account password. But there is no password for this machine. Just the default account 'HAL9004\Rocky' but I don't have a password. Do I need to set a password in order to use the scheduler? From accessd at shaw.ca Thu Aug 10 13:35:50 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 10 Aug 2006 11:35:50 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: <0J3S002IKOZC4ID0@l-daemon> Hi Rocky: Running the timer in the application can be complex, if the user is going in and out, has to be a specific user etc. You can use command line scheduling. On the older servers the "at" could be setup and on the new servers the "schtasks" can be used. Example: schtasks /create /tn "MyExportApplication" /tr c:\apps\myexport.exe /sc daily /sd 8/25/2006 /st 3:00 ...then it would run in the background with no processing time consumed. The above application, named "MyExportApplication", would run the application myexport (any executable, batch, script or even MSAccess app can be run), runs daily, starting 25 August 2006, at 3:00am in the morning. The schedule would be created by an admin person avoiding all the permissions issues. 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: Thursday, August 10, 2006 9:09 AM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 Thu Aug 10 14:51:50 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 12:51:50 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <0J3S002IKOZC4ID0@l-daemon> References: <0J3S002IKOZC4ID0@l-daemon> Message-ID: <44DB8E56.20404@san.rr.com> Thanks. I'll let the user's tech folks know. I'm sure they'll have questions. They're in Shanghai which makes it even more awkward. Rocky Jim Lawrence wrote: > Hi Rocky: > > Running the timer in the application can be complex, if the user is going in > and out, has to be a specific user etc. You can use command line scheduling. > On the older servers the "at" could be setup and on the new servers the > "schtasks" can be used. Example: > > schtasks /create /tn "MyExportApplication" /tr c:\apps\myexport.exe /sc > daily /sd 8/25/2006 /st 3:00 > > ...then it would run in the background with no processing time consumed. The > above application, named "MyExportApplication", would run the application > myexport (any executable, batch, script or even MSAccess app can be run), > runs daily, starting 25 August 2006, at 3:00am in the morning. The schedule > would be created by an admin person avoiding all the permissions issues. > > 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: Thursday, August 10, 2006 9:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Thu Aug 10 17:57:34 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 10 Aug 2006 15:57:34 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: <44DB5A32.8040104@san.rr.com> Message-ID: The answer is "it depends." We created a couple of products that run like this. The big gotcha is that it doesn't run as a service, and it really isn't a good idea to install Access on a server. Yes, it sucks up cycles, not to mention the fact that when the server goes down, it will come back up but your application won't. The better way is not to use Access for the app. When you say the app is going to "export some files", what do you mean? Are these files created by the app or by some other application, with the desired program just checking for the existence of files and then moving them somewhere? 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, August 10, 2006 9:09 AM To: Access Developers discussion and problem solving Subject: [AccessD] Trigger code every day Dear List: A client needs to run a program every day at the same time to export some files. I'm thinking that I use the OnTimer event with some timer interval (like 5 minutes) and check the clock to see if it's time to do the export. This app will run all the time in the background and reside probably on their server. Is this going to suck up a lot of server cycles? Is there a better way to do this? MTIA 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 ssharkins at setel.com Thu Aug 10 18:03:09 2006 From: ssharkins at setel.com (Susan Harkins) Date: Thu, 10 Aug 2006 19:03:09 -0400 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: Message-ID: <001201c6bcd1$25b4caf0$0301a8c0@SUSANONE> So, you're sorting pages? Susan H. Other than creating a query that gets the sum and join it to the query I'm using as a recordsource...Is there a way to sort by the sum on a footer in a report...sorting/grouping doesn't seem to like the idea...any ideas? From bchacc at san.rr.com Thu Aug 10 18:44:37 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 16:44:37 -0700 Subject: [AccessD] Trigger code every day In-Reply-To: References: Message-ID: <44DBC4E5.4050302@san.rr.com> The app creates the files. The app is actually my E-Z-MRP system and the third party is a company called Healex which makes a product called Nocturne. On a regular basis, in this case daily, the client exports files (from whatever manufacturing management system they're using, in this case mine) containing their parts, inventory, purchase orders, unmet demands, transactions, supplier info, etc. and the Nocturne program picks the data off of their server and passes it out to the suppliers who get daily updates on what their customer needs in the way of raw materials. It's a supply chain management thing. And generally it's used by really big companies. This outfit in Shanghai is real small - small enough for E-Z-MRP, but their only customer is Phillips - who uses Nocturne themselves. So Phillips insisted that this little company, a captive supplier, use Nocturne as well. So I wrote a routine inside E-Z-MRP to create these csv files for Nocturne and they could trigger the export whenever they wanted. But of course, once they saw how it worked, next thing they wanted was for it to be automated to run every day so they wouldn't have to remember to do it. So there's more than you probably wanted to know. Rocky Charlotte Foust wrote: > The answer is "it depends." We created a couple of products that run > like this. The big gotcha is that it doesn't run as a service, and it > really isn't a good idea to install Access on a server. Yes, it sucks > up cycles, not to mention the fact that when the server goes down, it > will come back up but your application won't. The better way is not to > use Access for the app. > > When you say the app is going to "export some files", what do you mean? > Are these files created by the app or by some other application, with > the desired program just checking for the existence of files and then > moving them somewhere? > > 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, August 10, 2006 9:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From kp at sdsonline.net Thu Aug 10 22:19:52 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 11 Aug 2006 13:19:52 +1000 Subject: [AccessD] code for font color on tab Message-ID: <002301c6bcf5$0398e900$6501a8c0@office> Does anyone know how to change the colour of the font on the tab caption in code? What I am trying to achieve is that in the tab's 'On change' event, depending on the value in one of the fields, I want certain other tabs to appear greyed out (not enabled) I can set the page to be not enabled using Me.PageCtlCM.Enabled = False, but the text on the tab caption itself stays normal - I would like it to look grey like to controls on it do. TIA ______________________________________ Kath Pelletti Software Design and Solutions Pty Ltd. Ph: 9505-6714 Fax: 9505-6430 Email: KP at SDSOnline.net From bchacc at san.rr.com Thu Aug 10 22:49:36 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 10 Aug 2006 20:49:36 -0700 Subject: [AccessD] code for font color on tab In-Reply-To: <002301c6bcf5$0398e900$6501a8c0@office> References: <002301c6bcf5$0398e900$6501a8c0@office> Message-ID: <44DBFE50.9070508@san.rr.com> Kath: After struggling with issues around the tab labels I ended up eliminating the tab labels and using command buttons positioned over the tab form to look like tab labels. Then I could do with them whatever could be done with a command button including changing the fore color and disabling them. Rocky Kath Pelletti wrote: > Does anyone know how to change the colour of the font on the tab caption in code? > > What I am trying to achieve is that in the tab's 'On change' event, depending on the value in one of the fields, I want certain other tabs to appear greyed out (not enabled) > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = False, but the text on the tab caption itself stays normal - I would like it to look grey like to controls on it do. > > TIA > > ______________________________________ > Kath Pelletti > Software Design and Solutions Pty Ltd. > Ph: 9505-6714 > Fax: 9505-6430 > Email: KP at SDSOnline.net > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From kp at sdsonline.net Thu Aug 10 23:41:40 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 11 Aug 2006 14:41:40 +1000 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office> <44DBFE50.9070508@san.rr.com> Message-ID: <002001c6bd00$7078c350$6501a8c0@office> So you set the style of the tab control to none and then put command buttons on the background form? I'll do that too - if I can't find a code option - but surely there's a way? Kath ----- Original Message ----- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Friday, August 11, 2006 1:49 PM Subject: Re: [AccessD] code for font color on tab Kath: After struggling with issues around the tab labels I ended up eliminating the tab labels and using command buttons positioned over the tab form to look like tab labels. Then I could do with them whatever could be done with a command button including changing the fore color and disabling them. Rocky Kath Pelletti wrote: > Does anyone know how to change the colour of the font on the tab caption in code? > > What I am trying to achieve is that in the tab's 'On change' event, depending on the value in one of the fields, I want certain other tabs to appear greyed out (not enabled) > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = False, but the text on the tab caption itself stays normal - I would like it to look grey like to controls on it do. > > TIA > > ______________________________________ > Kath Pelletti > Software Design and Solutions Pty Ltd. > Ph: 9505-6714 > Fax: 9505-6430 > Email: KP at SDSOnline.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 lembit.dbamail at t-online.de Fri Aug 11 04:43:14 2006 From: lembit.dbamail at t-online.de (Lembit Soobik) Date: Fri, 11 Aug 2006 11:43:14 +0200 Subject: [AccessD] Trigger code every day References: <44DBC4E5.4050302@san.rr.com> Message-ID: <009b01c6bd2a$916b6b10$1400a8c0@v1000> Rocky, I understand its just the export of then existing files. In this case you can use Karen's Replicator http://www.karenware.com/powertools/ptreplicator.asp its free and you can schedule it as you like. I'm using it to copy files within my network on a regular basis. Lembit ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2006 1:44 AM Subject: Re: [AccessD] Trigger code every day > The app creates the files. The app is actually my E-Z-MRP system and > the third party is a company called Healex which makes a product called > Nocturne. On a regular basis, in this case daily, the client exports > files (from whatever manufacturing management system they're using, in > this case mine) containing their parts, inventory, purchase orders, > unmet demands, transactions, supplier info, etc. and the Nocturne > program picks the data off of their server and passes it out to the > suppliers who get daily updates on what their customer needs in the way > of raw materials. It's a supply chain management thing. > > And generally it's used by really big companies. This outfit in > Shanghai is real small - small enough for E-Z-MRP, but their only > customer is Phillips - who uses Nocturne themselves. So Phillips > insisted that this little company, a captive supplier, use Nocturne as > well. > > So I wrote a routine inside E-Z-MRP to create these csv files for > Nocturne and they could trigger the export whenever they wanted. But of > course, once they saw how it worked, next thing they wanted was for it > to be automated to run every day so they wouldn't have to remember to do > it. > > So there's more than you probably wanted to know. > > > Rocky > > > Charlotte Foust wrote: >> The answer is "it depends." We created a couple of products that run >> like this. The big gotcha is that it doesn't run as a service, and it >> really isn't a good idea to install Access on a server. Yes, it sucks >> up cycles, not to mention the fact that when the server goes down, it >> will come back up but your application won't. The better way is not to >> use Access for the app. >> >> When you say the app is going to "export some files", what do you mean? >> Are these files created by the app or by some other application, with >> the desired program just checking for the existence of files and then >> moving them somewhere? >> >> 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, August 10, 2006 9:09 AM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Trigger code every day >> >> Dear List: >> >> A client needs to run a program every day at the same time to export >> some files. I'm thinking that I use the OnTimer event with some timer >> interval (like 5 minutes) and check the clock to see if it's time to do >> the export. This app will run all the time in the background and reside >> probably on their server. Is this going to suck up a lot of server >> cycles? Is there a better way to do this? >> >> MTIA >> >> 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 > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.1.405 / Virus Database: 268.10.9/416 - Release Date: 10.08.2006 > > From jimdettman at earthlink.net Fri Aug 11 07:25:17 2006 From: jimdettman at earthlink.net (Jim Dettman) Date: Fri, 11 Aug 2006 08:25:17 -0400 Subject: [AccessD] Trigger code every day In-Reply-To: <44DBC4E5.4050302@san.rr.com> Message-ID: Rocky, I'd use the windows scheduler, passing in command line switches if the app needs to carry out different functions. It's simple enough and easy to fix if something doesn't work right. Plus, just about every flavor of Windows has some type of scheduler available. I have done things the other way too, which is to use an app that is continually open and checks for events (it was a poller for time clocks). Basically, I ended up building my own scheduler in Access as I had a multitude of different events (sync the clocks, back them up, download time clock data, set the date/time, etc). It worked well and I avoided the overhead of starting /stopping Access every time something needed to be done, but everything was wrapped up in the app. It was something that was not easy for a end user to control. Also, starting/stopping can work in your favor, especially if you trip over Access bugs. Memory leaks, etc are not a problem because you always start with a clean slate each time. One problem with the task scheduler approach; the thing is not too smart about starting the same app multiple times. For example, if your passing in command line arguments and hence have the same app defined across multiple schedules (you have multiple task entries), it can get fired off multiple times. To get around this, I wrote some code based on some work I did with VFP that generates a mutex resource lock as a semaphore flag. The app fires up, checks if another instance is running and if so, aborts. Handy for lots of things. I also use it for apps where I want the user to only be allowed one instance of an app per station. If they attempt to fire up a second copy, I tell them that they are already running and copy, and switch focus to it. I'm willing to share that with the list if anyone wants it. I've got a small sample of the poller code as well, but it's not as polished as the semaphore stuff. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 10, 2006 7:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Trigger code every day The app creates the files. The app is actually my E-Z-MRP system and the third party is a company called Healex which makes a product called Nocturne. On a regular basis, in this case daily, the client exports files (from whatever manufacturing management system they're using, in this case mine) containing their parts, inventory, purchase orders, unmet demands, transactions, supplier info, etc. and the Nocturne program picks the data off of their server and passes it out to the suppliers who get daily updates on what their customer needs in the way of raw materials. It's a supply chain management thing. And generally it's used by really big companies. This outfit in Shanghai is real small - small enough for E-Z-MRP, but their only customer is Phillips - who uses Nocturne themselves. So Phillips insisted that this little company, a captive supplier, use Nocturne as well. So I wrote a routine inside E-Z-MRP to create these csv files for Nocturne and they could trigger the export whenever they wanted. But of course, once they saw how it worked, next thing they wanted was for it to be automated to run every day so they wouldn't have to remember to do it. So there's more than you probably wanted to know. Rocky Charlotte Foust wrote: > The answer is "it depends." We created a couple of products that run > like this. The big gotcha is that it doesn't run as a service, and it > really isn't a good idea to install Access on a server. Yes, it sucks > up cycles, not to mention the fact that when the server goes down, it > will come back up but your application won't. The better way is not to > use Access for the app. > > When you say the app is going to "export some files", what do you mean? > Are these files created by the app or by some other application, with > the desired program just checking for the existence of files and then > moving them somewhere? > > 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, August 10, 2006 9:09 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] Trigger code every day > > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 markamatte at hotmail.com Fri Aug 11 09:42:11 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 11 Aug 2006 14:42:11 +0000 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: <001201c6bcd1$25b4caf0$0301a8c0@SUSANONE> Message-ID: Sorry...Here's an example: NAME COUNT Bob 23 Bob 14 Mary 10 Mary 40 Each name has a footer that has Sum(count)...What is the easiest way to sort on this sum in the footer...so Mary's group would be listed first if sorting descending? Thanks, Mark >From: "Susan Harkins" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] Sort By Sum on Footer >Date: Thu, 10 Aug 2006 19:03:09 -0400 > >So, you're sorting pages? > >Susan H. > >Other than creating a query that gets the sum and join it to the query I'm >using as a recordsource...Is there a way to sort by the sum on a footer in >a >report...sorting/grouping doesn't seem to like the idea...any ideas? > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From ssharkins at setel.com Fri Aug 11 10:56:21 2006 From: ssharkins at setel.com (Susan Harkins) Date: Fri, 11 Aug 2006 11:56:21 -0400 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: Message-ID: <003301c6bd5e$b0bd2880$0301a8c0@SUSANONE> Frankly, I think I'd just build an invisible group. Susan H. Sorry...Here's an example: NAME COUNT Bob 23 Bob 14 Mary 10 Mary 40 Each name has a footer that has Sum(count)...What is the easiest way to sort on this sum in the footer...so Mary's group would be listed first if sorting descending? From markamatte at hotmail.com Fri Aug 11 11:07:43 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 11 Aug 2006 16:07:43 +0000 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: <003301c6bd5e$b0bd2880$0301a8c0@SUSANONE> Message-ID: Thanks Susan...but I'm not sure I follow what you mean by 'invisible group'. I still need to display the count values for each group...just need to sort on the sum of the counts for each group. Thanks, Mark >From: "Susan Harkins" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] Sort By Sum on Footer >Date: Fri, 11 Aug 2006 11:56:21 -0400 > >Frankly, I think I'd just build an invisible group. > >Susan H. > >Sorry...Here's an example: >NAME COUNT >Bob 23 >Bob 14 >Mary 10 >Mary 40 > > >Each name has a footer that has Sum(count)...What is the easiest way to >sort >on this sum in the footer...so Mary's group would be listed first if >sorting >descending? > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From ssharkins at setel.com Fri Aug 11 11:16:37 2006 From: ssharkins at setel.com (Susan Harkins) Date: Fri, 11 Aug 2006 12:16:37 -0400 Subject: [AccessD] Sort By Sum on Footer In-Reply-To: Message-ID: <000301c6bd61$859fd640$0301a8c0@SUSANONE> I don't know itf it would work or not -- but I think I'd try to add a group with just the sum function, make it invisible and sort by that -- but still display the footer sum too -- I just haven't tried it so I don't know that it would work. Susan H. Thanks Susan...but I'm not sure I follow what you mean by 'invisible group'. I still need to display the count values for each group...just need to sort on the sum of the counts for each group. From prodevmg at yahoo.com Fri Aug 11 16:00:56 2006 From: prodevmg at yahoo.com (Lonnie Johnson) Date: Fri, 11 Aug 2006 14:00:56 -0700 (PDT) Subject: [AccessD] OT: VBA Skills in Excel Message-ID: <20060811210056.96525.qmail@web33108.mail.mud.yahoo.com> Does anyone have super Excel Developer skills? I have a small job for someone if interested. You can mail me off list at prodevmg at yahoo.com Lonnie May God bless you beyond your imagination! Lonnie Johnson ProDev, Professional Development of MS Access Databases Visit me at ==> http://www.prodev.us --------------------------------- Stay in the know. Pulse on the new Yahoo.com. Check it out. From martyconnelly at shaw.ca Sun Aug 13 10:45:01 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sun, 13 Aug 2006 08:45:01 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44DA029A.5090205@san.rr.com> References: <0J3Q00NWLLM92ZI0@l-daemon> <44DA029A.5090205@san.rr.com> Message-ID: <44DF48FD.5070107@shaw.ca> Yup I live in Victoria. If anyone is interested as to why it is a .exe file. These are usually called ActiveX exe's. I have seen them used for such things as running a background process, where you hand the request off to another machine across the network, to improve speed Say you have a 1000 user online game, in order not to slow down the game an activeX exe handles the logon with database verification on another machine. Rocky Smolin - Beach Access Software wrote: >Cool. Send me your phone number off-line and I'll give you a call if we >go. I thought Marty lived there as well. No? > >Rocky > > >Jim Lawrence wrote: > > >>Hi Rocky: >> >>If you ever make it over to Victoria you can look me up.... >> >>Jim >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>Beach Access Software >>Sent: Wednesday, August 09, 2006 6:20 AM >>To: Access Developers discussion and problem solving >>Subject: Re: [AccessD] Removing a missing reference >> >>You know I gotta admit I haven't studied a map yet. I know we'll be in >>Vancouver most of the time but we plan to take the ferry to Victoria one >>day. That's Vancouver Island, yes? Whereabouts does she live? >> >>Rocky >> >> >>Martin Reid wrote: >> >> >> >>>Rocky >>> >>>Tricias sister is living in Vancouver island. WIll you be over there? >>> >>>Martin >>> >>>Martin WP Reid >>>Training and Assessment Unit >>>Riddle Hall >>>Belfast >>> >>>tel: 02890 974477 >>> >>> >>>________________________________ >>> >>>From: accessd-bounces at databaseadvisors.com on behalf of Rocky Smolin - >>> >>> >>> >>Beach Access Software >> >> >> >>>Sent: Wed 09/08/2006 04:39 >>>To: Access Developers discussion and problem solving >>>Subject: Re: [AccessD] Removing a missing reference >>> >>> >>> >>>I'll be damned. Who knew? >>> >>>When all else fails, read the manual? >>> >>>I owe you a beer or maybe two. Or three. (I owe Shamil a gallon of >>>Vodka as well). Might be able to pay off the debt as well next week. >>>We're in Vancouver for the week. And are planning a day trip to >>>Victoria. Maybe we can say hello. >>> >>>Best, >>> >>>Rocky >>> >>> >>> >>>MartyConnelly wrote: >>> >>> >>> >>> >>>>All the docs on the calls are in C:\Program >>>>Files\Seagull\BarTender\7.74\Automation.chm >>>>The VB.Net code is almost same as VBA except instantiation. >>>> >>>>This runs and prints >>>> >>>>Sub testbar() >>>>'Declaring a BarTender application variable >>>>Dim btApp As Object >>>>'Declaring a format variable >>>>Dim btFormat As Object >>>>'Instantiating the BarTender object >>>>Set btApp = CreateObject("BarTender.Application") >>>>'Setting the BarTender Application Visible >>>>btApp.Visible = True >>>>'Setting the BarTender format to open >>>>'the .btw template file might have to be previously saved from Bartender >>>>Set btFormat = btApp.Formats.Open("c:\temp\Format1.btw", False, "") >>>>'Printing the label format >>>>Dim lRet As Long >>>>lRet = btFormat.PrintOut(True, True) >>>>'Ending the BarTender process >>>>btApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) >>>>End Sub >>>> >>>> >>>> >>>>Rocky Smolin - Beach Access Software wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>>>Shamil: >>>>> >>>>>I tried using late binding which would work real well but partway into >>>>>the code I got an error. On the statement: >>>>> >>>>> Set BtFormat = BtApp.Formats.Open(Me.fldFABLabelFile) >>>>> >>>>>I get an 'argument not optional' error - don't know why. But the >>>>>reference is to the Bartender.exe, if that makes any difference. Using >>>>>early binding, this code works well. >>>>> >>>>>To change from early to late binding I changed >>>>> >>>>>Public BtApp As BarTender.Application >>>>>Public BtFormat As BarTender.Format >>>>> >>>>>to >>>>> >>>>>Public BtApp As Object 'BarTender.Application >>>>>Public BtFormat As Variant 'BarTender.Format >>>>> >>>>>and then in the load event: >>>>> >>>>>Set BtApp = CreateObject("BarTender.Application") >>>>> >>>>>There is no object model for Bartender so I don't know what it is >>>>>expecting for BtFormat. >>>>> >>>>>But late binding would solve the problem. >>>>> >>>>>Any ideas? >>>>> >>>>>If I want to try your other solution I'll have some questions. It's a >>>>>bit past my capabilities. >>>>> >>>>>Thanks and regards, >>>>> >>>>>Rocky >>>>> >>>>> >>>>>Shamil Salakhetdinov wrote: >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>>Rocky, >>>>>> >>>>>>I still think the easiest and the most reliable solution for your case >>>>>> >>>>>> >>>>>> >>is to >> >> >> >>>>>>use late binding. Did I miss something in this thread - why it didn't >>>>>> >>>>>> >>>>>> >>work >> >> >> >>>>>>for you? >>>>>> >>>>>>If you decide to not use late binding and if remove reference doesn't >>>>>> >>>>>> >>>>>> >>work >> >> >> >>>>>>for you - then you can use Add Reference (anyway your intention to use >>>>>>Remove Reference forces your FE to loose its compiled state as well as >>>>>> >>>>>> >>>>>> >>Add >> >> >> >>>>>>Reference does). >>>>>> >>>>>>I mean the following: >>>>>> >>>>>>- put all your bar code printing code into a separate library/utility >>>>>>database, set reference to bar code printing library in this database; >>>>>> >>>>>>- in your FE keep the code to check is it possible to create bar code >>>>>>printing object or not; >>>>>> >>>>>>- if it's possible to create bar code printing object then add >>>>>> >>>>>> >>>>>> >>reference to >> >> >> >>>>>>its library (code to add reference MUST BE kept in another library >>>>>> >>>>>> >>>>>> >>database >> >> >> >>>>>>- if executed in FE such will force FEs global vars to loose their >>>>>> >>>>>> >>>>>> >>values); >> >> >> >>>>>>Etc. >>>>>> >>>>>>This above is a flexible solution but its above description isn't a >>>>>> >>>>>> >>>>>> >>full >> >> >> >>>>>>story - in this case if your FE uses global variables then you have to >>>>>>create another "proxy" FE to keep start-up code, (dynamic) references, >>>>>>commandbars... and use your current FE as a library database - then >>>>>>CurrentDb if you use it becomes a problem etc. >>>>>> >>>>>>This above technique works very well - it was used in real life apps >>>>>> >>>>>> >>>>>> >>here >> >> >> >>>>>>and there back to the years 1998-2000 but program databases and their >>>>>> >>>>>> >>>>>> >>code >> >> >> >>>>>>should be refactored to be used within this technique.... >>>>>> >>>>>>It's very shortly described here - "A method to modularize MS Access >>>>>>applications" - http://smsconsulting.spb.ru/shamil_s/downloads.htm >>>>>> >>>>>>But applying it for your case looks like using "cannons to shoot at >>>>>>nightingales" - why not use simple and effective late binding? >>>>>> >>>>>>-- >>>>>>Shamil >>>>>> >>>>>>-----Original Message----- >>>>>>From: accessd-bounces at databaseadvisors.com >>>>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin >>>>>> >>>>>> >>>>>> >>- >> >> >> >>>>>>Beach Access Software >>>>>>Sent: Tuesday, August 08, 2006 11:45 PM >>>>>>To: Access Developers discussion and problem solving >>>>>>Subject: Re: [AccessD] Removing a missing reference >>>>>> >>>>>>Marty: >>>>>> >>>>>>Access.References.Remove refCurr still generates error: -2147319779 - >>>>>> >>>>>> >>>>>> >>Object >> >> >> >>>>>>library not registered. >>>>>> >>>>>>Rocky >>>>>> >>>>>> -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Sun Aug 13 15:26:15 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 13 Aug 2006 16:26:15 -0400 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office><44DBFE50.9070508@san.rr.com> <002001c6bd00$7078c350$6501a8c0@office> Message-ID: <01eb01c6bf16$ba6ba3c0$153ce944@50NM721> http://www.lebans.com/tabcolors.htm ...when you're lost and all alone and no one seems to know the way ...Steve has been there, done that, and is just waiting for you to visit :) William ----- Original Message ----- From: "Kath Pelletti" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2006 12:41 AM Subject: Re: [AccessD] code for font color on tab > So you set the style of the tab control to none and then put command > buttons on the background form? I'll do that too - if I can't find a code > option - > but surely there's a way? > > Kath > ----- Original Message ----- > From: Rocky Smolin - Beach Access Software > To: Access Developers discussion and problem solving > Sent: Friday, August 11, 2006 1:49 PM > Subject: Re: [AccessD] code for font color on tab > > > Kath: > > After struggling with issues around the tab labels I ended up > eliminating the tab labels and using command buttons positioned over the > tab form to look like tab labels. Then I could do with them whatever > could be done with a command button including changing the fore color > and disabling them. > > Rocky > > > Kath Pelletti wrote: > > Does anyone know how to change the colour of the font on the tab > caption in code? > > > > What I am trying to achieve is that in the tab's 'On change' event, > depending on the value in one of the fields, I want certain other tabs to > appear greyed out (not enabled) > > > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = > False, but the text on the tab caption itself stays normal - I would like > it to look grey like to controls on it do. > > > > TIA > > > > ______________________________________ > > Kath Pelletti > > Software Design and Solutions Pty Ltd. > > Ph: 9505-6714 > > Fax: 9505-6430 > > Email: KP at SDSOnline.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 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From wdhindman at dejpolsystems.com Sun Aug 13 17:06:43 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 13 Aug 2006 18:06:43 -0400 Subject: [AccessD] Trigger code every day References: <44DB5A32.8040104@san.rr.com> Message-ID: <000d01c6bf24$c446cce0$153ce944@50NM721> Rocky ...I have a pretty simple program that does this that's been in production service since 2000 for a client ...it runs as a separate fe app on a dedicated work station and links to your be tables ...I can post a copy for dl if you'd like. ...but if I were doing it today from scratch I'd take a hard look at using FMS's Total Access Agent which will run as an NT Service and execute your exports in the background without other users even being aware anything is happening ...the advantages of such a program running as a service are significant but in short, it automatically restarts with every reboot and does not have the user or security vulnerabilities/problems that the Task Scheduler has, imnsho ...hth. William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 12:09 PM Subject: [AccessD] Trigger code every day > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 kp at sdsonline.net Sun Aug 13 19:54:47 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Mon, 14 Aug 2006 10:54:47 +1000 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office><44DBFE50.9070508@san.rr.com><002001c6bd00$7078c350$6501a8c0@office> <01eb01c6bf16$ba6ba3c0$153ce944@50NM721> Message-ID: <002a01c6bf3c$3e644720$6501a8c0@office> thanks William........that one takes a bit of digesting, doesn't it? Kath ----- Original Message ----- From: William Hindman To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 6:26 AM Subject: Re: [AccessD] code for font color on tab http://www.lebans.com/tabcolors.htm ...when you're lost and all alone and no one seems to know the way ...Steve has been there, done that, and is just waiting for you to visit :) William ----- Original Message ----- From: "Kath Pelletti" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2006 12:41 AM Subject: Re: [AccessD] code for font color on tab > So you set the style of the tab control to none and then put command > buttons on the background form? I'll do that too - if I can't find a code > option - > but surely there's a way? > > Kath > ----- Original Message ----- > From: Rocky Smolin - Beach Access Software > To: Access Developers discussion and problem solving > Sent: Friday, August 11, 2006 1:49 PM > Subject: Re: [AccessD] code for font color on tab > > > Kath: > > After struggling with issues around the tab labels I ended up > eliminating the tab labels and using command buttons positioned over the > tab form to look like tab labels. Then I could do with them whatever > could be done with a command button including changing the fore color > and disabling them. > > Rocky > > > Kath Pelletti wrote: > > Does anyone know how to change the colour of the font on the tab > caption in code? > > > > What I am trying to achieve is that in the tab's 'On change' event, > depending on the value in one of the fields, I want certain other tabs to > appear greyed out (not enabled) > > > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = > False, but the text on the tab caption itself stays normal - I would like > it to look grey like to controls on it do. > > > > TIA > > > > ______________________________________ > > Kath Pelletti > > Software Design and Solutions Pty Ltd. > > Ph: 9505-6714 > > Fax: 9505-6430 > > Email: KP at SDSOnline.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 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 dejpolsystems.com Sun Aug 13 20:34:15 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 13 Aug 2006 21:34:15 -0400 Subject: [AccessD] code for font color on tab References: <002301c6bcf5$0398e900$6501a8c0@office><44DBFE50.9070508@san.rr.com><002001c6bd00$7078c350$6501a8c0@office><01eb01c6bf16$ba6ba3c0$153ce944@50NM721> <002a01c6bf3c$3e644720$6501a8c0@office> Message-ID: <000901c6bf41$c1cd6240$153ce944@50NM721> ...he is a step beyond the average Access developer ...but his stuff works ...not always the simplest solutions but he does his homework ...over the years I've incorporated a number of his solutions in my templates ...along with those of Dev, Nyberg, Browne, and JC among others ...and if you need help digesting them, Leban's a regular in the Microsoft.public.access groups and a number of other users will help as well there on his code ...or you can ask here and if you're specific enough, someone will always tackle it. ...of course then there are always the 3rd party tab controls available :) William ----- Original Message ----- From: "Kath Pelletti" To: "Access Developers discussion and problem solving" Sent: Sunday, August 13, 2006 8:54 PM Subject: Re: [AccessD] code for font color on tab > thanks William........that one takes a bit of digesting, doesn't it? > > Kath > ----- Original Message ----- > From: William Hindman > To: Access Developers discussion and problem solving > Sent: Monday, August 14, 2006 6:26 AM > Subject: Re: [AccessD] code for font color on tab > > > http://www.lebans.com/tabcolors.htm > ...when you're lost and all alone and no one seems to know the way > ...Steve > has been there, done that, and is just waiting for you to visit :) > > William > > ----- Original Message ----- > From: "Kath Pelletti" > To: "Access Developers discussion and problem solving" > > Sent: Friday, August 11, 2006 12:41 AM > Subject: Re: [AccessD] code for font color on tab > > > > So you set the style of the tab control to none and then put command > > buttons on the background form? I'll do that too - if I can't find a > code > > option - > > but surely there's a way? > > > > Kath > > ----- Original Message ----- > > From: Rocky Smolin - Beach Access Software > > To: Access Developers discussion and problem solving > > Sent: Friday, August 11, 2006 1:49 PM > > Subject: Re: [AccessD] code for font color on tab > > > > > > Kath: > > > > After struggling with issues around the tab labels I ended up > > eliminating the tab labels and using command buttons positioned over > the > > tab form to look like tab labels. Then I could do with them whatever > > could be done with a command button including changing the fore color > > and disabling them. > > > > Rocky > > > > > > Kath Pelletti wrote: > > > Does anyone know how to change the colour of the font on the tab > > caption in code? > > > > > > What I am trying to achieve is that in the tab's 'On change' event, > > depending on the value in one of the fields, I want certain other tabs > to > > appear greyed out (not enabled) > > > > > > I can set the page to be not enabled using Me.PageCtlCM.Enabled = > > False, but the text on the tab caption itself stays normal - I would > like > > it to look grey like to controls on it do. > > > > > > TIA > > > > > > ______________________________________ > > > Kath Pelletti > > > Software Design and Solutions Pty Ltd. > > > Ph: 9505-6714 > > > Fax: 9505-6430 > > > Email: KP at SDSOnline.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 > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From kp at sdsonline.net Sun Aug 13 21:14:24 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Mon, 14 Aug 2006 12:14:24 +1000 Subject: [AccessD] code for font color on tab Message-ID: <000801c6bf47$5d2a6300$6501a8c0@office> ...he is a step beyond the average Access developer ...but his stuff works ...not always the simplest solutions but he does his homework ...over the years I've incorporated a number of his solutions in my templates ...along with those of Dev, Nyberg, Browne, and JC among others ...and if you need help digesting them, Leban's a regular in the Microsoft.public.access groups and a number of other users will help as well there on his code ...or you can ask here and if you're specific enough, someone will always tackle it....of course then there are always the 3rd party tab controls available :) William ______________________________________ Kath Pelletti Software Design and Solutions Pty Ltd. Ph: 9505-6714 Fax: 9505-6430 Email: KP at SDSOnline.net From kp at sdsonline.net Sun Aug 13 21:16:12 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Mon, 14 Aug 2006 12:16:12 +1000 Subject: [AccessD] code for font color on tab Message-ID: <001101c6bf47$9d470ba0$6501a8c0@office> Thanks - :) Kath -------------------------------------------------------------------------------- ..he is a step beyond the average Access developer ...but his stuff works ...not always the simplest solutions but he does his homework ...over the years I've incorporated a number of his solutions in my templates ...along with those of Dev, Nyberg, Browne, and JC among others ...and if you need help digesting them, Leban's a regular in the Microsoft.public.access groups and a number of other users will help as well there on his code ...or you can ask here and if you're specific enough, someone will always tackle it. ...of course then there are always the 3rd party tab controls available :) William From cfoust at infostatsystems.com Mon Aug 14 10:29:10 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 14 Aug 2006 08:29:10 -0700 Subject: [AccessD] Removing a missing reference In-Reply-To: <44D8E9BF.7030709@san.rr.com> Message-ID: Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky MartyConnelly wrote: > Grr, I am always mixing up Reference and References collection Could > try disambiguating the code like this > > Dim refCurr As Access.Reference > Dim intCount As Integer > > > For intCount = Access.References.Count To 1 Step -1 > Set refCurr = Access.References(intCount) > If Not refCurr.BuiltIn Then > If refCurr.IsBroken Then > 'might want to check if it has a valid name otherwise skip > 'or use on error next > ' debug.print refCurr.name > > Access.References.Remove refCurr > End If > End If > Next > > > > Rocky Smolin - Beach Access Software wrote: > > >> P.S. This reference, when it's there, references a .exe. Don't know >> if that makes any difference. >> >> Rocky >> >> >> Gustav Brock wrote: >> >> >> >>> Hi Rocky >>> >>> Further to Charlotte's comments, I faintly recall you have to move backwards in the References collection: >>> >>> Public Function ReferencesClean() As Boolean >>> >>> ' Remove all missing references. >>> ' Return True if no reference was removed. >>> ' >>> ' 2001-08-20. Cactus Data ApS, CPH. >>> >>> Dim ref As Reference >>> Dim lngItem As Long >>> Dim booMissing As Boolean >>> >>> With References >>> For lngItem = .Count To 1 Step -1 >>> Set ref = .Item(lngItem) >>> If ref.BuiltIn = True Then >>> ' No need to check built in reference. >>> ElseIf IsBroken97(ref) Then >>> .Remove ref >>> booMissing = True >>> End If >>> Next >>> End With >>> >>> Set ref = Nothing >>> >>> ReferencesClean = Not booMissing >>> >>> End Function >>> >>> Still, your code will be left non-compiled after this. A method to compile the code is described by Charlotte and me if you search the archives of July 2003 for: >>> "Broken References in Runtime AXP and A97" >>> >>> /gustav >>> >>> >>> >>> >>> >>>>>> bchacc at san.rr.com 08-08-2006 19:46:07 >>> >>>>>> >>>>>> >>>>>> >>>>>> >>> Dear List: >>> >>> Still struggling with this references thing. It seem the easiest >>> thing to do would be to remove the missing reference in the Open >>> event of the opening form in the event the app is loaded onto a >>> machine which doesn't have the library. However, all the code that >>> I've seen to remove missing references fail. Code like: >>> >>> Dim refCurr As Reference >>> For Each refCurr In References >>> If refCurr.IsBroken Then >>> References.Remove refCurr >>> End If >>> Next >>> >>> Seems straightforward but when it comes to the missing reference it >>> errors out on the .Remove line because it doesn't have a name. So. >>> How do you remove a missing reference when the application the >>> reference is referring to doesn't exist? >>> >>> MTIA >>> >>> 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 Mon Aug 14 10:39:21 2006 From: bchacc at san.rr.com (bchacc at san.rr.com) Date: Mon, 14 Aug 2006 11:39:21 -0400 Subject: [AccessD] Trigger code every day Message-ID: <380-220068114153921671@M2W029.mail2web.com> I'm going to hold your marker on that William. So far, Widnows Scheduler seems to be in the lead and it's one less thing I'll have to support in Shanghai. I'm in Vancouver for the week anyway and won't really be looking at this again untilo I get back. Thanks. Rocky Original Message: ----------------- From: William Hindman wdhindman at dejpolsystems.com Date: Sun, 13 Aug 2006 18:06:43 -0400 To: accessd at databaseadvisors.com Subject: Re: [AccessD] Trigger code every day Rocky ...I have a pretty simple program that does this that's been in production service since 2000 for a client ...it runs as a separate fe app on a dedicated work station and links to your be tables ...I can post a copy for dl if you'd like. ...but if I were doing it today from scratch I'd take a hard look at using FMS's Total Access Agent which will run as an NT Service and execute your exports in the background without other users even being aware anything is happening ...the advantages of such a program running as a service are significant but in short, it automatically restarts with every reboot and does not have the user or security vulnerabilities/problems that the Task Scheduler has, imnsho ...hth. William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 10, 2006 12:09 PM Subject: [AccessD] Trigger code every day > Dear List: > > A client needs to run a program every day at the same time to export > some files. I'm thinking that I use the OnTimer event with some timer > interval (like 5 minutes) and check the clock to see if it's time to do > the export. This app will run all the time in the background and reside > probably on their server. Is this going to suck up a lot of server > cycles? Is there a better way to do this? > > MTIA > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -------------------------------------------------------------------- mail2web - Check your email from the web at http://mail2web.com/ . From tinanfields at torchlake.com Mon Aug 14 12:44:49 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 13:44:49 -0400 Subject: [AccessD] Background color on a tab control Message-ID: <44E0B691.6020601@torchlake.com> How can one set the background color on a tab control? I have a form with a tab control with four pages that is not the same color as the form's detail section. I haven't looked at this form for a while, but my recollection is that the form detail section and the tab control were the same color - now they are not - and I do not find an appropriate property for changing the tab control's background color. What am I missing here? TIA for any help, Tina From Lambert.Heenan at AIG.com Mon Aug 14 13:13:57 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Mon, 14 Aug 2006 14:13:57 -0400 Subject: [AccessD] Background color on a tab control Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> Well the simplest thing to do would be to set the tab control's Back Style to Transparent. Then you will see the containing form's background through the tab control. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: Monday, August 14, 2006 1:45 PM To: DatabaseAdvisors-Access Subject: [AccessD] Background color on a tab control How can one set the background color on a tab control? I have a form with a tab control with four pages that is not the same color as the form's detail section. I haven't looked at this form for a while, but my recollection is that the form detail section and the tab control were the same color - now they are not - and I do not find an appropriate property for changing the tab control's background color. What am I missing here? TIA for any help, Tina -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From tinanfields at torchlake.com Mon Aug 14 14:21:13 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 15:21:13 -0400 Subject: [AccessD] Background color on a tab control In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> Message-ID: <44E0CD29.8040401@torchlake.com> I did try that, without success. Something seems to be wrong with this form - I just opened an older version of the database and found the form and its tab control to be the same color. So, uh-oh, do I have a corrupted form here? How would I be sure? Tina Heenan, Lambert wrote: > Well the simplest thing to do would be to set the tab control's Back Style > to Transparent. Then you will see the containing form's background through > the tab control. > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris > Fields > Sent: Monday, August 14, 2006 1:45 PM > To: DatabaseAdvisors-Access > Subject: [AccessD] Background color on a tab control > > > How can one set the background color on a tab control? I have a form > with a tab control with four pages that is not the same color as the > form's detail section. I haven't looked at this form for a while, but > my recollection is that the form detail section and the tab control were > the same color - now they are not - and I do not find an appropriate > property for changing the tab control's background color. What am I > missing here? > TIA for any help, > Tina > From andy at minstersystems.co.uk Mon Aug 14 15:05:34 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Mon, 14 Aug 2006 21:05:34 +0100 Subject: [AccessD] Background color on a tab control In-Reply-To: <44E0CD29.8040401@torchlake.com> Message-ID: <001701c6bfdd$00f7b830$53e30651@minster33c3r25> In A97 I think all tabs are light grey regardless. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Tina Norris Fields > Sent: 14 August 2006 20:21 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Background color on a tab control > > > I did try that, without success. Something seems to be wrong > with this > form - I just opened an older version of the database and > found the form > and its tab control to be the same color. So, uh-oh, do I have a > corrupted form here? How would I be sure? > Tina > > Heenan, Lambert wrote: > > Well the simplest thing to do would be to set the tab > control's Back > > Style to Transparent. Then you will see the containing form's > > background through the tab control. > > > > Lambert > > > > -----Original Message----- > > From: accessd-bounces at databaseadvisors.com > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Tina Norris > > Fields > > Sent: Monday, August 14, 2006 1:45 PM > > To: DatabaseAdvisors-Access > > Subject: [AccessD] Background color on a tab control > > > > > > How can one set the background color on a tab control? I > have a form > > with a tab control with four pages that is not the same > color as the > > form's detail section. I haven't looked at this form for a > while, but > > my recollection is that the form detail section and the tab > control were > > the same color - now they are not - and I do not find an > appropriate > > property for changing the tab control's background color. > What am I > > missing here? > > TIA for any help, > > Tina > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From martyconnelly at shaw.ca Mon Aug 14 15:13:31 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 14 Aug 2006 13:13:31 -0700 Subject: [AccessD] Access and Vista In-Reply-To: <380-220068114153921671@M2W029.mail2web.com> References: <380-220068114153921671@M2W029.mail2web.com> Message-ID: <44E0D96B.9090903@shaw.ca> Just came across this for those of you planning down the road . Yes it's true: MSDE 1.0 and 2000 will not be supported on Windows Vista http://blogs.msdn.com/sqlexpress/default.aspx What about Access 2003? Access 2003 already supports using SQL Express, no patching required. There are a couple known issues when paring these two products: ? The SQL designers in Access 2003 do not work against SQL 2005. This is true for Access, Visual Studio 2003 and any other product that uses the VS designers from the 2003 product line. You can still use the text based designers in Access 2003 or you can use Management Studio Express, which can be downloaded free of charge from the download link above. ? Access 2003 does not understand the new User-Schema separation implemented in SQL Server 2005. Databases migrated from SQL Server 2000 to SQL Server 2005 will still work as expected. You should have no problems working with new database in SQL Server 2005 as long as you don't use User-Schema separation. ? Access 2003 doesn't know about the new SQL Server 2005 data types. In my experience, the new types are shown as Memo when part of a Linked Table Access 2007 has been updated to address these issues. -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Mon Aug 14 15:22:56 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 14 Aug 2006 16:22:56 -0400 Subject: [AccessD] Background color on a tab control References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com> Message-ID: <000901c6bfdf$6ea272b0$153ce944@50NM721> ...is the newer one in A2003 format with themed controls turned on? William ----- Original Message ----- From: "Tina Norris Fields" To: "Access Developers discussion and problem solving" Sent: Monday, August 14, 2006 3:21 PM Subject: Re: [AccessD] Background color on a tab control >I did try that, without success. Something seems to be wrong with this > form - I just opened an older version of the database and found the form > and its tab control to be the same color. So, uh-oh, do I have a > corrupted form here? How would I be sure? > Tina > > Heenan, Lambert wrote: >> Well the simplest thing to do would be to set the tab control's Back >> Style >> to Transparent. Then you will see the containing form's background >> through >> the tab control. >> >> Lambert >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris >> Fields >> Sent: Monday, August 14, 2006 1:45 PM >> To: DatabaseAdvisors-Access >> Subject: [AccessD] Background color on a tab control >> >> >> How can one set the background color on a tab control? I have a form >> with a tab control with four pages that is not the same color as the >> form's detail section. I haven't looked at this form for a while, but >> my recollection is that the form detail section and the tab control were >> the same color - now they are not - and I do not find an appropriate >> property for changing the tab control's background color. What am I >> missing here? >> TIA for any help, >> Tina >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From tinanfields at torchlake.com Mon Aug 14 15:37:25 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 16:37:25 -0400 Subject: [AccessD] Background color on a tab control In-Reply-To: <001701c6bfdd$00f7b830$53e30651@minster33c3r25> References: <001701c6bfdd$00f7b830$53e30651@minster33c3r25> Message-ID: <44E0DF05.1020903@torchlake.com> Hi Andy, This is a database in A2K format. The organization uses a grey and purple basic color combination, with some things in green. The form is a student information form with grey detail section and a purple header. The tab control was grey - just by being placed on the form. Its background is set to transparent, and in the earlier versions of this database that I went back to check on, the tab control is grey, just like the form, just as it is supposed to be. In the newest version, all of a sudden, my tab control is white. I don't know why. When I tried to fix it by deleting this form and importing the same form from an earlier version, the newly-imported form had the same problem - the tab control is white, not grey. I've compacted and recompiled. The tab control stays white. Something is wrong here and I don't know what it is. I've tried creating a new blank database and importing everything into it - that didn't help. I'm not looking forward to importing objects one by one to see who is messing up my tab control, but it's starting to look as though I will have to. I do the development work on my box, make a patch database with the new or modified objects, then import those changes into the database onsite. The last time I did that, we made some further changes to the onsite database, which I put into a patch database to bring back to my own box. It seems that the problem arose when I imported those changes into my database. They are using Win2K Pro and I am using WinXP Pro. They are using A2K and I am using A2K3. The database format is A2K. I have been able to update the onsite database with my patches with no problem. Is there a problem I should have known about in importing patches back from their copy of the database? Thanks, Tina Andy Lacey wrote: > In A97 I think all tabs are light grey regardless. > > -- Andy Lacey > http://www.minstersystems.co.uk > > >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >> Tina Norris Fields >> Sent: 14 August 2006 20:21 >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Background color on a tab control >> >> >> I did try that, without success. Something seems to be wrong >> with this >> form - I just opened an older version of the database and >> found the form >> and its tab control to be the same color. So, uh-oh, do I have a >> corrupted form here? How would I be sure? >> Tina >> >> Heenan, Lambert wrote: >> >>> Well the simplest thing to do would be to set the tab >>> >> control's Back >> >>> Style to Transparent. Then you will see the containing form's >>> background through the tab control. >>> >>> Lambert >>> >>> > From tinanfields at torchlake.com Mon Aug 14 15:44:45 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 14 Aug 2006 16:44:45 -0400 Subject: [AccessD] Background color on a tab control In-Reply-To: <000901c6bfdf$6ea272b0$153ce944@50NM721> References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com> <000901c6bfdf$6ea272b0$153ce944@50NM721> Message-ID: <44E0E0BD.2080602@torchlake.com> Hi William, Thank you - the database is in A2000 format, but I am working on it in A2003. I just went to check, and yes, there was a checkmark in the checkbox to use Windows themed controls on forms! I didn't even know that sucker existed! Clearing that checkmark has fixed the problem. Thanks again, Tina William Hindman wrote: > ...is the newer one in A2003 format with themed controls turned on? > > William > > ----- Original Message ----- > From: "Tina Norris Fields" > To: "Access Developers discussion and problem solving" > > Sent: Monday, August 14, 2006 3:21 PM > Subject: Re: [AccessD] Background color on a tab control > > > >> I did try that, without success. Something seems to be wrong with this >> form - I just opened an older version of the database and found the form >> and its tab control to be the same color. So, uh-oh, do I have a >> corrupted form here? How would I be sure? >> Tina >> >> > From wdhindman at dejpolsystems.com Mon Aug 14 16:12:30 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Mon, 14 Aug 2006 17:12:30 -0400 Subject: [AccessD] Background color on a tab control References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com><000901c6bfdf$6ea272b0$153ce944@50NM721> <44E0E0BD.2080602@torchlake.com> Message-ID: <000e01c6bfe6$5aad7be0$153ce944@50NM721> ...one of MS's half-hatched attempts to put some order into Access designs ...problem of course is that it doesn't work on too many controls to really use it across the board ...I've been delving into using windows system colors set by the Control Panel Display settings to do this with mixed success ...no wizard out there really does that although Feddema and v-tools make baby steps toward it ...but then you have odd ball controls like the tab that don't follow the Access color scheme to begin with and the whole house of cards comes tumbling down :( William ----- Original Message ----- From: "Tina Norris Fields" To: "Access Developers discussion and problem solving" Sent: Monday, August 14, 2006 4:44 PM Subject: Re: [AccessD] Background color on a tab control > Hi William, > > Thank you - the database is in A2000 format, but I am working on it in > A2003. I just went to check, and yes, there was a checkmark in the > checkbox to use Windows themed controls on forms! I didn't even know > that sucker existed! Clearing that checkmark has fixed the problem. > > Thanks again, > Tina > > William Hindman wrote: >> ...is the newer one in A2003 format with themed controls turned on? >> >> William >> >> ----- Original Message ----- >> From: "Tina Norris Fields" >> To: "Access Developers discussion and problem solving" >> >> Sent: Monday, August 14, 2006 3:21 PM >> Subject: Re: [AccessD] Background color on a tab control >> >> >> >>> I did try that, without success. Something seems to be wrong with this >>> form - I just opened an older version of the database and found the form >>> and its tab control to be the same color. So, uh-oh, do I have a >>> corrupted form here? How would I be sure? >>> Tina >>> >>> >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From kp at sdsonline.net Mon Aug 14 18:17:32 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Tue, 15 Aug 2006 09:17:32 +1000 Subject: [AccessD] Background color on a tab control References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com><000901c6bfdf$6ea272b0$153ce944@50NM721> <44E0E0BD.2080602@torchlake.com> Message-ID: <004401c6bff7$d290f360$6501a8c0@office> I haven't done much development in 2003 yet - but there must be some code that would allow you to turn that off in the app for distribution? Kath ----- Original Message ----- From: Tina Norris Fields To: Access Developers discussion and problem solving Sent: Tuesday, August 15, 2006 6:44 AM Subject: Re: [AccessD] Background color on a tab control Hi William, Thank you - the database is in A2000 format, but I am working on it in A2003. I just went to check, and yes, there was a checkmark in the checkbox to use Windows themed controls on forms! I didn't even know that sucker existed! Clearing that checkmark has fixed the problem. Thanks again, Tina William Hindman wrote: > ...is the newer one in A2003 format with themed controls turned on? > > William > > ----- Original Message ----- > From: "Tina Norris Fields" > To: "Access Developers discussion and problem solving" > > Sent: Monday, August 14, 2006 3:21 PM > Subject: Re: [AccessD] Background color on a tab control > > > >> I did try that, without success. Something seems to be wrong with this >> form - I just opened an older version of the database and found the form >> and its tab control to be the same color. So, uh-oh, do I have a >> corrupted form here? How would I be sure? >> Tina >> >> > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Mon Aug 14 18:26:59 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Tue, 15 Aug 2006 09:26:59 +1000 Subject: [AccessD] Form flicker - 2003 References: <1D7828CDB8350747AFE9D69E0E90DA1F2531846C@xlivmbx21.aig.com> <44E0CD29.8040401@torchlake.com><000901c6bfdf$6ea272b0$153ce944@50NM721> <44E0E0BD.2080602@torchlake.com> Message-ID: <005101c6bff9$248fe5d0$6501a8c0@office> I was looking for some code for Tina's problem and stumbled across this - I haven't had this problem but I have seen at - good to know how the workaround. http://www.everythingaccess.com/tutorials.asp?ID=Bug%3A-Flickering-tab-controls-in-Access-2003 Kath Pelletti From jwcolby at colbyconsulting.com Mon Aug 14 18:54:42 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 14 Aug 2006 19:54:42 -0400 Subject: [AccessD] Form flicker - 2003 In-Reply-To: <005101c6bff9$248fe5d0$6501a8c0@office> Message-ID: <006b01c6bffd$03c87de0$657aa8c0@m6805> It seems that this could also be solved by actually creating a text box for the label and attach the label to the text box. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti Sent: Monday, August 14, 2006 7:27 PM To: Access Developers discussion and problem solving Subject: [AccessD] Form flicker - 2003 I was looking for some code for Tina's problem and stumbled across this - I haven't had this problem but I have seen at - good to know how the workaround. http://www.everythingaccess.com/tutorials.asp?ID=Bug%3A-Flickering-tab-contr ols-in-Access-2003 Kath Pelletti -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Mon Aug 14 19:50:04 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Tue, 15 Aug 2006 10:50:04 +1000 Subject: [AccessD] Form flicker - 2003 References: <006b01c6bffd$03c87de0$657aa8c0@m6805> Message-ID: <007a01c6c004$bf8e3d10$6501a8c0@office> That's right. It is an error that I would have hit sooner or later as I often disconnect labels from text boxes so that it's easier to move them around independently. In fact if I'm working on a new form I often select a whole block of labels and cut and paste them back to get them to be independent. They would now have to be text boxes in 2003. Kath Pelletti ----- Original Message ----- From: JWColby To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 15, 2006 9:54 AM Subject: Re: [AccessD] Form flicker - 2003 It seems that this could also be solved by actually creating a text box for the label and attach the label to the text box. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti Sent: Monday, August 14, 2006 7:27 PM To: Access Developers discussion and problem solving Subject: [AccessD] Form flicker - 2003 I was looking for some code for Tina's problem and stumbled across this - I haven't had this problem but I have seen at - good to know how the workaround. http://www.everythingaccess.com/tutorials.asp?ID=Bug%3A-Flickering-tab-contr ols-in-Access-2003 Kath Pelletti -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 15 02:08:12 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Tue, 15 Aug 2006 08:08:12 +0100 Subject: [AccessD] Background color on a tab control In-Reply-To: <004401c6bff7$d290f360$6501a8c0@office> Message-ID: <000001c6c039$92249e20$52980c54@minster33c3r25> Good call William. Never having got beyond A97 I've not come across that 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 > Kath Pelletti > Sent: 15 August 2006 00:18 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Background color on a tab control > > > I haven't done much development in 2003 yet - but there must > be some code that would allow you to turn that off in the app > for distribution? > > Kath > ----- Original Message ----- > From: Tina Norris Fields > To: Access Developers discussion and problem solving > Sent: Tuesday, August 15, 2006 6:44 AM > Subject: Re: [AccessD] Background color on a tab control > > > Hi William, > > Thank you - the database is in A2000 format, but I am > working on it in > A2003. I just went to check, and yes, there was a checkmark in the > checkbox to use Windows themed controls on forms! I didn't > even know > that sucker existed! Clearing that checkmark has fixed the problem. > > Thanks again, > Tina > > William Hindman wrote: > > ...is the newer one in A2003 format with themed controls > turned on? > > > > William > > > > ----- Original Message ----- > > From: "Tina Norris Fields" > > To: "Access Developers discussion and problem solving" > > > > Sent: Monday, August 14, 2006 3:21 PM > > Subject: Re: [AccessD] Background color on a tab control > > > > > > > >> I did try that, without success. Something seems to be > wrong with this > >> form - I just opened an older version of the database > and found the form > >> and its tab control to be the same color. So, uh-oh, do I have a > >> corrupted form here? How would I be sure? > >> 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 cfoust at infostatsystems.com Tue Aug 15 09:48:43 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 15 Aug 2006 07:48:43 -0700 Subject: [AccessD] Background color on a tab control In-Reply-To: <000001c6c039$92249e20$52980c54@minster33c3r25> Message-ID: It may be a property of the control itself. It certainly is in .Net controls. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Tuesday, August 15, 2006 12:08 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Background color on a tab control Good call William. Never having got beyond A97 I've not come across that 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 Kath > Pelletti > Sent: 15 August 2006 00:18 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Background color on a tab control > > > I haven't done much development in 2003 yet - but there must be some > code that would allow you to turn that off in the app for > distribution? > > Kath > ----- Original Message ----- > From: Tina Norris Fields > To: Access Developers discussion and problem solving > Sent: Tuesday, August 15, 2006 6:44 AM > Subject: Re: [AccessD] Background color on a tab control > > > Hi William, > > Thank you - the database is in A2000 format, but I am working on it > in > A2003. I just went to check, and yes, there was a checkmark in the > checkbox to use Windows themed controls on forms! I didn't even > know > that sucker existed! Clearing that checkmark has fixed the problem. > > Thanks again, > Tina > > William Hindman wrote: > > ...is the newer one in A2003 format with themed controls turned > on? > > > > William > > > > ----- Original Message ----- > > From: "Tina Norris Fields" > > To: "Access Developers discussion and problem solving" > > > > Sent: Monday, August 14, 2006 3:21 PM > > Subject: Re: [AccessD] Background color on a tab control > > > > > > > >> I did try that, without success. Something seems to be wrong > with this > >> form - I just opened an older version of the database and found > the form > >> and its tab control to be the same color. So, uh-oh, do I have a > >> corrupted form here? How would I be sure? > >> 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 > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From tinanfields at torchlake.com Tue Aug 15 10:53:16 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 15 Aug 2006 11:53:16 -0400 Subject: [AccessD] My Iif expression isn't right Message-ID: <44E1EDEC.10605@torchlake.com> Hi all, Well, you helped me yesterday with my tab control background color issue. I've got another one to solve pronto. My client wanted three yes/no checkboxes for each student, labeled IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP evaluation had been carried out for the student and in which grade, 10, 11, or 12. At the time, I was assured this was never going to be used for sorting. Riiiiight! So, there are three separate fields in the student table. Now, we need to create a report showing all students for whom the IEP has been carried out, and - you guessed it - sort first on the IEP grade (10, 11, or 12), and then alphabetically by student name. I decided to add a computed field to my query that looks for a "Yes" in any of the three fields, and to give a value to that field based on which IEP field was "Yes" like so: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, Iif([IEP-12]="Yes", 12, ""))) The idea then, is to sort on the computed field. The query finds the records and fills in all the fields correctly except for my IEP-Sort field - there it gives me the #Error. Okay, I don't know what my error is. Please, how do I figure out my goof and fix it? I will be watching for a reply and trying to think it out at the same time. Any help appreciated. Thanks, Tina From tinanfields at torchlake.com Tue Aug 15 11:02:06 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 15 Aug 2006 12:02:06 -0400 Subject: [AccessD] My Iif expression isn't right In-Reply-To: <44E1EDEC.10605@torchlake.com> References: <44E1EDEC.10605@torchlake.com> Message-ID: <44E1EFFE.8080400@torchlake.com> Hi again, Okay, I think I've got the solution - use the -1 value instead of "Yes" for the criteria - that makes my IEP-Sort field get the number I want. But, why doesn't the other way around work? Tina Tina Norris Fields wrote: > Hi all, > > Well, you helped me yesterday with my tab control background color issue. > > I've got another one to solve pronto. > > My client wanted three yes/no checkboxes for each student, labeled > IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP > evaluation had been carried out for the student and in which grade, 10, > 11, or 12. At the time, I was assured this was never going to be used > for sorting. Riiiiight! So, there are three separate fields in the > student table. > > Now, we need to create a report showing all students for whom the IEP > has been carried out, and - you guessed it - sort first on the IEP > grade (10, 11, or 12), and then alphabetically by student name. > > I decided to add a computed field to my query that looks for a "Yes" in > any of the three fields, and to give a value to that field based on > which IEP field was "Yes" like so: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, > Iif([IEP-12]="Yes", 12, ""))) > > The idea then, is to sort on the computed field. The query finds the > records and fills in all the fields correctly except for my IEP-Sort > field - there it gives me the #Error. Okay, I don't know what my error > is. Please, how do I figure out my goof and fix it? I will be watching > for a reply and trying to think it out at the same time. Any help > appreciated. > > Thanks, > Tina > > > From Gustav at cactus.dk Tue Aug 15 11:03:18 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 15 Aug 2006 18:03:18 +0200 Subject: [AccessD] My Iif expression isn't right Message-ID: Hi Tina If checkboxes, why not just sort on the values: ORDER BY ABS([IEP-10]) DESC, ABS([IEP-11]) DESC, ABS([IEP-12]) DESC /gustav >>> tinanfields at torchlake.com 15-08-2006 17:53:16 >>> Hi all, Well, you helped me yesterday with my tab control background color issue. I've got another one to solve pronto. My client wanted three yes/no checkboxes for each student, labeled IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP evaluation had been carried out for the student and in which grade, 10, 11, or 12. At the time, I was assured this was never going to be used for sorting. Riiiiight! So, there are three separate fields in the student table. Now, we need to create a report showing all students for whom the IEP has been carried out, and - you guessed it - sort first on the IEP grade (10, 11, or 12), and then alphabetically by student name. I decided to add a computed field to my query that looks for a "Yes" in any of the three fields, and to give a value to that field based on which IEP field was "Yes" like so: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, Iif([IEP-12]="Yes", 12, ""))) The idea then, is to sort on the computed field. The query finds the records and fills in all the fields correctly except for my IEP-Sort field - there it gives me the #Error. Okay, I don't know what my error is. Please, how do I figure out my goof and fix it? I will be watching for a reply and trying to think it out at the same time. Any help appreciated. Thanks, Tina From Robin at rolledgold.net Tue Aug 15 10:49:59 2006 From: Robin at rolledgold.net (Robin ) Date: Tue, 15 Aug 2006 16:49:59 +0100 Subject: [AccessD] My Iif expression isn't right Message-ID: <560E2B80EC8F624B93A87B943B7A9CD54242D8@rgiserv.rg.local> Tina, Try taking the quotes out around True - it's not a string value.. Rgds Robin Lawrence -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: 15 August 2006 17:02 To: Access Developers discussion and problem solving Subject: Re: [AccessD] My Iif expression isn't right Hi again, Okay, I think I've got the solution - use the -1 value instead of "Yes" for the criteria - that makes my IEP-Sort field get the number I want. But, why doesn't the other way around work? Tina Tina Norris Fields wrote: > Hi all, > > Well, you helped me yesterday with my tab control background color > issue. > > I've got another one to solve pronto. > > My client wanted three yes/no checkboxes for each student, labeled > IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP > evaluation had been carried out for the student and in which grade, 10, > 11, or 12. At the time, I was assured this was never going to be used > for sorting. Riiiiight! So, there are three separate fields in the > student table. > > Now, we need to create a report showing all students for whom the IEP > has been carried out, and - you guessed it - sort first on the IEP > grade (10, 11, or 12), and then alphabetically by student name. > > I decided to add a computed field to my query that looks for a "Yes" > in > any of the three fields, and to give a value to that field based on > which IEP field was "Yes" like so: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, > Iif([IEP-12]="Yes", 12, ""))) > > The idea then, is to sort on the computed field. The query finds the > records and fills in all the fields correctly except for my IEP-Sort > field - there it gives me the #Error. Okay, I don't know what my error > is. Please, how do I figure out my goof and fix it? I will be watching > for a reply and trying to think it out at the same time. Any help > appreciated. > > Thanks, > Tina > > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bheid at appdevgrp.com Tue Aug 15 11:11:24 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 15 Aug 2006 12:11:24 -0400 Subject: [AccessD] [SPAM SUSPECT] My Iif expression isn't right In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0AD2C@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357D9@ADGSERVER> Try something like: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes",11,12)) I never use "yes" or "no" in a query. I use True and False. So if the above does not work, try changing it to: IEP-Sort:Iif([IEP-10]=true, 10, Iif([IEP-11] = true, 11,12)) Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: Tuesday, August 15, 2006 11:53 AM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] [AccessD] My Iif expression isn't right Importance: Low Hi all, Well, you helped me yesterday with my tab control background color issue. I've got another one to solve pronto. My client wanted three yes/no checkboxes for each student, labeled IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP evaluation had been carried out for the student and in which grade, 10, 11, or 12. At the time, I was assured this was never going to be used for sorting. Riiiiight! So, there are three separate fields in the student table. Now, we need to create a report showing all students for whom the IEP has been carried out, and - you guessed it - sort first on the IEP grade (10, 11, or 12), and then alphabetically by student name. I decided to add a computed field to my query that looks for a "Yes" in any of the three fields, and to give a value to that field based on which IEP field was "Yes" like so: IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, Iif([IEP-12]="Yes", 12, ""))) The idea then, is to sort on the computed field. The query finds the records and fills in all the fields correctly except for my IEP-Sort field - there it gives me the #Error. Okay, I don't know what my error is. Please, how do I figure out my goof and fix it? I will be watching for a reply and trying to think it out at the same time. Any help appreciated. Thanks, Tina From tinanfields at torchlake.com Tue Aug 15 11:33:11 2006 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 15 Aug 2006 12:33:11 -0400 Subject: [AccessD] [SPAM SUSPECT] My Iif expression isn't right In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D357D9@ADGSERVER> References: <916187228923D311A6FE00A0CC3FAA30D357D9@ADGSERVER> Message-ID: <44E1F747.8030806@torchlake.com> Thanks for all the good advice, everyone. It is working well, now. I really appreciate how hitting the SEND button turns on the brain! Tina Bobby Heid wrote: > Try something like: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes",11,12)) > > I never use "yes" or "no" in a query. I use True and False. So if the > above does not work, try changing it to: > IEP-Sort:Iif([IEP-10]=true, 10, Iif([IEP-11] = true, 11,12)) > > Bobby > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris > Fields > Sent: Tuesday, August 15, 2006 11:53 AM > To: Access Developers discussion and problem solving > Subject: [SPAM SUSPECT] [AccessD] My Iif expression isn't right > Importance: Low > > > Hi all, > > Well, you helped me yesterday with my tab control background color issue. > > I've got another one to solve pronto. > > My client wanted three yes/no checkboxes for each student, labeled > IEP-10, IEP-11, and IEP-12 - these were to indicate whether an IEP > evaluation had been carried out for the student and in which grade, 10, > 11, or 12. At the time, I was assured this was never going to be used > for sorting. Riiiiight! So, there are three separate fields in the > student table. > > Now, we need to create a report showing all students for whom the IEP > has been carried out, and - you guessed it - sort first on the IEP > grade (10, 11, or 12), and then alphabetically by student name. > > I decided to add a computed field to my query that looks for a "Yes" in > any of the three fields, and to give a value to that field based on > which IEP field was "Yes" like so: > IEP-Sort:Iif([IEP-10]="Yes", 10, Iif([IEP-11] = "Yes", 11, > Iif([IEP-12]="Yes", 12, ""))) > > The idea then, is to sort on the computed field. The query finds the > records and fills in all the fields correctly except for my IEP-Sort > field - there it gives me the #Error. Okay, I don't know what my error > is. Please, how do I figure out my goof and fix it? I will be watching > for a reply and trying to think it out at the same time. Any help > appreciated. > > Thanks, > Tina > > From adtp at hotmail.com Tue Aug 15 14:12:05 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Wed, 16 Aug 2006 00:42:05 +0530 Subject: [AccessD] Removing a missing reference References: Message-ID: Rocky, If it is a question of merely clearing the check box for each missing reference, skeleton subroutine as given below, is found to do the job. Command button named CmdTest is located on a plain form with no other code in its module that is in any way dependant upon any of the likely missing references (This ensures that there is no problem in running the particular subroutine in question). Best wishes, A.D.Tejpal --------------- Code in test form's module ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" References.Remove ref ' Statement (A) below gives compile Error ' However, the purpose is served ' even if it is kept disabled ' RemoveReference = True (A) End If Next End Sub ======================================= ----- Original Message ----- From: Charlotte Foust To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 20:59 Subject: Re: [AccessD] Removing a missing reference Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky From adtp at hotmail.com Tue Aug 15 14:41:46 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Wed, 16 Aug 2006 01:11:46 +0530 Subject: [AccessD] Removing a missing reference References: Message-ID: Rocky, Revised sample code in command button's click event is given below. A.D.Tejpal --------------- ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" Application.References.Remove ref End If Next End Sub ======================================= ----- Original Message ----- From: A.D.TEJPAL To: Access Developers discussion and problem solving Cc: ADT Sent: Wednesday, August 16, 2006 00:42 Subject: Re: [AccessD] Removing a missing reference Rocky, If it is a question of merely clearing the check box for each missing reference, skeleton subroutine as given below, is found to do the job. Command button named CmdTest is located on a plain form with no other code in its module that is in any way dependant upon any of the likely missing references (This ensures that there is no problem in running the particular subroutine in question). Best wishes, A.D.Tejpal --------------- Code in test form's module ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" References.Remove ref ' Statement (A) below gives compile Error ' However, the purpose is served ' even if it is kept disabled ' RemoveReference = True (A) End If Next End Sub ======================================= ----- Original Message ----- From: Charlotte Foust To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 20:59 Subject: Re: [AccessD] Removing a missing reference Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky From pedro at plex.nl Wed Aug 16 10:58:49 2006 From: pedro at plex.nl (pedro at plex.nl) Date: Wed, 16 Aug 2006 10:58:49 (MET DST) Subject: [AccessD] date query Message-ID: <200608160858.k7G8wnKV017324@mailhostC.plex.net> Hello Group, it has been a long time since my last participation on this group, but now i have a question. I have a table (BVO) with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date field I need the records of which the date of [Datum2] is later then 10 days from [Datum1], per Month. Thanks Pedro Janssen From prodevmg at yahoo.com Wed Aug 16 07:50:09 2006 From: prodevmg at yahoo.com (Lonnie Johnson) Date: Wed, 16 Aug 2006 05:50:09 -0700 (PDT) Subject: [AccessD] date query In-Reply-To: <200608160858.k7G8wnKV017324@mailhostC.plex.net> Message-ID: <20060816125009.46003.qmail@web33101.mail.mud.yahoo.com> SELECT Rapnaam, Datum1, Datum2 FROM BVO WHERE Datum2>[Datum1]+10 pedro at plex.nl wrote: Hello Group, it has been a long time since my last participation on this group, but now i have a question. I have a table (BVO) with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date field I need the records of which the date of [Datum2] is later then 10 days from [Datum1], per Month. Thanks Pedro Janssen -- 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 __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From bheid at appdevgrp.com Wed Aug 16 08:09:22 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Wed, 16 Aug 2006 09:09:22 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: date query In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0AE3C@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357E2@ADGSERVER> Try something like: SELECT * FROM BVO WHERE datediff("d",[Datum1],[Datum2])>10 You might have to switch the dates, I can't remember at the moment the proper order. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson Sent: Wednesday, August 16, 2006 8:50 AM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] date query Importance: Low SELECT Rapnaam, Datum1, Datum2 FROM BVO WHERE Datum2>[Datum1]+10 pedro at plex.nl wrote: Hello Group, it has been a long time since my last participation on this group, but now i have a question. I have a table (BVO) with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date field I need the records of which the date of [Datum2] is later then 10 days from [Datum1], per Month. Thanks Pedro Janssen -- 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 __________________________________________________ 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 bchacc at san.rr.com Wed Aug 16 09:18:46 2006 From: bchacc at san.rr.com (bchacc at san.rr.com) Date: Wed, 16 Aug 2006 10:18:46 -0400 Subject: [AccessD] Removing a missing reference Message-ID: <380-2200683161418460@M2W022.mail2web.com> A.D.: Thank you for the routine. I'm out of town this week but will incorporate it into the app when I return and give it a test. Best regards, Rocky Original Message: ----------------- From: A.D.TEJPAL adtp at hotmail.com Date: Wed, 16 Aug 2006 01:11:46 +0530 To: accessd at databaseadvisors.com, adtp at airtelbroadband.in Subject: Re: [AccessD] Removing a missing reference Rocky, Revised sample code in command button's click event is given below. A.D.Tejpal --------------- ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" Application.References.Remove ref End If Next End Sub ======================================= ----- Original Message ----- From: A.D.TEJPAL To: Access Developers discussion and problem solving Cc: ADT Sent: Wednesday, August 16, 2006 00:42 Subject: Re: [AccessD] Removing a missing reference Rocky, If it is a question of merely clearing the check box for each missing reference, skeleton subroutine as given below, is found to do the job. Command button named CmdTest is located on a plain form with no other code in its module that is in any way dependant upon any of the likely missing references (This ensures that there is no problem in running the particular subroutine in question). Best wishes, A.D.Tejpal --------------- Code in test form's module ======================================= Private Sub CmdTest_Click() Dim ref As Reference For Each ref In Application.References If ref.IsBroken = True Then MsgBox "Missing Reference: " & ref.Name & _ vbCrLf & "Path: " & ref.FullPath & _ vbCrLf & "(This Reference has now been removed)" References.Remove ref ' Statement (A) below gives compile Error ' However, the purpose is served ' even if it is kept disabled ' RemoveReference = True (A) End If Next End Sub ======================================= ----- Original Message ----- From: Charlotte Foust To: Access Developers discussion and problem solving Sent: Monday, August 14, 2006 20:59 Subject: Re: [AccessD] Removing a missing reference Are you saying that it finds a reference and can tell it's broken but throws an error when you try to remove it? Have you checked to be sure refCurr is not nothing? 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, August 08, 2006 12:45 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Removing a missing reference Marty: Access.References.Remove refCurr still generates error: -2147319779 - Object library not registered. Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -------------------------------------------------------------------- mail2web - Check your email from the web at http://mail2web.com/ . From adtp at hotmail.com Wed Aug 16 09:33:05 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Wed, 16 Aug 2006 20:03:05 +0530 Subject: [AccessD] Sort By Sum on Footer References: Message-ID: Mark, On a report having group header & footer for names, you wish to sort this group as per descending order of sum displayed in its footer. Two alternative solutions are available for getting the desired results. First solution: (1) In the Sorting & Grouping dialog box create a group with following entry in the first column (titled Field/Expression): =Format(Nz(DSum("Score","T_Data","PName = '" & [PName] & "'"),0),"0000") & [PName] (2) In the second column (titled Sort Order), select Descending. (3) Treat this group header & footer just as if it were for PName. Note: (a) You could substitute DSum() function by a user defined one, if so desired. (b) It is presumed that the sum would not exceed 4 digits. Otherwise, format string used above, can be expanded suitably. (c) Field names have been changed to PName & Score respectively so as to avoid any potential conflict with reserved words. T_Data is the assumed name of source table. Second solution: (1) Add a calculated field named TotScorePName in the source query, as per sample SQL given below. (2) In the report, create a group as per TotScorePName (Descending) - with group header & footer. (3) Treat this group header & Footer just as if it were for PName. Note: (a) You could substitute DSum() function by a user defined one, if so desired. However, use of a subquery is not recommended as such queries are found to cause problems when used as record source for reports involving group levels. (b) Other points are similar to those mentioned against first solution. Best wishes, A.D.Tejpal --------------- Sample query - (As record source for the report) ===================================== SELECT T_Data.*, Format(Nz(DSum("Score","T_Data","PName = '" & [PName] & "'"),0),"0000") & [PName] AS TotScoreName FROM T_Data; ===================================== ----- Original Message ----- From: Mark A Matte To: accessd at databaseadvisors.com Sent: Friday, August 11, 2006 20:12 Subject: Re: [AccessD] Sort By Sum on Footer Sorry...Here's an example: NAME COUNT Bob 23 Bob 14 Mary 10 Mary 40 Each name has a footer that has Sum(count)...What is the easiest way to sort on this sum in the footer...so Mary's group would be listed first if sorting descending? Thanks, Mark >From: "Susan Harkins" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] Sort By Sum on Footer >Date: Thu, 10 Aug 2006 19:03:09 -0400 > >So, you're sorting pages? > >Susan H. > >Other than creating a query that gets the sum and join it to the query I'm using as a recordsource...Is there a way to sort by the sum on a footer in a report...sorting/grouping doesn't seem to like the idea...any ideas? From Chester_Kaup at kindermorgan.com Wed Aug 16 10:18:14 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 16 Aug 2006 10:18:14 -0500 Subject: [AccessD] VBA Runtime Error Message-ID: Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. From andy at minstersystems.co.uk Wed Aug 16 11:30:18 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Wed, 16 Aug 2006 16:30:18 +0000 Subject: [AccessD] VBA Runtime Error Message-ID: <20060816153023.A33CB27310C@smtp.nildram.co.uk> Hi Chester Lots on this error here http://www.codecomments.com/archive336-2005-6-374233.html You might want to post the code around the line that errors. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: [AccessD] VBA Runtime Error Date: 16/08/06 15:21 Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- 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 Wed Aug 16 10:39:53 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 16 Aug 2006 11:39:53 -0400 Subject: [AccessD] VBA Runtime Error In-Reply-To: Message-ID: <000601c6c14a$39131390$657aa8c0@m6805> Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or one time? Perhaps a bad NIC or other network problem. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Wednesday, August 16, 2006 11:18 AM To: Access Developers discussion and problem solving Subject: [AccessD] VBA Runtime Error Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From pedro at plex.nl Wed Aug 16 12:36:18 2006 From: pedro at plex.nl (Pedro Janssen) Date: Wed, 16 Aug 2006 19:36:18 +0200 Subject: [AccessD] date query References: <20060816125009.46003.qmail@web33101.mail.mud.yahoo.com> Message-ID: <006e01c6c15a$7b493310$4101a8c0@qmotionfaa3ad9> Hello Lonnie and Bobby, thanks for the help. Pedro ----- Original Message ----- From: "Lonnie Johnson" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 16, 2006 2:50 PM Subject: Re: [AccessD] date query > SELECT Rapnaam, Datum1, Datum2 > FROM BVO > WHERE Datum2>[Datum1]+10 > > pedro at plex.nl wrote: Hello Group, > > it has been a long time since my last participation on this group, but now > i have a question. > > I have a table (BVO) > with three fields [Rapnaam]=text field[Datum1]=date field [Datum2]=date > field > > I need the records of which the date of [Datum2] is later then 10 days > from [Datum1], per Month. > > Thanks > > Pedro Janssen > -- > 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 > > > > > > > > > > > > __________________________________________________ > 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 Chester_Kaup at kindermorgan.com Wed Aug 16 12:41:19 2006 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Wed, 16 Aug 2006 12:41:19 -0500 Subject: [AccessD] VBA Runtime Error In-Reply-To: <000601c6c14a$39131390$657aa8c0@m6805> Message-ID: This is a single database thus front end back end. It stops in the same place every time. I think I may have solved the problem. I did not dim a date variable - just let access do it. I dimmed it and code is now running. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Wednesday, August 16, 2006 10:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] VBA Runtime Error Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or one time? Perhaps a bad NIC or other network problem. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Wednesday, August 16, 2006 11:18 AM To: Access Developers discussion and problem solving Subject: [AccessD] VBA Runtime Error Had the following error come up when running VBA code in a module. Line it stopped on set a variable to a table field in a native table. What does it mean? Run-time error '-2147417848(80010108)' Automation error The object invoked has disconnected from its clients. Chester Kaup Engineering Technician Kinder Morgan CO2 Company, LLP Office (432) 688-3797 FAX (432) 688-3799 No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 16 13:53:42 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Wed, 16 Aug 2006 11:53:42 -0700 Subject: [AccessD] VBA Runtime Error In-Reply-To: References: Message-ID: <44E369B6.3050006@shaw.ca> You might want to put statement Option Explicit in all your modules to force variable declaration and recompile Kaup, Chester wrote: >This is a single database thus front end back end. It stops in the same >place every time. I think I may have solved the problem. I did not dim a >date variable - just let access do it. I dimmed it and code is now >running. > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >Sent: Wednesday, August 16, 2006 10:40 AM >To: 'Access Developers discussion and problem solving' >Subject: Re: [AccessD] VBA Runtime Error > >Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >one >time? Perhaps a bad NIC or other network problem. > > >John W. Colby >Colby Consulting >www.ColbyConsulting.com > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester >Sent: Wednesday, August 16, 2006 11:18 AM >To: Access Developers discussion and problem solving >Subject: [AccessD] VBA Runtime Error > >Had the following error come up when running VBA code in a module. Line >it >stopped on set a variable to a table field in a native table. What does >it >mean? > > > >Run-time error '-2147417848(80010108)' > > > >Automation error > >The object invoked has disconnected from its clients. > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number >of electrons were terribly inconvenienced. > > > >-- >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 cjeris at fas.harvard.edu Wed Aug 16 14:52:13 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Wed, 16 Aug 2006 15:52:13 -0400 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: <44E3776D.2040109@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 This is probably fairly simple but I haven't gotten far with the help and Google. Access XP. I have an unbound form containing several textboxes and some action buttons. Based on which action button the user presses, I want some of the textboxes to become non-writable and others to remain writable. When a record is loaded into the form, the textboxes are initialized using statements of the form acForm![faaCustomerID].Value = "1264" and each such textbox has its Locked property set to False. Later, in a function called from one of the command buttons' _Click() handlers, I attempt to do acForm![faaCustomerID].Locked = True and receive Run-time error 2166: You can't lock a control that has unsaved changes. Now from the help for the properties TextBox.Text, TextBox.Value, it seems that "unsaved changes" means that .Text <> .Value . That isn't true here, as far as I can tell, since nothing has acted to edit the control since I set its .Value property. What don't I understand here? How can I convince Access to let me lock these controls? thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE43dt5ICCNV0oGWARAtDmAJ9FkL34t0JSslMk543a38eEPTsTFACglP/r 4LGdbgGO8au1fZJ00xUu6uY= =2t6Q -----END PGP SIGNATURE----- From jwcolby at colbyconsulting.com Wed Aug 16 14:59:54 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 16 Aug 2006 15:59:54 -0400 Subject: [AccessD] VBA Runtime Error In-Reply-To: <44E369B6.3050006@shaw.ca> Message-ID: <001501c6c16e$8c229dc0$657aa8c0@m6805> Boy howdy, I second THAT one. Option explicit is a requirement in my book. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Wednesday, August 16, 2006 2:54 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Runtime Error You might want to put statement Option Explicit in all your modules to force variable declaration and recompile Kaup, Chester wrote: >This is a single database thus front end back end. It stops in the same >place every time. I think I may have solved the problem. I did not dim >a date variable - just let access do it. I dimmed it and code is now >running. > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >Sent: Wednesday, August 16, 2006 10:40 AM >To: 'Access Developers discussion and problem solving' >Subject: Re: [AccessD] VBA Runtime Error > >Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >one time? Perhaps a bad NIC or other network problem. > > >John W. Colby >Colby Consulting >www.ColbyConsulting.com > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >Chester >Sent: Wednesday, August 16, 2006 11:18 AM >To: Access Developers discussion and problem solving >Subject: [AccessD] VBA Runtime Error > >Had the following error come up when running VBA code in a module. Line >it stopped on set a variable to a table field in a native table. What >does it mean? > > > >Run-time error '-2147417848(80010108)' > > > >Automation error > >The object invoked has disconnected from its clients. > > > >Chester Kaup > >Engineering Technician > >Kinder Morgan CO2 Company, LLP > >Office (432) 688-3797 > >FAX (432) 688-3799 > > > > > >No trees were killed in the sending of this message. However a large >number of electrons were terribly inconvenienced. > > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com > > > -- 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 wdhindman at dejpolsystems.com Wed Aug 16 16:26:09 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Wed, 16 Aug 2006 17:26:09 -0400 Subject: [AccessD] VBA Runtime Error References: <001501c6c16e$8c229dc0$657aa8c0@m6805> Message-ID: <001701c6c17a$97e66ef0$153ce944@50NM721> ...I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ...but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ...I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ...sorta choked me up ...lost a diet coke all over the screen, I did. ...and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > 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 > From shamil at users.mns.ru Wed Aug 16 16:38:30 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Thu, 17 Aug 2006 01:38:30 +0400 Subject: [AccessD] How to position forms by VB/VBA code on dual monitor system? Message-ID: <000c01c6c17c$51334da0$6401a8c0@nant> Hi All, Does anybody have any working sample code to position/move forms by VB/VBA code on dual monitor system? Thank you. -- Shamil From wdhindman at dejpolsystems.com Wed Aug 16 17:13:50 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Wed, 16 Aug 2006 18:13:50 -0400 Subject: [AccessD] Locking a textbox based on other form controls References: <44E3776D.2040109@fas.harvard.edu> Message-ID: <006d01c6c181$418672b0$153ce944@50NM721> ...a textbox has two properties that can be confusing ..."text" is the data currently in the control while "value" is the data last saved for the control ...in an unbound form you have to save the text data for it to become the value data ...you might try saving the data before locking the text box ...hth. William ----- Original Message ----- From: "Christopher Jeris" To: Sent: Wednesday, August 16, 2006 3:52 PM Subject: [AccessD] Locking a textbox based on other form controls > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > This is probably fairly simple but I haven't gotten far with the help and > Google. > > Access XP. I have an unbound form containing several textboxes and some > action buttons. Based on which action button the user presses, I want > some > of the textboxes to become non-writable and others to remain writable. > > When a record is loaded into the form, the textboxes are initialized using > statements of the form > > acForm![faaCustomerID].Value = "1264" > > and each such textbox has its Locked property set to False. > > Later, in a function called from one of the command buttons' _Click() > handlers, I attempt to do > > acForm![faaCustomerID].Locked = True > > and receive > > Run-time error 2166: You can't lock a control that has unsaved changes. > > Now from the help for the properties TextBox.Text, TextBox.Value, it seems > that "unsaved changes" means that .Text <> .Value . That isn't true here, > as far as I can tell, since nothing has acted to edit the control since I > set its .Value property. > > What don't I understand here? How can I convince Access to let me lock > these controls? > > thanks, Chris Jeris > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.4.2.2 (MingW32) > Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org > > iD8DBQFE43dt5ICCNV0oGWARAtDmAJ9FkL34t0JSslMk543a38eEPTsTFACglP/r > 4LGdbgGO8au1fZJ00xUu6uY= > =2t6Q > -----END PGP SIGNATURE----- > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From darrend at nimble.com.au Wed Aug 16 22:25:36 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 17 Aug 2006 13:25:36 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: <20060817032540.NOEC6498.omta03ps.mx.bigpond.com@DENZILLAP> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From Gustav at cactus.dk Thu Aug 17 01:45:55 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 08:45:55 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From Gustav at cactus.dk Thu Aug 17 02:04:06 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 09:04:06 +0200 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: Hi Chris This should be possible. You can even change the value of a locked textbox via code. Something else must be going on. Are you sure the form - not only the textboxes - is unbound? /gustav >>> cjeris at fas.harvard.edu 16-08-2006 21:52:13 >>> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 This is probably fairly simple but I haven't gotten far with the help and Google. Access XP. I have an unbound form containing several textboxes and some action buttons. Based on which action button the user presses, I want some of the textboxes to become non-writable and others to remain writable. When a record is loaded into the form, the textboxes are initialized using statements of the form acForm![faaCustomerID].Value = "1264" and each such textbox has its Locked property set to False. Later, in a function called from one of the command buttons' _Click() handlers, I attempt to do acForm![faaCustomerID].Locked = True and receive Run-time error 2166: You can't lock a control that has unsaved changes. Now from the help for the properties TextBox.Text, TextBox.Value, it seems that "unsaved changes" means that .Text <> .Value . That isn't true here, as far as I can tell, since nothing has acted to edit the control since I set its .Value property. What don't I understand here? How can I convince Access to let me lock these controls? thanks, Chris Jeris From artful at rogers.com Thu Aug 17 03:56:21 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 17 Aug 2006 01:56:21 -0700 (PDT) Subject: [AccessD] VBA Runtime Error In-Reply-To: <001701c6c17a$97e66ef0$153ce944@50NM721> Message-ID: <20060817085621.3785.qmail@web88212.mail.re2.yahoo.com> I don't know a soul on the MS development team, but my conclusion from the outside is that Access is regarded as a toy by those within (not its developers, those around and above them). The toy got uppity and developed a following (us), and Microsoft seniors didn't and still don't know what to do about it. So they go along, within limits, but to the extent that Access succeeds as a professional development platform, it undermines the much pricier products llike VS.NET. Of course, Access cannot do things such as install your app as a Windows service, and lots of other things too -- but this reinforces my point. I'm sure the Access dev team could supply this functionality, but they are not allowed to. A. ----- Original Message ---- From: William Hindman To: Access Developers discussion and problem solving Sent: Wednesday, August 16, 2006 5:26:09 PM Subject: Re: [AccessD] VBA Runtime Error ...I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ...but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ...I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ...sorta choked me up ...lost a diet coke all over the screen, I did. ...and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Thu Aug 17 04:06:51 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Thu, 17 Aug 2006 11:06:51 +0200 (CEST) Subject: [AccessD] OT - Checkbox on Visual Basic Datagrid Message-ID: <10258921.1155805611761.JavaMail.www@wwinf3004.me-wanadoo.net> To all, Have posted this here as don't seem to be getting any mail etc from the VB section....I have a bit column in SQL Server and a query on the data environment in VB6 which returns this and a few other columns. I put a datagrid onto a form set it to use this query and for the bit column I changed the format to checkbox. The problem is that when I open the form the bit column just says either 1 or 0 instead of a checked/unchecked checkbox as expected, has anyone come across this on VB6, if so can you point me in the right direction on how to show a column as a checkbox on a visual basic datagrid. Thanks in advance for any help on this. Paul Hartland From andy at minstersystems.co.uk Thu Aug 17 05:46:36 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Thu, 17 Aug 2006 10:46:36 +0000 Subject: [AccessD] VBA Runtime Error Message-ID: <20060817094639.2713627359B@smtp.nildram.co.uk> Chester I can only speak for A97 but if, in Tools Options, you go to Modules tab and tick 'Require Variable Declaration' then Option Explicit gets placed automagically into every new module. You'd be well advised to do this. -- Andy Lacey http://www.minstersystems.co.uk ----- Original Message ---- From: William Hindman To: Access Developers discussion and problem solving Sent: Wednesday, August 16, 2006 5:26:09 PM Subject: Re: [AccessD] VBA Runtime Error ....I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ....but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ....I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ....sorta choked me up ...lost a diet coke all over the screen, I did. ....and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > Marty Connelly > Victoria, B.C. > Canada > ________________________________________________ Message sent using UebiMiau 2.7.2 From accessd at shaw.ca Thu Aug 17 06:07:38 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 17 Aug 2006 04:07:38 -0700 Subject: [AccessD] VBA Runtime Error In-Reply-To: <20060817085621.3785.qmail@web88212.mail.re2.yahoo.com> Message-ID: <0J450052J2W1P3D0@l-daemon> ... Of course, Access cannot do things such as install your app as a Windows service.. ...but with an A2K managed VBS script it can; example: ' This code creates and starts the MyMonitor Perl service ' --------------------------------------------------------------- ' From the book "Windows Server Cookbook" by Robbie Allen ' Publisher: O'Reilly Media ' ISBN: 0-596-00633-0 ' Book web site: http://rallenhome.com/books/winsckbk/code.html ' --------------------------------------------------------------- ' ------ SCRIPT CONFIGURATION ------ strComputer = "." strSvcName = "MyMonitor" strSrvAnyPath = "c:\Windows Resource Kits\Tools\srvany.exe" strPerlPath = "c:\perl\bin\perl.exe" strPerlScript = "c:\scripts\monitor.pl" ' ------ END CONFIGURATION --------- const HKLM = &H80000002 ' Service Type Const KERNEL_DRIVER = 1 Const FS_DRIVER = 2 Const ADAPTER = 4 Const RECOGNIZER_DRIVER = 8 Const OWN_PROCESS = 16 Const SHARE_PROCESS = 32 Const INTERACTIVE_PROCESS = 256 INTERACT_WITH_DESKTOP = FALSE ' Error Control Const NOT_NOTIFIED = 0 Const USER_NOTIFIED = 1 Const SYSTEM_RESTARTED = 2 Const SYSTEM_STARTS = 3 set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") set objService = objWMI.Get("Win32_Service") intRC = objService.Create(strSvcName, _ strSvcName, _ strSrvAnyPath, _ OWN_PROCESS, _ NOT_NOTIFED, _ "Automatic", _ INTERACT_WITH_DESKTOP, _ "NT AUTHORITY\LocalService",_ "") if intRC > 0 then WScript.Echo "Error creating service: " & intRC WScript.Quit else WScript.Echo "Successfully created service" end if strKeyPath = "SYSTEM\CurrentControlSet\Services\" & _ strSvcName & "\Parameters" set objReg = GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") objReg.CreateKey HKLM,strKeyPath objReg.SetStringValue HKLM,strKeyPath,"Application",strPerlPath objReg.SetStringValue HKLM,strKeyPath,"AppParameters",strPerlScript WScript.Echo "Created registry values" set objService = objWMI.Get("Win32_Service.Name='" & strSvcName & "'") intRC = objService.StartService if intRC > 0 then WScript.Echo "Error starting service: " & intRC else WScript.Echo "Successfully started service" end if Just a comment. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 17, 2006 1:56 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Runtime Error I don't know a soul on the MS development team, but my conclusion from the outside is that Access is regarded as a toy by those within (not its developers, those around and above them). The toy got uppity and developed a following (us), and Microsoft seniors didn't and still don't know what to do about it. So they go along, within limits, but to the extent that Access succeeds as a professional development platform, it undermines the much pricier products llike VS.NET. Of course, Access cannot do things such as install your app as a Windows service, and lots of other things too -- but this reinforces my point. I'm sure the Access dev team could supply this functionality, but they are not allowed to. A. ----- Original Message ---- From: William Hindman To: Access Developers discussion and problem solving Sent: Wednesday, August 16, 2006 5:26:09 PM Subject: Re: [AccessD] VBA Runtime Error ...I've never understood why something so fundamental isn't the default for every new module ...its not like MS is doing anyone any favors or closing any options :( ...but what the heck ...we got a transparent gui, ribbons, and sharepoint in A2K7 ...who needs real fixes, much less common sense. ...I was reading the blog of one of the Access team members and he started going on about how he knew what real developers needed because after all they had to write the sample mdbs themselves. ...sorta choked me up ...lost a diet coke all over the screen, I did. ...and then there was the team lead all indignant about repeated requests for autocorrect to be off by default ...wanted everyone to know just how much work he'd put into that feature and that it worked right fine in his opinion :( William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Wednesday, August 16, 2006 3:59 PM Subject: Re: [AccessD] VBA Runtime Error > Boy howdy, I second THAT one. Option explicit is a requirement in my > book. > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly > Sent: Wednesday, August 16, 2006 2:54 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Runtime Error > > You might want to put statement Option Explicit in all your modules to > force > variable declaration and recompile > > Kaup, Chester wrote: > >>This is a single database thus front end back end. It stops in the same >>place every time. I think I may have solved the problem. I did not dim >>a date variable - just let access do it. I dimmed it and code is now >>running. >> >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby >>Sent: Wednesday, August 16, 2006 10:40 AM >>To: 'Access Developers discussion and problem solving' >>Subject: Re: [AccessD] VBA Runtime Error >> >>Is it consistent? Perhaps a corrupt FE or BE. Is it intermittent or >>one time? Perhaps a bad NIC or other network problem. >> >> >>John W. Colby >>Colby Consulting >>www.ColbyConsulting.com >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, >>Chester >>Sent: Wednesday, August 16, 2006 11:18 AM >>To: Access Developers discussion and problem solving >>Subject: [AccessD] VBA Runtime Error >> >>Had the following error come up when running VBA code in a module. Line >>it stopped on set a variable to a table field in a native table. What >>does it mean? >> >> >> >>Run-time error '-2147417848(80010108)' >> >> >> >>Automation error >> >>The object invoked has disconnected from its clients. >> >> >> >>Chester Kaup >> >>Engineering Technician >> >>Kinder Morgan CO2 Company, LLP >> >>Office (432) 688-3797 >> >>FAX (432) 688-3799 >> >> >> >> >> >>No trees were killed in the sending of this message. However a large >>number of electrons were terribly inconvenienced. >> >> >> >>-- >>AccessD mailing list >>AccessD at databaseadvisors.com >>http://databaseadvisors.com/mailman/listinfo/accessd >>Website: http://www.databaseadvisors.com >> >> >> > > -- > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rlavsa at tigg.com Thu Aug 17 07:53:01 2006 From: rlavsa at tigg.com (Richard Lavsa) Date: Thu, 17 Aug 2006 08:53:01 -0400 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: <001501c6c16e$8c229dc0$657aa8c0@m6805> Message-ID: Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich From darrend at nimble.com.au Thu Aug 17 08:18:54 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 17 Aug 2006 23:18:54 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060817131857.HUID2500.omta03sl.mx.bigpond.com@DENZILLAP> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Thu Aug 17 08:34:24 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 15:34:24 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From darrend at nimble.com.au Thu Aug 17 08:41:14 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 17 Aug 2006 23:41:14 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060817134117.IEAY2500.omta03sl.mx.bigpond.com@DENZILLAP> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Thu Aug 17 09:04:04 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 16:04:04 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From cjeris at fas.harvard.edu Thu Aug 17 09:49:27 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 10:49:27 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <006d01c6c181$418672b0$153ce944@50NM721> References: <44E3776D.2040109@fas.harvard.edu> <006d01c6c181$418672b0$153ce944@50NM721> Message-ID: <44E481F7.7070006@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 William Hindman wrote: > ...a textbox has two properties that can be confusing ..."text" is the > data currently in the control while "value" is the data last saved for > the control ...in an unbound form you have to save the text data for it > to become the value data ...you might try saving the data before locking > the text box ...hth. "Save" how? I never assign to the .Text property; I initialize the control by assigning to its .Value property. I tried writing acForm![faaCustomerID].Value = acForm![faaCustomerID].Text but got a different error: the .Text property cannot be read unless the control in question has the focus. As I don't want to flicker the input focus over a group of controls in succession, this is out too. Gustav Brock wrote: > This should be possible. You can even change the value of a locked > textbox via code. Something else must be going on. Are you sure the > form - not only the textboxes - is unbound? The form's .RecordSource property is blank; that makes the form unbound, right? peace, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5IH35ICCNV0oGWARApicAJ442hQ6kDdro9CJP2ERl+W+SodDKwCeNyoo pjCMD05brLe1V5E8xi3gvKw= =qv1Z -----END PGP SIGNATURE----- From iggy at nanaimo.ark.com Thu Aug 17 09:56:20 2006 From: iggy at nanaimo.ark.com (Tony Septav) Date: Thu, 17 Aug 2006 07:56:20 -0700 Subject: [AccessD] Saved Form will not release focus Message-ID: <44E48394.6070306@nanaimo.ark.com> Hey All This first occurred when I was updating an Access97 (mdb) application to Access2000 on my WINXP machine, but is now occurring in a different Access97 (mdb) application that I am updating in Access97 and which I copied from my old Windows 98 machine onto another (different) WINXP machine. If I go into design mode and edit a form and then save it, when I come back to the main database form I cannot use the scroll bar or select another form to edit/work on. If I click on either it opens the previous form I just saved. I have to basically select the query or report tab and then the form tab to be able to scroll or select another form. I can open forms in the design mode and simply close them and I am fine, no sticking. I thought it was just something flaky with Access2000, but it seems to have occurred on the Access97 (XP) application after I decompiled it. The old version does not have this problem. I have followed all the rules of decompling, creating a new MDB and coping over all components and checking for viruses. The weird thing is if I copy the problem Acess97 MDB to my WindowsNT machine it works fine no sticking. Also all my progress bars freeze after displaying 15 to 20 % of the total progress, I now have to use DoEvents to enable them to display the ongoing progress. Is there something specific that I need to be aware of when working in the WinXP environment??? Is there something I have unwittingly done or twittingly done, this has got me baffled. I also tried creating a new MDB and just copying only some of the forms over to it, sticking still occurs. From Gustav at cactus.dk Thu Aug 17 09:57:27 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 16:57:27 +0200 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: Hi Chris Yes. So something else is happening. /gustav >>> cjeris at fas.harvard.edu 17-08-2006 16:49:27 >>> The form's .RecordSource property is blank; that makes the form unbound, right? From cfoust at infostatsystems.com Thu Aug 17 09:59:36 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 07:59:36 -0700 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: Message-ID: The # signs are compiler conditional indicators. They tell the compiler to execute the If-End IF under specified conditions only. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 5:53 AM To: Access Developers discussion and problem solving Subject: [AccessD] Vberrorhandler download "trace logging code" Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Thu Aug 17 10:04:51 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 08:04:51 -0700 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E481F7.7070006@fas.harvard.edu> Message-ID: Only if you don't set the form's recordset or RecordSource property from code. And Text is a read only property of Access textboxes. It can only be read when the control has the focus. Otherwise, you have to use the Value property. What you're describing sounds a lot like what happens when a bound textbox has a change made in code to the underlying recordset and the user then tries to change the value from the UI and save the record. The two changes collide and Access complains mightily. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christopher Jeris Sent: Thursday, August 17, 2006 7:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Locking a textbox based on other form controls The form's .RecordSource property is blank; that makes the form unbound, right? peace, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5IH35ICCNV0oGWARApicAJ442hQ6kDdro9CJP2ERl+W+SodDKwCeNyoo pjCMD05brLe1V5E8xi3gvKw= =qv1Z -----END PGP SIGNATURE----- -- From cfoust at infostatsystems.com Thu Aug 17 10:09:05 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 08:09:05 -0700 Subject: [AccessD] Saved Form will not release focus In-Reply-To: <44E48394.6070306@nanaimo.ark.com> Message-ID: It isn't a WinXP issue exactly. At least I've never seen anything like that on any of the XP machines I've used, and I run 3 or more versions of Access on them. However, WinXP does have some pesky "sticky" settings that can present bizarre behavior. Open up the Accessibility Options in the Control Panel, go through all the tabs, and turn off all the "sticky" settings and see if that makes a difference. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tony Septav Sent: Thursday, August 17, 2006 7:56 AM To: accessd at databaseadvisors.com Subject: [AccessD] Saved Form will not release focus Hey All This first occurred when I was updating an Access97 (mdb) application to Access2000 on my WINXP machine, but is now occurring in a different Access97 (mdb) application that I am updating in Access97 and which I copied from my old Windows 98 machine onto another (different) WINXP machine. If I go into design mode and edit a form and then save it, when I come back to the main database form I cannot use the scroll bar or select another form to edit/work on. If I click on either it opens the previous form I just saved. I have to basically select the query or report tab and then the form tab to be able to scroll or select another form. I can open forms in the design mode and simply close them and I am fine, no sticking. I thought it was just something flaky with Access2000, but it seems to have occurred on the Access97 (XP) application after I decompiled it. The old version does not have this problem. I have followed all the rules of decompling, creating a new MDB and coping over all components and checking for viruses. The weird thing is if I copy the problem Acess97 MDB to my WindowsNT machine it works fine no sticking. Also all my progress bars freeze after displaying 15 to 20 % of the total progress, I now have to use DoEvents to enable them to display the ongoing progress. Is there something specific that I need to be aware of when working in the WinXP environment??? Is there something I have unwittingly done or twittingly done, this has got me baffled. I also tried creating a new MDB and just copying only some of the forms over to it, sticking still occurs. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cjeris at fas.harvard.edu Thu Aug 17 10:13:59 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 11:13:59 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: References: Message-ID: <44E487B7.1070107@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property from > code. And Text is a read only property of Access textboxes. It can > only be read when the control has the focus. Otherwise, you have to use > the Value property. What you're describing sounds a lot like what > happens when a bound textbox has a change made in code to the underlying > recordset and the user then tries to change the value from the UI and > save the record. The two changes collide and Access complains mightily. I can see that -- but every textbox in my form is unbound (in the Form Designer UI, the textbox displays 'Unbound' inside it, and the 'Control Source' property on the 'Data' tab is blank), the form itself is unbound, and the string 'RecordSource' does not appear anywhere in my VB code! If there's any place in my project where a form or control is bound to a recordset, I don't know how it got there or how to find it. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5Ie35ICCNV0oGWARAg0kAJ9kdSJ24ZoJL788ecwVyxLmeuaDaACghzQ1 max6AjzOIKi5WzPXxLQoDo0= =kHDS -----END PGP SIGNATURE----- From rlavsa at tigg.com Thu Aug 17 10:14:23 2006 From: rlavsa at tigg.com (Richard Lavsa) Date: Thu, 17 Aug 2006 11:14:23 -0400 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: Message-ID: Thanks, for the response.. Any way to tell what those specified conditions are? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, August 17, 2006 11:00 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Vberrorhandler download "trace logging code" The # signs are compiler conditional indicators. They tell the compiler to execute the If-End IF under specified conditions only. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 5:53 AM To: Access Developers discussion and problem solving Subject: [AccessD] Vberrorhandler download "trace logging code" Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 17 10:25:43 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 08:25:43 -0700 Subject: [AccessD] Vberrorhandler download "trace logging code" In-Reply-To: Message-ID: If they're preset in the database, you can open the project properties from the Tools menu in the VBE and look at the general tab. Conditional Compiler arguments are at the bottom of the dialog. However, if they're being passed in from outside or are intended to be. You can also declare compiler constants in code. They're prefaced with a # as well. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 8:14 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Vberrorhandler download "trace logging code" Thanks, for the response.. Any way to tell what those specified conditions are? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, August 17, 2006 11:00 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Vberrorhandler download "trace logging code" The # signs are compiler conditional indicators. They tell the compiler to execute the If-End IF under specified conditions only. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Richard Lavsa Sent: Thursday, August 17, 2006 5:53 AM To: Access Developers discussion and problem solving Subject: [AccessD] Vberrorhandler download "trace logging code" Hello all, I was in a bit of a rush for the latest application I wrote so I didn't have a chance to fully document or put in all error checks, or for the matter the destruction of all objects. I remembered John, Seth, and Glen wrote a vb Error tool. When I finally remembered where it was and used it, it was great. Saved me a ton of time. However I do have a question. I enabled the "Insert Call Stack trace logging code". When the error traps are entered I see the code that writes to the external file however in forcing it to error out, I do not see an error log anywhere. I stepped through the code of which none of the code to write it out to a file was ever utilized. Not knowing what the # signs did in #IF and #End If statements I removed them for the particular sub that I forced to error out on and then got an undefined variable error. So my question is, what am I doing wrong with the "Insert Call Stack trace logging code"? It looks like the error log is supposed to be placed In the same location as the local database, but I couldn't find it? For curiosity what do the "#" signs do in the code, I couldn't find anything in the archives about this? Even if the trace logging doesn't work, I am very grateful for the portion of this tool that did work without any issues. It saved me hours of going back through and putting error traps in. Just wanted to pass my gratitude along to John, Seth, and Glen. Rich -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cjeris at fas.harvard.edu Thu Aug 17 10:40:19 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 11:40:19 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: References: Message-ID: <44E48DE3.208@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property from > code. And Text is a read only property of Access textboxes. It can > only be read when the control has the focus. Otherwise, you have to use > the Value property. What you're describing sounds a lot like what > happens when a bound textbox has a change made in code to the underlying > recordset and the user then tries to change the value from the UI and > save the record. The two changes collide and Access complains mightily. Okay, here's a minimal example that illustrates the problem. Create a blank form Form1 in Access XP. Add two controls to it: text-boxes Text0 and Text2. The entire content of the VB module Form_Form1 is as follows. Option Compare Database Option Explicit ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub Save this form and module. Open the form in Form View. Then click in Text2 and try to change the populated value. Run-time error '2166': You can't lock a control while it has unsaved changes. What unsaved changes? No value has ever been typed or set into Text0 for the entire lifetime of this database file! What am I missing here? thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5I3j5ICCNV0oGWARAiTLAJwIeLB25P4ShbNoj86qpEyYzoEBAACaAp4m 5l1fYQa2SPf+xL1njBiyn84= =9UY7 -----END PGP SIGNATURE----- From cjeris at fas.harvard.edu Thu Aug 17 10:42:52 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 11:42:52 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E48DE3.208@fas.harvard.edu> References: <44E48DE3.208@fas.harvard.edu> Message-ID: <44E48E7C.6030702@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Christopher Jeris wrote: > Save this form and module. Open the form in Form View. Then click in > Text2 and try to change the populated value. Sorry, 'populated' is a typo here -- Text2 is blank, as is Text0. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5I585ICCNV0oGWARAg90AJ9RsibSsY3/29CnyvLfljqZHOG+1ACdFh1D UFEg6mYGBxaG4rTlj8mbP30= =dZ1u -----END PGP SIGNATURE----- From iggy at nanaimo.ark.com Thu Aug 17 10:53:47 2006 From: iggy at nanaimo.ark.com (Tony Septav) Date: Thu, 17 Aug 2006 08:53:47 -0700 Subject: [AccessD] Saved Form will not release focus Message-ID: <44E4910B.6020507@nanaimo.ark.com> ThankYou Charlotte Open up the Accessibility Options in the Control Panel, go through all the tabs, and turn off all the "sticky" settings and see if that makes a difference. I checked as you advised and nothing was turned on. From cfoust at infostatsystems.com Thu Aug 17 11:09:38 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 09:09:38 -0700 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E48DE3.208@fas.harvard.edu> Message-ID: The Change event happens on every keystroke, including the first one. Type "a" and that's a change and you're trying to lock the control you just typed an "a" into without leaving the control and committing the value. That's what the message means. I think you want the afterupdate event of the control, not the change event. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christopher Jeris Sent: Thursday, August 17, 2006 8:40 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Locking a textbox based on other form controls -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property > from code. And Text is a read only property of Access textboxes. It > can only be read when the control has the focus. Otherwise, you have > to use the Value property. What you're describing sounds a lot like > what happens when a bound textbox has a change made in code to the > underlying recordset and the user then tries to change the value from > the UI and save the record. The two changes collide and Access complains mightily. Okay, here's a minimal example that illustrates the problem. Create a blank form Form1 in Access XP. Add two controls to it: text-boxes Text0 and Text2. The entire content of the VB module Form_Form1 is as follows. Option Compare Database Option Explicit ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub Save this form and module. Open the form in Form View. Then click in Text2 and try to change the populated value. Run-time error '2166': You can't lock a control while it has unsaved changes. What unsaved changes? No value has ever been typed or set into Text0 for the entire lifetime of this database file! What am I missing here? thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5I3j5ICCNV0oGWARAiTLAJwIeLB25P4ShbNoj86qpEyYzoEBAACaAp4m 5l1fYQa2SPf+xL1njBiyn84= =9UY7 -----END PGP SIGNATURE----- -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Thu Aug 17 11:11:25 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 17 Aug 2006 18:11:25 +0200 Subject: [AccessD] Locking a textbox based on other form controls Message-ID: Hi Chris Oh, this is completely different from what you originally told you were doing - clicking a button to set the locking ... Try to move your code from the Change to the AfterUpdate event of the textbox. /gustav >>> cjeris at fas.harvard.edu 17-08-2006 17:40:19 >>> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > Only if you don't set the form's recordset or RecordSource property from > code. And Text is a read only property of Access textboxes. It can > only be read when the control has the focus. Otherwise, you have to use > the Value property. What you're describing sounds a lot like what > happens when a bound textbox has a change made in code to the underlying > recordset and the user then tries to change the value from the UI and > save the record. The two changes collide and Access complains mightily. Okay, here's a minimal example that illustrates the problem. Create a blank form Form1 in Access XP. Add two controls to it: text-boxes Text0 and Text2. The entire content of the VB module Form_Form1 is as follows. Option Compare Database Option Explicit ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub Save this form and module. Open the form in Form View. Then click in Text2 and try to change the populated value. Run-time error '2166': You can't lock a control while it has unsaved changes. What unsaved changes? No value has ever been typed or set into Text0 for the entire lifetime of this database file! What am I missing here? thanks, Chris Jeris From cjeris at fas.harvard.edu Thu Aug 17 11:18:35 2006 From: cjeris at fas.harvard.edu (Christopher Jeris) Date: Thu, 17 Aug 2006 12:18:35 -0400 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: References: Message-ID: <44E496DB.5070309@fas.harvard.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > The Change event happens on every keystroke, including the first one. > Type "a" and that's a change and you're trying to lock the control you > just typed an "a" into without leaving the control and committing the > value. That's what the message means. I think you want the afterupdate > event of the control, not the change event. But that's not what I wrote, and not the problem. If I were trying to lock Text2 when I typed into Text2, the message would make perfect sense. In fact, when I type into Text2, I'm trying to lock the OTHER box, Text0: ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub This is exactly why I'm so confused. When the complaint comes up, "You can't lock a control while it has unsaved changes", the control I'm trying to lock has _never_been_changed_. It's possible the AfterUpdate event is what I want, but I'd still like to figure out what's going on here. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5Jba5ICCNV0oGWARAjLeAJ0R+LbbUF7K+8n118rsUY1VNBZQlgCfQq9g yzPWdkBGLW6kdjygZXWFOMk= =+r0f -----END PGP SIGNATURE----- From cfoust at infostatsystems.com Thu Aug 17 11:27:38 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 17 Aug 2006 09:27:38 -0700 Subject: [AccessD] Locking a textbox based on other form controls In-Reply-To: <44E496DB.5070309@fas.harvard.edu> Message-ID: OK, the message is misleading, but it still boils down to the same problem. You're in the middle of modifying a value in one control, so you can't go off and lock the other one. Some things HAVE to be done in afterupdate. I'll let someone else figure out the messy details of why it behaves this way. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Christopher Jeris Sent: Thursday, August 17, 2006 9:19 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Locking a textbox based on other form controls -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Charlotte Foust wrote: > The Change event happens on every keystroke, including the first one. > Type "a" and that's a change and you're trying to lock the control you > just typed an "a" into without leaving the control and committing the > value. That's what the message means. I think you want the > afterupdate event of the control, not the change event. But that's not what I wrote, and not the problem. If I were trying to lock Text2 when I typed into Text2, the message would make perfect sense. In fact, when I type into Text2, I'm trying to lock the OTHER box, Text0: ' The function of Text2 is that when it is changed, Text0 is locked: Private Sub Text2_Change() Me![Text0].Locked = True End Sub This is exactly why I'm so confused. When the complaint comes up, "You can't lock a control while it has unsaved changes", the control I'm trying to lock has _never_been_changed_. It's possible the AfterUpdate event is what I want, but I'd still like to figure out what's going on here. thanks, Chris Jeris -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFE5Jba5ICCNV0oGWARAjLeAJ0R+LbbUF7K+8n118rsUY1VNBZQlgCfQq9g yzPWdkBGLW6kdjygZXWFOMk= =+r0f -----END PGP SIGNATURE----- -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dw-murphy at cox.net Thu Aug 17 19:01:52 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Thu, 17 Aug 2006 17:01:52 -0700 Subject: [AccessD] SQL Express upgrade to Developer In-Reply-To: Message-ID: <002b01c6c259$82b166e0$0200a8c0@murphy3234aaf1> Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug From dwaters at usinternet.com Thu Aug 17 19:13:18 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 17 Aug 2006 19:13:18 -0500 Subject: [AccessD] SQL Express upgrade to Developer In-Reply-To: <7205805.1155859720155.JavaMail.root@sniper38> Message-ID: <001201c6c25b$1c150570$0200a8c0@danwaters> Doug, There is a Management Studio GUI specifically for Express. There is also a version of BOL for Express too. These need to be downloaded separately from MS. There are other downloads too - such as the sample db Adventureworks. Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Thursday, August 17, 2006 7:02 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] SQL Express upgrade to Developer Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Thu Aug 17 20:49:54 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 18 Aug 2006 11:49:54 +1000 Subject: [AccessD] SQL Express upgrade to Developer References: <002b01c6c259$82b166e0$0200a8c0@murphy3234aaf1> Message-ID: <008e01c6c268$9c01f880$6501a8c0@office> Hi Doug - If I were you I wouldn't bother uninstalling the Express version - just install the developer version over the top and you will then have access to Management Studio which gives you the interface to the tools you need. I am by no means very experienced with this but this is what I have done on my main machine ands it works fine. I seem to recall having problems on my laptop having tried to uninstall the Express version....... Kath ----- Original Message ----- From: Doug Murphy To: 'Access Developers discussion and problem solving' Sent: Friday, August 18, 2006 10:01 AM Subject: [AccessD] SQL Express upgrade to Developer Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Fri Aug 18 01:58:47 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 18 Aug 2006 02:58:47 -0400 Subject: [AccessD] ...a new tool? References: <002b01c6c259$82b166e0$0200a8c0@murphy3234aaf1> <008e01c6c268$9c01f880$6501a8c0@office> Message-ID: <000301c6c293$c127f440$153ce944@50NM721> http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From Gustav at cactus.dk Fri Aug 18 04:26:57 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 18 Aug 2006 11:26:57 +0200 Subject: [AccessD] ...a new tool? Message-ID: Hi Willian Eh ...: Page not Found /gustav >>> wdhindman at dejpolsystems.com 18-08-2006 08:58:47 >>> http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From shamil at users.mns.ru Fri Aug 18 06:11:05 2006 From: shamil at users.mns.ru (Shamil Salakhetdinov) Date: Fri, 18 Aug 2006 15:11:05 +0400 Subject: [AccessD] OT:From Russia with love and Friday humor about Russians (sorry a little bit rude sometimes - do not show it to the kids.) Message-ID: <001a01c6c2b7$014f8470$6401a8c0@nant> Only in Russia * A guy drinks a glass of vodka going on appointment with a girl. * Run in the bus and then ask what the number of its route is. * Buses go with three various numbers of routes, and are always full. * The cop, selecting on the street a drunken man, will drink with him "for departure". * Laying 100 meters of a copper wire, 95 will be hand over and will be sold. * All the words having syllables 'hom', 'mood', 'gond' and 'ahoo', are considered ridiculous and abusive by definition. * Drink on Fridays so, that wake up only on Sunday in the evening. * The wife will rise on protection of the husband even if he fights with her lover. * The third question in conversation between people from different cities - about weather. * In shops on one shelf put a set of chocolates, eau du cologne and a toilet paper. * Compete with the neighbors by the amount of stuff stolen from workplace. * Nobody ever saw a Chuktcha alive, but all laugh at him. * Do not travel to Estonia because consider it's too ridiculous. * Each man knows how to put things in order in the country. * Each patient in the hospital has medical education. * The nurse in hospital always has a spirit. And with it is always possible to drink with her. * At any salute the crowd of people gathers and shouts Hurrah! * Hands wash after meal, instead of doing that before. * Man's socks should smell, otherwise these are female socks. * Casual drinking is a valid reason to not be at work the next day. * All secret military factories are known to all the population. * Steal vodka to sell and use all that money to spend on drinking vodka. * Everyone is capable to solve the troubles with any gangsters without the help of cops. * The word "kapetz" means good things and bad things simultaneously, and this word cannot be translated to any other language of the world. * Cactus is considered the best means from radiation. http://smsconsulting.spb.ru/humor/OnlyInRussia.htm -- Shamil From bheid at appdevgrp.com Fri Aug 18 07:42:50 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Fri, 18 Aug 2006 08:42:50 -0400 Subject: [AccessD] ...a new tool? In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0B13B@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D357EB@ADGSERVER> Loaded fine for me. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, August 18, 2006 5:27 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] ...a new tool? Hi Willian Eh ...: Page not Found /gustav >>> wdhindman at dejpolsystems.com 18-08-2006 08:58:47 >>> http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From garykjos at gmail.com Fri Aug 18 07:43:35 2006 From: garykjos at gmail.com (Gary Kjos) Date: Fri, 18 Aug 2006 07:43:35 -0500 Subject: [AccessD] ...a new tool? In-Reply-To: References: Message-ID: The link worked fine for me. GK On 8/18/06, Gustav Brock wrote: > Hi Willian > > Eh ...: Page not Found > > /gustav > > >>> wdhindman at dejpolsystems.com 18-08-2006 08:58:47 >>> > http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp > > ...anyone have a better idea on how to do this? > > William > > -- > 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 bchacc at san.rr.com Fri Aug 18 08:41:40 2006 From: bchacc at san.rr.com (bchacc at san.rr.com) Date: Fri, 18 Aug 2006 09:41:40 -0400 Subject: [AccessD] ...a new tool? Message-ID: <380-220068518134140703@M2W003.mail2web.com> If the point of this is to save a couple of megabytes then I wouldn't do it at all. Otherwise, it seems that importing all the objects into an empty database by using 'select all' on each tab is a 1/2 minute process. So unless I'm missing something (quite likely) this is cool but kind of a bus man's holiday? Rocky Original Message: ----------------- From: William Hindman wdhindman at dejpolsystems.com Date: Fri, 18 Aug 2006 02:58:47 -0400 To: accessd at databaseadvisors.com Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -------------------------------------------------------------------- mail2web - Check your email from the web at http://mail2web.com/ . From dwaters at usinternet.com Fri Aug 18 09:20:52 2006 From: dwaters at usinternet.com (Dan Waters) Date: Fri, 18 Aug 2006 09:20:52 -0500 Subject: [AccessD] ...a new tool? In-Reply-To: <26796386.1155884624729.JavaMail.root@sniper23> Message-ID: <001a01c6c2d1$838458c0$0200a8c0@danwaters> This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From cfoust at infostatsystems.com Fri Aug 18 10:15:30 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 18 Aug 2006 08:15:30 -0700 Subject: [AccessD] ...a new tool? In-Reply-To: <000301c6c293$c127f440$153ce944@50NM721> Message-ID: I didn't understand why he would do this in the first place. If the objects are no longer required, delete them. He seems to have found a complicated way to do something that is easily done by creating a new database and importing all from the old one with the options set to include the relationships, menus and toolbars and IMEX specs. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman Sent: Thursday, August 17, 2006 11:59 PM To: Access Developers discussion and problem solving Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Fri Aug 18 10:17:17 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 18 Aug 2006 08:17:17 -0700 Subject: [AccessD] ...a new tool? In-Reply-To: <001a01c6c2d1$838458c0$0200a8c0@danwaters> Message-ID: We run our apps through a process, but it operates against a database that has already been compacted out of source safe and needs to have security set, links removed, and certain data in the tables cleared or set. I don't see much point in what he's doing. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Friday, August 18, 2006 7:21 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...a new tool? This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Fri Aug 18 10:46:10 2006 From: dwaters at usinternet.com (Dan Waters) Date: Fri, 18 Aug 2006 10:46:10 -0500 Subject: [AccessD] ...a new tool? In-Reply-To: <26970178.1155914876721.JavaMail.root@sniper19> Message-ID: <001b01c6c2dd$6de0fc60$0200a8c0@danwaters> If you have a number of extra steps that he couldn't have foreseen, then you're right - this isn't the tool for you. But, since you do have more steps, there is even more reason for you to have an automated method to prepare a database for release (computers are more reliable than people!). And, his source code is available, so could you add capability to his code and have a tool that works well in your environment? Dan Waters -----Original Message----- Subject: Re: [AccessD] ...a new tool? We run our apps through a process, but it operates against a database that has already been compacted out of source safe and needs to have security set, links removed, and certain data in the tables cleared or set. I don't see much point in what he's doing. Charlotte Foust -----Original Message----- Subject: Re: [AccessD] ...a new tool? This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William From cfoust at infostatsystems.com Fri Aug 18 10:56:47 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 18 Aug 2006 08:56:47 -0700 Subject: [AccessD] ...a new tool? In-Reply-To: <001b01c6c2dd$6de0fc60$0200a8c0@danwaters> Message-ID: We already have a tool that works for us. However, we aren't trying to automate the things he seems to feel are important. We simply compact out a copy of our database and run it through a process to set its security, remove any linked tables, scrub and sanitize the thing, and get it ready to go out the door, including decompiling and recompiling it, compacting it, etc. I see no point in importing stuff into another database like that. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Friday, August 18, 2006 8:46 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...a new tool? If you have a number of extra steps that he couldn't have foreseen, then you're right - this isn't the tool for you. But, since you do have more steps, there is even more reason for you to have an automated method to prepare a database for release (computers are more reliable than people!). And, his source code is available, so could you add capability to his code and have a tool that works well in your environment? Dan Waters -----Original Message----- Subject: Re: [AccessD] ...a new tool? We run our apps through a process, but it operates against a database that has already been compacted out of source safe and needs to have security set, links removed, and certain data in the tables cleared or set. I don't see much point in what he's doing. Charlotte Foust -----Original Message----- Subject: Re: [AccessD] ...a new tool? This looks like a tool that would introduce a consistent mechanism for preparing to release a database. Looks good - I'll try it. Dan Waters -----Original Message----- Subject: [AccessD] ...a new tool? http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp ...anyone have a better idea on how to do this? William -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dw-murphy at cox.net Fri Aug 18 11:40:46 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Fri, 18 Aug 2006 09:40:46 -0700 Subject: [AccessD] SQL Express upgrade to Developer In-Reply-To: <008e01c6c268$9c01f880$6501a8c0@office> Message-ID: <004901c6c2e5$0e0c3c20$0200a8c0@murphy3234aaf1> Thanks Kath, I seem to remember some negative experiences that folks on this list had when Express first came out. Think it had to do with interfering with older versions of SQL Server on the machine. Since this is a new machine I don't have that problem. I'll try your approach. I'll ghost the drive first just in case. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti Sent: Thursday, August 17, 2006 6:50 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] SQL Express upgrade to Developer Hi Doug - If I were you I wouldn't bother uninstalling the Express version - just install the developer version over the top and you will then have access to Management Studio which gives you the interface to the tools you need. I am by no means very experienced with this but this is what I have done on my main machine ands it works fine. I seem to recall having problems on my laptop having tried to uninstall the Express version....... Kath ----- Original Message ----- From: Doug Murphy To: 'Access Developers discussion and problem solving' Sent: Friday, August 18, 2006 10:01 AM Subject: [AccessD] SQL Express upgrade to Developer Folks, When I put Visual Studio 2005 on my new compter it installed SQL Express which I understand is the SQL 2005 version of MSDE. I recently wanted to do some experimenting with the new version but find none of the traditional management tools or books on line are in the package. Here is the question. What problems will I create if I uninstall the Express version and install the Developer version that comes with MSDN? I am getting a little gun shy on updating MS programs since I have had some problems recently with security updates and service packs. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 dejpolsystems.com Fri Aug 18 12:24:29 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 18 Aug 2006 13:24:29 -0400 Subject: [AccessD] ...a new tool? References: Message-ID: <006f01c6c2eb$2a37f050$153ce944@50NM721> ...for those of us without such a tool ...or for those of us who prefer doing it with Access when we can, this appears to be a code set that can be customized to suit our individual needs and modified as need be ...its certainly not going to replace professional third party tools in every instance nor is it so intended. ...as for the export/import I don't track that ...I routinely do that to app versions I'm preparing for release to a client ...it may be overkill but it only takes one bad release to justify the extra step in my routine ...this simply provides code to automate that process along with a number of others that can be added. William ----- Original Message ----- From: "Charlotte Foust" To: "Access Developers discussion and problem solving" Sent: Friday, August 18, 2006 11:56 AM Subject: Re: [AccessD] ...a new tool? > We already have a tool that works for us. However, we aren't trying to > automate the things he seems to feel are important. We simply compact > out a copy of our database and run it through a process to set its > security, remove any linked tables, scrub and sanitize the thing, and > get it ready to go out the door, including decompiling and recompiling > it, compacting it, etc. I see no point in importing stuff into another > database like that. > > Charlotte Foust > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters > Sent: Friday, August 18, 2006 8:46 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...a new tool? > > If you have a number of extra steps that he couldn't have foreseen, then > you're right - this isn't the tool for you. > > But, since you do have more steps, there is even more reason for you to > have an automated method to prepare a database for release (computers > are more reliable than people!). And, his source code is available, so > could you add capability to his code and have a tool that works well in > your environment? > > Dan Waters > > > -----Original Message----- > Subject: Re: [AccessD] ...a new tool? > > We run our apps through a process, but it operates against a database > that has already been compacted out of source safe and needs to have > security set, links removed, and certain data in the tables cleared or > set. I don't see much point in what he's doing. > > Charlotte Foust > > -----Original Message----- > Subject: Re: [AccessD] ...a new tool? > > This looks like a tool that would introduce a consistent mechanism for > preparing to release a database. Looks good - I'll try it. > > Dan Waters > > -----Original Message----- > Subject: [AccessD] ...a new tool? > > http://www.codeproject.com/vbscript/AccessBatchBuildAllFiles.asp > > ...anyone have a better idea on how to do this? > > 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 markamatte at hotmail.com Fri Aug 18 12:56:24 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 18 Aug 2006 17:56:24 +0000 Subject: [AccessD] (no subject) In-Reply-To: <006f01c6c2eb$2a37f050$153ce944@50NM721> Message-ID: Hello All, I have a scenario where I get a feed of data...from theis letter I print letters and postcards. I have the logic that tells what phone numbers/text needs to change for each letter type. All of the letters were formatted in word. I was planning on recreating the word docs as reports in a db. Is this the best approach...or is there a better approach using 'mail merge' or something like that? Thanks, Mark A. Matte P.S...With either approach...the end product will just be a button that prints all reports and postcards. From markamatte at hotmail.com Fri Aug 18 12:56:44 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 18 Aug 2006 17:56:44 +0000 Subject: [AccessD] db reports or mail merge? In-Reply-To: <006f01c6c2eb$2a37f050$153ce944@50NM721> Message-ID: Hello All, I have a scenario where I get a feed of data...from theis letter I print letters and postcards. I have the logic that tells what phone numbers/text needs to change for each letter type. All of the letters were formatted in word. I was planning on recreating the word docs as reports in a db. Is this the best approach...or is there a better approach using 'mail merge' or something like that? Thanks, Mark A. Matte P.S...With either approach...the end product will just be a button that prints all reports and postcards. From eric.starkenburg at home.nl Fri Aug 18 13:47:04 2006 From: eric.starkenburg at home.nl (Eric Starkenburg) Date: Fri, 18 Aug 2006 20:47:04 +0200 Subject: [AccessD] db reports or mail merge? In-Reply-To: Message-ID: <000001c6c2f6$b2baae80$0201a8c0@PC1> Hi Mark, In my opinion you should stick with the letters which are already there and use a mailmerge. It's easier to maintain by others that just the programmer and in Word you have far more letter options than in an Access report. Good luck:) Eric Starkenburg -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte Sent: Friday, August 18, 2006 7:57 PM To: accessd at databaseadvisors.com Subject: [AccessD] db reports or mail merge? Hello All, I have a scenario where I get a feed of data...from theis letter I print letters and postcards. I have the logic that tells what phone numbers/text needs to change for each letter type. All of the letters were formatted in word. I was planning on recreating the word docs as reports in a db. Is this the best approach...or is there a better approach using 'mail merge' or something like that? Thanks, Mark A. Matte P.S...With either approach...the end product will just be a button that prints all reports and postcards. -- 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): 0633-4, 18-08-2006 Getest op: 18-08-2006 20:47:04 uur avast! auteursrecht (c) 1988-2006 ALWIL Software. http://www.avast.com From martyconnelly at shaw.ca Fri Aug 18 14:06:12 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Fri, 18 Aug 2006 12:06:12 -0700 Subject: [AccessD] db reports or mail merge? In-Reply-To: <000001c6c2f6$b2baae80$0201a8c0@PC1> References: <000001c6c2f6$b2baae80$0201a8c0@PC1> Message-ID: <44E60FA4.3080208@shaw.ca> There are some examples here of driving word mail merge from access http://www.helenfeddema.com/CodeSamples.htm http://www.helenfeddema.com/access.htm Eric Starkenburg wrote: >Hi Mark, > >In my opinion you should stick with the letters which are already there and >use a mailmerge. It's easier to maintain by others that just the programmer >and in Word you have far more letter options than in an Access report. > > >Good luck:) >Eric Starkenburg > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte >Sent: Friday, August 18, 2006 7:57 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] db reports or mail merge? > >Hello All, > >I have a scenario where I get a feed of data...from theis letter I print >letters and postcards. I have the logic that tells what phone numbers/text >needs to change for each letter type. All of the letters were formatted in >word. I was planning on recreating the word docs as reports in a db. > >Is this the best approach...or is there a better approach using 'mail merge' > >or something like that? > >Thanks, > >Mark A. Matte > >P.S...With either approach...the end product will just be a button that >prints all reports and postcards. > > > > -- Marty Connelly Victoria, B.C. Canada From wdhindman at dejpolsystems.com Fri Aug 18 19:04:43 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 18 Aug 2006 20:04:43 -0400 Subject: [AccessD] db reports or mail merge? References: <000001c6c2f6$b2baae80$0201a8c0@PC1> <44E60FA4.3080208@shaw.ca> Message-ID: <001701c6c323$13cc0fd0$153ce944@50NM721> ...our own Bryan has some really good word/access stuff here http://www3.sympatico.ca/carbonnb/bryan/index.html (check out his treeview switchboard as well) ...and this is also a fount of word and mail merge resources http://word.mvps.org/ William ----- Original Message ----- From: "MartyConnelly" To: "Access Developers discussion and problem solving" Sent: Friday, August 18, 2006 3:06 PM Subject: Re: [AccessD] db reports or mail merge? > There are some examples here of driving word mail merge from access > http://www.helenfeddema.com/CodeSamples.htm > http://www.helenfeddema.com/access.htm > > Eric Starkenburg wrote: > >>Hi Mark, >> >>In my opinion you should stick with the letters which are already there >>and >>use a mailmerge. It's easier to maintain by others that just the >>programmer >>and in Word you have far more letter options than in an Access report. >> >> >>Good luck:) >>Eric Starkenburg >> >>-----Original Message----- >>From: accessd-bounces at databaseadvisors.com >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte >>Sent: Friday, August 18, 2006 7:57 PM >>To: accessd at databaseadvisors.com >>Subject: [AccessD] db reports or mail merge? >> >>Hello All, >> >>I have a scenario where I get a feed of data...from theis letter I print >>letters and postcards. I have the logic that tells what phone >>numbers/text >>needs to change for each letter type. All of the letters were formatted >>in >>word. I was planning on recreating the word docs as reports in a db. >> >>Is this the best approach...or is there a better approach using 'mail >>merge' >> >>or something like that? >> >>Thanks, >> >>Mark A. Matte >> >>P.S...With either approach...the end product will just be a button that >>prints all reports and postcards. >> >> >> >> > > -- > 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 wdhindman at dejpolsystems.com Sat Aug 19 01:02:44 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sat, 19 Aug 2006 02:02:44 -0400 Subject: [AccessD] US Zip Codes with long/lat, time zones, and dst References: <000001c6c2f6$b2baae80$0201a8c0@PC1> <44E60FA4.3080208@shaw.ca> <001701c6c323$13cc0fd0$153ce944@50NM721> Message-ID: <000301c6c355$174915e0$153ce944@50NM721> http://civicspacelabs.org/home/developers/download ...is in csv format down in the middle of the page. ...not as current (2004) as commercial sources but its free and a compare with an Aug 2006 commercial source shows <1% differences ...except in Indiana which switched to dst this year. ...much more current than the free Access mdb that is found on a few sies. William From carbonnb at gmail.com Sat Aug 19 13:46:49 2006 From: carbonnb at gmail.com (Bryan Carbonnell) Date: Sat, 19 Aug 2006 14:46:49 -0400 Subject: [AccessD] db reports or mail merge? In-Reply-To: <001701c6c323$13cc0fd0$153ce944@50NM721> References: <000001c6c2f6$b2baae80$0201a8c0@PC1> <44E60FA4.3080208@shaw.ca> <001701c6c323$13cc0fd0$153ce944@50NM721> Message-ID: On 8/18/06, William Hindman wrote: > ...our own Bryan has some really good word/access stuff here > http://www3.sympatico.ca/carbonnb/bryan/index.html > (check out his treeview switchboard as well) Well, since William brought it up, have a look at the articles I wrote for DBA's Many-To-Many e-zine quite a while ago about putting data into Word: http://www.databaseadvisors.com/newsletters/newsletter072002.htm One of the things I don't like about mail merge (and have never looked hard enough at seeing if it's something I'm missing) is that if you do a merge and want electronic docs at the end, you get one big long doc with all the merged data in it. The data is separate for each record, but all 5 reports are in 1 big doc. Like I said, it may be a case of me not looking hard enough for the setting. -- 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 EdTesiny at oasas.state.ny.us Mon Aug 21 10:01:52 2006 From: EdTesiny at oasas.state.ny.us (Tesiny, Ed) Date: Mon, 21 Aug 2006 11:01:52 -0400 Subject: [AccessD] FYI - Access Reports & Printers Message-ID: Hi All, I'm posting this as an FYI and hopefully will keep someone else from having a very bad day. I have a fairly large Access database that I use on a regular basis. On Friday afternoon, doesn't it always happen late Friday afternoon...I tried to edit a report but I couldn't access the report, couldn't run it, couldn't view it in design mode, nothing. All the tables, queries and forms were accessible, data was there and you could go into design mode. Tried all the usual fixes, compact and repair, reboot, create a new database and import all the objects, etc., still nothing, reports were not accessible. Copied the database to a shared network drive and two colleagues could run the reports and view them in design mode. I sent this info to the OT list and Gary Kjos kindly responded asking if I had changed my default printer. Well I didn't "change" my default printer BUT MIS replaced my default printer with a newer model but kept the same network name. I deleted my default printer and then added it again, walla all my reports work again. Hopefully this might save someone a headache in the future. Regards, Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us From accessd at shaw.ca Mon Aug 21 11:18:19 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Mon, 21 Aug 2006 09:18:19 -0700 Subject: [AccessD] FYI - Access Reports & Printers In-Reply-To: Message-ID: <0J4C00D59VXB6KG0@l-daemon> Thanks for the FYI blurb... Have been there, done it and in my case, took about a week to discover the reason. This will definitely help someone in the future. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tesiny, Ed Sent: Monday, August 21, 2006 8:02 AM To: Access Developers discussion and problem solving Subject: [AccessD] FYI - Access Reports & Printers Hi All, I'm posting this as an FYI and hopefully will keep someone else from having a very bad day. I have a fairly large Access database that I use on a regular basis. On Friday afternoon, doesn't it always happen late Friday afternoon...I tried to edit a report but I couldn't access the report, couldn't run it, couldn't view it in design mode, nothing. All the tables, queries and forms were accessible, data was there and you could go into design mode. Tried all the usual fixes, compact and repair, reboot, create a new database and import all the objects, etc., still nothing, reports were not accessible. Copied the database to a shared network drive and two colleagues could run the reports and view them in design mode. I sent this info to the OT list and Gary Kjos kindly responded asking if I had changed my default printer. Well I didn't "change" my default printer BUT MIS replaced my default printer with a newer model but kept the same network name. I deleted my default printer and then added it again, walla all my reports work again. Hopefully this might save someone a headache in the future. Regards, Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From askolits at ot.com Mon Aug 21 14:46:16 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 15:46:16 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <0J4C00D59VXB6KG0@l-daemon> Message-ID: <004d01c6c55a$7baf1c80$6701a8c0@LaptopXP> I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John From dwaters at usinternet.com Mon Aug 21 14:58:17 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 14:58:17 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <23763101.1156190046310.JavaMail.root@sniper23> Message-ID: <002001c6c55c$25c68c70$0200a8c0@danwaters> John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John From askolits at ot.com Mon Aug 21 15:17:59 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 16:17:59 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002001c6c55c$25c68c70$0200a8c0@danwaters> Message-ID: <000201c6c55e$e8ddde50$800101df@officexp> Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Mon Aug 21 15:34:51 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 15:34:51 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <1377707.1156191718579.JavaMail.root@sniper16> Message-ID: <002401c6c561$41257030$0200a8c0@danwaters> It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From askolits at ot.com Mon Aug 21 15:51:19 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 16:51:19 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002401c6c561$41257030$0200a8c0@danwaters> Message-ID: <000501c6c563$9093d740$800101df@officexp> Boy, I kind of feel it's dangerous not to be more explicit when identifying a particular control. I've been using access since it's birth and hardly see any code examples that don't include some type of identifier. Am I losing it or something. Anyone else have any input? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 4:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Erwin.Craps at ithelps.be Mon Aug 21 16:44:09 2006 From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps) Date: Mon, 21 Aug 2006 23:44:09 +0200 Subject: [AccessD] Bang and Dot operator in Runtimes. Message-ID: When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Mon Aug 21 17:02:55 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 17:02:55 -0500 Subject: [AccessD] Pretty Code - An Alternate? Message-ID: <002501c6c56d$8f07d480$0200a8c0@danwaters> I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan From dwaters at usinternet.com Mon Aug 21 17:28:16 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 17:28:16 -0500 Subject: [AccessD] Programmatically Capturing Form (and Report?) Screens With SnagIt Message-ID: <002601c6c571$19b77e70$0200a8c0@danwaters> Just FYI - On this page: http://www.igetit.net/SampleCode/snagit_vba_code.asp a code listing is given which programmatically goes through all the forms in an Access database and captures images of them using VBA methods and properties of SnagIt. Could be speedy! Dan From dmcafee at pacbell.net Mon Aug 21 18:46:37 2006 From: dmcafee at pacbell.net (David Mcafee) Date: Mon, 21 Aug 2006 16:46:37 -0700 (PDT) Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <002501c6c56d$8f07d480$0200a8c0@danwaters> Message-ID: <20060821234637.16285.qmail@web80830.mail.yahoo.com> I once wrote a macro in word called colorVBA. I simply pasted the code into word and ran the macro. The macro (I cant find it at the moment) simply looked for certain keywords and colored them blue. If it found an apostrophe, it colored the rest of the line green. It wasn't pretty, but it was free :) I still don't know after years and years or programming, why MS doesnt allow a print code (in color) option. David ----- Original Message ---- From: Dan Waters To: Access Developers discussion and problem solving Sent: Monday, August 21, 2006 3:02:55 PM Subject: [AccessD] Pretty Code - An Alternate? I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Mon Aug 21 18:54:17 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 21 Aug 2006 18:54:17 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <21623074.1156204222470.JavaMail.root@sniper18> Message-ID: <000301c6c57d$1e162730$0200a8c0@danwaters> Yea - sometimes MS is pretty stingy. Maybe it'll be in Office 2007. Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I once wrote a macro in word called colorVBA. I simply pasted the code into word and ran the macro. The macro (I cant find it at the moment) simply looked for certain keywords and colored them blue. If it found an apostrophe, it colored the rest of the line green. It wasn't pretty, but it was free :) I still don't know after years and years or programming, why MS doesnt allow a print code (in color) option. David ----- Original Message ---- Subject: [AccessD] Pretty Code - An Alternate? I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan From darrend at nimble.com.au Mon Aug 21 18:55:25 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 22 Aug 2006 09:55:25 +1000 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <002501c6c56d$8f07d480$0200a8c0@danwaters> Message-ID: <20060821235528.ADC6498.omta03ps.mx.bigpond.com@DENZILLAP> Crimson editor - it's free and loves SQL http://www.crimsoneditor.com/ Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, 22 August 2006 8:03 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Pretty Code - An Alternate? I would like to print out code that is colored and more useful that what can be done from the VBA IDE. Pretty Code for VBA looks great, but it's price at $89 is not. Does anyone have an alternate recommendation? Thanks! Dan -- 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 Aug 21 19:30:39 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Tue, 22 Aug 2006 10:30:39 +1000 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <20060821235528.ADC6498.omta03ps.mx.bigpond.com@DENZILLAP> References: <002501c6c56d$8f07d480$0200a8c0@danwaters>, <20060821235528.ADC6498.omta03ps.mx.bigpond.com@DENZILLAP> Message-ID: <44EADCCF.25873.69AB73@stuart.lexacorp.com.pg> On 22 Aug 2006 at 9:55, Darren DICK wrote: > Crimson editor - it's free and loves SQL > > http://www.crimsoneditor.com/ > I second that. I used to use Notetab for everything, but started using CE as my editor for AutoIt a couple of years ago. I found myself using CE more and more and Notetab less and less and now use it almost exclusively for text editing. -- Stuart McLachlan From askolits at ot.com Mon Aug 21 21:09:22 2006 From: askolits at ot.com (John Skolits) Date: Mon, 21 Aug 2006 22:09:22 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: Message-ID: <001001c6c58f$fc5e46f0$6701a8c0@LaptopXP> Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 22 00:42:51 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 21 Aug 2006 22:42:51 -0700 Subject: [AccessD] [Fwd: Word XP and access] Message-ID: <44EA995B.50409@san.rr.com> Dear List: My client writes: I have a template that has mail merge codes in it. I have a one-table Access mdb to which the template is linked. My regular access program empties and reloads the single table in the one-table mdb. Then my regular Access program opens the template and saves it to a predetermined .doc file... The only problem is when the template is being opened, I get a MS Word message that says: "Opening this document will run the following SQL command. Etc. Question: How do I prevent that screen warning? Anybody know the answer? MTIA, Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From adtp at hotmail.com Tue Aug 22 01:47:16 2006 From: adtp at hotmail.com (A.D.TEJPAL) Date: Tue, 22 Aug 2006 12:17:16 +0530 Subject: [AccessD] Bang and Dot operator in Runtimes. References: <001001c6c58f$fc5e46f0$6701a8c0@LaptopXP> Message-ID: John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John From artful at rogers.com Tue Aug 22 03:36:56 2006 From: artful at rogers.com (artful at rogers.com) Date: Tue, 22 Aug 2006 01:36:56 -0700 (PDT) Subject: [AccessD] Save datasheet layout In-Reply-To: <20060817085621.3785.qmail@web88212.mail.re2.yahoo.com> Message-ID: <20060822083656.52946.qmail@web88205.mail.re2.yahoo.com> Ever wanted to save a datasheet layout in an MDE? This code shows how: http://www.databasejournal.com/features/msaccess/article.php/3627056. Arthur From accessd at shaw.ca Tue Aug 22 03:39:24 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 22 Aug 2006 01:39:24 -0700 Subject: [AccessD] Filling a multi column combo box In-Reply-To: Message-ID: <0J4E00ERH5CD0990@l-daemon> Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA Jim From Robin at rolledgold.net Tue Aug 22 04:03:08 2006 From: Robin at rolledgold.net (Robin ) Date: Tue, 22 Aug 2006 10:03:08 +0100 Subject: [AccessD] Filling a multi column combo box Message-ID: <560E2B80EC8F624B93A87B943B7A9CD54242F1@rgiserv.rg.local> Jim, Put the text values (separated by semicolons) in the row source property in form design and set the row source type to value list.... Rgds Robin -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: 22 August 2006 09:39 To: 'Access Developers discussion and problem solving' Subject: [AccessD] Filling a multi column combo box Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA Jim -- 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 Aug 22 05:45:24 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Tue, 22 Aug 2006 10:45:24 +0000 Subject: [AccessD] Filling a multi column combo box Message-ID: <20060822094527.827D82742D9@smtp.nildram.co.uk> Jim Do you mean juts putting in a Value list? If so it's just a list of entried separated by semi-colons (or can be commas). The Number Of Columns property determines which fall in the same row and which in the next. So: Fred;Smith;Annie;Oakley with a Number Of columns of 1 will get you Fred Smith Annie Oakley but with Number Of Columns set to 2 will give you Fred Smith Annie Oakley Is that what you meant? HTH Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "'Access Developers discussion and problem solving'" Subject: [AccessD] Filling a multi column combo box Date: 22/08/06 08:40 Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA 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 wdhindman at dejpolsystems.com Tue Aug 22 05:34:35 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Tue, 22 Aug 2006 06:34:35 -0400 Subject: [AccessD] [Fwd: Word XP and access] References: <44EA995B.50409@san.rr.com> Message-ID: <000901c6c5d6$90a232e0$153ce944@50NM721> ...try something like Application.DisplayAlerts = wdAlertsNone Documents.Open FileName:="c:\my documents\testmerg.doc" Application.DisplayAlerts = wdAlertsAll ...hth William ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Tuesday, August 22, 2006 1:42 AM Subject: [AccessD] [Fwd: Word XP and access] > Dear List: > > My client writes: > > I have a template that has mail merge codes in it. I have a one-table > Access mdb to which the template is linked. My regular access program > empties and reloads the single table in the one-table mdb. > > Then my regular Access program opens the template and saves it to a > predetermined .doc file... The only problem is when the template is > being opened, I get a MS Word message that says: "Opening this document > will run the following SQL command. Etc. > > Question: How do I prevent that screen warning? > > Anybody know the answer? > > MTIA, > > 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 Gustav at cactus.dk Tue Aug 22 08:11:24 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 15:11:24 +0200 Subject: [AccessD] DB2 and Ruby on Rails (was: Data interface The best way) Message-ID: Hi Shamil, Ken et al Just noticed this link to a free Starter Toolkit for DB2 on Rails: http://alphaworks.ibm.com/tech/db2onrails Starter Toolkit for DB2? on Rails is a conveniently-packaged set of products and technologies that enables the quick creation of a configuration for building DB2 Web applications using Ruby on Rails technology. Also note the free DB2 Express-C database engine: http://www-306.ibm.com/software/data/db2/udb/db2express/download.html /gustav >>> shamil at users.mns.ru 20-10-2005 00:02:47 >>> <<< Ruby on Rails is the prime example. >>> Ken, Believe or not but just yesterday I have bookmarked Ruby's main Web site: http://www.ruby-lang.org/en/ for investigations when (if ever) I will have free time. Yes, I have heard about Ruby or Rails and I also plan to give it a try. Ruby looks like being the most advanced modern OO language - it has amazing things like modifying class definition on-the-fly so it may happen a running application will have object instances of the same class with different call interfaces. I still to realize for what real-life applications such flexibility is needed... > Model-View-Controller model. Ruby on Rails is the prime example. Well, MS Avalon(Windows Presentation Foundation) has this model as one of its key concepts. And my own rather naive that times (1998) but so true as far as I see now VBA/VB6-programming concept I called "DEEP-object concept" (http://www.smsconsulting.spb.ru/shamil_s/articles/deepcnpt.htm) was partially about Model-View-Controller model partially about what is called "low coupling" and "high cohesion" OOP concepts and related stuff.(I wasn't aware about that concepts that times, stupid me) It was developed later into several proprietary commercial frameworks - so it was never published. (Well, I did give it a try to develop open source very advanced VBA framework using MS Access 2000 summer 1999 but because it was a programming on the edge and because MS Access 97/2000 have "termination bug", which didn't have stable workaround it didn't work and I deleted/lost all the code I developed that times. Stupid me again. In MS Access XP/2003 the "termination bug" was finally fixed.) Well known here in AccessD VBA framework based on these concepts is John Colby's framework of course. > Since I have far from a deep understanding of MVC IMO it would have better called Model View Dispatcher model (or Model Dispatcher View). Or I don't understand English well to feel all the nuances or certain words - for me Controller is something that controls and Dispatcher is something that dispatches - and dispatching IMO implies no strict control at all and less coupling between Model and View. And in MVC model Controller's role is just to dispatch messages (calls) from View to Model or callbacks(events) from Model to View(s) - it doesn't control anything... Thank you for the links on Django and TurboGears but it looks like I will have time for them "in my next life only"... Shamil ----- Original Message ----- From: "Ken Ismert" To: "Access Developers discussion and problem solving" Sent: Wednesday, October 19, 2005 11:26 PM Subject: Re: [AccessD] Data interface The best way > > Shamil, > > >As for "an object design down to the lowest level" - > >this is still questionable here how it should be done - > >and it's getting the more questionable what this design > >should be the more I'm getting into the modern methods > >of OOP&D... > > Theoretical questions aside, the notable object-data systems doing > useful things now are the open-source web frameworks using the > Model-View-Controller model. Ruby on Rails is the prime example. > > Since I have far from a deep understanding of MVC, I will just point out > that the data objects are modeled in code, and changes in the data > objects are reflected to the table structure of the underlying database. > > > One challenge that future OO DBMS projects will have is equalling or > bettering the ease-of-use of these MVC frameworks. One thing is certain: > they'll never beat the price. > > Ruby on Rails > http://www.rubyonrails.org/ > > Django > http://www.djangoproject.com/ > > TurboGears > http://www.turbogears.org/ > > Ruby on Rails > Model-View-Controller Article > http://en.wikipedia.org/wiki/Ruby_On_Rails > > -Ken From jwcolby at colbyconsulting.com Tue Aug 22 08:22:37 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 09:22:37 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: Message-ID: <003801c6c5ee$0a7cd7c0$657aa8c0@m6805> In addition to this, you should understand the concepts. Starting (I believe) in Access97, Microsoft started trying to steer developers into a consistent usage of the Dot ( . ) and Bang ( ! ) operators. For backwards compatibility they left the ability to use either, but the DOT operator refers to PROPERTIES, throughout the language. You never see (for example) MyCombo!Value, and in fact that probably wouldn't even work. The PROPERTY Value is referred to using the DOT operator - MyCombo.Value. The BANG operator ( ! ) refers to OBJECTS, MyForm!MyTextBox (for example), where MyForm is an object (a form object) and MyTextBox is an object (a text box object). So the syntactically correct usage is MyForm!MyControl.SomeProperty, where SomeProperty is a property of the OBJECT MyControl contained in the (default) controls collection of the MyForm object. Notice that the same sequence is used recordsets (for example) MyRecordset!MyField[.SomeProperty] MyRecordset is an object. MyField is also AN OBJECT, it is a field object in the DAO (or ADO for that matter) programming syntax. You would then use it in a statement: MyRecordset!MyField = "Test" OR MyRecordset!MyField.Value = "Test" You may succeed in mixing them (bang and dot) up and still get the program to work, but it is only because VBA attempts to "guess" what you mean, and succeeds most of the time. It is those times when it fails that you get seemingly unexplainable results. It is our responsibility to use explicit syntax to TELL VBA what we mean, avoiding the guesswork. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of A.D.TEJPAL Sent: Tuesday, August 22, 2006 2:47 AM To: Access Developers discussion and problem solving Cc: ADT Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Tue Aug 22 08:39:43 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 08:39:43 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <28059409.1156253115983.JavaMail.root@sniper40> Message-ID: <000a01c6c5f0$6d62c410$0200a8c0@danwaters> Hello John, I do understand the difference between ! and . and how to use them. But on a form when all I want to do is set the value of a control on a bound form, what is wrong with just: txtPerson = "Dan Waters" A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. In addition to this, you should understand the concepts. Starting (I believe) in Access97, Microsoft started trying to steer developers into a consistent usage of the Dot ( . ) and Bang ( ! ) operators. For backwards compatibility they left the ability to use either, but the DOT operator refers to PROPERTIES, throughout the language. You never see (for example) MyCombo!Value, and in fact that probably wouldn't even work. The PROPERTY Value is referred to using the DOT operator - MyCombo.Value. The BANG operator ( ! ) refers to OBJECTS, MyForm!MyTextBox (for example), where MyForm is an object (a form object) and MyTextBox is an object (a text box object). So the syntactically correct usage is MyForm!MyControl.SomeProperty, where SomeProperty is a property of the OBJECT MyControl contained in the (default) controls collection of the MyForm object. Notice that the same sequence is used recordsets (for example) MyRecordset!MyField[.SomeProperty] MyRecordset is an object. MyField is also AN OBJECT, it is a field object in the DAO (or ADO for that matter) programming syntax. You would then use it in a statement: MyRecordset!MyField = "Test" OR MyRecordset!MyField.Value = "Test" You may succeed in mixing them (bang and dot) up and still get the program to work, but it is only because VBA attempts to "guess" what you mean, and succeeds most of the time. It is those times when it fails that you get seemingly unexplainable results. It is our responsibility to use explicit syntax to TELL VBA what we mean, avoiding the guesswork. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- From reuben at gfconsultants.com Tue Aug 22 08:39:16 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Tue, 22 Aug 2006 09:39:16 -0400 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <002501c6c56d$8f07d480$0200a8c0@danwaters> Message-ID: I use VBA Code Print from this company http://www.starprint2000.com/ 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: Monday, August 21, 2006 6:03 PM > To: 'Access Developers discussion and problem solving' > Subject: [AccessD] Pretty Code - An Alternate? > > > I would like to print out code that is colored and more useful > that what can > be done from the VBA IDE. Pretty Code for VBA looks great, but it's price > at $89 is not. > > Does anyone have an alternate recommendation? > > Thanks! > > Dan > > -- > 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 Tue Aug 22 08:46:57 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 09:46:57 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4C@EXCNYSM0A1AI.nysemail.nyenet> Hi all Is there a way to set the ODBC timeout default in the query properties from 60 to 6000 permanently? Most of our work is against our ORACLE databases, some Foxpro, and SqlServer. For every new query we do we have to remember to reset this before running otherwise we get a timeout. Does not matter how easy or hard the query is, If it isn't at least 600 then poof it stops. One person said that it would cause their MDB to corrupt but I haven't had that problem. The OPTIONS ADVANCED does not do this. I have looked almost everywhere but can't find out how to change the default. This would be for 2k or 2k3. Any help appreciated Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 bchacc at san.rr.com Tue Aug 22 08:49:00 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 22 Aug 2006 06:49:00 -0700 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <000901c6c5d6$90a232e0$153ce944@50NM721> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> Message-ID: <44EB0B4C.3030003@san.rr.com> Look right to me (what do I know?). I'll forward to the client and let him test it. T&R Rocky William Hindman wrote: > ...try something like > > Application.DisplayAlerts = wdAlertsNone > Documents.Open FileName:="c:\my documents\testmerg.doc" > Application.DisplayAlerts = wdAlertsAll > > ...hth > > William > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Tuesday, August 22, 2006 1:42 AM > Subject: [AccessD] [Fwd: Word XP and access] > > > >> Dear List: >> >> My client writes: >> >> I have a template that has mail merge codes in it. I have a one-table >> Access mdb to which the template is linked. My regular access program >> empties and reloads the single table in the one-table mdb. >> >> Then my regular Access program opens the template and saves it to a >> predetermined .doc file... The only problem is when the template is >> being opened, I get a MS Word message that says: "Opening this document >> will run the following SQL command. Etc. >> >> Question: How do I prevent that screen warning? >> >> Anybody know the answer? >> >> MTIA, >> >> 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 >> >> > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From ssharkins at setel.com Tue Aug 22 08:59:10 2006 From: ssharkins at setel.com (Susan Harkins) Date: Tue, 22 Aug 2006 09:59:10 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <000a01c6c5f0$6d62c410$0200a8c0@danwaters> Message-ID: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> Me isn't required anymore. You're right. Some people still use it out of habit, for backward compatibility, and for self-documentation purposes although I'm not sure I really get the latter point. Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Susan H. A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? From garykjos at gmail.com Tue Aug 22 09:10:49 2006 From: garykjos at gmail.com (Gary Kjos) Date: Tue, 22 Aug 2006 09:10:49 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4C@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4C@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: Which ODBC driver are you using? With the Oracle ODBC Driver for Oracle you can tell it to just NOT timeout by unchecking the Timeout checkbox. On 8/22/06, O'Connor, Patricia (OTDA) wrote: > Hi all > > Is there a way to set the ODBC timeout default in the query properties > from 60 to 6000 permanently? Most of our work is against our ORACLE > databases, some Foxpro, and SqlServer. For every new query we do we have > to remember to reset this before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at least 600 > then poof it stops. One person said that it would cause their MDB to > corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost everywhere > but can't find out how to change the default. This would be for 2k or > 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 > -- Gary Kjos garykjos at gmail.com From markamatte at hotmail.com Tue Aug 22 09:22:58 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 22 Aug 2006 14:22:58 +0000 Subject: [AccessD] A97 and confused??? In-Reply-To: <44EB0B4C.3030003@san.rr.com> Message-ID: Hello All, I have a table with 147 rows. If I open the table...there are no filters...only 147 rows. If I run a MakeTable or an APPEND query based on this table I get 147 rows...If I display the datasheet view of "DELETE tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I execute this exact same SQL...the message is I'm about to delete 3723 rows??? I haven't clicked yes...not really too concerned...just repair and compact...but very curious if anyone has an understanding/explanation of this? Thanks, Mark A. Matte From bchacc at san.rr.com Tue Aug 22 09:25:05 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Tue, 22 Aug 2006 07:25:05 -0700 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> References: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> Message-ID: <44EB13C1.6040609@san.rr.com> I use me. because of the autofill (auto-complete? Intellisense?). I tend to use long names and make typing errors. So that eliminates that problem and makes the coding go faster. Type me. and I get a pop-up with all the control names. Rocky Susan Harkins wrote: > Me isn't required anymore. You're right. Some people still use it out of > habit, for backward compatibility, and for self-documentation purposes > although I'm not sure I really get the latter point. > > Now, Me.txtPerson may be more efficient in that Access doesn't have to > resolve the reference because it's already there. How much the Me identifier > impacts performance with today's systems probably isn't worth the bother. A > lot of the things we use to do for the sake of efficiency just don't matter > anymore. > > Susan H. > > > A.D. said that using Me.txtPerson is more efficient, but how is it more > efficient, and is it so much more efficient that I should slow down my > programming to add all those Me.'s? Of is it just that if you're going to > use Me. or a M!, then Me. is better? > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From dwaters at usinternet.com Tue Aug 22 09:28:11 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 09:28:11 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <9499683.1156254271910.JavaMail.root@sniper17> Message-ID: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Hi Reuben, This looks like it has essentially the same features as PrettyCode, but is $30 less. Is there anything in VBA Code Print that should be there but isn't? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I use VBA Code Print from this company http://www.starprint2000.com/ Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > Subject: [AccessD] Pretty Code - An Alternate? > > > I would like to print out code that is colored and more useful > that what can > be done from the VBA IDE. Pretty Code for VBA looks great, but it's price > at $89 is not. > > Does anyone have an alternate recommendation? > > Thanks! > > Dan From dwaters at usinternet.com Tue Aug 22 09:28:11 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 09:28:11 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <15770438.1156255486617.JavaMail.root@sniper22> Message-ID: <000c01c6c5f7$32a2ec90$0200a8c0@danwaters> Thanks Susan! Dan Waters -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Me isn't required anymore. You're right. Some people still use it out of habit, for backward compatibility, and for self-documentation purposes although I'm not sure I really get the latter point. Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Susan H. A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Tue Aug 22 09:31:52 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 09:31:52 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <8955394.1156207501283.JavaMail.root@sniper39> Message-ID: <000d01c6c5f7$b65c8af0$0200a8c0@danwaters> For a free application Crimson Editor is quite a piece of work! I used it last night to print out 40 pages of colored code that I can review today. I do want to be able to page break at procedure headers, put lines between procedures, and have line connectors for Select Case and If/Else/End If statements. But if you write code in a text editor, this has to be great! Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? On 22 Aug 2006 at 9:55, Darren DICK wrote: > Crimson editor - it's free and loves SQL > > http://www.crimsoneditor.com/ > I second that. I used to use Notetab for everything, but started using CE as my editor for AutoIt a couple of years ago. I found myself using CE more and more and Notetab less and less and now use it almost exclusively for text editing. -- Stuart McLachlan From Gustav at cactus.dk Tue Aug 22 09:41:13 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 16:41:13 +0200 Subject: [AccessD] Change ODBC timeout default query property Message-ID: Hi Patricia You can set that property using DAO: CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 Of course, to carry this out create a loop that somehow filters only those querydefs that have to be modified. /gustav >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> Hi all Is there a way to set the ODBC timeout default in the query properties from 60 to 6000 permanently? Most of our work is against our ORACLE databases, some Foxpro, and SqlServer. For every new query we do we have to remember to reset this before running otherwise we get a timeout. Does not matter how easy or hard the query is, If it isn't at least 600 then poof it stops. One person said that it would cause their MDB to corrupt but I haven't had that problem. The OPTIONS ADVANCED does not do this. I have looked almost everywhere but can't find out how to change the default. This would be for 2k or 2k3. Any help appreciated Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.state.ny.us ************************************************** From jwcolby at colbyconsulting.com Tue Aug 22 09:50:18 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 10:50:18 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <000a01c6c5f0$6d62c410$0200a8c0@danwaters> Message-ID: <003a01c6c5fa$49e7c620$657aa8c0@m6805> Well, first of all it is me!txtPerson since txtPerson is an object and not a property. As for the rest, there is nothing wrong with using just txtPerson = "some value". It is syntactically correct. VBA does have to resolve the reference, i.e. it has to figure out what txtPerson is, whereas if you state me!txtPerson then VBA knows that txtPerson is an object and it goes to look directly in the collection of objects (the controls collection) without having to figure out that txtPerson is an object. Essentially VBA has to go LOOKING FOR txtPerson if you don't state me!txtPerson. Do you care? Probably not unless you have a very complex form that references a bunch of controls as the form opens or something, in which case you might use something like with me !txtPerson = XYZ !Salary=123.45 etc etc end with I do not use the Me operator except in such cases. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, August 22, 2006 9:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Hello John, I do understand the difference between ! and . and how to use them. But on a form when all I want to do is set the value of a control on a bound form, what is wrong with just: txtPerson = "Dan Waters" A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. In addition to this, you should understand the concepts. Starting (I believe) in Access97, Microsoft started trying to steer developers into a consistent usage of the Dot ( . ) and Bang ( ! ) operators. For backwards compatibility they left the ability to use either, but the DOT operator refers to PROPERTIES, throughout the language. You never see (for example) MyCombo!Value, and in fact that probably wouldn't even work. The PROPERTY Value is referred to using the DOT operator - MyCombo.Value. The BANG operator ( ! ) refers to OBJECTS, MyForm!MyTextBox (for example), where MyForm is an object (a form object) and MyTextBox is an object (a text box object). So the syntactically correct usage is MyForm!MyControl.SomeProperty, where SomeProperty is a property of the OBJECT MyControl contained in the (default) controls collection of the MyForm object. Notice that the same sequence is used recordsets (for example) MyRecordset!MyField[.SomeProperty] MyRecordset is an object. MyField is also AN OBJECT, it is a field object in the DAO (or ADO for that matter) programming syntax. You would then use it in a statement: MyRecordset!MyField = "Test" OR MyRecordset!MyField.Value = "Test" You may succeed in mixing them (bang and dot) up and still get the program to work, but it is only because VBA attempts to "guess" what you mean, and succeeds most of the time. It is those times when it fails that you get seemingly unexplainable results. It is our responsibility to use explicit syntax to TELL VBA what we mean, avoiding the guesswork. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, In Access 2000 as well as 2003, tests conducted on form named F_BangDot, having unbound text boxes named TxtDate_A to L, all the eleven alternative statements in click event of command button CmdTest, as given below, are found to work effectively. The problem reported by you should not have any reason to occur. You might like to try it out on a newly created form. If still any problem, I could send you a copy of this form if desired, demonstrating all the alternatives. For use within code module of a form containing the text box in question, use of Me identifier, as in statement (A) below, is considered most efficient. Best wishes, A.D.Tejpal --------------- ====================================== Private Sub CmdTest_Click() Me.TxtDate_A = #1/1/2001# ' (A) Me("TxtDate_B") = #1/2/2001# ' (B) Me!TxtDate_C = #1/3/2001# ' (C) Me.Controls("TxtDate_D") = #1/4/2001# ' (D) Me.Controls!TxtDate_E = #1/5/2001# ' (E) Forms("F_BangDot")("TxtDate_F") _ = #1/6/2001# ' (F) Forms!F_BangDot!TxtDate_G = #1/7/2001# ' (G) Forms("F_BangDot").Controls("TxtDate_H") _ = #1/8/2001# ' (H) Forms!F_BangDot.Controls!TxtDate_J _ = #1/9/2001# ' (J) Forms("F_BangDot").TxtDate_K = #1/10/2001# ' (K) Forms!F_BangDot.TxtDate_L = #1/11/2001# ' (L) ' Note: ' (a) Statement (A) is considered the most efficient ' when used within code module of form ' containing the text box. - although all the oher ' statements, i.e. (B) to (L) are also found to ' work effectively. ' (b) Statement (B) is the preferred short style of ' complete syntax represented by statement (D). ' This syntax can be adopted universally by ' substituting Forms("FormName") instead of Me ' as illustrated in (F) and (H). ' (c) Statements (C), (E), (G) and (J) are equivalent ' to (B), (D), (F) and (H) respectively, but with ' bang operator. ' (d) Statements (K) & (L) are hybrid versions. ' (e) Basically, bang operator is meant as a replacement ' for ("--") style, when referring to a member in ' a collection. ' Important: ' In queries, bang operator is the only one that is ' accepted. End Sub ====================================== ----- Original Message ----- From: John Skolits To: 'Access Developers discussion and problem solving' Sent: Tuesday, August 22, 2006 07:39 Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Actually, it is a bound form, but this turns out to be an unbound text box on the form. So, there is no field named "txtDate", just the text box name. Therefore, why would the "!" work and not the "." I could certainly re-design the form, but the reason for posting the question in the first place is to find out why is this happening anyway. And I've seen it many times before. Must have something to do with it being an unbound control. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT Helps Sent: Monday, August 21, 2006 5:44 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. When using me.txtdate your are refering to the control on a form. When using me!txtdate you are refering to the field from the forms recordset (rowsource). But for what concerns your error. When using me.txtDate = #1/1/2001# the code can fails depending of whats in the controlsource. If you replace the . By a ! Than you maybe have no error but you are refering tho the field instead of the control (in case a field exists with that name). -----Oorspronkelijk bericht----- Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens John Skolits Verzonden: maandag 21 augustus 2006 21:46 Aan: 'Access Developers discussion and problem solving' Onderwerp: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Tue Aug 22 09:52:14 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 10:52:14 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <002901c6c5f3$252c8fc0$61b62ad1@SUSANONE> Message-ID: <003b01c6c5fa$8f0bf820$657aa8c0@m6805> >Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Agreed. VBA is extremely fast and often the time it takes to do something is overpowered by other things such as loading a recordset while loading the form. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins Sent: Tuesday, August 22, 2006 9:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Me isn't required anymore. You're right. Some people still use it out of habit, for backward compatibility, and for self-documentation purposes although I'm not sure I really get the latter point. Now, Me.txtPerson may be more efficient in that Access doesn't have to resolve the reference because it's already there. How much the Me identifier impacts performance with today's systems probably isn't worth the bother. A lot of the things we use to do for the sake of efficiency just don't matter anymore. Susan H. A.D. said that using Me.txtPerson is more efficient, but how is it more efficient, and is it so much more efficient that I should slow down my programming to add all those Me.'s? Of is it just that if you're going to use Me. or a M!, then Me. is better? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DWUTKA at marlow.com Tue Aug 22 09:53:02 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 22 Aug 2006 09:53:02 -0500 Subject: [AccessD] A97 and confused??? Message-ID: <17724746D360394AA3BFE5B8D40A9C1BEE8DDE@MARLOW_MAIN2.marlow.com> Have there been that many records before, that were deleted? Also, are you using the latest service pack for 97? Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Tuesday, August 22, 2006 9:23 AM To: accessd at databaseadvisors.com Subject: [AccessD] A97 and confused??? Hello All, I have a table with 147 rows. If I open the table...there are no filters...only 147 rows. If I run a MakeTable or an APPEND query based on this table I get 147 rows...If I display the datasheet view of "DELETE tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I execute this exact same SQL...the message is I'm about to delete 3723 rows??? I haven't clicked yes...not really too concerned...just repair and compact...but very curious if anyone has an understanding/explanation of this? Thanks, Mark A. Matte -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From reuben at gfconsultants.com Tue Aug 22 09:57:55 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Tue, 22 Aug 2006 10:57:55 -0400 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Message-ID: I can't think of anything that I have ever wished for, but never had. I think it's pretty complete. You can set many options to change how it prints your code. You can print an entire project, one procedure, or a selection. You can export any of the same to a pdf, html, or rtf. I like it. 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, August 22, 2006 10:28 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Pretty Code - An Alternate? > > > Hi Reuben, > > This looks like it has essentially the same features as PrettyCode, but is > $30 less. > > Is there anything in VBA Code Print that should be there but isn't? > > Thanks! > Dan > > > -----Original Message----- > Subject: Re: [AccessD] Pretty Code - An Alternate? > > I use VBA Code Print from this company http://www.starprint2000.com/ > > Reuben Cummings > GFC, LLC > 812.523.1017 > > > > -----Original Message----- > > Subject: [AccessD] Pretty Code - An Alternate? > > > > > > I would like to print out code that is colored and more useful > > that what can > > be done from the VBA IDE. Pretty Code for VBA looks great, but > it's price > > at $89 is not. > > > > Does anyone have an alternate recommendation? > > > > Thanks! > > > > Dan > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From dwaters at usinternet.com Tue Aug 22 10:06:14 2006 From: dwaters at usinternet.com (Dan Waters) Date: Tue, 22 Aug 2006 10:06:14 -0500 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <32254225.1156259016708.JavaMail.root@sniper14> Message-ID: <000e01c6c5fc$8378cb80$0200a8c0@danwaters> Great! I'll give it a go! Dan Waters -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I can't think of anything that I have ever wished for, but never had. I think it's pretty complete. You can set many options to change how it prints your code. You can print an entire project, one procedure, or a selection. You can export any of the same to a pdf, html, or rtf. I like it. Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > Subject: Re: [AccessD] Pretty Code - An Alternate? > > > Hi Reuben, > > This looks like it has essentially the same features as PrettyCode, but is > $30 less. > > Is there anything in VBA Code Print that should be there but isn't? > > Thanks! > Dan > > > -----Original Message----- > Subject: Re: [AccessD] Pretty Code - An Alternate? > > I use VBA Code Print from this company http://www.starprint2000.com/ > > Reuben Cummings > GFC, LLC > 812.523.1017 > > > > -----Original Message----- > > Subject: [AccessD] Pretty Code - An Alternate? > > > > > > I would like to print out code that is colored and more useful > > that what can > > be done from the VBA IDE. Pretty Code for VBA looks great, but > it's price > > at $89 is not. > > > > Does anyone have an alternate recommendation? > > > > Thanks! > > > > Dan From markamatte at hotmail.com Tue Aug 22 10:14:27 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 22 Aug 2006 15:14:27 +0000 Subject: [AccessD] A97 and confused??? In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BEE8DDE@MARLOW_MAIN2.marlow.com> Message-ID: Drew, I don't believe its the latest service pack(machine at work)...and I know there were records there before...just not sure how many? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 09:53:02 -0500 > >Have there been that many records before, that were deleted? Also, are you >using the latest service pack for 97? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 9:23 AM >To: accessd at databaseadvisors.com >Subject: [AccessD] A97 and confused??? > >Hello All, > >I have a table with 147 rows. If I open the table...there are no >filters...only 147 rows. If I run a MakeTable or an APPEND query based on >this table I get 147 rows...If I display the datasheet view of "DELETE >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I >execute > >this exact same SQL...the message is I'm about to delete 3723 rows??? I >haven't clicked yes...not really too concerned...just repair and >compact...but very curious if anyone has an understanding/explanation of >this? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >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 Aug 22 10:20:57 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 22 Aug 2006 10:20:57 -0500 Subject: [AccessD] A97 and confused??? Message-ID: <17724746D360394AA3BFE5B8D40A9C1BDCFA@MARLOW_MAIN2.marlow.com> Access may be 'seeing' all the deleted records, they don't go away until you compact it. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Tuesday, August 22, 2006 10:14 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A97 and confused??? Drew, I don't believe its the latest service pack(machine at work)...and I know there were records there before...just not sure how many? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 09:53:02 -0500 > >Have there been that many records before, that were deleted? Also, are you >using the latest service pack for 97? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 9:23 AM >To: accessd at databaseadvisors.com >Subject: [AccessD] A97 and confused??? > >Hello All, > >I have a table with 147 rows. If I open the table...there are no >filters...only 147 rows. If I run a MakeTable or an APPEND query based on >this table I get 147 rows...If I display the datasheet view of "DELETE >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I >execute > >this exact same SQL...the message is I'm about to delete 3723 rows??? I >haven't clicked yes...not really too concerned...just repair and >compact...but very curious if anyone has an understanding/explanation of >this? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com -- 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 Tue Aug 22 10:47:31 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 11:47:31 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4E@EXCNYSM0A1AI.nysemail.nyenet> Gary Which driver do you use? And unclick works? We are using the ORACLE ODBC driver Ora 9i. But also happens against FOXPRO. I went to the Administrative tools, Data Sources(ODBC) and unclicked Query Time out. Opened the MDB and tried a pretty simple query without changing the Query Property Timeout over 60. It still timed out. I get the following message if I don't set the QUERY PROPERTY ODBC Timeout from 60 up to at least 500. I routinely set it at 6000. ODBC--Call failed. [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of current operation (#1013) I know immediately that I forgot to update the timeout by the message above. Many others do not understand so I am always checking out their queries and machines. I was wondering whether there was a change to Registry or some hidden MS change that would fix this. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Tuesday, August 22, 2006 10:11 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > Which ODBC driver are you using? With the Oracle ODBC Driver > for Oracle you can tell it to just NOT timeout by unchecking > the Timeout checkbox. > > On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > Hi all > > > > Is there a way to set the ODBC timeout default in the query > > properties from 60 to 6000 permanently? Most of our work > is against > > our ORACLE databases, some Foxpro, and SqlServer. For every > new query > > we do we have to remember to reset this before running > otherwise we get a timeout. > > Does not matter how easy or hard the query is, If it isn't at least > > 600 then poof it stops. One person said that it would > cause their MDB > > to corrupt but I haven't had that problem. > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > everywhere but can't find out how to change the default. > This would > > be for 2k or 2k3. > > Any help appreciated > > > > Thanks > > > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.state.ny.us > > ************************************************** > > -------------------------------------------------------- > -- > Gary Kjos > garykjos at gmail.com > -- From djkr at msn.com Tue Aug 22 10:49:01 2006 From: djkr at msn.com (DJK(John) Robinson) Date: Tue, 22 Aug 2006 16:49:01 +0100 Subject: [AccessD] A97 and confused??? In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BDCFA@MARLOW_MAIN2.marlow.com> Message-ID: I found a case (long time ago now - must have A97) where Access reported the wrong number of records in certain circumstances. It definitely involved deletion. Shamil was helpful in reproducing and confirming my observations, and we agreed it was an Access bug, though fortunately in an area that the 'user' shouldn't normally see, as in your case - just temporarily worrying to the developer. So don't worry about it! I did for a while, because it popped up in the middle of testing some code of mine that involved multiple overlapping (non-nested) transactions. Thought you'd like to know. ;-) John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com Sent: 22 August 2006 16:21 To: accessd at databaseadvisors.com Subject: Re: [AccessD] A97 and confused??? Access may be 'seeing' all the deleted records, they don't go away until you compact it. Drew -----Original Message----- From: Mark A Matte [mailto:markamatte at hotmail.com] Sent: Tuesday, August 22, 2006 10:14 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A97 and confused??? Drew, I don't believe its the latest service pack(machine at work)...and I know there were records there before...just not sure how many? Thanks, Mark >From: DWUTKA at marlow.com >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 09:53:02 -0500 > >Have there been that many records before, that were deleted? Also, are >you using the latest service pack for 97? > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 9:23 AM >To: accessd at databaseadvisors.com >Subject: [AccessD] A97 and confused??? > >Hello All, > >I have a table with 147 rows. If I open the table...there are no >filters...only 147 rows. If I run a MakeTable or an APPEND query based >on this table I get 147 rows...If I display the datasheet view of >"DELETE >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I >execute > >this exact same SQL...the message is I'm about to delete 3723 rows??? >I haven't clicked yes...not really too concerned...just repair and >compact...but very curious if anyone has an understanding/explanation >of this? > >Thanks, > >Mark A. Matte > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- 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 Tue Aug 22 10:52:36 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 11:52:36 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4F@EXCNYSM0A1AI.nysemail.nyenet> Thanks Gustav But the problem is two fold. It is not for just existing queries but for when they are making new queries. Forget to update the query property and a special message pops up. I know immediately I forgot when I get the message and reset. Others don't understand the message and I usually have to remind them. I need a way to change this without having users run something special. ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > Gustav Brock > Sent: Tuesday, August 22, 2006 10:41 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia > > You can set that property using DAO: > > CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 > > Of course, to carry this out create a loop that somehow > filters only those querydefs that have to be modified. > > /gustav > > >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> > Hi all > > Is there a way to set the ODBC timeout default in the query > properties from 60 to 6000 permanently? Most of our work is > against our ORACLE databases, some Foxpro, and SqlServer. For > every new query we do we have to remember to reset this > before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at > least 600 then poof it stops. One person said that it would > cause their MDB to corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost > everywhere but can't find out how to change the default. > This would be for 2k or 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor From markamatte at hotmail.com Tue Aug 22 10:56:52 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 22 Aug 2006 15:56:52 +0000 Subject: [AccessD] A97 and confused??? In-Reply-To: <000e01c6c602$7d05bc80$5c00a8c0@dabsight> Message-ID: John, Thanks...I wasn't too concerned...just more curious...and maybe needed a little confirmation that I wasn't going insane. Thanks, Mark A. Matte >From: "DJK(John) Robinson" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] A97 and confused??? >Date: Tue, 22 Aug 2006 16:49:01 +0100 > >I found a case (long time ago now - must have A97) where Access reported >the >wrong number of records in certain circumstances. It definitely involved >deletion. > >Shamil was helpful in reproducing and confirming my observations, and we >agreed it was an Access bug, though fortunately in an area that the 'user' >shouldn't normally see, as in your case - just temporarily worrying to the >developer. > >So don't worry about it! I did for a while, because it popped up in the >middle of testing some code of mine that involved multiple overlapping >(non-nested) transactions. Thought you'd like to know. ;-) > >John > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >DWUTKA at marlow.com >Sent: 22 August 2006 16:21 >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? > > >Access may be 'seeing' all the deleted records, they don't go away until >you >compact it. > >Drew > >-----Original Message----- >From: Mark A Matte [mailto:markamatte at hotmail.com] >Sent: Tuesday, August 22, 2006 10:14 AM >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] A97 and confused??? > > >Drew, > >I don't believe its the latest service pack(machine at work)...and I know >there were records there before...just not sure how many? > >Thanks, > >Mark > > > >From: DWUTKA at marlow.com > >Reply-To: Access Developers discussion and problem > >solving > >To: accessd at databaseadvisors.com > >Subject: Re: [AccessD] A97 and confused??? > >Date: Tue, 22 Aug 2006 09:53:02 -0500 > > > >Have there been that many records before, that were deleted? Also, are > >you using the latest service pack for 97? > > > >Drew > > > >-----Original Message----- > >From: Mark A Matte [mailto:markamatte at hotmail.com] > >Sent: Tuesday, August 22, 2006 9:23 AM > >To: accessd at databaseadvisors.com > >Subject: [AccessD] A97 and confused??? > > > >Hello All, > > > >I have a table with 147 rows. If I open the table...there are no > >filters...only 147 rows. If I run a MakeTable or an APPEND query based > >on this table I get 147 rows...If I display the datasheet view of > >"DELETE > >tblPostCardList.* FROM tblPostCardList;"...I get 147 rows...but if I > >execute > > > >this exact same SQL...the message is I'm about to delete 3723 rows??? > >I haven't clicked yes...not really too concerned...just repair and > >compact...but very curious if anyone has an understanding/explanation > >of this? > > > >Thanks, > > > >Mark A. Matte > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.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 Aug 22 11:06:48 2006 From: garykjos at gmail.com (Gary Kjos) Date: Tue, 22 Aug 2006 11:06:48 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4E@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB4E@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: I am currently using Oracle ODBC driver 9.02.00.54 Yep. unclicking the "Enable Query Timeout" box does the trick for me and my users. That is the only option we change from default when setting up the ODBC data source. We use System DSN's for all ODBC definitions. I wonder if your Oracle Database login has a defaulting timeout level that is biting you.. I have also used the Microsoft ODBC driver with good results. The only issue there was that if the Oracle Database login password was expired the Microsoft ODBC driver didn't prompt for entering a new password as the Oracle one did. that may have changed with a newer Microsoft driver though. We used to use a generic login and password for everyone's Access ODBC into Oracle stuff, but because of Sarbains/Oxley we were required to change to individual user logins that had expiring passwords. So that was when the Microsoft ODBC driver not prompting for new password became more of an issue. On 8/22/06, O'Connor, Patricia (OTDA) wrote: > Gary > > Which driver do you use? And unclick works? > > We are using the ORACLE ODBC driver Ora 9i. But also happens against > FOXPRO. > > I went to the Administrative tools, Data Sources(ODBC) and unclicked > Query Time out. Opened the MDB and tried a pretty simple query without > changing the Query Property Timeout over 60. It still timed out. > > I get the following message if I don't set the QUERY PROPERTY ODBC > Timeout from 60 up to at least 500. I routinely set it at 6000. > > ODBC--Call failed. > [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of > current operation (#1013) > > I know immediately that I forgot to update the timeout by the message > above. Many others do not understand so I am always checking out their > queries and machines. > > I was wondering whether there was a change to Registry or some hidden MS > change that would fix this. > > Thanks > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > Sent: Tuesday, August 22, 2006 10:11 AM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > Which ODBC driver are you using? With the Oracle ODBC Driver > > for Oracle you can tell it to just NOT timeout by unchecking > > the Timeout checkbox. > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > wrote: > > > Hi all > > > > > > Is there a way to set the ODBC timeout default in the query > > > properties from 60 to 6000 permanently? Most of our work > > is against > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > new query > > > we do we have to remember to reset this before running > > otherwise we get a timeout. > > > Does not matter how easy or hard the query is, If it isn't at least > > > 600 then poof it stops. One person said that it would > > cause their MDB > > > to corrupt but I haven't had that problem. > > > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > > everywhere but can't find out how to change the default. > > This would > > > be for 2k or 2k3. > > > Any help appreciated > > > > > > Thanks > > > > > > ************************************************** > > > * Patricia O'Connor > > > * Associate Computer Programmer Analyst > > > * OTDA - BDMA > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > ************************************************** > > > -------------------------------------------------------- > > -- > > Gary Kjos > > garykjos at gmail.com > > -- > -- > 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 Gustav at cactus.dk Tue Aug 22 11:37:28 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 18:37:28 +0200 Subject: [AccessD] Change ODBC timeout default query property Message-ID: Hi Patricia It should be this Registry entry: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\ODBC] "TraceODBCAPI"=dword:00000000 "DisableAsync"=dword:00000001 "TraceSQLMode"=dword:00000000 "QueryTimeout"=dword:0000003c "LoginTimeout"=dword:00000014 "ConnectionTimeout"=dword:00000258 "TryJetAuth"=dword:00000001 "FatBlastRows"=dword:ffffffff "FatBlastTimeout"=dword:00000003 "AsyncRetryInterval"=dword:000001f4 "AttachCaseSensitive"=dword:00000000 "FastRequery"=dword:00000000 "ODBCISAMAttach"=dword:00000000 "PreparedInsert"=dword:00000000 "PreparedUpdate"=dword:00000000 "SnapshotOnly"=dword:00000000 "AttachableObjects"="'TABLE','VIEW','SYSTEM TABLE','ALIAS','SYNONYM'" Change QueryTimeout from 3c (60) to 258 (600) or 1770 (6000) or another value of your choice. However, I just tried and it doesn't work for me with Access 2003 - maybe a reboot is needed. /gustav >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 17:52:36 >>> Thanks Gustav But the problem is two fold. It is not for just existing queries but for when they are making new queries. Forget to update the query property and a special message pops up. I know immediately I forgot when I get the message and reset. Others don't understand the message and I usually have to remind them. I need a way to change this without having users run something special. ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > Gustav Brock > Sent: Tuesday, August 22, 2006 10:41 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia > > You can set that property using DAO: > > CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 > > Of course, to carry this out create a loop that somehow > filters only those querydefs that have to be modified. > > /gustav > > >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> > Hi all > > Is there a way to set the ODBC timeout default in the query > properties from 60 to 6000 permanently? Most of our work is > against our ORACLE databases, some Foxpro, and SqlServer. For > every new query we do we have to remember to reset this > before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at > least 600 then poof it stops. One person said that it would > cause their MDB to corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost > everywhere but can't find out how to change the default. > This would be for 2k or 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor From Gustav at cactus.dk Tue Aug 22 11:55:14 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 18:55:14 +0200 Subject: [AccessD] Change ODBC timeout default query property Message-ID: Hi Patricia Just located this info: http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3B153756 This explains my observation as I didn't run a query, I only browsed the property sheet of a new query: NOTE: When using the steps contained within Method 2 to set the QueryTimeout value within the registry, any new and existing query within Microsoft Access will continue to display a value of 60 for the QueryTimeout property. If the value set within the registry is greater than the value defined within the individual query, Microsoft Access will use the value within the registry to determine how long to wait before a QueryTimeout occurs. Also, setting a value of 0 (zero) will inhibit a timeout. /gustav >>> Gustav at cactus.dk 22-08-2006 18:37:28 >>> Hi Patricia It should be this Registry entry: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\ODBC] "TraceODBCAPI"=dword:00000000 "DisableAsync"=dword:00000001 "TraceSQLMode"=dword:00000000 "QueryTimeout"=dword:0000003c "LoginTimeout"=dword:00000014 "ConnectionTimeout"=dword:00000258 "TryJetAuth"=dword:00000001 "FatBlastRows"=dword:ffffffff "FatBlastTimeout"=dword:00000003 "AsyncRetryInterval"=dword:000001f4 "AttachCaseSensitive"=dword:00000000 "FastRequery"=dword:00000000 "ODBCISAMAttach"=dword:00000000 "PreparedInsert"=dword:00000000 "PreparedUpdate"=dword:00000000 "SnapshotOnly"=dword:00000000 "AttachableObjects"="'TABLE','VIEW','SYSTEM TABLE','ALIAS','SYNONYM'" Change QueryTimeout from 3c (60) to 258 (600) or 1770 (6000) or another value of your choice. However, I just tried and it doesn't work for me with Access 2003 - maybe a reboot is needed. /gustav >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 17:52:36 >>> Thanks Gustav But the problem is two fold. It is not for just existing queries but for when they are making new queries. Forget to update the query property and a special message pops up. I know immediately I forgot when I get the message and reset. Others don't understand the message and I usually have to remind them. I need a way to change this without having users run something special. ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > Gustav Brock > Sent: Tuesday, August 22, 2006 10:41 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia > > You can set that property using DAO: > > CurrentDb.QueryDefs("qdyYourQuery").ODBCTimeout = 600 > > Of course, to carry this out create a loop that somehow > filters only those querydefs that have to be modified. > > /gustav > > >>> Patricia.O'Connor at otda.state.ny.us 22-08-2006 15:46:57 >>> > Hi all > > Is there a way to set the ODBC timeout default in the query > properties from 60 to 6000 permanently? Most of our work is > against our ORACLE databases, some Foxpro, and SqlServer. For > every new query we do we have to remember to reset this > before running otherwise we get a timeout. > Does not matter how easy or hard the query is, If it isn't at > least 600 then poof it stops. One person said that it would > cause their MDB to corrupt but I haven't had that problem. > > The OPTIONS ADVANCED does not do this. I have looked almost > everywhere but can't find out how to change the default. > This would be for 2k or 2k3. > Any help appreciated > > Thanks > > ************************************************** > * Patricia O'Connor From ssharkins at setel.com Tue Aug 22 12:16:34 2006 From: ssharkins at setel.com (Susan Harkins) Date: Tue, 22 Aug 2006 13:16:34 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <44EB13C1.6040609@san.rr.com> Message-ID: <000601c6c60e$b8f65130$1fbc2ad1@SUSANONE> Excellent point. :) Susan H. I use me. because of the autofill (auto-complete? Intellisense?). I tend to use long names and make typing errors. So that eliminates that problem and makes the coding go faster. Type me. and I get a pop-up with all the control names. From mwp.reid at qub.ac.uk Tue Aug 22 12:15:12 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Tue, 22 Aug 2006 18:15:12 +0100 Subject: [AccessD] Passing aarray index to docmd References: Message-ID: I am trying to pass the index of an array to a Docmd. Cant get the syntax right. Any ideas? I have a drop down list with a 0 based index. I need to grab the index and pass it to the docmd? Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 From cfoust at infostatsystems.com Tue Aug 22 12:52:29 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 22 Aug 2006 10:52:29 -0700 Subject: [AccessD] Pretty Code - An Alternate? In-Reply-To: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Message-ID: I've used both and actually much prefer the VBA CodePrint. It also comes in flavors for SQL and for .Net. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, August 22, 2006 7:28 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Pretty Code - An Alternate? Hi Reuben, This looks like it has essentially the same features as PrettyCode, but is $30 less. Is there anything in VBA Code Print that should be there but isn't? Thanks! Dan -----Original Message----- Subject: Re: [AccessD] Pretty Code - An Alternate? I use VBA Code Print from this company http://www.starprint2000.com/ Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > Subject: [AccessD] Pretty Code - An Alternate? > > > I would like to print out code that is colored and more useful that > what can be done from the VBA IDE. Pretty Code for VBA looks great, > but it's price at $89 is not. > > Does anyone have an alternate recommendation? > > Thanks! > > Dan -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Tue Aug 22 12:57:44 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Tue, 22 Aug 2006 10:57:44 -0700 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <000501c6c563$9093d740$800101df@officexp> Message-ID: One place where it makes a difference is if you don't have Option Explicit turned on. In that case, not using the Me in referring to an object and misspelling the name of the object will result in the compiler interpreting the item as a variable. If you do have Option Explicit turned on (and we all do, right?), misspelling the name of an object will cause a runtime error telling you the variable wasn't declared. Using the Me gives you a more useful message that it can't find the object. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 1:51 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Boy, I kind of feel it's dangerous not to be more explicit when identifying a particular control. I've been using access since it's birth and hardly see any code examples that don't include some type of identifier. Am I losing it or something. Anyone else have any input? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 4:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- 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 Tue Aug 22 13:00:23 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Tue, 22 Aug 2006 14:00:23 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> Hi Gary I use the same ODBC driver and even tried rebooting - still get same message. Will check into the Oracle Database login to see if they have something set up there. I recommend the oracle odbc over the microsoft because the date handling is better. Think it is better for passthru's also. There was something else related also but I can't remember at just this moment. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Tuesday, August 22, 2006 12:07 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > unclicking the "Enable Query Timeout" box does the trick for > me and my users. > That is the only option we change from default when setting > up the ODBC data source. We use System DSN's for all ODBC > definitions. I wonder if your Oracle Database login has a > defaulting timeout level that is biting you.. > > I have also used the Microsoft ODBC driver with good results. > The only issue there was that if the Oracle Database login > password was expired the Microsoft ODBC driver didn't prompt > for entering a new password as the Oracle one did. that may > have changed with a newer Microsoft driver though. We used to > use a generic login and password for everyone's Access ODBC > into Oracle stuff, but because of Sarbains/Oxley we were > required to change to individual user logins that had > expiring passwords. So that was when the Microsoft ODBC > driver not prompting for new password became more of an issue. > > On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > Gary > > > > Which driver do you use? And unclick works? > > > > We are using the ORACLE ODBC driver Ora 9i. But also > happens against > > FOXPRO. > > > > I went to the Administrative tools, Data Sources(ODBC) and > unclicked > > Query Time out. Opened the MDB and tried a pretty simple > query without > > changing the Query Property Timeout over 60. It still timed out. > > > > I get the following message if I don't set the QUERY PROPERTY ODBC > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > ODBC--Call failed. > > [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of > > current operation (#1013) > > > > I know immediately that I forgot to update the timeout by > the message > > above. Many others do not understand so I am always > checking out their > > queries and machines. > > > > I was wondering whether there was a change to Registry or > some hidden > > MS change that would fix this. > > > > Thanks > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.state.ny.us > > ************************************************** > > > > -----Original Message----- > > > > > From: accessd-bounces at databaseadvisors.com > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Gary Kjos > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > To: Access Developers discussion and problem solving > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver for > > > Oracle you can tell it to just NOT timeout by unchecking > the Timeout > > > checkbox. > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > wrote: > > > > Hi all > > > > > > > > Is there a way to set the ODBC timeout default in the query > > > > properties from 60 to 6000 permanently? Most of our work > > > is against > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > new query > > > > we do we have to remember to reset this before running > > > otherwise we get a timeout. > > > > Does not matter how easy or hard the query is, If it isn't at > > > > least 600 then poof it stops. One person said that it would > > > cause their MDB > > > > to corrupt but I haven't had that problem. > > > > > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > > > everywhere but can't find out how to change the default. > > > This would > > > > be for 2k or 2k3. > > > > Any help appreciated > > > > > > > > Thanks > > > > > > > > ************************************************** > > > > * Patricia O'Connor > > > > -------------------------------------------------------- > > > -- > > > Gary Kjos > > > garykjos at gmail.com > > > -- > Gary Kjos > garykjos at gmail.com > -- From nanette.j.gould at Vanderbilt.Edu Tue Aug 22 13:03:27 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 13:03:27 -0500 Subject: [AccessD] Check Box - "Select All" Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E63@mailbe07.mc.vanderbilt.edu> I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material from your system. From askolits at ot.com Tue Aug 22 13:12:29 2006 From: askolits at ot.com (John Skolits) Date: Tue, 22 Aug 2006 14:12:29 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: Message-ID: <005001c6c616$8b09e720$6701a8c0@LaptopXP> Very interesting. I thought maybe that's why I had my problem, but unfortunately, I had explicit turned on. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, August 22, 2006 1:58 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Bang and Dot operator in Runtimes. One place where it makes a difference is if you don't have Option Explicit turned on. In that case, not using the Me in referring to an object and misspelling the name of the object will result in the compiler interpreting the item as a variable. If you do have Option Explicit turned on (and we all do, right?), misspelling the name of an object will cause a runtime error telling you the variable wasn't declared. Using the Me gives you a more useful message that it can't find the object. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 1:51 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Boy, I kind of feel it's dangerous not to be more explicit when identifying a particular control. I've been using access since it's birth and hardly see any code examples that don't include some type of identifier. Am I losing it or something. Anyone else have any input? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 4:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. It's just: txtDate = #1/1/2001# or cboPerson = "Dan Waters" or lblName.Caption = "Full Name" or chkPerson = True Yes - when I use a Wizard to create Report, the controls do get the same names as the fields. So, to make sure I (and Access) know what I'm referring to, I always change the control names so they use a naming convention. I've never come across the need to used .Value - so far anyway! Dan Waters -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Skolits Sent: Monday, August 21, 2006 3:18 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. Gee, I've been doing that since version 1.0. How else do you refer to a control on the form besides using Full syntax? Froms!frmMainForm!txtDate = #1/1/2001# ? Or using a With (which uses the "." operator) With txtDate .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With Maybe I should use me.txtDate.Value? But, I've had issues with ".value" in the past. Don't remember what the Issues were but from past experiences I've avoid using .value if I can. As you suggested, you could drop it all together and sometimes it works, but if you have a field name behind the form and a text box name with the same name, it will get confused. John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Monday, August 21, 2006 3:58 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Bang and Dot operator in Runtimes. John, I never use the me. or me! syntax on any forms or reports to simply refer to a textbox, combobox, checkbox, label, etc. Could you just remove it altogether? Dan Waters -----Original Message----- Subject: [AccessD] Bang and Dot operator in Runtimes. I've been able to fix this by making some changes in code but want to know if anyone has additional info on why this occurs. Sometimes, referring to a text box with the "." operator sometimes fails in runtime apps. me.txtDate = #1/1/2001# 'Causes an error Vs. Me!txtDate = #1/1/2001# The error message I get is that the dot operator is invalid. I simply change it and it's fine. Yet, on other forms, it's working. I re-import and uncompile/compile many times on these apps and it still doesn't seem to always catch the potential problem. Any thoughts? John -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.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 Aug 22 13:14:04 2006 From: garykjos at gmail.com (Gary Kjos) Date: Tue, 22 Aug 2006 13:14:04 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: Hi Patricia, Weird. Maybe I'm just lucky? ;-) I''ve got some extract queries that run for a few hours before returning any results so I'd really be in trouble if it didn't work as it does for me. Perhaps you could test the database login theory if you ran a similar query directly against the Oracle Database using another tool such as SQL Navigator, Toad or SQL Plus, taking the ODBC driver out of the mix. If the query works there then it isn't default limits on the login causing your problem. Or if you are on friendly enough terms with your Oracle DBA you could ask them what they think is going on. Good luck figuring it out and be sue and let us know when you do. GK On 8/22/06, O'Connor, Patricia (OTDA) wrote: > Hi Gary > I use the same ODBC driver and even tried rebooting - still get same > message. Will check into the Oracle Database login to see if they have > something set up there. > > I recommend the oracle odbc over the microsoft because the date handling > is better. Think it is better for passthru's also. There was something > else related also but I can't remember at just this moment. > > Thanks > > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > Sent: Tuesday, August 22, 2006 12:07 PM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > unclicking the "Enable Query Timeout" box does the trick for > > me and my users. > > That is the only option we change from default when setting > > up the ODBC data source. We use System DSN's for all ODBC > > definitions. I wonder if your Oracle Database login has a > > defaulting timeout level that is biting you.. > > > > I have also used the Microsoft ODBC driver with good results. > > The only issue there was that if the Oracle Database login > > password was expired the Microsoft ODBC driver didn't prompt > > for entering a new password as the Oracle one did. that may > > have changed with a newer Microsoft driver though. We used to > > use a generic login and password for everyone's Access ODBC > > into Oracle stuff, but because of Sarbains/Oxley we were > > required to change to individual user logins that had > > expiring passwords. So that was when the Microsoft ODBC > > driver not prompting for new password became more of an issue. > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > wrote: > > > Gary > > > > > > Which driver do you use? And unclick works? > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > happens against > > > FOXPRO. > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > unclicked > > > Query Time out. Opened the MDB and tried a pretty simple > > query without > > > changing the Query Property Timeout over 60. It still timed out. > > > > > > I get the following message if I don't set the QUERY PROPERTY ODBC > > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > > > ODBC--Call failed. > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of > > > current operation (#1013) > > > > > > I know immediately that I forgot to update the timeout by > > the message > > > above. Many others do not understand so I am always > > checking out their > > > queries and machines. > > > > > > I was wondering whether there was a change to Registry or > > some hidden > > > MS change that would fix this. > > > > > > Thanks > > > ************************************************** > > > * Patricia O'Connor > > > * Associate Computer Programmer Analyst > > > * OTDA - BDMA > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > ************************************************** > > > > > > -----Original Message----- > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of Gary Kjos > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > To: Access Developers discussion and problem solving > > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver for > > > > Oracle you can tell it to just NOT timeout by unchecking > > the Timeout > > > > checkbox. > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > wrote: > > > > > Hi all > > > > > > > > > > Is there a way to set the ODBC timeout default in the query > > > > > properties from 60 to 6000 permanently? Most of our work > > > > is against > > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > > new query > > > > > we do we have to remember to reset this before running > > > > otherwise we get a timeout. > > > > > Does not matter how easy or hard the query is, If it isn't at > > > > > least 600 then poof it stops. One person said that it would > > > > cause their MDB > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have looked almost > > > > > everywhere but can't find out how to change the default. > > > > This would > > > > > be for 2k or 2k3. > > > > > Any help appreciated > > > > > > > > > > Thanks > > > > > > > > > > ************************************************** > > > > > * Patricia O'Connor > > > > > -------------------------------------------------------- > > > > -- > > > > Gary Kjos > > > > garykjos at gmail.com > > > > -- > > Gary Kjos > > garykjos at gmail.com > > -- > -- > 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 bheid at appdevgrp.com Tue Aug 22 13:15:55 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 22 Aug 2006 14:15:55 -0400 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0B59F@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35805@ADGSERVER> OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material from your system. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From nanette.j.gould at Vanderbilt.Edu Tue Aug 22 13:18:25 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 13:18:25 -0500 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D35805@ADGSERVER> Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E64@mailbe07.mc.vanderbilt.edu> Clever! Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material 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 nanette.j.gould at Vanderbilt.Edu Tue Aug 22 13:32:01 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 13:32:01 -0500 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D35805@ADGSERVER> Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E65@mailbe07.mc.vanderbilt.edu> Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material 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 accessd at shaw.ca Tue Aug 22 13:44:43 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 22 Aug 2006 11:44:43 -0700 Subject: [AccessD] Filling a multi column combo box In-Reply-To: <20060822094527.827D82742D9@smtp.nildram.co.uk> Message-ID: <0J4E001LNXD69K10@l-daemon> Thanks Andy and Robin... that simple! Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Tuesday, August 22, 2006 3:45 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Filling a multi column combo box Jim Do you mean juts putting in a Value list? If so it's just a list of entried separated by semi-colons (or can be commas). The Number Of Columns property determines which fall in the same row and which in the next. So: Fred;Smith;Annie;Oakley with a Number Of columns of 1 will get you Fred Smith Annie Oakley but with Number Of Columns set to 2 will give you Fred Smith Annie Oakley Is that what you meant? HTH Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "'Access Developers discussion and problem solving'" Subject: [AccessD] Filling a multi column combo box Date: 22/08/06 08:40 Hi All: I have forgotten the simple method of filling a multi-columned combo box manually. I have been working with recordsets or simple single column recordsource lists for so long that manual syntax has been lost.... It could be as it is so late here. Any sharp minds out there? TIA 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 accessd at shaw.ca Tue Aug 22 13:43:47 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 22 Aug 2006 11:43:47 -0700 Subject: [AccessD] DB2 and Ruby on Rails (was: Data interface The best way) In-Reply-To: Message-ID: <0J4E001H4XBL9K10@l-daemon> Gustav: Look awesome. Another (spare-time) winter project :-) Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 22, 2006 6:11 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] DB2 and Ruby on Rails (was: Data interface The best way) Hi Shamil, Ken et al Just noticed this link to a free Starter Toolkit for DB2 on Rails: http://alphaworks.ibm.com/tech/db2onrails Starter Toolkit for DB2R on Rails is a conveniently-packaged set of products and technologies that enables the quick creation of a configuration for building DB2 Web applications using Ruby on Rails technology. Also note the free DB2 Express-C database engine: http://www-306.ibm.com/software/data/db2/udb/db2express/download.html /gustav >>> shamil at users.mns.ru 20-10-2005 00:02:47 >>> <<< Ruby on Rails is the prime example. >>> Ken, Believe or not but just yesterday I have bookmarked Ruby's main Web site: http://www.ruby-lang.org/en/ for investigations when (if ever) I will have free time. Yes, I have heard about Ruby or Rails and I also plan to give it a try. Ruby looks like being the most advanced modern OO language - it has amazing things like modifying class definition on-the-fly so it may happen a running application will have object instances of the same class with different call interfaces. I still to realize for what real-life applications such flexibility is needed... > Model-View-Controller model. Ruby on Rails is the prime example. Well, MS Avalon(Windows Presentation Foundation) has this model as one of its key concepts. And my own rather naive that times (1998) but so true as far as I see now VBA/VB6-programming concept I called "DEEP-object concept" (http://www.smsconsulting.spb.ru/shamil_s/articles/deepcnpt.htm) was partially about Model-View-Controller model partially about what is called "low coupling" and "high cohesion" OOP concepts and related stuff.(I wasn't aware about that concepts that times, stupid me) It was developed later into several proprietary commercial frameworks - so it was never published. (Well, I did give it a try to develop open source very advanced VBA framework using MS Access 2000 summer 1999 but because it was a programming on the edge and because MS Access 97/2000 have "termination bug", which didn't have stable workaround it didn't work and I deleted/lost all the code I developed that times. Stupid me again. In MS Access XP/2003 the "termination bug" was finally fixed.) Well known here in AccessD VBA framework based on these concepts is John Colby's framework of course. > Since I have far from a deep understanding of MVC IMO it would have better called Model View Dispatcher model (or Model Dispatcher View). Or I don't understand English well to feel all the nuances or certain words - for me Controller is something that controls and Dispatcher is something that dispatches - and dispatching IMO implies no strict control at all and less coupling between Model and View. And in MVC model Controller's role is just to dispatch messages (calls) from View to Model or callbacks(events) from Model to View(s) - it doesn't control anything... Thank you for the links on Django and TurboGears but it looks like I will have time for them "in my next life only"... Shamil ----- Original Message ----- From: "Ken Ismert" To: "Access Developers discussion and problem solving" Sent: Wednesday, October 19, 2005 11:26 PM Subject: Re: [AccessD] Data interface The best way > > Shamil, > > >As for "an object design down to the lowest level" - > >this is still questionable here how it should be done - > >and it's getting the more questionable what this design > >should be the more I'm getting into the modern methods > >of OOP&D... > > Theoretical questions aside, the notable object-data systems doing > useful things now are the open-source web frameworks using the > Model-View-Controller model. Ruby on Rails is the prime example. > > Since I have far from a deep understanding of MVC, I will just point out > that the data objects are modeled in code, and changes in the data > objects are reflected to the table structure of the underlying database. > > > One challenge that future OO DBMS projects will have is equalling or > bettering the ease-of-use of these MVC frameworks. One thing is certain: > they'll never beat the price. > > Ruby on Rails > http://www.rubyonrails.org/ > > Django > http://www.djangoproject.com/ > > TurboGears > http://www.turbogears.org/ > > Ruby on Rails > Model-View-Controller Article > http://en.wikipedia.org/wiki/Ruby_On_Rails > > -Ken -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From reuben at gfconsultants.com Tue Aug 22 13:46:05 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Tue, 22 Aug 2006 14:46:05 -0400 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <33E923DF3EB78B4D8DCD3A743427425CC45E65@mailbe07.mc.vanderbilt.edu> Message-ID: I assume all the other records are true because they have already been exported. If so, you could do what Bobby said, but add a status field to the table indicating whether these are "new" exports or not. Whenever a record gets exported update the status field to indicate that. Then your recordsource query will look for all records where status = not exported. Do not use check box = false in this case. Then all the check box is doing is allowing you to select which ones to export and the status field is telling you whether is has or has not been exported. If check box = true and status = null then this record will be exported next time. Reuben Cummings GFC, LLC 812.523.1017 > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gould, Nanette > Sent: Tuesday, August 22, 2006 2:32 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Check Box - "Select All" > > > Unfortunately, this approach doesn't work. For the form's recordset I'm > querying records where the check box value is False. That's maybe 100 > out of 4000 records. If I run a query to set those values to True then > the refreshed form would load all 4000 records. I need to keep their > existing recordset after they've done a Select All. The records they > select get exported to Excel for upload into our GL. > > > Thanks, > Nanette > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid > Sent: Tuesday, August 22, 2006 1:16 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Check Box - "Select All" > > OTOMH, I'd run an update query against the underlying table and then > refresh the form. > > Bobby > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, > Nanette > Sent: Tuesday, August 22, 2006 2:03 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Check Box - "Select All" > > > I have a continuous form with a bound check box on each record. I'd like > to give the user a "Select All" option at the top and set the value of > each record's check box to True if they click Select All. > > It seems like this must be fairly simple but I've never had to do it > before. Any suggestions? > > > Nanette > > > > Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, > Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu > > > > > The information transmitted with any attachments is intended solely for > the individual or entity to which it is addressed and may contain > confidential and/or privileged material. If you have received this > email in error, please contact the sender and delete the material 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 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bheid at appdevgrp.com Tue Aug 22 13:56:15 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 22 Aug 2006 14:56:15 -0400 Subject: [AccessD] Check Box - "Select All" In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E0B5B2@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35807@ADGSERVER> Since the form is bound, I do not know of another way other than to add an extra field that somehow denotes the items that are to be shown on the form. So, before the form shows the initial data, mark the records that are to be shown. The only display those records that are to be selected. Then after you set the checkbox to true for all of the marked records, it will reload those same records. Then after you are finished (when closing the form or whatever), then you can mark the selected records as unselected. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:32 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Check Box - "Select All" Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette From Gustav at cactus.dk Tue Aug 22 13:56:24 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 20:56:24 +0200 Subject: [AccessD] Check Box - "Select All" Message-ID: Hi Nanette You could use DAO and update the recordset of the form: Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If rst.RecordCount > 0 Then rst.MoveFirst While Not rst.EOF rst!chkSelect.Value = True rst.MoveNext Wend End If rst.Close Set rst = Nothing /gustav >>> nanette.j.gould at Vanderbilt.Edu 22-08-2006 20:32:01 >>> Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette From Gustav at cactus.dk Tue Aug 22 14:00:41 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Tue, 22 Aug 2006 21:00:41 +0200 Subject: [AccessD] Check Box - "Select All" Message-ID: Hi Nanette Oops, missed the update part: While Not rst.EOF rst.Edit rst!chkSelect.Value = True rst.Update rst.MoveNext Wend /gustav >>> Gustav at cactus.dk 22-08-2006 20:56:24 >>> Hi Nanette You could use DAO and update the recordset of the form: Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If rst.RecordCount > 0 Then rst.MoveFirst While Not rst.EOF rst!chkSelect.Value = True rst.MoveNext Wend End If rst.Close Set rst = Nothing /gustav From DWUTKA at marlow.com Tue Aug 22 14:04:08 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Tue, 22 Aug 2006 14:04:08 -0500 Subject: [AccessD] Check Box - "Select All" Message-ID: <17724746D360394AA3BFE5B8D40A9C1BEE8E43@MARLOW_MAIN2.marlow.com> Are you applying a filter or criteria to this form? If so, apply the same criteria to the Update query. Drew -----Original Message----- From: Gould, Nanette [mailto:nanette.j.gould at Vanderbilt.Edu] Sent: Tuesday, August 22, 2006 1:32 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Check Box - "Select All" Unfortunately, this approach doesn't work. For the form's recordset I'm querying records where the check box value is False. That's maybe 100 out of 4000 records. If I run a query to set those values to True then the refreshed form would load all 4000 records. I need to keep their existing recordset after they've done a Select All. The records they select get exported to Excel for upload into our GL. Thanks, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid Sent: Tuesday, August 22, 2006 1:16 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Check Box - "Select All" OTOMH, I'd run an update query against the underlying table and then refresh the form. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gould, Nanette Sent: Tuesday, August 22, 2006 2:03 PM To: Access Developers discussion and problem solving Subject: [AccessD] Check Box - "Select All" I have a continuous form with a bound check box on each record. I'd like to give the user a "Select All" option at the top and set the value of each record's check box to True if they click Select All. It seems like this must be fairly simple but I've never had to do it before. Any suggestions? Nanette Nanette Gould | Dept of Finance | Crystal Terrace | 3319 West End Ave, Ste. 700 | 615.322.3540 | nanette.gould at vanderbilt.edu The information transmitted with any attachments is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. If you have received this email in error, please contact the sender and delete the material 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From nanette.j.gould at Vanderbilt.Edu Tue Aug 22 14:21:14 2006 From: nanette.j.gould at Vanderbilt.Edu (Gould, Nanette) Date: Tue, 22 Aug 2006 14:21:14 -0500 Subject: [AccessD] Check Box - "Select All" In-Reply-To: Message-ID: <33E923DF3EB78B4D8DCD3A743427425CC45E6B@mailbe07.mc.vanderbilt.edu> This worked perfectly! Thank you so much, Gustav. I was preparing to do what the others had suggested - adding a field to indicate whether the record had been exported - but this was easier. :-) Thanks to everyone, Nanette -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Tuesday, August 22, 2006 2:01 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Check Box - "Select All" Hi Nanette Oops, missed the update part: While Not rst.EOF rst.Edit rst!chkSelect.Value = True rst.Update rst.MoveNext Wend /gustav >>> Gustav at cactus.dk 22-08-2006 20:56:24 >>> Hi Nanette You could use DAO and update the recordset of the form: Dim rst As DAO.Recordset Set rst = Me.RecordsetClone If rst.RecordCount > 0 Then rst.MoveFirst While Not rst.EOF rst!chkSelect.Value = True rst.MoveNext Wend End If rst.Close Set rst = Nothing /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Tue Aug 22 14:25:00 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 22 Aug 2006 12:25:00 -0700 Subject: [AccessD] Passing aarray index to docmd In-Reply-To: References: Message-ID: <44EB5A0C.4030808@shaw.ca> In the on click event of List0 List box ListIndex will give you the number regardless of sort order. Private Sub List0_Click() MsgBox " Index " & List0.ListIndex MsgBox " Count " & List0.ListCount End Sub Martin Reid wrote: > >I am trying to pass the index of an array to a Docmd. Cant get the syntax right. Any ideas? >I have a drop down list with a 0 based index. I need to grab the index and pass it to the docmd? > >Martin > > >Martin WP Reid >Training and Assessment Unit >Riddle Hall >Belfast > >tel: 02890 974477 > > > > >------------------------------------------------------------------------ > >No virus found in this incoming message. >Checked by AVG Free Edition. >Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006 > > -- Marty Connelly Victoria, B.C. Canada From martyconnelly at shaw.ca Tue Aug 22 15:20:34 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 22 Aug 2006 13:20:34 -0700 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB50@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: <44EB6712.7000207@shaw.ca> Here are some other set able timeouts, whether they override the registry settings I don't know. Depends if you are using DAO or ADO. You might want to check the Oracle Client .ora file too. Sub querytest() Dim dbs As Database Set dbs = CurrentDb Debug.Print dbs.QueryTimeout 'default 60 secs dbs.QueryTimeout = 600 Debug.Print dbs.QueryTimeout 'default now 600 secs Debug.Print CurrentProject.Connection.CommandTimeout '30 seconds ' commandtimeout similar to querytimeout 'this is ADODB.Command.CommandTimeout for entire project Debug.Print CurrentProject.Connection.ConnectionTimeout '15 seconds Dim LoggedOnQry As QueryDef Set LoggedOnQry = dbs.QueryDefs("query1") Debug.Print LoggedOnQry.ODBCTimeout 'default 60 idle timeout? Dim conn As New ADODB.Connection conn.Open "Driver={SQL Server};Server=MARTIN;Database=pubs;Trusted_Connection=yes" Debug.Print conn.CommandTimeout Debug.Print conn.ConnectionTimeout conn.Close Debug.Print "close" End Sub Gary Kjos wrote: >Hi Patricia, > >Weird. Maybe I'm just lucky? ;-) > >I''ve got some extract queries that run for a few hours before >returning any results so I'd really be in trouble if it didn't work as >it does for me. > >Perhaps you could test the database login theory if you ran a similar >query directly against the Oracle Database using another tool such as >SQL Navigator, Toad or SQL Plus, taking the ODBC driver out of the >mix. If the query works there then it isn't default limits on the >login causing your problem. Or if you are on friendly enough terms >with your Oracle DBA you could ask them what they think is going on. > >Good luck figuring it out and be sue and let us know when you do. > >GK > >On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > >>Hi Gary >>I use the same ODBC driver and even tried rebooting - still get same >>message. Will check into the Oracle Database login to see if they have >>something set up there. >> >>I recommend the oracle odbc over the microsoft because the date handling >>is better. Think it is better for passthru's also. There was something >>else related also but I can't remember at just this moment. >> >>Thanks >> >>************************************************** >>* Patricia O'Connor >>* Associate Computer Programmer Analyst >>* OTDA - BDMA >>* (W) mailto:Patricia.O'Connor at otda.state.ny.us >>* (w) mailto:aa1160 at nysemail.state.ny.us >>************************************************** >> >> >> >>>From: accessd-bounces at databaseadvisors.com >>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gary Kjos >>>Sent: Tuesday, August 22, 2006 12:07 PM >>>To: Access Developers discussion and problem solving >>>Subject: Re: [AccessD] Change ODBC timeout default query property >>> >>>I am currently using Oracle ODBC driver 9.02.00.54 Yep. >>>unclicking the "Enable Query Timeout" box does the trick for >>>me and my users. >>>That is the only option we change from default when setting >>>up the ODBC data source. We use System DSN's for all ODBC >>>definitions. I wonder if your Oracle Database login has a >>>defaulting timeout level that is biting you.. >>> >>>I have also used the Microsoft ODBC driver with good results. >>>The only issue there was that if the Oracle Database login >>>password was expired the Microsoft ODBC driver didn't prompt >>>for entering a new password as the Oracle one did. that may >>>have changed with a newer Microsoft driver though. We used to >>>use a generic login and password for everyone's Access ODBC >>>into Oracle stuff, but because of Sarbains/Oxley we were >>>required to change to individual user logins that had >>>expiring passwords. So that was when the Microsoft ODBC >>>driver not prompting for new password became more of an issue. >>> >>>On 8/22/06, O'Connor, Patricia (OTDA) >>> wrote: >>> >>> >>>>Gary >>>> >>>>Which driver do you use? And unclick works? >>>> >>>>We are using the ORACLE ODBC driver Ora 9i. But also >>>> >>>> >>>happens against >>> >>> >>>>FOXPRO. >>>> >>>>I went to the Administrative tools, Data Sources(ODBC) and >>>> >>>> >>>unclicked >>> >>> >>>>Query Time out. Opened the MDB and tried a pretty simple >>>> >>>> >>>query without >>> >>> >>>>changing the Query Property Timeout over 60. It still timed out. >>>> >>>>I get the following message if I don't set the QUERY PROPERTY ODBC >>>>Timeout from 60 up to at least 500. I routinely set it at 6000. >>>> >>>> ODBC--Call failed. >>>> [Oracle] [ODBC] [ORA] ORA-01013: user requested cancel of >>>>current operation (#1013) >>>> >>>>I know immediately that I forgot to update the timeout by >>>> >>>> >>>the message >>> >>> >>>>above. Many others do not understand so I am always >>>> >>>> >>>checking out their >>> >>> >>>>queries and machines. >>>> >>>>I was wondering whether there was a change to Registry or >>>> >>>> >>>some hidden >>> >>> >>>>MS change that would fix this. >>>> >>>>Thanks >>>>************************************************** >>>>* Patricia O'Connor >>>>* Associate Computer Programmer Analyst >>>>* OTDA - BDMA >>>>* (W) mailto:Patricia.O'Connor at otda.state.ny.us >>>>* (w) mailto:aa1160 at nysemail.state.ny.us >>>>************************************************** >>>> >>>>-----Original Message----- >>>> >>>> >>>> >>>>>From: accessd-bounces at databaseadvisors.com >>>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf >>>>> >>>>> >>>Of Gary Kjos >>> >>> >>>>>Sent: Tuesday, August 22, 2006 10:11 AM >>>>>To: Access Developers discussion and problem solving >>>>>Subject: Re: [AccessD] Change ODBC timeout default query property >>>>> >>>>>Which ODBC driver are you using? With the Oracle ODBC Driver for >>>>>Oracle you can tell it to just NOT timeout by unchecking >>>>> >>>>> >>>the Timeout >>> >>> >>>>>checkbox. >>>>> >>>>>On 8/22/06, O'Connor, Patricia (OTDA) >>>>> wrote: >>>>> >>>>> >>>>>>Hi all >>>>>> >>>>>>Is there a way to set the ODBC timeout default in the query >>>>>>properties from 60 to 6000 permanently? Most of our work >>>>>> >>>>>> >>>>>is against >>>>> >>>>> >>>>>>our ORACLE databases, some Foxpro, and SqlServer. For every >>>>>> >>>>>> >>>>>new query >>>>> >>>>> >>>>>>we do we have to remember to reset this before running >>>>>> >>>>>> >>>>>otherwise we get a timeout. >>>>> >>>>> >>>>>>Does not matter how easy or hard the query is, If it isn't at >>>>>>least 600 then poof it stops. One person said that it would >>>>>> >>>>>> >>>>>cause their MDB >>>>> >>>>> >>>>>>to corrupt but I haven't had that problem. >>>>>> >>>>>>The OPTIONS ADVANCED does not do this. I have looked almost >>>>>>everywhere but can't find out how to change the default. >>>>>> >>>>>> >>>>>This would >>>>> >>>>> >>>>>>be for 2k or 2k3. >>>>>>Any help appreciated >>>>>> >>>>>>Thanks >>>>>> >>>>>>************************************************** >>>>>>* Patricia O'Connor >>>>>>-------------------------------------------------------- >>>>>> >>>>>> >>>>> > > > -- Marty Connelly Victoria, B.C. Canada From John.Clark at niagaracounty.com Tue Aug 22 15:37:15 2006 From: John.Clark at niagaracounty.com (John Clark) Date: Tue, 22 Aug 2006 16:37:15 -0400 Subject: [AccessD] Should be simple In-Reply-To: References: <000b01c6c5f7$326a5060$0200a8c0@danwaters> Message-ID: <44EB32B9.167F.006B.0@niagaracounty.com> I am working on a DB that I am trying to finish up. I've shown it to the users and they like it, but of course there are a few alterations to be made. A couple of them are actually just things I overlooked. I have a form where defendants are entered into a system. Actually, it is all names associated with a case (i.e. lawyers, judges, victims, defendants, etc.) and the system sorts them out by their check box designations on entry or edit. I have a drop-down box in place to choose a lawyer...same w/many of the fields, but I'll use lawyer here. I used a union query to place a "" option, at the top of the drop-down. If the user clicks on this option, they are taken to the form to enter new names, and the default check is placed, depending on where you came from (I use OpenArgs for this). It also knows where to go back to. The code used for this is: ____________________________________________________________________________________ Private Sub txtAttorney_BeforeUpdate(Cancel As Integer) If txtAttorney.SelText = "" Then DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd, acWindowNormal, "ATT" Me.Visible = False End If End Sub ____________________________________________________________________________________ However, I have tried adding the same ability to the "Charges" field, and the last liine gives me trouble. It says, "You can't hide a control that has the focus." I know what this means, but I just copied the code from elsewhere in the same program, and it works there. Any ideas? John W. Clark From jwcolby at colbyconsulting.com Tue Aug 22 16:14:48 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Tue, 22 Aug 2006 17:14:48 -0400 Subject: [AccessD] Should be simple In-Reply-To: <44EB32B9.167F.006B.0@niagaracounty.com> Message-ID: <005601c6c630$00c0c100$657aa8c0@m6805> It appears that the form just opened does not have the focus, thus since the focus is in the current form, it can't be hidden. Open the new form modal, or explicitly set the focus into the new form just opened, then do the hide. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark Sent: Tuesday, August 22, 2006 4:37 PM To: Access Developers discussion and problem solving Subject: [AccessD] Should be simple I am working on a DB that I am trying to finish up. I've shown it to the users and they like it, but of course there are a few alterations to be made. A couple of them are actually just things I overlooked. I have a form where defendants are entered into a system. Actually, it is all names associated with a case (i.e. lawyers, judges, victims, defendants, etc.) and the system sorts them out by their check box designations on entry or edit. I have a drop-down box in place to choose a lawyer...same w/many of the fields, but I'll use lawyer here. I used a union query to place a "" option, at the top of the drop-down. If the user clicks on this option, they are taken to the form to enter new names, and the default check is placed, depending on where you came from (I use OpenArgs for this). It also knows where to go back to. The code used for this is: ____________________________________________________________________________ ________ Private Sub txtAttorney_BeforeUpdate(Cancel As Integer) If txtAttorney.SelText = "" Then DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd, acWindowNormal, "ATT" Me.Visible = False End If End Sub ____________________________________________________________________________ ________ However, I have tried adding the same ability to the "Charges" field, and the last liine gives me trouble. It says, "You can't hide a control that has the focus." I know what this means, but I just copied the code from elsewhere in the same program, and it works there. Any ideas? John W. Clark -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From pete.phillipps at ntlworld.com Tue Aug 22 18:41:23 2006 From: pete.phillipps at ntlworld.com (pete.phillipps at ntlworld.com) Date: Wed, 23 Aug 2006 0:41:23 +0100 Subject: [AccessD] Pretty Code - An Alternate? Message-ID: <20060822234123.YRCM11710.aamtaout03-winn.ispmail.ntl.com@smtp.ntlworld.com> Hi Everyone, Dan Waters asked: <> You can copy code from Visual Sudio .NET and paste it into Word and it maintains its colour format, so what I do is copy and paste VB6 code into VS .NET, then copy and paste the code from VS .NET into Word. Pete Phillipps ----------------------------------------- Email sent from www.ntlworld.com Virus-checked using McAfee(R) Software Visit www.ntlworld.com/security for more information From jmhecht at earthlink.net Tue Aug 22 21:04:23 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Tue, 22 Aug 2006 19:04:23 -0700 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <44EB0B4C.3030003@san.rr.com> Message-ID: A lot more than me ; ( Joe Hecht jmhecht at earthlink.net -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Tuesday, August 22, 2006 6:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] [Fwd: Word XP and access] Look right to me (what do I know?). I'll forward to the client and let him test it. T&R Rocky William Hindman wrote: > ...try something like > > Application.DisplayAlerts = wdAlertsNone Documents.Open > FileName:="c:\my documents\testmerg.doc" > Application.DisplayAlerts = wdAlertsAll > > ...hth > > William > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Tuesday, August 22, 2006 1:42 AM > Subject: [AccessD] [Fwd: Word XP and access] > > > >> Dear List: >> >> My client writes: >> >> I have a template that has mail merge codes in it. I have a one-table >> Access mdb to which the template is linked. My regular access program >> empties and reloads the single table in the one-table mdb. >> >> Then my regular Access program opens the template and saves it to a >> predetermined .doc file... The only problem is when the template is >> being opened, I get a MS Word message that says: "Opening this >> document will run the following SQL command. Etc. >> >> Question: How do I prevent that screen warning? >> >> Anybody know the answer? >> >> MTIA, >> >> 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 >> >> > > > > -- 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 pcs at azizaz.com Wed Aug 23 00:57:42 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 23 Aug 2006 15:57:42 +1000 Subject: [AccessD] [Fwd: Word XP and access] References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> Message-ID: <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> Hi, Funny, I am sitting here working with the exact same issue.... I am using Helen Feddema's code from http://www.helenfeddema.com/access.htm Number 92 accarch92.zip mentioned in a post a few days ago I am using SQL string as the record source, (see frmMailMergeSQL in Helen's example). I noted that when opening the Word mail merge document you are met with the SQL alert you mentioned, and tried to find the source of this message and get rid of it... It's created when using the Mail Merge wizard, and I've found no way to get rid of the message other than suppressing it using William's suggestion. If I understand correct, William's suggestion would require a Word 'macro' / vba code, which by itself *could* create other another message appearing.... Two ways of getting totally rid of the sql alert message: Either ....copy the table with the mail merge info into a new document with the same page setup as the original mail merge document. or ....create a mail merge document for labels without using the mail merge wizard..... just set up the page and label type and manully add the fields into each label on the page Now, New Question: Any ideas of how to offset the start of printing on the label sheet to the first 'available' label on the sheet. Say you have a 2 x 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. My initial thinking was to create say x 'empty' records (zero length fields) for the offset by way of using a union query: first part adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top of the list). Is that a way to go, and if so what's the sql to create x empty records??? Any suggestions appreciated. Regards Borge ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Tuesday, August 22, 2006 11:49 PM Subject: Re: [AccessD] [Fwd: Word XP and access] > Look right to me (what do I know?). I'll forward to the client and let > him test it. > > T&R > > Rocky > > > William Hindman wrote: > > ...try something like > > > > Application.DisplayAlerts = wdAlertsNone > > Documents.Open FileName:="c:\my documents\testmerg.doc" > > Application.DisplayAlerts = wdAlertsAll > > > > ...hth > > > > William > > > > ----- Original Message ----- > > From: "Rocky Smolin - Beach Access Software" > > To: "Access Developers discussion and problem solving" > > > > Sent: Tuesday, August 22, 2006 1:42 AM > > Subject: [AccessD] [Fwd: Word XP and access] > > > > > > > >> Dear List: > >> > >> My client writes: > >> > >> I have a template that has mail merge codes in it. I have a one-table > >> Access mdb to which the template is linked. My regular access program > >> empties and reloads the single table in the one-table mdb. > >> > >> Then my regular Access program opens the template and saves it to a > >> predetermined .doc file... The only problem is when the template is > >> being opened, I get a MS Word message that says: "Opening this document > >> will run the following SQL command. Etc. > >> > >> Question: How do I prevent that screen warning? > >> > >> Anybody know the answer? > >> > >> MTIA, > >> > >> 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 > >> > >> > > > > > > > > > > -- > 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 darrend at nimble.com.au Wed Aug 23 02:32:54 2006 From: darrend at nimble.com.au (Darren DICK) Date: Wed, 23 Aug 2006 17:32:54 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060823073258.HSPV6880.omta04ps.mx.bigpond.com@DENZILLAP> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Wed Aug 23 04:36:54 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Wed, 23 Aug 2006 11:36:54 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From bchacc at san.rr.com Wed Aug 23 09:28:13 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 07:28:13 -0700 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> Message-ID: <44EC65FD.1090200@san.rr.com> Borge: I print labels one at a time to mail out a consumer based product in an envelope so in the Detail_Format event of the label printing report, I use: Me.MoveLayout = True Me.NextRecord = False Me.PrintSection = False and iterate for the number of labels you want to skip. But, of course, you have to know how many labels you want to skip and pass that to the loop or counter. HTH Rocky Borge Hansen wrote: > Hi, > Funny, I am sitting here working with the exact same issue.... > I am using Helen Feddema's code from > > http://www.helenfeddema.com/access.htm > Number 92 accarch92.zip > > mentioned in a post a few days ago > > I am using SQL string as the record source, (see frmMailMergeSQL in Helen's example). > > I noted that when opening the Word mail merge document you are met with the SQL alert you mentioned, and tried to find the source of > this message and get rid of it... > > It's created when using the Mail Merge wizard, and I've found no way to get rid of the message other than suppressing it using > William's suggestion. > > If I understand correct, William's suggestion would require a Word 'macro' / vba code, which by itself *could* create other another > message appearing.... > > Two ways of getting totally rid of the sql alert message: > Either > ....copy the table with the mail merge info into a new document with the same page setup as the original mail merge document. > or > ....create a mail merge document for labels without using the mail merge wizard..... just set up the page and label type and manully > add the fields into each label on the page > > Now, New Question: > Any ideas of how to offset the start of printing on the label sheet to the first 'available' label on the sheet. Say you have a 2 x > 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. > > My initial thinking was to create say x 'empty' records (zero length fields) for the offset by way of using a union query: first > part adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top > of the list). > > Is that a way to go, and if so what's the sql to create x empty records??? > > Any suggestions appreciated. > > Regards > Borge > > > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > Sent: Tuesday, August 22, 2006 11:49 PM > Subject: Re: [AccessD] [Fwd: Word XP and access] > > > >> Look right to me (what do I know?). I'll forward to the client and let >> him test it. >> >> T&R >> >> Rocky >> >> >> William Hindman wrote: >> >>> ...try something like >>> >>> Application.DisplayAlerts = wdAlertsNone >>> Documents.Open FileName:="c:\my documents\testmerg.doc" >>> Application.DisplayAlerts = wdAlertsAll >>> >>> ...hth >>> >>> William >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Tuesday, August 22, 2006 1:42 AM >>> Subject: [AccessD] [Fwd: Word XP and access] >>> >>> >>> >>> >>>> Dear List: >>>> >>>> My client writes: >>>> >>>> I have a template that has mail merge codes in it. I have a one-table >>>> Access mdb to which the template is linked. My regular access program >>>> empties and reloads the single table in the one-table mdb. >>>> >>>> Then my regular Access program opens the template and saves it to a >>>> predetermined .doc file... The only problem is when the template is >>>> being opened, I get a MS Word message that says: "Opening this document >>>> will run the following SQL command. Etc. >>>> >>>> Question: How do I prevent that screen warning? >>>> >>>> Anybody know the answer? >>>> >>>> MTIA, >>>> >>>> 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 >>>> >>>> >>>> >>> >>> >>> >> -- >> 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 ssharkins at setel.com Wed Aug 23 10:57:57 2006 From: ssharkins at setel.com (Susan Harkins) Date: Wed, 23 Aug 2006 11:57:57 -0400 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: <44EC65FD.1090200@san.rr.com> Message-ID: <001c01c6c6cc$e775e890$bdb82ad1@SUSANONE> You create a temp table of the addresses, and use SQL to insert blank rows -- representing the missing labels -- at the top of the recordset. Really very easy. If you need help, let me know -- I can dig up the exact instructions... I think. :) The report doesn't know the difference between a blank row and the data. Interface wise, all you really need is a simple form to capture the number of blank records you need. Susan H. Borge: I print labels one at a time to mail out a consumer based product in an envelope so in the Detail_Format event of the label printing report, I use: Me.MoveLayout = True Me.NextRecord = False Me.PrintSection = False and iterate for the number of labels you want to skip. But, of course, you have to know how many labels you want to skip and pass that to the loop or counter. HTH Rocky Borge Hansen wrote: > Hi, > Funny, I am sitting here working with the exact same issue.... > I am using Helen Feddema's code from > > http://www.helenfeddema.com/access.htm > Number 92 accarch92.zip > > mentioned in a post a few days ago > > I am using SQL string as the record source, (see frmMailMergeSQL in Helen's example). > > I noted that when opening the Word mail merge document you are met > with the SQL alert you mentioned, and tried to find the source of this message and get rid of it... > > It's created when using the Mail Merge wizard, and I've found no way > to get rid of the message other than suppressing it using William's suggestion. > > If I understand correct, William's suggestion would require a Word > 'macro' / vba code, which by itself *could* create other another message appearing.... > > Two ways of getting totally rid of the sql alert message: > Either > ....copy the table with the mail merge info into a new document with the same page setup as the original mail merge document. > or > ....create a mail merge document for labels without using the mail > merge wizard..... just set up the page and label type and manully add > the fields into each label on the page > > Now, New Question: > Any ideas of how to offset the start of printing on the label sheet to > the first 'available' label on the sheet. Say you have a 2 x > 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. > > My initial thinking was to create say x 'empty' records (zero length > fields) for the offset by way of using a union query: first part > adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top of the list). > > Is that a way to go, and if so what's the sql to create x empty records??? > > Any suggestions appreciated. > > Regards > Borge > > > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Tuesday, August 22, 2006 11:49 PM > Subject: Re: [AccessD] [Fwd: Word XP and access] > > > >> Look right to me (what do I know?). I'll forward to the client and >> let him test it. >> >> T&R >> >> Rocky >> >> >> William Hindman wrote: >> >>> ...try something like >>> >>> Application.DisplayAlerts = wdAlertsNone Documents.Open >>> FileName:="c:\my documents\testmerg.doc" >>> Application.DisplayAlerts = wdAlertsAll >>> >>> ...hth >>> >>> William >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Tuesday, August 22, 2006 1:42 AM >>> Subject: [AccessD] [Fwd: Word XP and access] >>> >>> >>> >>> >>>> Dear List: >>>> >>>> My client writes: >>>> >>>> I have a template that has mail merge codes in it. I have a >>>> one-table Access mdb to which the template is linked. My regular >>>> access program empties and reloads the single table in the one-table mdb. >>>> >>>> Then my regular Access program opens the template and saves it to a >>>> predetermined .doc file... The only problem is when the template is >>>> being opened, I get a MS Word message that says: "Opening this >>>> document will run the following SQL command. Etc. >>>> >>>> Question: How do I prevent that screen warning? >>>> >>>> Anybody know the answer? >>>> >>>> MTIA, >>>> >>>> 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 >>>> >>>> >>>> >>> >>> >>> >> -- >> 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.10.7/411 - Release Date: 8/7/2006 From bchacc at san.rr.com Wed Aug 23 12:32:33 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 10:32:33 -0700 Subject: [AccessD] Word Window On Top Message-ID: <44EC9131.4090607@san.rr.com> Dear List: Using automation I open a word doc, but the access app is still on top. Word is in the tray. Click it and the doc is there and open. Q: how can I give the word doc window the focus after I open it? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Patricia.O'Connor at otda.state.ny.us Wed Aug 23 13:12:43 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 23 Aug 2006 14:12:43 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB59@EXCNYSM0A1AI.nysemail.nyenet> Hi Gary, Thanks!! If I run same query in PL_SQL no problem without touching any timers. Asked our DBA and they checked the ORACLE logon and there were no login limits. So we checked the SQLNET.ORA file and the SQLNET.EXPIRE_TIME=0. I set the registry to 6000. Just out of curiosity what do you have in the TOOLS OPTIONS ADVANCED settings Enable DDe refresh OLE/DDE timeout 300 REfresh interval 60 Number of update retries 2 Odbc refresh interval 1500 Update retry interval 250 Record level locking This is so strange. Will try looking at ms forums maybe something there. Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Tuesday, August 22, 2006 02:14 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > Hi Patricia, > > Weird. Maybe I'm just lucky? ;-) > > I''ve got some extract queries that run for a few hours > before returning any results so I'd really be in trouble if > it didn't work as it does for me. > > Perhaps you could test the database login theory if you ran a > similar query directly against the Oracle Database using > another tool such as SQL Navigator, Toad or SQL Plus, taking > the ODBC driver out of the mix. If the query works there > then it isn't default limits on the login causing your > problem. Or if you are on friendly enough terms with your > Oracle DBA you could ask them what they think is going on. > > Good luck figuring it out and be sue and let us know when you do. > > GK > > On 8/22/06, O'Connor, Patricia (OTDA) > wrote: > > Hi Gary > > I use the same ODBC driver and even tried rebooting - still > get same > > message. Will check into the Oracle Database login to see if they > > have something set up there. > > > > I recommend the oracle odbc over the microsoft because the date > > handling is better. Think it is better for passthru's also. > There was > > something else related also but I can't remember at just > this moment. > > > > Thanks > > > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > Sent: Tuesday, August 22, 2006 12:07 PM > > > To: Access Developers discussion and problem solving > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > > unclicking the "Enable Query Timeout" box does the trick > for me and > > > my users. > > > That is the only option we change from default when > setting up the > > > ODBC data source. We use System DSN's for all ODBC definitions. I > > > wonder if your Oracle Database login has a defaulting > timeout level > > > that is biting you.. > > > > > > I have also used the Microsoft ODBC driver with good results. > > > The only issue there was that if the Oracle Database > login password > > > was expired the Microsoft ODBC driver didn't prompt for > entering a > > > new password as the Oracle one did. that may have changed with a > > > newer Microsoft driver though. We used to use a generic login and > > > password for everyone's Access ODBC into Oracle stuff, > but because > > > of Sarbains/Oxley we were required to change to individual user > > > logins that had expiring passwords. So that was when the > Microsoft > > > ODBC driver not prompting for new password became more of > an issue. > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > wrote: > > > > Gary > > > > > > > > Which driver do you use? And unclick works? > > > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > > happens against > > > > FOXPRO. > > > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > > unclicked > > > > Query Time out. Opened the MDB and tried a pretty simple > > > query without > > > > changing the Query Property Timeout over 60. It still > timed out. > > > > > > > > I get the following message if I don't set the QUERY > PROPERTY ODBC > > > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > > > > > ODBC--Call failed. > > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested > cancel of > > > > current operation (#1013) > > > > > > > > I know immediately that I forgot to update the timeout by > > > the message > > > > above. Many others do not understand so I am always > > > checking out their > > > > queries and machines. > > > > > > > > I was wondering whether there was a change to Registry or > > > some hidden > > > > MS change that would fix this. > > > > > > > > Thanks > > > > ************************************************** > > > > * Patricia O'Connor > > > > * Associate Computer Programmer Analyst > > > > * OTDA - BDMA > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > > ************************************************** > > > > > > > > -----Original Message----- > > > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > > Of Gary Kjos > > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > > To: Access Developers discussion and problem solving > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > property > > > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver > > > > > for Oracle you can tell it to just NOT timeout by unchecking > > > the Timeout > > > > > checkbox. > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > wrote: > > > > > > Hi all > > > > > > > > > > > > Is there a way to set the ODBC timeout default in > the query > > > > > > properties from 60 to 6000 permanently? Most of our work > > > > > is against > > > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > > > new query > > > > > > we do we have to remember to reset this before running > > > > > otherwise we get a timeout. > > > > > > Does not matter how easy or hard the query is, If > it isn't at > > > > > > least 600 then poof it stops. One person said that it would > > > > > cause their MDB > > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have > looked almost > > > > > > everywhere but can't find out how to change the default. > > > > > This would > > > > > > be for 2k or 2k3. > > > > > > Any help appreciated > > > > > > > > > > > > Thanks > > > > > > > > > > > > ************************************************** > > > > > > * Patricia O'Connor > > > > > > -------------------------------------------------------- > > > > > -- > > > > > Gary Kjos > > > > > garykjos at gmail.com > > > > > -- > > > Gary Kjos > > > garykjos at gmail.com > > > -- > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > Gary Kjos > garykjos at gmail.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From garykjos at gmail.com Wed Aug 23 13:34:20 2006 From: garykjos at gmail.com (Gary Kjos) Date: Wed, 23 Aug 2006 13:34:20 -0500 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB59@EXCNYSM0A1AI.nysemail.nyenet> References: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB59@EXCNYSM0A1AI.nysemail.nyenet> Message-ID: I have Enable DDE Refresh checked OLE/DDE timeout = 30 Refresh interval = 60 Number of Update Retries = 2 ODBC Refresh Interval Sec = 1500 Update retry interval = 250 Record Level Locking is checked One other thing I didn't mention before is that everything I do via Access/ODBC is read only so in the ODBC Data source setup I do have the Readonly Connection option checked too. Not sure if that is the default. I'm using Access 2003 now but started doing this using Access 2000. We have a combination of 8i and 9i Oracle databases that I connect to. GK On 8/23/06, O'Connor, Patricia (OTDA) wrote: > Hi Gary, > > Thanks!! > If I run same query in PL_SQL no problem without touching any timers. > Asked our DBA and they checked the ORACLE logon and there were no login > limits. > So we checked the SQLNET.ORA file and the SQLNET.EXPIRE_TIME=0. > I set the registry to 6000. > > Just out of curiosity what do you have in the TOOLS OPTIONS ADVANCED > settings > Enable DDe refresh > OLE/DDE timeout 300 > REfresh interval 60 > Number of update retries 2 > Odbc refresh interval 1500 > Update retry interval 250 > Record level locking > > This is so strange. Will try looking at ms forums maybe something there. > Thanks > ************************************************** > * Patricia O'Connor > * Associate Computer Programmer Analyst > * OTDA - BDMA > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > Sent: Tuesday, August 22, 2006 02:14 PM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > Hi Patricia, > > > > Weird. Maybe I'm just lucky? ;-) > > > > I''ve got some extract queries that run for a few hours > > before returning any results so I'd really be in trouble if > > it didn't work as it does for me. > > > > Perhaps you could test the database login theory if you ran a > > similar query directly against the Oracle Database using > > another tool such as SQL Navigator, Toad or SQL Plus, taking > > the ODBC driver out of the mix. If the query works there > > then it isn't default limits on the login causing your > > problem. Or if you are on friendly enough terms with your > > Oracle DBA you could ask them what they think is going on. > > > > Good luck figuring it out and be sue and let us know when you do. > > > > GK > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > wrote: > > > Hi Gary > > > I use the same ODBC driver and even tried rebooting - still > > get same > > > message. Will check into the Oracle Database login to see if they > > > have something set up there. > > > > > > I recommend the oracle odbc over the microsoft because the date > > > handling is better. Think it is better for passthru's also. > > There was > > > something else related also but I can't remember at just > > this moment. > > > > > > Thanks > > > > > > ************************************************** > > > * Patricia O'Connor > > > * Associate Computer Programmer Analyst > > > * OTDA - BDMA > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > > Sent: Tuesday, August 22, 2006 12:07 PM > > > > To: Access Developers discussion and problem solving > > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > > > unclicking the "Enable Query Timeout" box does the trick > > for me and > > > > my users. > > > > That is the only option we change from default when > > setting up the > > > > ODBC data source. We use System DSN's for all ODBC definitions. I > > > > wonder if your Oracle Database login has a defaulting > > timeout level > > > > that is biting you.. > > > > > > > > I have also used the Microsoft ODBC driver with good results. > > > > The only issue there was that if the Oracle Database > > login password > > > > was expired the Microsoft ODBC driver didn't prompt for > > entering a > > > > new password as the Oracle one did. that may have changed with a > > > > newer Microsoft driver though. We used to use a generic login and > > > > password for everyone's Access ODBC into Oracle stuff, > > but because > > > > of Sarbains/Oxley we were required to change to individual user > > > > logins that had expiring passwords. So that was when the > > Microsoft > > > > ODBC driver not prompting for new password became more of > > an issue. > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > wrote: > > > > > Gary > > > > > > > > > > Which driver do you use? And unclick works? > > > > > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > > > happens against > > > > > FOXPRO. > > > > > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > > > unclicked > > > > > Query Time out. Opened the MDB and tried a pretty simple > > > > query without > > > > > changing the Query Property Timeout over 60. It still > > timed out. > > > > > > > > > > I get the following message if I don't set the QUERY > > PROPERTY ODBC > > > > > Timeout from 60 up to at least 500. I routinely set it at 6000. > > > > > > > > > > ODBC--Call failed. > > > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested > > cancel of > > > > > current operation (#1013) > > > > > > > > > > I know immediately that I forgot to update the timeout by > > > > the message > > > > > above. Many others do not understand so I am always > > > > checking out their > > > > > queries and machines. > > > > > > > > > > I was wondering whether there was a change to Registry or > > > > some hidden > > > > > MS change that would fix this. > > > > > > > > > > Thanks > > > > > ************************************************** > > > > > * Patricia O'Connor > > > > > * Associate Computer Programmer Analyst > > > > > * OTDA - BDMA > > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > > > ************************************************** > > > > > > > > > > -----Original Message----- > > > > > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > > > Of Gary Kjos > > > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > > > To: Access Developers discussion and problem solving > > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > > property > > > > > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC Driver > > > > > > for Oracle you can tell it to just NOT timeout by unchecking > > > > the Timeout > > > > > > checkbox. > > > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > > wrote: > > > > > > > Hi all > > > > > > > > > > > > > > Is there a way to set the ODBC timeout default in > > the query > > > > > > > properties from 60 to 6000 permanently? Most of our work > > > > > > is against > > > > > > > our ORACLE databases, some Foxpro, and SqlServer. For every > > > > > > new query > > > > > > > we do we have to remember to reset this before running > > > > > > otherwise we get a timeout. > > > > > > > Does not matter how easy or hard the query is, If > > it isn't at > > > > > > > least 600 then poof it stops. One person said that it would > > > > > > cause their MDB > > > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have > > looked almost > > > > > > > everywhere but can't find out how to change the default. > > > > > > This would > > > > > > > be for 2k or 2k3. > > > > > > > Any help appreciated > > > > > > > > > > > > > > Thanks > > > > > > > > > > > > > > ************************************************** > > > > > > > * Patricia O'Connor > > > > > > > -------------------------------------------------------- > > > > > > -- > > > > > > Gary Kjos > > > > > > garykjos at gmail.com > > > > > > -- > > > > Gary Kjos > > > > garykjos at gmail.com > > > > -- > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > Gary Kjos > > garykjos at gmail.com > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > 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 Patricia.O'Connor at otda.state.ny.us Wed Aug 23 13:47:44 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 23 Aug 2006 14:47:44 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB5A@EXCNYSM0A1AI.nysemail.nyenet> Thanks again!! will look into some more things ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 Gary Kjos > Sent: Wednesday, August 23, 2006 02:34 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > I have Enable DDE Refresh checked > OLE/DDE timeout = 30 > Refresh interval = 60 > Number of Update Retries = 2 > ODBC Refresh Interval Sec = 1500 > Update retry interval = 250 > Record Level Locking is checked > > One other thing I didn't mention before is that everything I > do via Access/ODBC is read only so in the ODBC Data source > setup I do have the Readonly Connection option checked too. > Not sure if that is the default. > > I'm using Access 2003 now but started doing this using Access > 2000. We have a combination of 8i and 9i Oracle databases > that I connect to. > > GK > > On 8/23/06, O'Connor, Patricia (OTDA) > wrote: > > Hi Gary, > > > > Thanks!! > > If I run same query in PL_SQL no problem without touching > any timers. > > Asked our DBA and they checked the ORACLE logon and there were no > > login limits. > > So we checked the SQLNET.ORA file and the SQLNET.EXPIRE_TIME=0. > > I set the registry to 6000. > > > > Just out of curiosity what do you have in the TOOLS OPTIONS > ADVANCED > > settings > > Enable DDe refresh > > OLE/DDE timeout 300 > > REfresh interval 60 > > Number of update retries 2 > > Odbc refresh interval 1500 > > Update retry interval 250 > > Record level locking > > > > This is so strange. Will try looking at ms forums maybe > something there. > > Thanks > > ************************************************** > > * Patricia O'Connor > > * Associate Computer Programmer Analyst > > * OTDA - BDMA > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > Sent: Tuesday, August 22, 2006 02:14 PM > > > To: Access Developers discussion and problem solving > > > Subject: Re: [AccessD] Change ODBC timeout default query property > > > > > > Hi Patricia, > > > > > > Weird. Maybe I'm just lucky? ;-) > > > > > > I''ve got some extract queries that run for a few hours before > > > returning any results so I'd really be in trouble if it > didn't work > > > as it does for me. > > > > > > Perhaps you could test the database login theory if you ran a > > > similar query directly against the Oracle Database using another > > > tool such as SQL Navigator, Toad or SQL Plus, taking the > ODBC driver > > > out of the mix. If the query works there then it isn't default > > > limits on the login causing your problem. Or if you are > on friendly > > > enough terms with your Oracle DBA you could ask them what > they think > > > is going on. > > > > > > Good luck figuring it out and be sue and let us know when you do. > > > > > > GK > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > wrote: > > > > Hi Gary > > > > I use the same ODBC driver and even tried rebooting - still > > > get same > > > > message. Will check into the Oracle Database login to > see if they > > > > have something set up there. > > > > > > > > I recommend the oracle odbc over the microsoft because the date > > > > handling is better. Think it is better for passthru's also. > > > There was > > > > something else related also but I can't remember at just > > > this moment. > > > > > > > > Thanks > > > > > > > > ************************************************** > > > > * Patricia O'Connor > > > > * Associate Computer Programmer Analyst > > > > * OTDA - BDMA > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > * (w) mailto:aa1160 at nysemail.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 Gary Kjos > > > > > Sent: Tuesday, August 22, 2006 12:07 PM > > > > > To: Access Developers discussion and problem solving > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > property > > > > > > > > > > I am currently using Oracle ODBC driver 9.02.00.54 Yep. > > > > > unclicking the "Enable Query Timeout" box does the trick > > > for me and > > > > > my users. > > > > > That is the only option we change from default when > > > setting up the > > > > > ODBC data source. We use System DSN's for all ODBC > definitions. > > > > > I wonder if your Oracle Database login has a defaulting > > > timeout level > > > > > that is biting you.. > > > > > > > > > > I have also used the Microsoft ODBC driver with good results. > > > > > The only issue there was that if the Oracle Database > > > login password > > > > > was expired the Microsoft ODBC driver didn't prompt for > > > entering a > > > > > new password as the Oracle one did. that may have > changed with a > > > > > newer Microsoft driver though. We used to use a generic login > > > > > and password for everyone's Access ODBC into Oracle stuff, > > > but because > > > > > of Sarbains/Oxley we were required to change to > individual user > > > > > logins that had expiring passwords. So that was when the > > > Microsoft > > > > > ODBC driver not prompting for new password became more of > > > an issue. > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > wrote: > > > > > > Gary > > > > > > > > > > > > Which driver do you use? And unclick works? > > > > > > > > > > > > We are using the ORACLE ODBC driver Ora 9i. But also > > > > > happens against > > > > > > FOXPRO. > > > > > > > > > > > > I went to the Administrative tools, Data Sources(ODBC) and > > > > > unclicked > > > > > > Query Time out. Opened the MDB and tried a pretty simple > > > > > query without > > > > > > changing the Query Property Timeout over 60. It still > > > timed out. > > > > > > > > > > > > I get the following message if I don't set the QUERY > > > PROPERTY ODBC > > > > > > Timeout from 60 up to at least 500. I routinely set > it at 6000. > > > > > > > > > > > > ODBC--Call failed. > > > > > > [Oracle] [ODBC] [ORA] ORA-01013: user requested > > > cancel of > > > > > > current operation (#1013) > > > > > > > > > > > > I know immediately that I forgot to update the timeout by > > > > > the message > > > > > > above. Many others do not understand so I am always > > > > > checking out their > > > > > > queries and machines. > > > > > > > > > > > > I was wondering whether there was a change to Registry or > > > > > some hidden > > > > > > MS change that would fix this. > > > > > > > > > > > > Thanks > > > > > > ************************************************** > > > > > > * Patricia O'Connor > > > > > > * Associate Computer Programmer Analyst > > > > > > * OTDA - BDMA > > > > > > * (W) mailto:Patricia.O'Connor at otda.state.ny.us > > > > > > * (w) mailto:aa1160 at nysemail.state.ny.us > > > > > > ************************************************** > > > > > > > > > > > > -----Original Message----- > > > > > > > > > > > > > From: accessd-bounces at databaseadvisors.com > > > > > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > > > > Of Gary Kjos > > > > > > > Sent: Tuesday, August 22, 2006 10:11 AM > > > > > > > To: Access Developers discussion and problem solving > > > > > > > Subject: Re: [AccessD] Change ODBC timeout default query > > > > > > > property > > > > > > > > > > > > > > Which ODBC driver are you using? With the Oracle ODBC > > > > > > > Driver for Oracle you can tell it to just NOT timeout by > > > > > > > unchecking > > > > > the Timeout > > > > > > > checkbox. > > > > > > > > > > > > > > On 8/22/06, O'Connor, Patricia (OTDA) > > > > > > > wrote: > > > > > > > > Hi all > > > > > > > > > > > > > > > > Is there a way to set the ODBC timeout default in > > > the query > > > > > > > > properties from 60 to 6000 permanently? Most > of our work > > > > > > > is against > > > > > > > > our ORACLE databases, some Foxpro, and SqlServer. For > > > > > > > > every > > > > > > > new query > > > > > > > > we do we have to remember to reset this before running > > > > > > > otherwise we get a timeout. > > > > > > > > Does not matter how easy or hard the query is, If > > > it isn't at > > > > > > > > least 600 then poof it stops. One person said that it > > > > > > > > would > > > > > > > cause their MDB > > > > > > > > to corrupt but I haven't had that problem. > > > > > > > > > > > > > > > > The OPTIONS ADVANCED does not do this. I have > > > looked almost > > > > > > > > everywhere but can't find out how to change the default. > > > > > > > This would > > > > > > > > be for 2k or 2k3. > > > > > > > > Any help appreciated > > > > > > > > > > > > > > > > Thanks > > > > > > > > > > > > > > > > ************************************************** > > > > > > > > * Patricia O'Connor > > > > > > > > -------------------------------------------------------- > > > > > > > -- > > > > > > > Gary Kjos > > > > > > > garykjos at gmail.com > > > > > > > -- > > > > > Gary Kjos > > > > > garykjos at gmail.com > > > > > -- > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > > > > > > > -- > > > Gary Kjos > > > garykjos at gmail.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > Gary Kjos > garykjos at gmail.com > -- > 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 Wed Aug 23 14:09:22 2006 From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA)) Date: Wed, 23 Aug 2006 15:09:22 -0400 Subject: [AccessD] Change ODBC timeout default query property In-Reply-To: <44EB6712.7000207@shaw.ca> Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8021BAB5C@EXCNYSM0A1AI.nysemail.nyenet> Thanks will try this out. I usually use DAO only because I did not learn ado much yet. Started using 2k about 2 1/2 years ago and 2k3 in last few weeks. Would it be much different between DAO and ADO Thanks ************************************************** * Patricia O'Connor * Associate Computer Programmer Analyst * OTDA - BDMA * (W) mailto:Patricia.O'Connor at otda.state.ny.us * (w) mailto:aa1160 at nysemail.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 > MartyConnelly > Sent: Tuesday, August 22, 2006 04:21 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Change ODBC timeout default query property > > Here are some other set able timeouts, whether they override > the registry settings I don't know. Depends if you are using > DAO or ADO. > You might want to check the Oracle Client .ora file too. > > Sub querytest() > Dim dbs As Database > > Set dbs = CurrentDb > Debug.Print dbs.QueryTimeout 'default 60 secs > dbs.QueryTimeout = 600 > Debug.Print dbs.QueryTimeout 'default now 600 secs > > Debug.Print CurrentProject.Connection.CommandTimeout '30 > seconds ' commandtimeout similar to querytimeout 'this is > ADODB.Command.CommandTimeout for entire project Debug.Print > CurrentProject.Connection.ConnectionTimeout '15 seconds > > Dim LoggedOnQry As QueryDef > Set LoggedOnQry = dbs.QueryDefs("query1") > Debug.Print LoggedOnQry.ODBCTimeout 'default 60 idle timeout? > > Dim conn As New ADODB.Connection > conn.Open "Driver={SQL > Server};Server=MARTIN;Database=pubs;Trusted_Connection=yes" > Debug.Print conn.CommandTimeout > Debug.Print conn.ConnectionTimeout > conn.Close > Debug.Print "close" > > End Sub > > From kismert at gmail.com Wed Aug 23 14:16:46 2006 From: kismert at gmail.com (Ken Ismert) Date: Wed, 23 Aug 2006 14:16:46 -0500 Subject: [AccessD] Bang and Dot operator in Runtimes. Message-ID: <44ECA99E.7060905@gmail.com> (Resending... sorry about the delay... sorting out my AccessD email settings) Ahh, the old "Dot vs. Bang" chestnut. I gotta weigh in, and respond to certain points John, A.D., Susan, Erwin and Dan brought up: First, thanks A.D. for your code demonstrating the interchangability of . and ! in common situations. The Me reference ---------------- Me is just the default internal reference to the object. In the case of a Form or Report, there is a hidden declaration header in the class module that makes all your controls available as properties of the class. So, within the Form class module, Me.txtDate is as valid as: Me!txtDate which is just as valid as: txtDate So, John, if you are getting an error in your runtime, it is not because of 'bad' syntax. It is either an error in the interpreter, or an earlier error manifesting itself at that line of code. Default Properties and Collections ---------------------------------- The classes we commonly work with in Access make heavy use of two time saving shortcuts: Default Properties and Default Collections. The default property is one that is exposed when an assignment is made using an object with no qualifying property: txtDate = #1/1/2006# varDate = txtDate In each instance, the default property Value is being implicitly referenced. So, the above code is exactly the same as: txtDate.Value = #1/1/2006# varDate = txtDate.Value Dan has to explicitly specify lblName.Caption in his example, because the Label object has no default property. More importantly for our discussion, Access classes also expose default collections. So the following code is equivalent: rForm("txtDate") ' rForm is a Form object rForm.Controls("txtDate") rRS("RowID") ' rRS is a Recordset object rRS.Fields("RowID") You can easily see that a collection is the default member of the Form and Recordset objects. Comparing Dot and Bang ---------------------------------------------- What are the differences between Dot and Bang, really? Dot: * Can be used for early or late-bound references to object properties and methods * Cannot be used in queries (conflicts with SQL Table.Field syntax) Bang: * Is resolved only at runtime, exactly like Collection("Element") * Can only access members of collections * Can be early or late-bound, depending on the parent of the collection Try it: you just can't get Bang to access a non-collection property of an object. But you can use Bang to access members of plain collections, provided you name with with a non-numeric name. So, a reference like: Forms!frmTest!txtDate Can be read as: "In the Forms collection, get the "frmTest" element, then get the "txtDate" element from frmTest's default collection. Finally, return the default property value of object txtDate" That compact syntax does a lot. Binding and Efficiency ---------------------- When are Bang references early-bound? When the parent resolves to a specific class. These references are early-bound (Intellisense works): Form_frmTest!txtDate Me!txtDate rRS!DateField These references are late-bound: Forms!frmTest!txtDate Reports!rptTest!txtDate You really can't compare Dot and Bang in terms of efficiency. Dot is for members of objects, and Bang is for members of collections. The real question is whether a Collection!Element reference is as efficient as Collection("Element"). Susan is right that in common usage there is no noticeable difference in performance between the two. Use in Forms ------------ In form modules, Me!txtDate is more work, because you're accessing the control through the Controls collection, rather than referencing the property directly as you would with Me.txtDate or just txtDate. Erwin's example is most intriguing: while Me!txtDate usually refers to a control named "txtDate", if no such control exists, it will return the value of a field named "txtDate". What is surprising is that Me!txtDate doesn't return a DAO.Field object, as you might expect, but something called an AccessField object. Summary ------- * Dot is useful for ordinary object property and method references * Bang is useful as a shortcut for specifying elements of collections whose members won't be known until runtime, or in situations where Dot won't work, i.e. queries. -Ken From kismert at gmail.com Wed Aug 23 14:18:23 2006 From: kismert at gmail.com (Ken Ismert) Date: Wed, 23 Aug 2006 14:18:23 -0500 Subject: [AccessD] DB2 and Ruby on Rails Message-ID: <44ECA9FF.8030709@gmail.com> (Resending... sorry about the delay... sorting out my AccessD email settings) Gustav, Thanks for the info! > Just noticed this link to a free Starter Toolkit for DB2 on Rails: > http://alphaworks.ibm.com/tech/db2onrails > Starter Toolkit for DB2? on Rails is a conveniently-packaged set of > products and technologies that enables the quick creation of a > configuration for building DB2 Web applications using Ruby on Rails > technology. > > Also note the free DB2 Express-C database engine: > http://www-306.ibm.com/software/data/db2/udb/db2express/download.html From askolits at ot.com Wed Aug 23 14:29:43 2006 From: askolits at ot.com (John Skolits) Date: Wed, 23 Aug 2006 15:29:43 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <44ECA99E.7060905@gmail.com> Message-ID: <005601c6c6ea$7f2a18b0$6701a8c0@LaptopXP> I guess there must have been some bogus stuff in my code that caused it to break. Thanks for all the info! John -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert Sent: Wednesday, August 23, 2006 3:17 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Bang and Dot operator in Runtimes. (Resending... sorry about the delay... sorting out my AccessD email settings) Ahh, the old "Dot vs. Bang" chestnut. I gotta weigh in, and respond to certain points John, A.D., Susan, Erwin and Dan brought up: First, thanks A.D. for your code demonstrating the interchangability of . and ! in common situations. The Me reference ---------------- Me is just the default internal reference to the object. In the case of a Form or Report, there is a hidden declaration header in the class module that makes all your controls available as properties of the class. So, within the Form class module, Me.txtDate is as valid as: Me!txtDate which is just as valid as: txtDate So, John, if you are getting an error in your runtime, it is not because of 'bad' syntax. It is either an error in the interpreter, or an earlier error manifesting itself at that line of code. Default Properties and Collections ---------------------------------- The classes we commonly work with in Access make heavy use of two time saving shortcuts: Default Properties and Default Collections. The default property is one that is exposed when an assignment is made using an object with no qualifying property: txtDate = #1/1/2006# varDate = txtDate In each instance, the default property Value is being implicitly referenced. So, the above code is exactly the same as: txtDate.Value = #1/1/2006# varDate = txtDate.Value Dan has to explicitly specify lblName.Caption in his example, because the Label object has no default property. More importantly for our discussion, Access classes also expose default collections. So the following code is equivalent: rForm("txtDate") ' rForm is a Form object rForm.Controls("txtDate") rRS("RowID") ' rRS is a Recordset object rRS.Fields("RowID") You can easily see that a collection is the default member of the Form and Recordset objects. Comparing Dot and Bang ---------------------------------------------- What are the differences between Dot and Bang, really? Dot: * Can be used for early or late-bound references to object properties and methods * Cannot be used in queries (conflicts with SQL Table.Field syntax) Bang: * Is resolved only at runtime, exactly like Collection("Element") * Can only access members of collections * Can be early or late-bound, depending on the parent of the collection Try it: you just can't get Bang to access a non-collection property of an object. But you can use Bang to access members of plain collections, provided you name with with a non-numeric name. So, a reference like: Forms!frmTest!txtDate Can be read as: "In the Forms collection, get the "frmTest" element, then get the "txtDate" element from frmTest's default collection. Finally, return the default property value of object txtDate" That compact syntax does a lot. Binding and Efficiency ---------------------- When are Bang references early-bound? When the parent resolves to a specific class. These references are early-bound (Intellisense works): Form_frmTest!txtDate Me!txtDate rRS!DateField These references are late-bound: Forms!frmTest!txtDate Reports!rptTest!txtDate You really can't compare Dot and Bang in terms of efficiency. Dot is for members of objects, and Bang is for members of collections. The real question is whether a Collection!Element reference is as efficient as Collection("Element"). Susan is right that in common usage there is no noticeable difference in performance between the two. Use in Forms ------------ In form modules, Me!txtDate is more work, because you're accessing the control through the Controls collection, rather than referencing the property directly as you would with Me.txtDate or just txtDate. Erwin's example is most intriguing: while Me!txtDate usually refers to a control named "txtDate", if no such control exists, it will return the value of a field named "txtDate". What is surprising is that Me!txtDate doesn't return a DAO.Field object, as you might expect, but something called an AccessField object. Summary ------- * Dot is useful for ordinary object property and method references * Bang is useful as a shortcut for specifying elements of collections whose members won't be known until runtime, or in situations where Dot won't work, i.e. queries. -Ken -- 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 Aug 23 14:48:20 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Wed, 23 Aug 2006 15:48:20 -0400 Subject: [AccessD] Word Window On Top Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> Well here is how I do the same thing with Access opening Excel. It is all dependant on getting the handle of the Excel window (or Word window in your case)... Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As Boolean = True) '--------------------------------------------------------------------------- ------------ ' Procedure : ViewInExcel ' ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, but does ' : not save the Excel file. The user can choose to save the file if needed. '--------------------------------------------------------------------------- ------------ ' Dim objXL As excel.Application Dim objSheet As excel.Worksheet Dim objWB As excel.Workbook Dim rs As Object Dim oRng As excel.Range Dim nCols As Long, n As Long Set rs = CurrentDb.OpenRecordset(strRecordSource) nCols = rs.Fields.Count Set objXL = CreateObject("Excel.Application") objXL.SheetsInNewWorkbook = 1 Set objWB = objXL.Workbooks.Add Dim f As Field n = 0 ' CopyFromRecordset does not bring the column headings with it. ' So here we add them manually. For Each f In rs.Fields n = n + 1 objWB.Sheets("Sheet1").Cells(1, n) = f.Name Next f ' and now drop the data into row 2 objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs If bFormatColumns Then Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & "1:" & CStr(ExcelColumn(nCols)) & "1") oRng.EntireColumn.AutoFit oRng.Interior.Color = vbYellow oRng.Borders.Color = vbBlack Set oRng = Nothing End If rs.Close Set rs = Nothing objXL.Visible = True SetForegroundWindow objXL.hWnd ' here's the line that brings the window to the foreground. End Sub HTH Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 23, 2006 1:33 PM To: Access Developers discussion and problem solving Subject: [AccessD] Word Window On Top Dear List: Using automation I open a word doc, but the access app is still on top. Word is in the tray. Click it and the doc is there and open. Q: how can I give the word doc window the focus after I open it? MTIA 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 Aug 23 15:03:28 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 13:03:28 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> Message-ID: <44ECB490.2010007@san.rr.com> Heenan: With WordObj declared as: Dim WordObj As Word.Application and the Function in a separate module, the statement SetForegroundWindow WordObj.hWnd won't compile - gives a method or data member not found error. The Word 11.0 object library is checked in the references. I tried redeclaring WordObj as Object but that didn't work either. TIA Rocky Heenan, Lambert wrote: > Well here is how I do the same thing with Access opening Excel. It is all > dependant on getting the handle of the Excel window (or Word window in your > case)... > > Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As > Long) As Long > > Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As > Boolean = True) > '--------------------------------------------------------------------------- > ------------ > ' Procedure : ViewInExcel > ' > ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, > but does > ' : not save the Excel file. The user can choose to save the file > if needed. > '--------------------------------------------------------------------------- > ------------ > ' > Dim objXL As excel.Application > Dim objSheet As excel.Worksheet > Dim objWB As excel.Workbook > Dim rs As Object > Dim oRng As excel.Range > Dim nCols As Long, n As Long > > Set rs = CurrentDb.OpenRecordset(strRecordSource) > nCols = rs.Fields.Count > Set objXL = CreateObject("Excel.Application") > objXL.SheetsInNewWorkbook = 1 > Set objWB = objXL.Workbooks.Add > Dim f As Field > n = 0 > ' CopyFromRecordset does not bring the column headings with it. > ' So here we add them manually. > For Each f In rs.Fields > n = n + 1 > objWB.Sheets("Sheet1").Cells(1, n) = f.Name > Next f > ' and now drop the data into row 2 > objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs > If bFormatColumns Then > Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & "1:" > & CStr(ExcelColumn(nCols)) & "1") > oRng.EntireColumn.AutoFit > oRng.Interior.Color = vbYellow > oRng.Borders.Color = vbBlack > Set oRng = Nothing > End If > rs.Close > Set rs = Nothing > objXL.Visible = True > SetForegroundWindow objXL.hWnd ' here's the line that brings the window > to the foreground. > End Sub > > HTH > > Lambert > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 1:33 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Word Window On Top > > > Dear List: > > Using automation I open a word doc, but the access app is still on top. > Word is in the tray. Click it and the doc is there and open. Q: how > can I give the word doc window the focus after I open it? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From mmattys at rochester.rr.com Wed Aug 23 15:50:14 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Wed, 23 Aug 2006 16:50:14 -0400 Subject: [AccessD] Word Window On Top References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> <44ECB490.2010007@san.rr.com> Message-ID: <027801c6c6f5$bd4a5410$0202a8c0@default> Rocky, >Dim WordObj As Word.Application Doesn't WordObj.Activate work? Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 23, 2006 4:03 PM Subject: Re: [AccessD] Word Window On Top > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found > error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: >> Well here is how I do the same thing with Access opening Excel. It is all >> dependant on getting the handle of the Excel window (or Word window in >> your >> case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------------- >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel >> worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> file >> if needed. >> '--------------------------------------------------------------------------- >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" >> & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window >> to the foreground. >> End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> 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 Lambert.Heenan at AIG.com Wed Aug 23 15:53:56 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Wed, 23 Aug 2006 15:53:56 -0500 Subject: [AccessD] Word Window On Top Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> Rocky, WordObj needs to be declared As Word.Application, but is has to be in the same scope as the function you are using. Notice that I actually declare the xlObj inside my function. Lambert (first name) -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Wednesday, August 23, 2006 4:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Word Window On Top Heenan: With WordObj declared as: Dim WordObj As Word.Application and the Function in a separate module, the statement SetForegroundWindow WordObj.hWnd won't compile - gives a method or data member not found error. The Word 11.0 object library is checked in the references. I tried redeclaring WordObj as Object but that didn't work either. TIA Rocky Heenan, Lambert wrote: > Well here is how I do the same thing with Access opening Excel. It is > all dependant on getting the handle of the Excel window (or Word > window in your case)... > > Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd > As > Long) As Long > > Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As > Boolean = True) > '--------------------------------------------------------------------- > ------ > ------------ > ' Procedure : ViewInExcel > ' > ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, > but does > ' : not save the Excel file. The user can choose to save the file > if needed. > '--------------------------------------------------------------------------- > ------------ > ' > Dim objXL As excel.Application > Dim objSheet As excel.Worksheet > Dim objWB As excel.Workbook > Dim rs As Object > Dim oRng As excel.Range > Dim nCols As Long, n As Long > > Set rs = CurrentDb.OpenRecordset(strRecordSource) > nCols = rs.Fields.Count > Set objXL = CreateObject("Excel.Application") > objXL.SheetsInNewWorkbook = 1 > Set objWB = objXL.Workbooks.Add > Dim f As Field > n = 0 > ' CopyFromRecordset does not bring the column headings with it. > ' So here we add them manually. > For Each f In rs.Fields > n = n + 1 > objWB.Sheets("Sheet1").Cells(1, n) = f.Name > Next f > ' and now drop the data into row 2 > objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs > If bFormatColumns Then > Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & > "1:" & CStr(ExcelColumn(nCols)) & "1") > oRng.EntireColumn.AutoFit > oRng.Interior.Color = vbYellow > oRng.Borders.Color = vbBlack > Set oRng = Nothing > End If > rs.Close > Set rs = Nothing > objXL.Visible = True > SetForegroundWindow objXL.hWnd ' here's the line that brings the > window to the foreground. End Sub > > HTH > > Lambert > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky > Smolin - Beach Access Software > Sent: Wednesday, August 23, 2006 1:33 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Word Window On Top > > > Dear List: > > Using automation I open a word doc, but the access app is still on > top. > Word is in the tray. Click it and the doc is there and open. Q: how > can I give the word doc window the focus after I open it? > > MTIA > > 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 DWUTKA at marlow.com Wed Aug 23 16:37:15 2006 From: DWUTKA at marlow.com (DWUTKA at marlow.com) Date: Wed, 23 Aug 2006 16:37:15 -0500 Subject: [AccessD] Word Window On Top Message-ID: <17724746D360394AA3BFE5B8D40A9C1BEE8F86@MARLOW_MAIN2.marlow.com> Rocky, I think you can do WordObj.Show. Just a hunch. Drew -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Wednesday, August 23, 2006 3:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Word Window On Top Heenan: With WordObj declared as: Dim WordObj As Word.Application and the Function in a separate module, the statement SetForegroundWindow WordObj.hWnd won't compile - gives a method or data member not found error. The Word 11.0 object library is checked in the references. I tried redeclaring WordObj as Object but that didn't work either. TIA Rocky Heenan, Lambert wrote: > Well here is how I do the same thing with Access opening Excel. It is all > dependant on getting the handle of the Excel window (or Word window in your > case)... > > Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As > Long) As Long > > Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As > Boolean = True) > '--------------------------------------------------------------------------- > ------------ > ' Procedure : ViewInExcel > ' > ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, > but does > ' : not save the Excel file. The user can choose to save the file > if needed. > '--------------------------------------------------------------------------- > ------------ > ' > Dim objXL As excel.Application > Dim objSheet As excel.Worksheet > Dim objWB As excel.Workbook > Dim rs As Object > Dim oRng As excel.Range > Dim nCols As Long, n As Long > > Set rs = CurrentDb.OpenRecordset(strRecordSource) > nCols = rs.Fields.Count > Set objXL = CreateObject("Excel.Application") > objXL.SheetsInNewWorkbook = 1 > Set objWB = objXL.Workbooks.Add > Dim f As Field > n = 0 > ' CopyFromRecordset does not bring the column headings with it. > ' So here we add them manually. > For Each f In rs.Fields > n = n + 1 > objWB.Sheets("Sheet1").Cells(1, n) = f.Name > Next f > ' and now drop the data into row 2 > objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs > If bFormatColumns Then > Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & "1:" > & CStr(ExcelColumn(nCols)) & "1") > oRng.EntireColumn.AutoFit > oRng.Interior.Color = vbYellow > oRng.Borders.Color = vbBlack > Set oRng = Nothing > End If > rs.Close > Set rs = Nothing > objXL.Visible = True > SetForegroundWindow objXL.hWnd ' here's the line that brings the window > to the foreground. > End Sub > > HTH > > Lambert > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 1:33 PM > To: Access Developers discussion and problem solving > Subject: [AccessD] Word Window On Top > > > Dear List: > > Using automation I open a word doc, but the access app is still on top. > Word is in the tray. Click it and the doc is there and open. Q: how > can I give the word doc window the focus after I open it? > > MTIA > > 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 donaread at ihug.co.nz Wed Aug 23 17:18:18 2006 From: donaread at ihug.co.nz (Don Read) Date: Thu, 24 Aug 2006 10:18:18 +1200 Subject: [AccessD] [Fwd: Word XP and access] In-Reply-To: References: Message-ID: <44ECD42A.6070208@ihug.co.nz> > > Now, New Question: > Any ideas of how to offset the start of printing on the label sheet to the first 'available' label on the sheet. Say you have a 2 x > 7 label sheet and the first two rows of labels have been used; the offset is to start on label 5. > > My initial thinking was to create say x 'empty' records (zero length fields) for the offset by way of using a union query: first > part adding the x 'offset' records and the second part being the sql select query... (and with the x empty records sorted to the top > of the list). > > Is that a way to go, and if so what's the sql to create x empty records??? > > Any suggestions appreciated. > > Regards > Borge > > > > > Anyone got any pointers, code, links or references they'd care to share? > > MTIA > > Darren > I use this, in Access. ' Label Saver v97.30 from Peter's Software ' ' Allows users to specify a starting label position and a number of copies via input boxes ' when printing labels ' ' This module was created by: ' ' Peter's Software ' http://www.peterssoftware.com ' info at peterssoftware.com ' ' ...with some help from Microsoft Knowledge Base article Q299024 ' ' This module is freeware. Don From darrend at nimble.com.au Wed Aug 23 18:45:25 2006 From: darrend at nimble.com.au (Darren DICK) Date: Thu, 24 Aug 2006 09:45:25 +1000 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <20060823234533.RYK18372.omta05ps.mx.bigpond.com@DENZILLAP> Hi Gustav Thanks for the replies I do appreciate this is substantially more than an email Just confirming - I am not able to FTP an MDB to my website and connect to it (with read and write access) using an Access front end - Is that the case? If I want to connect to an MDB I have FTP'd to my web site (with read/write access) I have to connect using html or asp or some web language - Is that the case? If I want to use an access front end with (read/write access) over the internet - I have to connect to a say...SQL dB - is that correct? Many thanks Have a great day Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, 23 August 2006 7:37 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- 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 Aug 23 19:10:38 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 17:10:38 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <027801c6c6f5$bd4a5410$0202a8c0@default> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABABD2@xlivmbx21.aig.com> <44ECB490.2010007@san.rr.com> <027801c6c6f5$bd4a5410$0202a8c0@default> Message-ID: <44ECEE7E.30107@san.rr.com> Don't know. I'll forward to the client and see. When I try it Word always pops up on top. He tests for Word being open before creating the object I think it may be that if Word is already open it doesn't end up on top. I'll report back. Rocky Michael R Mattys wrote: > Rocky, > > >> Dim WordObj As Word.Application >> > > Doesn't WordObj.Activate work? > > Michael R. Mattys > MapPoint Developer > www.mattysconsulting.com > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Wednesday, August 23, 2006 4:03 PM > Subject: Re: [AccessD] Word Window On Top > > > >> Heenan: >> >> With WordObj declared as: Dim WordObj As Word.Application >> >> and the Function in a separate module, the statement SetForegroundWindow >> WordObj.hWnd won't compile - gives a method or data member not found >> error. >> >> The Word 11.0 object library is checked in the references. >> >> I tried redeclaring WordObj as Object but that didn't work either. >> >> TIA >> >> Rocky >> >> >> Heenan, Lambert wrote: >> >>> Well here is how I do the same thing with Access opening Excel. It is all >>> dependant on getting the handle of the Excel window (or Word window in >>> your >>> case)... >>> >>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As >>> Long) As Long >>> >>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>> Boolean = True) >>> '--------------------------------------------------------------------------- >>> ------------ >>> ' Procedure : ViewInExcel >>> ' >>> ' Purpose : Displays a recordset (Table or query) in an Excel >>> worksheet, >>> but does >>> ' : not save the Excel file. The user can choose to save the >>> file >>> if needed. >>> '--------------------------------------------------------------------------- >>> ------------ >>> ' >>> Dim objXL As excel.Application >>> Dim objSheet As excel.Worksheet >>> Dim objWB As excel.Workbook >>> Dim rs As Object >>> Dim oRng As excel.Range >>> Dim nCols As Long, n As Long >>> >>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>> nCols = rs.Fields.Count >>> Set objXL = CreateObject("Excel.Application") >>> objXL.SheetsInNewWorkbook = 1 >>> Set objWB = objXL.Workbooks.Add >>> Dim f As Field >>> n = 0 >>> ' CopyFromRecordset does not bring the column headings with it. >>> ' So here we add them manually. >>> For Each f In rs.Fields >>> n = n + 1 >>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>> Next f >>> ' and now drop the data into row 2 >>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>> If bFormatColumns Then >>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>> "1:" >>> & CStr(ExcelColumn(nCols)) & "1") >>> oRng.EntireColumn.AutoFit >>> oRng.Interior.Color = vbYellow >>> oRng.Borders.Color = vbBlack >>> Set oRng = Nothing >>> End If >>> rs.Close >>> Set rs = Nothing >>> objXL.Visible = True >>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>> window >>> to the foreground. >>> End Sub >>> >>> HTH >>> >>> Lambert >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Wednesday, August 23, 2006 1:33 PM >>> To: Access Developers discussion and problem solving >>> Subject: [AccessD] Word Window On Top >>> >>> >>> Dear List: >>> >>> Using automation I open a word doc, but the access app is still on top. >>> Word is in the tray. Click it and the doc is there and open. Q: how >>> can I give the word doc window the focus after I open it? >>> >>> MTIA >>> >>> 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 >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 23 19:12:30 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 17:12:30 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> Message-ID: <44ECEEEE.9080504@san.rr.com> Lambert: I did the same: Dim WordObj As Word.Application Dim WordDoc As Word.Document is inside the sub where the doc is opened. Rocky Heenan, Lambert wrote: > Rocky, > > WordObj needs to be declared As Word.Application, but is has to be in the > same scope as the function you are using. Notice that I actually declare the > xlObj inside my function. > > Lambert (first name) > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 4:03 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: > >> Well here is how I do the same thing with Access opening Excel. It is >> all dependant on getting the handle of the Excel window (or Word >> window in your case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >> As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------- >> ------ >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> > file > >> if needed. >> >> > '--------------------------------------------------------------------------- > >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window to the foreground. End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >> Smolin - Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on >> top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> Rocky >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Wed Aug 23 21:19:09 2006 From: pcs at azizaz.com (Borge Hansen) Date: Thu, 24 Aug 2006 12:19:09 +1000 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721><44EB0B4C.3030003@san.rr.com><053a01c6c679$0cfb5c20$fa10a8c0@Albatross> <44EC65FD.1090200@san.rr.com> Message-ID: <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> Rocky, I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels you want to skip. I tried something like that and can't get the starting of the label printing to move.... regards Borge ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" > I print labels one at a time to mail out a consumer based product in an > envelope so in the Detail_Format event of the label printing report, I use: > > Me.MoveLayout = True > Me.NextRecord = False > Me.PrintSection = False > > and iterate for the number of labels you want to skip. But, of course, > you have to know how many labels you want to skip and pass that to the > loop or counter. From pcs at azizaz.com Wed Aug 23 21:51:50 2006 From: pcs at azizaz.com (Borge Hansen) Date: Thu, 24 Aug 2006 12:51:50 +1000 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721><44EB0B4C.3030003@san.rr.com><053a01c6c679$0cfb5c20$fa10a8c0@Albatross><44EC65FD.1090200@san.rr.com> <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> Message-ID: <06c701c6c728$404ee790$fa10a8c0@Albatross> Rocky, Disregard previous message.... This does the trick, for anyone who's interested.... Regards borge ************* Option Compare Database Option Explicit Public i As Integer 'counter Public q As Integer ' The label number you wish to start printing on Private Sub Report_Open(Cancel As Integer) i = 1 q = 8 End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Page = 1 Then If i < q Then Me.MoveLayout = True Me.NextRecord = False Me.PrintSection = False i = i + 1 End If End If End Sub ******************* ----- Original Message ----- From: "Borge Hansen" To: "Access Developers discussion and problem solving" Sent: Thursday, August 24, 2006 12:19 PM Subject: [AccessD] Printing Mailing Labels Starting at Specific Location > Rocky, > I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. > > Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels > you want to skip. > > I tried something like that and can't get the starting of the label printing to move.... > > regards > Borge > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > > I print labels one at a time to mail out a consumer based product in an > > envelope so in the Detail_Format event of the label printing report, I use: > > > > Me.MoveLayout = True > > Me.NextRecord = False > > Me.PrintSection = False > > > > and iterate for the number of labels you want to skip. But, of course, > > you have to know how many labels you want to skip and pass that to the > > loop or counter. > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Wed Aug 23 22:03:58 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Wed, 23 Aug 2006 23:03:58 -0400 Subject: [AccessD] Bang and Dot operator in Runtimes. In-Reply-To: <44ECA99E.7060905@gmail.com> Message-ID: <002701c6c729$f255be90$657aa8c0@m6805> Wow! John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert Sent: Wednesday, August 23, 2006 3:17 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Bang and Dot operator in Runtimes. (Resending... sorry about the delay... sorting out my AccessD email settings) Ahh, the old "Dot vs. Bang" chestnut. I gotta weigh in, and respond to certain points John, A.D., Susan, Erwin and Dan brought up: First, thanks A.D. for your code demonstrating the interchangability of . and ! in common situations. The Me reference ---------------- Me is just the default internal reference to the object. In the case of a Form or Report, there is a hidden declaration header in the class module that makes all your controls available as properties of the class. So, within the Form class module, Me.txtDate is as valid as: Me!txtDate which is just as valid as: txtDate So, John, if you are getting an error in your runtime, it is not because of 'bad' syntax. It is either an error in the interpreter, or an earlier error manifesting itself at that line of code. Default Properties and Collections ---------------------------------- The classes we commonly work with in Access make heavy use of two time saving shortcuts: Default Properties and Default Collections. The default property is one that is exposed when an assignment is made using an object with no qualifying property: txtDate = #1/1/2006# varDate = txtDate In each instance, the default property Value is being implicitly referenced. So, the above code is exactly the same as: txtDate.Value = #1/1/2006# varDate = txtDate.Value Dan has to explicitly specify lblName.Caption in his example, because the Label object has no default property. More importantly for our discussion, Access classes also expose default collections. So the following code is equivalent: rForm("txtDate") ' rForm is a Form object rForm.Controls("txtDate") rRS("RowID") ' rRS is a Recordset object rRS.Fields("RowID") You can easily see that a collection is the default member of the Form and Recordset objects. Comparing Dot and Bang ---------------------------------------------- What are the differences between Dot and Bang, really? Dot: * Can be used for early or late-bound references to object properties and methods * Cannot be used in queries (conflicts with SQL Table.Field syntax) Bang: * Is resolved only at runtime, exactly like Collection("Element") * Can only access members of collections * Can be early or late-bound, depending on the parent of the collection Try it: you just can't get Bang to access a non-collection property of an object. But you can use Bang to access members of plain collections, provided you name with with a non-numeric name. So, a reference like: Forms!frmTest!txtDate Can be read as: "In the Forms collection, get the "frmTest" element, then get the "txtDate" element from frmTest's default collection. Finally, return the default property value of object txtDate" That compact syntax does a lot. Binding and Efficiency ---------------------- When are Bang references early-bound? When the parent resolves to a specific class. These references are early-bound (Intellisense works): Form_frmTest!txtDate Me!txtDate rRS!DateField These references are late-bound: Forms!frmTest!txtDate Reports!rptTest!txtDate You really can't compare Dot and Bang in terms of efficiency. Dot is for members of objects, and Bang is for members of collections. The real question is whether a Collection!Element reference is as efficient as Collection("Element"). Susan is right that in common usage there is no noticeable difference in performance between the two. Use in Forms ------------ In form modules, Me!txtDate is more work, because you're accessing the control through the Controls collection, rather than referencing the property directly as you would with Me.txtDate or just txtDate. Erwin's example is most intriguing: while Me!txtDate usually refers to a control named "txtDate", if no such control exists, it will return the value of a field named "txtDate". What is surprising is that Me!txtDate doesn't return a DAO.Field object, as you might expect, but something called an AccessField object. Summary ------- * Dot is useful for ordinary object property and method references * Bang is useful as a shortcut for specifying elements of collections whose members won't be known until runtime, or in situations where Dot won't work, i.e. queries. -Ken -- 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 Aug 23 23:20:19 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 21:20:19 -0700 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location In-Reply-To: <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> <44EC65FD.1090200@san.rr.com> <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> Message-ID: <44ED2903.3030105@san.rr.com> I'll send you the label printer app off line. It's real small. Rocky Borge Hansen wrote: > Rocky, > I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. > > Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels > you want to skip. > > I tried something like that and can't get the starting of the label printing to move.... > > regards > Borge > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > >> I print labels one at a time to mail out a consumer based product in an >> envelope so in the Detail_Format event of the label printing report, I use: >> >> Me.MoveLayout = True >> Me.NextRecord = False >> Me.PrintSection = False >> >> and iterate for the number of labels you want to skip. But, of course, >> you have to know how many labels you want to skip and pass that to the >> loop or counter. >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Wed Aug 23 23:33:52 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Wed, 23 Aug 2006 21:33:52 -0700 Subject: [AccessD] Printing Mailing Labels Starting at Specific Location In-Reply-To: <44ED2903.3030105@san.rr.com> References: <44EA995B.50409@san.rr.com> <000901c6c5d6$90a232e0$153ce944@50NM721> <44EB0B4C.3030003@san.rr.com> <053a01c6c679$0cfb5c20$fa10a8c0@Albatross> <44EC65FD.1090200@san.rr.com> <063d01c6c723$aec7cbb0$fa10a8c0@Albatross> <44ED2903.3030105@san.rr.com> Message-ID: <44ED2C30.6070402@san.rr.com> Borge: I see you solved the problem. Let me know if you still need the app. Rocky Rocky Smolin - Beach Access Software wrote: > I'll send you the label printer app off line. It's real small. > > Rocky > > > Borge Hansen wrote: > >> Rocky, >> I've looked at the suggestion that Ketz et. al provide in their AccessXP Handbook. >> >> Your solution sounds like it's based only on a few lines of code in the Detail_Format event plus input about the number of labels >> you want to skip. >> >> I tried something like that and can't get the starting of the label printing to move.... >> >> regards >> Borge >> >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> >> >>> I print labels one at a time to mail out a consumer based product in an >>> envelope so in the Detail_Format event of the label printing report, I use: >>> >>> Me.MoveLayout = True >>> Me.NextRecord = False >>> Me.PrintSection = False >>> >>> and iterate for the number of labels you want to skip. But, of course, >>> you have to know how many labels you want to skip and pass that to the >>> loop or counter. >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Thu Aug 24 00:01:55 2006 From: pcs at azizaz.com (Borge Hansen) Date: Thu, 24 Aug 2006 15:01:55 +1000 Subject: [AccessD] Separate mdb for housing temp tables References: <44EA995B.50409@san.rr.com><000901c6c5d6$90a232e0$153ce944@50NM721><44EB0B4C.3030003@san.rr.com><053a01c6c679$0cfb5c20$fa10a8c0@Albatross><44EC65FD.1090200@san.rr.com><063d01c6c723$aec7cbb0$fa10a8c0@Albatross><44ED2903.3030105@san.rr.com> <44ED2C30.6070402@san.rr.com> Message-ID: <06e401c6c73a$6c2f0810$fa10a8c0@Albatross> Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From bheid at appdevgrp.com Thu Aug 24 07:01:03 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 24 Aug 2006 08:01:03 -0400 Subject: [AccessD] Separate mdb for housing temp tables In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E189DB@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3580E@ADGSERVER> We have an app where the BE is on a server. To speed up some very data intensive queries/reports, we import some data/tables to a local work DB. This way, the queries/reports go off of the local (or mostly local) data which can be much faster some times. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Thursday, August 24, 2006 1:02 AM To: Access Developers discussion and problem solving Subject: [AccessD] Separate mdb for housing temp tables Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From dwaters at usinternet.com Thu Aug 24 07:32:53 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 24 Aug 2006 07:32:53 -0500 Subject: [AccessD] Separate mdb for housing temp tables In-Reply-To: <8853733.1156395963179.JavaMail.root@sniper16> Message-ID: <000b01c6c779$6c053a50$0200a8c0@danwaters> Hi Borge, I also use many temp tables, and I do keep them in the front end. To keep the database small, I set the FE to auto-compact on close. So, there is no separate code to make this happen. A regular repair/compact of the FE is a good thing to do anyway. The FE does have system tables which also grow as the database is used, so they can be kept to a minimum size. And, although I don't actually know what the repair functionality accomplishes, I like the concept of fixing things quickly. If you still need to keep a separate db to keep temp tables and you want to compact it regularly, reply back and I'll post the code I use to auto-compact the BE on the server. HTH! Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd- Subject: [AccessD] Separate mdb for housing temp tables Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From Gustav at cactus.dk Thu Aug 24 08:19:20 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 24 Aug 2006 15:19:20 +0200 Subject: [AccessD] A2000:Connecting to a Back End on a web site Message-ID: Hi Darren 1. Yes. With FTP you can only get or put a file. Anything else - like Novell's NetDrive - only fakes other operations by downloading to a local copy, perform the operation and upload again. This would, of course, act very slowly for database operations and only for single user access. 2. You can only connect to a web site via HTTP for reading. 3. Yes. /gustav >>> darrend at nimble.com.au 24-08-2006 01:45 >>> Hi Gustav Thanks for the replies I do appreciate this is substantially more than an email Just confirming - I am not able to FTP an MDB to my website and connect to it (with read and write access) using an Access front end - Is that the case? If I want to connect to an MDB I have FTP'd to my web site (with read/write access) I have to connect using html or asp or some web language - Is that the case? If I want to use an access front end with (read/write access) over the internet - I have to connect to a say...SQL dB - is that correct? Many thanks Have a great day Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, 23 August 2006 7:37 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren From Gustav at cactus.dk Thu Aug 24 08:57:01 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 24 Aug 2006 15:57:01 +0200 Subject: [AccessD] Separate mdb for housing temp tables Message-ID: Hi Borge This works extremely well. We use a write-protected master which we copy, but you could for a simple temp database create it from scratch - it takes no time. Both methods have cons and pros. Here's a code snippet where we create a verified copy of the master file by compacting it to a new file, the file that the app will use. If it was not deleted when the app closed, it will be reused. You may choose to delete it if found and replace it with a new copy - that frees you from emptying tables: If Len(Dir(strTempFileMaster)) > 0 Then ' Master file exists. If Len(Dir(strTempFileData)) = 0 Then ' Work file is not found. Create new copy. DBEngine.CompactDatabase strTempFileMaster, strTempFileData End If Else strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is missing." & strCrLf strMsgPrompt = strMsgPrompt & "The application cannot run without it." End If If (Len(Dir(strTempFileData)) > 0) Then ' Work file existed or has been created. booSuccess = True ElseIf Len(strMsgPrompt) = 0 Then strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is missing." & strCrLf strMsgPrompt = strMsgPrompt & "The application cannot run without it." End If If Len(strMsgPrompt) > 0 Then DoCmd.Beep MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle End If Let your function return booSuccess. Note that if you do not create objects or write to internal tables in your frontend database, you may be able to write protect the frontend file itself. That frees you from any corruption or bloat. /gustav >>> pcs at azizaz.com 24-08-2006 07:01 >>> Dear List, I have an application that make use of many temp tables. In an effort to reduce FE bloat and not having to automate an FE compact I've been thinking of placing all temp tables in a separate mdb placed in same folder as the FE and link the tables to the FE. This temp mdb will exist in two versions: FE_tempORG, mdb in compacted state - FE_temp , the one where the temp tables are linked to the FE The startup procedure of the FE will first up shell out and copy the FE_tempORG over the FE_temp and then continue with checking linking to BE and FE_temp, supply the login routine, etc. ... I admit I haven't searched the archives, the answer may already be there, but... Is this a way to go, or do you have other suggestions? regards Borge From Gustav at cactus.dk Thu Aug 24 08:59:47 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Thu, 24 Aug 2006 15:59:47 +0200 Subject: [AccessD] OT early Friday info: Pluto lost Message-ID: Hi all Oh no, my favourite planet is off: http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls /gustav From bchacc at san.rr.com Thu Aug 24 09:14:08 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 24 Aug 2006 07:14:08 -0700 Subject: [AccessD] OT early Friday info: Pluto lost In-Reply-To: References: Message-ID: <44EDB430.9080607@san.rr.com> Mickey Mouse isn't too happy either. Rocky Gustav Brock wrote: > Hi all > > Oh no, my favourite planet is off: > > http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls > > /gustav > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From cfoust at infostatsystems.com Thu Aug 24 09:49:34 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 24 Aug 2006 07:49:34 -0700 Subject: [AccessD] OT early Friday info: Pluto lost In-Reply-To: Message-ID: As I understand it, it's way, way, way off. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 24, 2006 7:00 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT early Friday info: Pluto lost Hi all Oh no, my favourite planet is off: http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls /gustav From andy at minstersystems.co.uk Thu Aug 24 11:18:44 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Thu, 24 Aug 2006 16:18:44 +0000 Subject: [AccessD] OT early Friday info: Pluto lost Message-ID: <20060824151849.353032B508F@smtp.nildram.co.uk> There goes the acronym for remembering planets. We'll need a new one now. Ideas on a postcard. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: Re: [AccessD] OT early Friday info: Pluto lost Date: 24/08/06 14:52 As I understand it, it's way, way, way off. ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 24, 2006 7:00 AM To: accessd at databaseadvisors.com Subject: [AccessD] OT early Friday info: Pluto lost Hi all Oh no, my favourite planet is off: http://news.bbc.co.uk/2/hi/in_depth/5282440.stm?ls /gustav -- 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 EdTesiny at oasas.state.ny.us Thu Aug 24 10:58:30 2006 From: EdTesiny at oasas.state.ny.us (Tesiny, Ed) Date: Thu, 24 Aug 2006 11:58:30 -0400 Subject: [AccessD] Access Data Project Message-ID: I'm not sure if it was on this list but I remember some discussion that ADPs were going away in the next version of Access. Anyone remember something about this? TIA Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us From mwp.reid at qub.ac.uk Thu Aug 24 11:37:14 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Thu, 24 Aug 2006 17:37:14 +0100 Subject: [AccessD] Access Data Project References: Message-ID: Not really but ADPs are available in 2007 Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Tesiny, Ed Sent: Thu 24/08/2006 16:58 To: Access Developers discussion and problem solving Subject: [AccessD] Access Data Project I'm not sure if it was on this list but I remember some discussion that ADPs were going away in the next version of Access. Anyone remember something about this? TIA Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at colbyconsulting.com Thu Aug 24 11:45:52 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 24 Aug 2006 12:45:52 -0400 Subject: [AccessD] Access Data Project In-Reply-To: Message-ID: <005801c6c79c$c390a520$657aa8c0@m6805> They are not going away AFAICT but they are not being supported in SQL Server they way they were and there is no further development on them. It seems that they will "be supported" for backwards compatibility but that is all. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tesiny, Ed Sent: Thursday, August 24, 2006 11:59 AM To: Access Developers discussion and problem solving Subject: [AccessD] Access Data Project I'm not sure if it was on this list but I remember some discussion that ADPs were going away in the next version of Access. Anyone remember something about this? TIA Ed Edward P. Tesiny Assistant Director for Evaluation Bureau of Evaluation and Practice Improvement New York State OASAS 1450 Western Ave. Albany, New York 12203-3526 Phone: (518) 485-7189 Fax: (518) 485-5769 Email: EdTesiny at oasas.state.ny.us -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Thu Aug 24 11:50:56 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 24 Aug 2006 09:50:56 -0700 Subject: [AccessD] Access Data Project In-Reply-To: References: Message-ID: <44EDD8F0.7080100@shaw.ca> ADPs do not and will not support SQL Server 2005 or SQL Express (new form of MSDE) except in a very basic way or by installing in crippled SQL 2000 compatibilty mode. In other words, you won't be able to create databases, tables, views or any other database objects from an ADP against newer versions of SQL. Should be able to read and write older ADP's vs SQL 2005 but I don't know what happens with newer SQL complex and xml datatypes. More here http://blogs.msdn.com/access/ Tesiny, Ed wrote: >I'm not sure if it was on this list but I remember some discussion that >ADPs were going away in the next version of Access. Anyone remember >something about this? >TIA >Ed > >Edward P. Tesiny >Assistant Director for Evaluation >Bureau of Evaluation and Practice Improvement >New York State OASAS >1450 Western Ave. >Albany, New York 12203-3526 >Phone: (518) 485-7189 >Fax: (518) 485-5769 >Email: EdTesiny at oasas.state.ny.us > > > -- Marty Connelly Victoria, B.C. Canada From John.Clark at niagaracounty.com Thu Aug 24 12:38:59 2006 From: John.Clark at niagaracounty.com (John Clark) Date: Thu, 24 Aug 2006 13:38:59 -0400 Subject: [AccessD] Should be simple In-Reply-To: <005601c6c630$00c0c100$657aa8c0@m6805> References: <44EB32B9.167F.006B.0@niagaracounty.com> <005601c6c630$00c0c100$657aa8c0@m6805> Message-ID: <44EDABF3.167F.006B.0@niagaracounty.com> Well, yeah, I knew WHAT it was doing, but I am a little confused as to why. I think I am doing the same thing in one case as the other, but getting different results. It isn't even a case of different forms. I am using the same form, it is just a different field, which works differently from the rest. I guess what I'll do is, as you suggested, explicitly set the focus, where it is needed. I'm just really self conscious about code like this. I'm always thinking about the person coming along after me, and what it looks like to them. Thanks though! John W Clark >>> "JWColby" 8/22/2006 5:14 PM >>> It appears that the form just opened does not have the focus, thus since the focus is in the current form, it can't be hidden. Open the new form modal, or explicitly set the focus into the new form just opened, then do the hide. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark Sent: Tuesday, August 22, 2006 4:37 PM To: Access Developers discussion and problem solving Subject: [AccessD] Should be simple I am working on a DB that I am trying to finish up. I've shown it to the users and they like it, but of course there are a few alterations to be made. A couple of them are actually just things I overlooked. I have a form where defendants are entered into a system. Actually, it is all names associated with a case (i.e. lawyers, judges, victims, defendants, etc.) and the system sorts them out by their check box designations on entry or edit. I have a drop-down box in place to choose a lawyer...same w/many of the fields, but I'll use lawyer here. I used a union query to place a "" option, at the top of the drop-down. If the user clicks on this option, they are taken to the form to enter new names, and the default check is placed, depending on where you came from (I use OpenArgs for this). It also knows where to go back to. The code used for this is: ____________________________________________________________________________ ________ Private Sub txtAttorney_BeforeUpdate(Cancel As Integer) If txtAttorney.SelText = "" Then DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd, acWindowNormal, "ATT" Me.Visible = False End If End Sub ____________________________________________________________________________ ________ However, I have tried adding the same ability to the "Charges" field, and the last liine gives me trouble. It says, "You can't hide a control that has the focus." I know what this means, but I just copied the code from elsewhere in the same program, and it works there. Any ideas? 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 mwp.reid at qub.ac.uk Thu Aug 24 12:51:49 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Thu, 24 Aug 2006 18:51:49 +0100 Subject: [AccessD] Access Data Project References: <44EDD8F0.7080100@shaw.ca> Message-ID: Actually thats not really correct as far as I know. As long as you dont use any of the new SQL 2005 data types they function as before. The new Access data types do actually convert but lose the functionality they have in the new databse file type. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of MartyConnelly Sent: Thu 24/08/2006 17:50 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access Data Project ADPs do not and will not support SQL Server 2005 or SQL Express (new form of MSDE) except in a very basic way or by installing in crippled SQL 2000 compatibilty mode. In other words, you won't be able to create databases, tables, views or any other database objects from an ADP against newer versions of SQL. Should be able to read and write older ADP's vs SQL 2005 but I don't know what happens with newer SQL complex and xml datatypes. More here http://blogs.msdn.com/access/ Tesiny, Ed wrote: >I'm not sure if it was on this list but I remember some discussion that >ADPs were going away in the next version of Access. Anyone remember >something about this? >TIA >Ed > >Edward P. Tesiny >Assistant Director for Evaluation >Bureau of Evaluation and Practice Improvement >New York State OASAS >1450 Western Ave. >Albany, New York 12203-3526 >Phone: (518) 485-7189 >Fax: (518) 485-5769 >Email: EdTesiny at oasas.state.ny.us > > > -- 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 reuben at gfconsultants.com Thu Aug 24 13:52:45 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Thu, 24 Aug 2006 14:52:45 -0400 Subject: [AccessD] OT - Change installed app to be sharable Message-ID: All my apps get installed under the user (Windows User names, not in the app) that will be using the computer. They are then only usable by that user. I now have a client that has two people using one computer (each working a half-day) and they want each to have their own user name. How can the app that is already installed be changed so that it can be shared by all the users on a computer? Or can it specific to say 2 out of 3 users? Thanks. Reuben Cummings GFC, LLC 812.523.1017 From bheid at appdevgrp.com Thu Aug 24 14:19:43 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 24 Aug 2006 15:19:43 -0400 Subject: [AccessD] OT - Change installed app to be sharable In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E18B34@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35819@ADGSERVER> Reuben, Right-click on the start menu and click explore. Then find the items under the start menu that you want and move them to the start menu item under the All Users user. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings Sent: Thursday, August 24, 2006 2:53 PM To: AccessD Subject: [AccessD] OT - Change installed app to be sharable All my apps get installed under the user (Windows User names, not in the app) that will be using the computer. They are then only usable by that user. I now have a client that has two people using one computer (each working a half-day) and they want each to have their own user name. How can the app that is already installed be changed so that it can be shared by all the users on a computer? Or can it specific to say 2 out of 3 users? Thanks. Reuben Cummings From kathrynatgwens at socal.rr.com Thu Aug 24 14:23:36 2006 From: kathrynatgwens at socal.rr.com (Kathryn ) Date: Thu, 24 Aug 2006 12:23:36 -0700 Subject: [AccessD] Printing envelopes via 2 printers. Message-ID: <009201c6c7b2$d0f9dd60$6baaa8c0@upstairs> Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) From fahooper at trapo.com Thu Aug 24 16:39:11 2006 From: fahooper at trapo.com (Fred Hooper) Date: Thu, 24 Aug 2006 17:39:11 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <009201c6c7b2$d0f9dd60$6baaa8c0@upstairs> Message-ID: <000d01c6c7c5$be1b6930$2e01a8c0@fredxp> Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? From dwaters at usinternet.com Thu Aug 24 16:52:45 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 24 Aug 2006 16:52:45 -0500 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <30118494.1156455876201.JavaMail.root@sniper24> Message-ID: <003c01c6c7c7$a2840c20$0200a8c0@danwaters> Hi Fred, One thing you can do is to maximize every report each time it is opened in preview: ------------------------------------------------ Private Sub Report_Close() DoCmd.Restore End Sub ------------------------------------------------ Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub ------------------------------------------------ You'll need to include the Restore method because maximizing any object maximizes all the objects. When you restore, all objects go back to their original size. This also resolves the issue of trying to anticipate different monitor settings. HTH, Dan Waters ProMation Systems, Inc. -----Original Message----- Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? From accessd at shaw.ca Thu Aug 24 17:43:18 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 24 Aug 2006 15:43:18 -0700 Subject: [AccessD] A2000:Connecting to a Back End on a web site In-Reply-To: Message-ID: <0J4I00GKHXQJ5E60@l-daemon> Hi Darren and Gustav: You can use Hamachi (http://www.hamachi.cc/ ) to connect to a remote computer, actually assign a drive letter to it and run applications across it; but it slow as an internet connection. Just a thought Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, August 24, 2006 6:19 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren 1. Yes. With FTP you can only get or put a file. Anything else - like Novell's NetDrive - only fakes other operations by downloading to a local copy, perform the operation and upload again. This would, of course, act very slowly for database operations and only for single user access. 2. You can only connect to a web site via HTTP for reading. 3. Yes. /gustav >>> darrend at nimble.com.au 24-08-2006 01:45 >>> Hi Gustav Thanks for the replies I do appreciate this is substantially more than an email Just confirming - I am not able to FTP an MDB to my website and connect to it (with read and write access) using an Access front end - Is that the case? If I want to connect to an MDB I have FTP'd to my web site (with read/write access) I have to connect using html or asp or some web language - Is that the case? If I want to use an access front end with (read/write access) over the internet - I have to connect to a say...SQL dB - is that correct? Many thanks Have a great day Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Wednesday, 23 August 2006 7:37 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren Oh, that's a little more than an e-mail ... The simple method is to install an engine of your choice - MSDE, SQL Server 2003 Express, MySQL, Firebird (very small) - move your data to this (the upsize wizard will do it for SQL Server) and then connect to the server database via ODBC. Many articles and books on this exist, some authored by our fellow listmembers. /gustav >>> darrend at nimble.com.au 23-08-2006 09:32:54 >>> Hi Gustav Excellent - how do I do this? - Any ideas? Many thanks Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 18 August 2006 12:04 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That depends. One option is to put the data on a SQL server engine; most of these can be connected to - easily - via TCP/IP. /gustav >>> darrend at nimble.com.au 17-08-2006 15:41:14 >>> Hi Gustav Does this mean I have to learn ASP or some other language to send and read data over the web? Many thanks Have a great day Darren ------------------ -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 11:34 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren That's what I mean ... I don't think read/write is doable. /gustav >>> darrend at nimble.com.au 17-08-2006 15:18:54 >>> Hi Gustav The Plan is - FTP an MDB to my website and try to connect to it with read AND write access using an Access Front end Can this be done? I seem to remember it's "read only" from that thread (though I must admit I haven't look at the thread in detail) Many thanks Darren ------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Thursday, 17 August 2006 4:46 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] A2000:Connecting to a Back End on a web site Hi Darren If you mean "read the data from an mdb" on your website, look up the thread "ADO Save recordset format adPersistADTG" from June on how to save to this format and read it again via ADO. Or you could download the mdb to a local folder. Look up the thread "Read data off a live html table" from April on how to download a file. If this is an mdb, relink its tables after the download. /gustav >>> darrend at nimble.com.au 17-08-2006 05:25:36 >>> Hi All I want to put an MDB on my website and have an Access2000 Front End connect to it Is this possible? Anyone got any pointers, code, links or references they'd care to share? MTIA Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bill_Patten at earthlink.net Thu Aug 24 17:47:17 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 24 Aug 2006 15:47:17 -0700 Subject: [AccessD] Control size of Report Preview window References: <000d01c6c7c5$be1b6930$2e01a8c0@fredxp> Message-ID: <003801c6c7cf$40c4e100$6401a8c0@BPCS> Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fahooper at trapo.com Thu Aug 24 17:49:35 2006 From: fahooper at trapo.com (Fred Hooper) Date: Thu, 24 Aug 2006 18:49:35 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <003c01c6c7c7$a2840c20$0200a8c0@danwaters> Message-ID: <001d01c6c7cf$93da9010$2e01a8c0@fredxp> Hi Dan, That's a good idea; I really don't need the same level of preciseness for previewed reports that I have for forms. I implemented it as: Public Sub WaitForReportToClose(strReport As String) Dim intCount As Integer Dim booZoomed As Boolean booZoomed = IsZoomed(Reports(strReport).hWnd) If Not booZoomed Then DoCmd.Maximize While ReportIsOpen(strReport) intCount = intCount + 1 If intCount Mod 1000 > 1 Then DoEvents intCount = 0 End If Wend If Not booZoomed Then DoCmd.Restore End Sub Public Function ReportIsOpen(strName As String) As Boolean Dim intObjState As Integer intObjState = SysCmd(acSysCmdGetObjectState, acReport, strName) ReportIsOpen = (intObjState = acObjStateOpen) End Function Thank you Fred Hooper -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, August 24, 2006 5:53 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Control size of Report Preview window Hi Fred, One thing you can do is to maximize every report each time it is opened in preview: ------------------------------------------------ Private Sub Report_Close() DoCmd.Restore End Sub ------------------------------------------------ Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub ------------------------------------------------ You'll need to include the Restore method because maximizing any object maximizes all the objects. When you restore, all objects go back to their original size. This also resolves the issue of trying to anticipate different monitor settings. HTH, Dan Waters ProMation Systems, Inc. -----Original Message----- Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kismert at gmail.com Thu Aug 24 18:36:21 2006 From: kismert at gmail.com (Ken Ismert) Date: Thu, 24 Aug 2006 18:36:21 -0500 Subject: [AccessD] OT: Houstonian Humor Message-ID: <44EE37F5.2070602@gmail.com> In response to Shamil's OT Russian Humor post, I am submitting a list of jokes at the expense of the residents of my fine hometown: Houston, Texas. Houstonians: * Think their SUV is perfectly safe to drive at 90 mph while talking on the cell phone, but believe it impossible to park between the stripes at a parking lot. * When asked what is great about their town, will respond "It has a big freeway going directly to a shopping mall, where you can eat at TGI Fridays!" * Hate trees. Blacktop parking lots and billboards are much more attractive. * Have no problem with 10,000 member churches, with the preacher's name on the building instead of Jesus, but are all for smaller government. * Can't understand the concept of zoning. Drive anywhere in Houston, and you're likely to see a sewage treatment plant, church, strip club, farm land and homes, all within minutes of each other. * If a Houstonian throws a frisbee out the window of their car on any major street, chances are it will hit a Mexican restaurant. If it ricochets, it will hit a dentist's office. * Love strip malls, those single-story retail centers. Houston has thousands of them, on average about 60% occupied. The response? Build more strip malls! * Decry the politicians of the past as corrupt, but rally around their current political leaders when they get indicted for taking illegal contributions. * Have increasing man-made problems with flooding in their city, but when local government comes up with a flood control proposal, it is decried by activists as a "rain tax", and defeated. Sand bags, anyone? * Found good fortune? Most people would move to a nicer neighborhood, but not Houstonians. They tear down an old house in a cheaper neighborhood and build a big-ass one in its place. Why move up when you can build out? * If you want to be known as an eccentric in Houston, walk. On your way to your local grocery store or restaurant, friends will stop and ask if your car has broken down, and do you need a lift? Family will worry that your finances are in a slump. Strangers will either see you as a menace and lock their car doors, or just stare. If you persist, you'll become known in your neighborhood as "that walking man". * Passionately love their guns. Lots of Houstonians are licensed for concealed carry, which means they can have a pistol on their person nearly all the time. If you are a stranger in this town, and are lost, or need assistance, DO NOT knock on someone's door at night. I'm serious about this -- you could be on the receiving end of a firearm. * See themselves as rugged individualists, but are attracted to the new "upscale" housing developments where $300,000-plus homes are built 6 feet from one another. * For security, more and more Houstonians are living in "gated" communities, surrounded by walls one brick thick. A child with a claw hammer could break through those walls. * Historically, white Houstonians have moved further and further from downtown to get away from the minorities. Meanwhile, the land value downtown has increased to the point where the minorities can sell and move to the suburbs. Now white Houstonians are moving back downtown. * Houston was once ranked as the fattest city in America, but subsequently got bumped from the top spot. Curse you, Philadelphia! * Reside in the county with the highest rate of death penalty convictions in the US, some of which are handed down with shockingly scant evidence. Yet, despite having a higher percentage of the population in jail than any other country on Earth, no one feels safe. Enjoy your weekend! -Ken From wdhindman at dejpolsystems.com Thu Aug 24 19:23:08 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Thu, 24 Aug 2006 20:23:08 -0400 Subject: [AccessD] Separate mdb for housing temp tables References: Message-ID: <002201c6c7dc$a4ec7410$153ce944@50NM721> "Note that if you do not create objects or write to internal tables in your frontend database, you may be able to write protect the frontend file itself. That frees you from any corruption or bloat." /gustav ...intriguing idea! ...tell me more! William ----- Original Message ----- From: "Gustav Brock" To: Sent: Thursday, August 24, 2006 9:57 AM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi Borge > > This works extremely well. We use a write-protected master which we copy, > but you could for a simple temp database create it from scratch - it takes > no time. Both methods have cons and pros. > > Here's a code snippet where we create a verified copy of the master file > by compacting it to a new file, the file that the app will use. If it was > not deleted when the app closed, it will be reused. You may choose to > delete it if found and replace it with a new copy - that frees you from > emptying tables: > > > > If Len(Dir(strTempFileMaster)) > 0 Then > ' Master file exists. > If Len(Dir(strTempFileData)) = 0 Then > ' Work file is not found. Create new copy. > DBEngine.CompactDatabase strTempFileMaster, strTempFileData > End If > Else > strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > If (Len(Dir(strTempFileData)) > 0) Then > ' Work file existed or has been created. > booSuccess = True > ElseIf Len(strMsgPrompt) = 0 Then > strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > > If Len(strMsgPrompt) > 0 Then > DoCmd.Beep > MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > > > > Let your function return booSuccess. > > Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat. > > /gustav > >>>> pcs at azizaz.com 24-08-2006 07:01 >>> > Dear List, > > I have an application that make use of many temp tables. > In an effort to reduce FE bloat and not having to automate an FE compact > I've been thinking of placing all temp tables in a separate > mdb placed in same folder as the FE and link the tables to the FE. > > This temp mdb will exist in two versions: > > FE_tempORG, mdb in compacted state - > FE_temp , the one where the temp tables are linked to the FE > > The startup procedure of the FE will first up shell out and copy the > FE_tempORG over the FE_temp and then continue with checking > linking to BE and FE_temp, supply the login routine, etc. ... > > I admit I haven't searched the archives, the answer may already be there, > but... > > Is this a way to go, or do you have other suggestions? > > regards > Borge > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From fahooper at trapo.com Thu Aug 24 19:35:20 2006 From: fahooper at trapo.com (Fred Hooper) Date: Thu, 24 Aug 2006 20:35:20 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <003801c6c7cf$40c4e100$6401a8c0@BPCS> Message-ID: <002401c6c7de$58f07aa0$2e01a8c0@fredxp> Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kp at sdsonline.net Thu Aug 24 19:39:08 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 25 Aug 2006 10:39:08 +1000 Subject: [AccessD] OT: Houstonian Humor References: <44EE37F5.2070602@gmail.com> Message-ID: <001801c6c7de$e07e5280$6501a8c0@office> Very funny Ken! :) Kath ----- Original Message ----- From: Ken Ismert To: accessd at databaseadvisors.com Sent: Friday, August 25, 2006 9:36 AM Subject: [AccessD] OT: Houstonian Humor In response to Shamil's OT Russian Humor post, I am submitting a list of jokes at the expense of the residents of my fine hometown: Houston, Texas. Houstonians: * Think their SUV is perfectly safe to drive at 90 mph while talking on the cell phone, but believe it impossible to park between the stripes at a parking lot. * When asked what is great about their town, will respond "It has a big freeway going directly to a shopping mall, where you can eat at TGI Fridays!" * Hate trees. Blacktop parking lots and billboards are much more attractive. * Have no problem with 10,000 member churches, with the preacher's name on the building instead of Jesus, but are all for smaller government. * Can't understand the concept of zoning. Drive anywhere in Houston, and you're likely to see a sewage treatment plant, church, strip club, farm land and homes, all within minutes of each other. * If a Houstonian throws a frisbee out the window of their car on any major street, chances are it will hit a Mexican restaurant. If it ricochets, it will hit a dentist's office. * Love strip malls, those single-story retail centers. Houston has thousands of them, on average about 60% occupied. The response? Build more strip malls! * Decry the politicians of the past as corrupt, but rally around their current political leaders when they get indicted for taking illegal contributions. * Have increasing man-made problems with flooding in their city, but when local government comes up with a flood control proposal, it is decried by activists as a "rain tax", and defeated. Sand bags, anyone? * Found good fortune? Most people would move to a nicer neighborhood, but not Houstonians. They tear down an old house in a cheaper neighborhood and build a big-ass one in its place. Why move up when you can build out? * If you want to be known as an eccentric in Houston, walk. On your way to your local grocery store or restaurant, friends will stop and ask if your car has broken down, and do you need a lift? Family will worry that your finances are in a slump. Strangers will either see you as a menace and lock their car doors, or just stare. If you persist, you'll become known in your neighborhood as "that walking man". * Passionately love their guns. Lots of Houstonians are licensed for concealed carry, which means they can have a pistol on their person nearly all the time. If you are a stranger in this town, and are lost, or need assistance, DO NOT knock on someone's door at night. I'm serious about this -- you could be on the receiving end of a firearm. * See themselves as rugged individualists, but are attracted to the new "upscale" housing developments where $300,000-plus homes are built 6 feet from one another. * For security, more and more Houstonians are living in "gated" communities, surrounded by walls one brick thick. A child with a claw hammer could break through those walls. * Historically, white Houstonians have moved further and further from downtown to get away from the minorities. Meanwhile, the land value downtown has increased to the point where the minorities can sell and move to the suburbs. Now white Houstonians are moving back downtown. * Houston was once ranked as the fattest city in America, but subsequently got bumped from the top spot. Curse you, Philadelphia! * Reside in the county with the highest rate of death penalty convictions in the US, some of which are handed down with shockingly scant evidence. Yet, despite having a higher percentage of the population in jail than any other country on Earth, no one feels safe. Enjoy your weekend! -Ken -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bill_Patten at earthlink.net Thu Aug 24 21:06:09 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 24 Aug 2006 19:06:09 -0700 Subject: [AccessD] Control size of Report Preview window References: <002401c6c7de$58f07aa0$2e01a8c0@fredxp> Message-ID: <004a01c6c7eb$08c55570$6401a8c0@BPCS> Hi Fred, I'll keep that url for future reference, but my method seems to be working ok. When certain employees log into my app, if there are any open requisitions I have a report pop up on the screen. Maximize seems to confuse them and they always hit the wrong x in the upper right hand corner to close. So I set the report to 75% and now set the report window to about 3/4 the size of the screen. They can easily scan the report before closing it and doing what ever the got into the program to do. Lots of good info in that article. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 5:35 PM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 24 21:16:08 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 25 Aug 2006 12:16:08 +1000 Subject: [AccessD] Separate mdb for housing temp tables In-Reply-To: <002201c6c7dc$a4ec7410$153ce944@50NM721> References: , <002201c6c7dc$a4ec7410$153ce944@50NM721> Message-ID: <44EEEA08.19699.46ECDA4@stuart.lexacorp.com.pg> On 24 Aug 2006 at 20:23, William Hindman wrote: > "Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat." /gustav > I've just had a problem with this. I've got an A2K application (developed in A2K mode on an A2K2 installation) that runs startup code from an Autoexec macro, including opening the initial menu form. If the mdb is RO, it doesn't execute the macro on A2K so the user just just see a blank window with no menu. It works fine under A2K2. Opening the database window and trying to run the macro gives a message: "Microsoft can't find the macro Autoexec. The macro (or it's macro group) doesn't exist, or the macro is new but hasn't been saved........" As soon as I remove the RO attribute from the file, it works perfectly under both versions. -- Stuart McLachlan From wdhindman at dejpolsystems.com Thu Aug 24 23:18:39 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 25 Aug 2006 00:18:39 -0400 Subject: [AccessD] ...the gui of the future? References: , <002201c6c7dc$a4ec7410$153ce944@50NM721> <44EEEA08.19699.46ECDA4@stuart.lexacorp.com.pg> Message-ID: <001b01c6c7fd$8b8c7850$153ce944@50NM721> http://youtube.com/watch?v=PLhMVNdplJc ...thought some of you might find this as fascinating as I do :) William From jwcolby at colbyconsulting.com Fri Aug 25 00:24:57 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Fri, 25 Aug 2006 01:24:57 -0400 Subject: [AccessD] ...the gui of the future? In-Reply-To: <001b01c6c7fd$8b8c7850$153ce944@50NM721> Message-ID: <008801c6c806$ced5e0c0$657aa8c0@m6805> That is cool. I have to wonder at the system computing the graphics though. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman Sent: Friday, August 25, 2006 12:19 AM To: Access Developers discussion and problem solving Subject: [AccessD] ...the gui of the future? http://youtube.com/watch?v=PLhMVNdplJc ...thought some of you might find this as fascinating as I do :) 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 Aug 25 05:33:07 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 25 Aug 2006 12:33:07 +0200 Subject: [AccessD] Separate mdb for housing temp tables Message-ID: Hi William There really isn't much more to it - it is that plain simple - like running the frontend off a cd-rom or a read-only network folder. The only "issue" is that when run with a full Access, the app pops a message at launch telling the user that no changes to the database (the app) can be done. This message you can avoid by running the app from a shortcut with the switch /runtime. /gustav >>> wdhindman at dejpolsystems.com 25-08-2006 02:23 >>> "Note that if you do not create objects or write to internal tables in your frontend database, you may be able to write protect the frontend file itself. That frees you from any corruption or bloat." /gustav ...intriguing idea! ...tell me more! William ----- Original Message ----- From: "Gustav Brock" To: Sent: Thursday, August 24, 2006 9:57 AM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi Borge > > This works extremely well. We use a write-protected master which we copy, > but you could for a simple temp database create it from scratch - it takes > no time. Both methods have cons and pros. > > Here's a code snippet where we create a verified copy of the master file > by compacting it to a new file, the file that the app will use. If it was > not deleted when the app closed, it will be reused. You may choose to > delete it if found and replace it with a new copy - that frees you from > emptying tables: > > > > If Len(Dir(strTempFileMaster)) > 0 Then > ' Master file exists. > If Len(Dir(strTempFileData)) = 0 Then > ' Work file is not found. Create new copy. > DBEngine.CompactDatabase strTempFileMaster, strTempFileData > End If > Else > strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > If (Len(Dir(strTempFileData)) > 0) Then > ' Work file existed or has been created. > booSuccess = True > ElseIf Len(strMsgPrompt) = 0 Then > strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is > missing." & strCrLf > strMsgPrompt = strMsgPrompt & "The application cannot run without it." > End If > > If Len(strMsgPrompt) > 0 Then > DoCmd.Beep > MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle > End If > > > > Let your function return booSuccess. > > Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat. > > /gustav > >>>> pcs at azizaz.com 24-08-2006 07:01 >>> > Dear List, > > I have an application that make use of many temp tables. > In an effort to reduce FE bloat and not having to automate an FE compact > I've been thinking of placing all temp tables in a separate > mdb placed in same folder as the FE and link the tables to the FE. > > This temp mdb will exist in two versions: > > FE_tempORG, mdb in compacted state - > FE_temp , the one where the temp tables are linked to the FE > > The startup procedure of the FE will first up shell out and copy the > FE_tempORG over the FE_temp and then continue with checking > linking to BE and FE_temp, supply the login routine, etc. ... > > I admit I haven't searched the archives, the answer may already be there, > but... > > Is this a way to go, or do you have other suggestions? > > regards > Borge From Gustav at cactus.dk Fri Aug 25 05:36:44 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 25 Aug 2006 12:36:44 +0200 Subject: [AccessD] Separate mdb for housing temp tables Message-ID: Hi Stuart I've not seen this. I did a test with a simple database - A2002 in A2000 format - and it ran with no issue. Perhaps you have encountered a special case bug? /gustav >>> stuart at lexacorp.com.pg 25-08-2006 04:16 >>> On 24 Aug 2006 at 20:23, William Hindman wrote: > "Note that if you do not create objects or write to internal tables in your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat." /gustav > I've just had a problem with this. I've got an A2K application (developed in A2K mode on an A2K2 installation) that runs startup code from an Autoexec macro, including opening the initial menu form. If the mdb is RO, it doesn't execute the macro on A2K so the user just just see a blank window with no menu. It works fine under A2K2. Opening the database window and trying to run the macro gives a message: "Microsoft can't find the macro Autoexec. The macro (or it's macro group) doesn't exist, or the macro is new but hasn't been saved........" As soon as I remove the RO attribute from the file, it works perfectly under both versions. -- Stuart McLachlan From wdhindman at dejpolsystems.com Fri Aug 25 07:17:37 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 25 Aug 2006 08:17:37 -0400 Subject: [AccessD] Separate mdb for housing temp tables References: Message-ID: <000901c6c840$74df6f20$153ce944@50NM721> ...thanks Gustav ...I'll have to experiment with this a bit ...the best ideas are often the simplest :) William ----- Original Message ----- From: "Gustav Brock" To: Sent: Friday, August 25, 2006 6:33 AM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi William > > There really isn't much more to it - it is that plain simple - like > running the frontend off a cd-rom or a read-only network folder. > > The only "issue" is that when run with a full Access, the app pops a > message at launch telling the user that no changes to the database (the > app) can be done. This message you can avoid by running the app from a > shortcut with the switch /runtime. > > /gustav > >>>> wdhindman at dejpolsystems.com 25-08-2006 02:23 >>> > "Note that if you do not create objects or write to internal tables in > your > frontend database, you may be able to write protect the frontend file > itself. That frees you from any corruption or bloat." /gustav > > ...intriguing idea! ...tell me more! > > William > > ----- Original Message ----- > From: "Gustav Brock" > To: > Sent: Thursday, August 24, 2006 9:57 AM > Subject: Re: [AccessD] Separate mdb for housing temp tables > > >> Hi Borge >> >> This works extremely well. We use a write-protected master which we copy, >> but you could for a simple temp database create it from scratch - it >> takes >> no time. Both methods have cons and pros. >> >> Here's a code snippet where we create a verified copy of the master file >> by compacting it to a new file, the file that the app will use. If it was >> not deleted when the app closed, it will be reused. You may choose to >> delete it if found and replace it with a new copy - that frees you from >> emptying tables: >> >> >> >> If Len(Dir(strTempFileMaster)) > 0 Then >> ' Master file exists. >> If Len(Dir(strTempFileData)) = 0 Then >> ' Work file is not found. Create new copy. >> DBEngine.CompactDatabase strTempFileMaster, strTempFileData >> End If >> Else >> strMsgPrompt = "A needed file, " & LCase(strTempFileMaster) & ", is >> missing." & strCrLf >> strMsgPrompt = strMsgPrompt & "The application cannot run without it." >> End If >> If (Len(Dir(strTempFileData)) > 0) Then >> ' Work file existed or has been created. >> booSuccess = True >> ElseIf Len(strMsgPrompt) = 0 Then >> strMsgPrompt = "A needed file, " & LCase(strTempFileData) & ", is >> missing." & strCrLf >> strMsgPrompt = strMsgPrompt & "The application cannot run without it." >> End If >> >> If Len(strMsgPrompt) > 0 Then >> DoCmd.Beep >> MsgBox strMsgPrompt, lngMsgStyle, strMsgTitle >> End If >> >> >> >> Let your function return booSuccess. >> >> Note that if you do not create objects or write to internal tables in >> your >> frontend database, you may be able to write protect the frontend file >> itself. That frees you from any corruption or bloat. >> >> /gustav >> >>>>> pcs at azizaz.com 24-08-2006 07:01 >>> >> Dear List, >> >> I have an application that make use of many temp tables. >> In an effort to reduce FE bloat and not having to automate an FE compact >> I've been thinking of placing all temp tables in a separate >> mdb placed in same folder as the FE and link the tables to the FE. >> >> This temp mdb will exist in two versions: >> >> FE_tempORG, mdb in compacted state - >> FE_temp , the one where the temp tables are linked to the FE >> >> The startup procedure of the FE will first up shell out and copy the >> FE_tempORG over the FE_temp and then continue with checking >> linking to BE and FE_temp, supply the login routine, etc. ... >> >> I admit I haven't searched the archives, the answer may already be there, >> but... >> >> Is this a way to go, or do you have other suggestions? >> >> regards >> Borge > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From wdhindman at dejpolsystems.com Fri Aug 25 07:24:10 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Fri, 25 Aug 2006 08:24:10 -0400 Subject: [AccessD] ...the gui of the future? References: <008801c6c806$ced5e0c0$657aa8c0@m6805> Message-ID: <000d01c6c841$5f37a6f0$153ce944@50NM721> ...true, it wouldn't be nearly as impressive if a mainframe was behind it ...but still, can you doubt that this is the direction we will go? ...and what are the odds that Jobs makes it work long before Gates gets around to it. William ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Friday, August 25, 2006 1:24 AM Subject: Re: [AccessD] ...the gui of the future? > That is cool. I have to wonder at the system computing the graphics > though. > > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman > Sent: Friday, August 25, 2006 12:19 AM > To: Access Developers discussion and problem solving > Subject: [AccessD] ...the gui of the future? > > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) > > 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 carbonnb at gmail.com Fri Aug 25 08:48:58 2006 From: carbonnb at gmail.com (Bryan Carbonnell) Date: Fri, 25 Aug 2006 09:48:58 -0400 Subject: [AccessD] ...the gui of the future? In-Reply-To: <001b01c6c7fd$8b8c7850$153ce944@50NM721> References: <002201c6c7dc$a4ec7410$153ce944@50NM721> <44EEEA08.19699.46ECDA4@stuart.lexacorp.com.pg> <001b01c6c7fd$8b8c7850$153ce944@50NM721> Message-ID: On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 Fri Aug 25 11:54:39 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 25 Aug 2006 17:54:39 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: Message-ID: <000001c6c867$2816fe20$cd2b70c3@minster33c3r25> Fabulous. I'm just so impressed at guys like this who can think, as I think you say in your language, "outside the box". You look at this and think: yep, there's the future. -- 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: 25 August 2006 14:49 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > On 8/25/06, William Hindman wrote: > > http://youtube.com/watch?v=PLhMVNdplJc > > > > ...thought some of you might find this as fascinating as I do :) > > That is just too cool!! Gotta get me one of those :) > > -- > 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 Lambert.Heenan at AIG.com Fri Aug 25 12:04:19 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Fri, 25 Aug 2006 13:04:19 -0400 Subject: [AccessD] ...the gui of the future? Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB109@xlivmbx21.aig.com> I saw this video last week, and like most of the folks on the list I was impressed. But one thing bothers me, with all the multi-contact gesturing over the screen it's going to be a pretty grubby screen after a short while. Don't think so? Have you looked closely at your keyboard lately? Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 12:55 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Fabulous. I'm just so impressed at guys like this who can think, as I think you say in your language, "outside the box". You look at this and think: yep, there's the future. -- 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: 25 August 2006 14:49 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > On 8/25/06, William Hindman wrote: > > http://youtube.com/watch?v=PLhMVNdplJc > > > > ...thought some of you might find this as fascinating as I do :) > > That is just too cool!! Gotta get me one of those :) > > -- > 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 andy at minstersystems.co.uk Fri Aug 25 12:26:05 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 25 Aug 2006 18:26:05 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB109@xlivmbx21.aig.com> Message-ID: <000f01c6c86b$8b940f70$cd2b70c3@minster33c3r25> Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Heenan, Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the > list I was impressed. But one thing bothers me, with all the > multi-contact gesturing over the screen it's going to be a > pretty grubby screen after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can > think, as I think you say in your language, "outside the > box". You look at this and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 Fri Aug 25 12:27:32 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 25 Aug 2006 10:27:32 -0700 Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB109@xlivmbx21.aig.com> Message-ID: The same issues already exist with touch screens. But they're easier to clean than keyboards! ;o} Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, August 25, 2006 10:04 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? I saw this video last week, and like most of the folks on the list I was impressed. But one thing bothers me, with all the multi-contact gesturing over the screen it's going to be a pretty grubby screen after a short while. Don't think so? Have you looked closely at your keyboard lately? Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 12:55 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Fabulous. I'm just so impressed at guys like this who can think, as I think you say in your language, "outside the box". You look at this and think: yep, there's the future. -- 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: 25 August 2006 14:49 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > On 8/25/06, William Hindman wrote: > > http://youtube.com/watch?v=PLhMVNdplJc > > > > ...thought some of you might find this as fascinating as I do :) > > That is just too cool!! Gotta get me one of those :) > > -- > 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 Fri Aug 25 12:28:34 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Fri, 25 Aug 2006 10:28:34 -0700 Subject: [AccessD] ...the gui of the future? In-Reply-To: <000f01c6c86b$8b940f70$cd2b70c3@minster33c3r25> Message-ID: Or maybe PalmOne Screen Protectors--XXXL ;o> Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 10:26 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, > Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the list I > was impressed. But one thing bothers me, with all the multi-contact > gesturing over the screen it's going to be a pretty grubby screen > after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can think, as I > think you say in your language, "outside the box". You look at this > and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 Lambert.Heenan at AIG.com Fri Aug 25 12:43:21 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Fri, 25 Aug 2006 13:43:21 -0400 Subject: [AccessD] ...the gui of the future? Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com> That could work. Similar to the tear-off visors that formula one drivers use. It just depends on the actual touch sensitive technology being used on the screen. Pressure sensitive, ok, capacitance change sensitive, maybe not. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 1:26 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Heenan, Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the > list I was impressed. But one thing bothers me, with all the > multi-contact gesturing over the screen it's going to be a > pretty grubby screen after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can > think, as I think you say in your language, "outside the > box". You look at this and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 mfisch4 at capex.com.ar Fri Aug 25 12:51:19 2006 From: mfisch4 at capex.com.ar (MF) Date: Fri, 25 Aug 2006 14:51:19 -0300 Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com > References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com> Message-ID: <6.2.3.4.0.20060825144515.03402070@bsas-mail> Make them hard enough and use them like the kitchen table, do what you will on top and wipe them up as often as you need. Just have a rag around with some lens cleaning fluid and you're done. MF __________________________ At 14:43 25/08/2006, you wrote: >That could work. Similar to the tear-off visors that formula one drivers >use. > >It just depends on the actual touch sensitive technology being used on the >screen. Pressure sensitive, ok, capacitance change sensitive, maybe not. > >Lambert From Jim.Hale at FleetPride.com Fri Aug 25 14:04:25 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Fri, 25 Aug 2006 14:04:25 -0500 Subject: [AccessD] OT: Houstonian Humor Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDEF7@corp-es01.fleetpride.com> Hey Ken I thought you lived in Tomball, not Houston ;-) Anyway, I think eccentric is too mild a word. Crazy is more like it- if the cars don't get you, heat prostration will. Houston is the only city I've ever seen where rain turns to steam when it hits the asphalt- very strange sight. When we were bidding for the summer olympics I had visions of the greatest athletes in the world all dying of heat prostration. The guy who said "if I owned Texas and hell I'd rent out Tx and live in hell" probably had Houston in mind. The unwritten rule is pickups have an extra 3 seconds to get through a red light. Pickups with gun racks get to take as long as they like. This has created something like 100 or so collision between our new light rail and vehicles in the first year of operation. Apparently no one has told Metro about the pickup rule. Ah, but you forget the "you loot, we shoot" patrols during Rita- one brick thick was enough when backed by Smith and Wesson. The boys got to flaunt their toys and strangely enough we didn't have any looting. (Except for one beer truck that got stranded in high water during Alison- but hey, it was beer) Hey, one taste of our BBQ and/or fajitas and you will understand why. And with (or despite) all that I wouldn't live anywhere else. Remember, the first word ever spoken when man reached the stars was "Houston" -the Eagle has landed. Jim Hale -----Original Message----- From: Ken Ismert [mailto:kismert at gmail.com] Sent: Thursday, August 24, 2006 6:36 PM To: accessd at databaseadvisors.com Subject: [AccessD] OT: Houstonian Humor In response to Shamil's OT Russian Humor post, I am submitting a list of jokes at the expense of the residents of my fine hometown: Houston, Texas. Houstonians: * Think their SUV is perfectly safe to drive at 90 mph while talking on the cell phone, but believe it impossible to park between the stripes at a parking lot. * When asked what is great about their town, will respond "It has a big freeway going directly to a shopping mall, where you can eat at TGI Fridays!" *********************************************************************** 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 jimdettman at verizon.net Fri Aug 25 14:20:38 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Fri, 25 Aug 2006 15:20:38 -0400 Subject: [AccessD] FW: ...the gui of the future? Message-ID: <0J4K00JKGJ2IBXL4@vms040.mailsrvcs.net> Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 andy at minstersystems.co.uk Fri Aug 25 14:24:43 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 25 Aug 2006 20:24:43 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: <6.2.3.4.0.20060825144515.03402070@bsas-mail> Message-ID: <003901c6c87c$1e575e60$cd2b70c3@minster33c3r25> Need to be pressure-sensitive though. Our prototype will need work. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MF > Sent: 25 August 2006 18:51 > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] ...the gui of the future? > > > Make them hard enough and use them like the kitchen table, > do what you will on top and wipe them up as often as you > need. Just have a rag around with some lens cleaning fluid > and you're done. MF > > > __________________________ > At 14:43 25/08/2006, you wrote: > >That could work. Similar to the tear-off visors that formula one > >drivers use. > > > >It just depends on the actual touch sensitive technology > being used on > >the screen. Pressure sensitive, ok, capacitance change > sensitive, maybe > >not. > > > >Lambert > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From mfisch4 at capex.com.ar Fri Aug 25 14:30:59 2006 From: mfisch4 at capex.com.ar (MF) Date: Fri, 25 Aug 2006 16:30:59 -0300 Subject: [AccessD] ...the gui of the future? In-Reply-To: <003901c6c87c$1e575e60$cd2b70c3@minster33c3r25> References: <6.2.3.4.0.20060825144515.03402070@bsas-mail> <003901c6c87c$1e575e60$cd2b70c3@minster33c3r25> Message-ID: <6.2.3.4.0.20060825162819.028b2218@bsas-mail> There are virtual keyboards being produced that read the position of your fingers with some precision. Something of the kind could probably be used for monitors and then you don't need anything on or under, the surface itself. Then you can make it rock hard. MF __________________________ At 16:24 25/08/2006, you wrote: >Need to be pressure-sensitive though. Our prototype will need work. > >-- Andy Lacey >http://www.minstersystems.co.uk From artful at rogers.com Fri Aug 25 14:59:08 2006 From: artful at rogers.com (artful at rogers.com) Date: Fri, 25 Aug 2006 12:59:08 -0700 (PDT) Subject: [AccessD] ...the gui of the future? In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABB135@xlivmbx21.aig.com> Message-ID: <20060825195908.29989.qmail@web88208.mail.re2.yahoo.com> Recently I did an app for a safety assessment engineer, whose job it is to go into factories and look at stamping machines, presses, robots, etc. and measure them in various ways that are intended to minimize if not eliminate the risk to their operators. They have a thing called a light curtain, which is a bank of senders here and a bank of receivers there, so if you pass your hand through the beam the machine quits as instantly as possible, thereby perhaps saving said worker's arm. Having endured dozens of friends (and worse, clients) touch my screen, I am sensitive about this subject. Friends at least I can berate, but clients I must endure, then Windex the screen when I get home. A light curtain might prove useful with this interface: you never actually touch it, but rather penetrate the light curtain with varying degrees of attack and decay, never touching the screen itself. Arthur ----- Original Message ---- From: "Heenan, Lambert" To: Access Developers discussion and problem solving Sent: Friday, August 25, 2006 1:43:21 PM Subject: Re: [AccessD] ...the gui of the future? That could work. Similar to the tear-off visors that formula one drivers use. It just depends on the actual touch sensitive technology being used on the screen. Pressure sensitive, ok, capacitance change sensitive, maybe not. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey Sent: Friday, August 25, 2006 1:26 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] ...the gui of the future? Good thought Lambert. On reflection what's needed is a sheet of clear film that you cover the screen with. When it gets grubby you pull it off and lay another down. Think I'll patent it. I'll call it 'cling film' I think. -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Heenan, Lambert > Sent: 25 August 2006 18:04 > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > > I saw this video last week, and like most of the folks on the > list I was impressed. But one thing bothers me, with all the > multi-contact gesturing over the screen it's going to be a > pretty grubby screen after a short while. Don't think so? > Have you looked closely at your keyboard lately? > > Lambert > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey > Sent: Friday, August 25, 2006 12:55 PM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] ...the gui of the future? > > > Fabulous. I'm just so impressed at guys like this who can > think, as I think you say in your language, "outside the > box". You look at this and think: yep, there's the future. > > -- 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: 25 August 2006 14:49 > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] ...the gui of the future? > > > > > > On 8/25/06, William Hindman wrote: > > > http://youtube.com/watch?v=PLhMVNdplJc > > > > > > ...thought some of you might find this as fascinating as I do :) > > > > That is just too cool!! Gotta get me one of those :) > > > > -- > > 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 kismert at gmail.com Fri Aug 25 19:09:44 2006 From: kismert at gmail.com (Ken Ismert) Date: Fri, 25 Aug 2006 19:09:44 -0500 Subject: [AccessD] ...the gui of the future? Message-ID: <44EF9148.4090109@gmail.com> That is cool. But what I want is a different kind of gestural interface -- when I flip off the computer and start screaming obscenities at it, it learns it better well not do that again! -Ken From andy at minstersystems.co.uk Sat Aug 26 01:19:05 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Sat, 26 Aug 2006 07:19:05 +0100 Subject: [AccessD] ...the gui of the future? In-Reply-To: <44EF9148.4090109@gmail.com> Message-ID: <000001c6c8d7$89173080$37e20651@minster33c3r25> Now you're talking. And how about one which knows what I meant and therefore corrects every mistake I make? -- Andy Lacey http://www.minstersystems.co.uk > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert > Sent: 26 August 2006 01:10 > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] ...the gui of the future? > > > > That is cool. > > But what I want is a different kind of gestural interface -- > when I flip > off the computer and start screaming obscenities at it, it learns it > better well not do that again! > > -Ken > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > From wdhindman at dejpolsystems.com Sat Aug 26 05:12:23 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sat, 26 Aug 2006 06:12:23 -0400 Subject: [AccessD] ...the gui of the future? References: <000001c6c8d7$89173080$37e20651@minster33c3r25> Message-ID: <002001c6c8f8$2097ed30$153ce944@50NM721> ...if'n we go n' make the damn things THAT smart, I might's well retire :( William Hindman ----- Original Message ----- From: "Andy Lacey" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 26, 2006 2:19 AM Subject: Re: [AccessD] ...the gui of the future? > Now you're talking. And how about one which knows what I meant and > therefore > corrects every mistake I make? > > -- Andy Lacey > http://www.minstersystems.co.uk > >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert >> Sent: 26 August 2006 01:10 >> To: accessd at databaseadvisors.com >> Subject: Re: [AccessD] ...the gui of the future? >> >> >> >> That is cool. >> >> But what I want is a different kind of gestural interface -- >> when I flip >> off the computer and start screaming obscenities at it, it learns it >> better well not do that again! >> >> -Ken >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> >> > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From ssharkins at setel.com Sat Aug 26 08:31:32 2006 From: ssharkins at setel.com (Susan Harkins) Date: Sat, 26 Aug 2006 09:31:32 -0400 Subject: [AccessD] ...the gui of the future? In-Reply-To: <002001c6c8f8$2097ed30$153ce944@50NM721> Message-ID: <000301c6c913$f3b07ff0$17b62ad1@SUSANONE> Too late -- you're already retired. :) Susan H. ...if'n we go n' make the damn things THAT smart, I might's well retire :( From fahooper at trapo.com Sat Aug 26 12:41:32 2006 From: fahooper at trapo.com (Fred Hooper) Date: Sat, 26 Aug 2006 13:41:32 -0400 Subject: [AccessD] Control size of Report Preview window In-Reply-To: <004a01c6c7eb$08c55570$6401a8c0@BPCS> Message-ID: <000001c6c936$e017c930$2e01a8c0@fredxp> Hi Bill, I've found some move/size code that I like better. It's at http://www.mvps.org/access/forms/frm0042.htm. The big difference is that it makes Parent dimensions easily available. It also works for reports where my use of it is screen resolution independent. You will note that I'm using acCmdFitToWindow instead of acCmdZoom75, as it allows the largest print that will show a full page in the window. My code is now: Public Sub SizeAndCenterReport(strReport As String) Dim booZoomed As Boolean Dim fwForm As clFormWindow If ReportIsOpen(strReport) Then If Not IsZoomed(Reports(strReport).hWnd) Then Set fwForm = New clFormWindow With fwForm .hWnd = Reports(strReport).hWnd .Top = 0 .Height = .Parent.Height - 5 'Avoids a vertical scroll bar .Width = .Height * 8.5 / 11 .Left = (.Parent.Width - .Width) / 2 End With Set fwForm = Nothing RunCommand acCmdFitToWindow End If End If End Sub -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 10:06 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Hi Fred, I'll keep that url for future reference, but my method seems to be working ok. When certain employees log into my app, if there are any open requisitions I have a report pop up on the screen. Maximize seems to confuse them and they always hit the wrong x in the upper right hand corner to close. So I set the report to 75% and now set the report window to about 3/4 the size of the screen. They can easily scan the report before closing it and doing what ever the got into the program to do. Lots of good info in that article. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 5:35 PM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 gmail.com Sat Aug 26 12:47:54 2006 From: kismert at gmail.com (Ken Ismert) Date: Sat, 26 Aug 2006 12:47:54 -0500 Subject: [AccessD] OT: Houstonian Humor Message-ID: <44F0894A.3020607@gmail.com> Jim, > Hey Ken I thought you lived in Tomball, not Houston ;-) I worked in Tomball for many years, but have always lived within Houston. >> If you want to be known as an eccentric in Houston, walk > ...Crazy is more like it- if the cars don't get you, > heat prostration will... That reminds me... One day in northwest Houston, I decided to walk to my favorite Mexican restaurant for lunch. My route took me down Jones Road, a ruler-straight, 6 lane street with an emergency lane and a large drainage ditch on each side. There was no sidewalk, so I had to use the emergency lane. As I walked, I glanced at the ditch to my left. There was a fresh set of tire tracks, where a car had run off and gotten stuck. 50 feet later, another set of tracks. And another. In all, at least 7 sets on my 10-minute jaunt. I got to my restaurant, ate, and returned on the other side of the road. I looked across the street, and wouldn't you know it -- during lunch, on the side I had originally walked on, Bubba done run his pickup truck off the road into the ditch. A tow truck was pulling him out. I never walked that stretch of road again. -Ken PS. You guessed it -- I was the 'walking man' of northwest Houston! 8-) From bchacc at san.rr.com Sat Aug 26 19:26:18 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 17:26:18 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> References: <1D7828CDB8350747AFE9D69E0E90DA1F25ABAC2B@xlivmbx21.aig.com> Message-ID: <44F0E6AA.9070908@san.rr.com> Well, I'm really crappin' out with this guy. .Activate didn't work, nor .Show. He tests to see if word is already open - doesn't want to open a second instance. Set WordObj = GetObject(, "Word.Application") If Err.Number <> 0 Then Set WordObj = CreateObject("Word.Application") End If Nothing works so far when Word is already open. But I can't help but think there's a simple property or method (there's so freakin' many of 'em) to make Word the active window when you open a new document and word is already open. Any other ideas anybody? MTIA Rocky Heenan, Lambert wrote: > Rocky, > > WordObj needs to be declared As Word.Application, but is has to be in the > same scope as the function you are using. Notice that I actually declare the > xlObj inside my function. > > Lambert (first name) > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 4:03 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: > >> Well here is how I do the same thing with Access opening Excel. It is >> all dependant on getting the handle of the Excel window (or Word >> window in your case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >> As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------- >> ------ >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> > file > >> if needed. >> >> > '--------------------------------------------------------------------------- > >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window to the foreground. End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >> Smolin - Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on >> top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> Rocky >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From papparuff at comcast.net Sat Aug 26 20:07:48 2006 From: papparuff at comcast.net (John Ruff) Date: Sat, 26 Aug 2006 18:07:48 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <44F0E6AA.9070908@san.rr.com> Message-ID: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> After you create the WordObj set its visible property to true ' Shows this instance of Word WordObj.Visible = True papparuff -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Saturday, August 26, 2006 4:26 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Word Window On Top Well, I'm really crappin' out with this guy. .Activate didn't work, nor .Show. He tests to see if word is already open - doesn't want to open a second instance. Set WordObj = GetObject(, "Word.Application") If Err.Number <> 0 Then Set WordObj = CreateObject("Word.Application") End If Nothing works so far when Word is already open. But I can't help but think there's a simple property or method (there's so freakin' many of 'em) to make Word the active window when you open a new document and word is already open. Any other ideas anybody? MTIA Rocky Heenan, Lambert wrote: > Rocky, > > WordObj needs to be declared As Word.Application, but is has to be in the > same scope as the function you are using. Notice that I actually declare the > xlObj inside my function. > > Lambert (first name) > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Wednesday, August 23, 2006 4:03 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > > Heenan: > > With WordObj declared as: Dim WordObj As Word.Application > > and the Function in a separate module, the statement SetForegroundWindow > WordObj.hWnd won't compile - gives a method or data member not found error. > > The Word 11.0 object library is checked in the references. > > I tried redeclaring WordObj as Object but that didn't work either. > > TIA > > Rocky > > > Heenan, Lambert wrote: > >> Well here is how I do the same thing with Access opening Excel. It is >> all dependant on getting the handle of the Excel window (or Word >> window in your case)... >> >> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >> As >> Long) As Long >> >> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >> Boolean = True) >> '--------------------------------------------------------------------- >> ------ >> ------------ >> ' Procedure : ViewInExcel >> ' >> ' Purpose : Displays a recordset (Table or query) in an Excel worksheet, >> but does >> ' : not save the Excel file. The user can choose to save the >> > file > >> if needed. >> >> > '--------------------------------------------------------------------------- > >> ------------ >> ' >> Dim objXL As excel.Application >> Dim objSheet As excel.Worksheet >> Dim objWB As excel.Workbook >> Dim rs As Object >> Dim oRng As excel.Range >> Dim nCols As Long, n As Long >> >> Set rs = CurrentDb.OpenRecordset(strRecordSource) >> nCols = rs.Fields.Count >> Set objXL = CreateObject("Excel.Application") >> objXL.SheetsInNewWorkbook = 1 >> Set objWB = objXL.Workbooks.Add >> Dim f As Field >> n = 0 >> ' CopyFromRecordset does not bring the column headings with it. >> ' So here we add them manually. >> For Each f In rs.Fields >> n = n + 1 >> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >> Next f >> ' and now drop the data into row 2 >> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >> If bFormatColumns Then >> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >> "1:" & CStr(ExcelColumn(nCols)) & "1") >> oRng.EntireColumn.AutoFit >> oRng.Interior.Color = vbYellow >> oRng.Borders.Color = vbBlack >> Set oRng = Nothing >> End If >> rs.Close >> Set rs = Nothing >> objXL.Visible = True >> SetForegroundWindow objXL.hWnd ' here's the line that brings the >> window to the foreground. End Sub >> >> HTH >> >> Lambert >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >> Smolin - Beach Access Software >> Sent: Wednesday, August 23, 2006 1:33 PM >> To: Access Developers discussion and problem solving >> Subject: [AccessD] Word Window On Top >> >> >> Dear List: >> >> Using automation I open a word doc, but the access app is still on >> top. >> Word is in the tray. Click it and the doc is there and open. Q: how >> can I give the word doc window the focus after I open it? >> >> MTIA >> >> 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 mmattys at rochester.rr.com Sat Aug 26 20:26:18 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Sat, 26 Aug 2006 21:26:18 -0400 Subject: [AccessD] Word Window On Top References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> Message-ID: <00c501c6c977$cf706a60$0202a8c0@default> Of course! Right on target, John. I was going to say: Public Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Public Declare Function ShowWindow Lib "user32" _ (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Dim OpusApp As Long OpusApp& = FindWindow("OpusApp", vbNullString) Call ShowWindow(OpusApp , SW_NORMAL) Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "John Ruff" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 26, 2006 9:07 PM Subject: Re: [AccessD] Word Window On Top > After you create the WordObj set its visible property to true > > ' Shows this instance of Word > WordObj.Visible = True > > papparuff > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Saturday, August 26, 2006 4:26 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > Well, I'm really crappin' out with this guy. .Activate didn't work, nor > .Show. > > He tests to see if word is already open - doesn't want to open a second > instance. > > Set WordObj = GetObject(, "Word.Application") > If Err.Number <> 0 Then > Set WordObj = CreateObject("Word.Application") > End If > > > Nothing works so far when Word is already open. But I can't help but > think there's a simple property or method (there's so freakin' many of > 'em) to make Word the active window when you open a new document and > word is already open. > > Any other ideas anybody? > > MTIA > > Rocky > > Heenan, Lambert wrote: >> Rocky, >> >> WordObj needs to be declared As Word.Application, but is has to be in >> the >> same scope as the function you are using. Notice that I actually declare > the >> xlObj inside my function. >> >> Lambert (first name) >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 23, 2006 4:03 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Word Window On Top >> >> >> Heenan: >> >> With WordObj declared as: Dim WordObj As Word.Application >> >> and the Function in a separate module, the statement SetForegroundWindow >> WordObj.hWnd won't compile - gives a method or data member not found > error. >> >> The Word 11.0 object library is checked in the references. >> >> I tried redeclaring WordObj as Object but that didn't work either. >> >> TIA >> >> Rocky >> >> >> Heenan, Lambert wrote: >> >>> Well here is how I do the same thing with Access opening Excel. It is >>> all dependant on getting the handle of the Excel window (or Word >>> window in your case)... >>> >>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>> As >>> Long) As Long >>> >>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>> Boolean = True) >>> '--------------------------------------------------------------------- >>> ------ >>> ------------ >>> ' Procedure : ViewInExcel >>> ' >>> ' Purpose : Displays a recordset (Table or query) in an Excel > worksheet, >>> but does >>> ' : not save the Excel file. The user can choose to save the >>> >> file >> >>> if needed. >>> >>> >> > '--------------------------------------------------------------------------- >> >>> ------------ >>> ' >>> Dim objXL As excel.Application >>> Dim objSheet As excel.Worksheet >>> Dim objWB As excel.Workbook >>> Dim rs As Object >>> Dim oRng As excel.Range >>> Dim nCols As Long, n As Long >>> >>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>> nCols = rs.Fields.Count >>> Set objXL = CreateObject("Excel.Application") >>> objXL.SheetsInNewWorkbook = 1 >>> Set objWB = objXL.Workbooks.Add >>> Dim f As Field >>> n = 0 >>> ' CopyFromRecordset does not bring the column headings with it. >>> ' So here we add them manually. >>> For Each f In rs.Fields >>> n = n + 1 >>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>> Next f >>> ' and now drop the data into row 2 >>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>> If bFormatColumns Then >>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>> oRng.EntireColumn.AutoFit >>> oRng.Interior.Color = vbYellow >>> oRng.Borders.Color = vbBlack >>> Set oRng = Nothing >>> End If >>> rs.Close >>> Set rs = Nothing >>> objXL.Visible = True >>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>> window to the foreground. End Sub >>> >>> HTH >>> >>> Lambert >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>> Smolin - Beach Access Software >>> Sent: Wednesday, August 23, 2006 1:33 PM >>> To: Access Developers discussion and problem solving >>> Subject: [AccessD] Word Window On Top >>> >>> >>> Dear List: >>> >>> Using automation I open a word doc, but the access app is still on >>> top. >>> Word is in the tray. Click it and the doc is there and open. Q: how >>> can I give the word doc window the focus after I open it? >>> >>> MTIA >>> >>> 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 > > -- > 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 Aug 26 20:47:28 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 18:47:28 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> Message-ID: <44F0F9B0.2030200@san.rr.com> John: Problem is, IIUC, if you don't create WordObj because there's already an instance of Word open, but just set the WordDoc to open the target document, Word opens the document but the calling Access program is still on top even though Word is visible. Apparently, when they run this app to merge this doc, they might already have Word open and working on some other document(s). Rocky John Ruff wrote: > After you create the WordObj set its visible property to true > > ' Shows this instance of Word > WordObj.Visible = True > > papparuff > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Saturday, August 26, 2006 4:26 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Word Window On Top > > Well, I'm really crappin' out with this guy. .Activate didn't work, nor > .Show. > > He tests to see if word is already open - doesn't want to open a second > instance. > > Set WordObj = GetObject(, "Word.Application") > If Err.Number <> 0 Then > Set WordObj = CreateObject("Word.Application") > End If > > > Nothing works so far when Word is already open. But I can't help but > think there's a simple property or method (there's so freakin' many of > 'em) to make Word the active window when you open a new document and > word is already open. > > Any other ideas anybody? > > MTIA > > Rocky > > Heenan, Lambert wrote: > >> Rocky, >> >> WordObj needs to be declared As Word.Application, but is has to be in the >> same scope as the function you are using. Notice that I actually declare >> > the > >> xlObj inside my function. >> >> Lambert (first name) >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Wednesday, August 23, 2006 4:03 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Word Window On Top >> >> >> Heenan: >> >> With WordObj declared as: Dim WordObj As Word.Application >> >> and the Function in a separate module, the statement SetForegroundWindow >> WordObj.hWnd won't compile - gives a method or data member not found >> > error. > >> The Word 11.0 object library is checked in the references. >> >> I tried redeclaring WordObj as Object but that didn't work either. >> >> TIA >> >> Rocky >> >> >> Heenan, Lambert wrote: >> >> >>> Well here is how I do the same thing with Access opening Excel. It is >>> all dependant on getting the handle of the Excel window (or Word >>> window in your case)... >>> >>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>> As >>> Long) As Long >>> >>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>> Boolean = True) >>> '--------------------------------------------------------------------- >>> ------ >>> ------------ >>> ' Procedure : ViewInExcel >>> ' >>> ' Purpose : Displays a recordset (Table or query) in an Excel >>> > worksheet, > >>> but does >>> ' : not save the Excel file. The user can choose to save the >>> >>> >> file >> >> >>> if needed. >>> >>> >>> > '--------------------------------------------------------------------------- > >> >> >>> ------------ >>> ' >>> Dim objXL As excel.Application >>> Dim objSheet As excel.Worksheet >>> Dim objWB As excel.Workbook >>> Dim rs As Object >>> Dim oRng As excel.Range >>> Dim nCols As Long, n As Long >>> >>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>> nCols = rs.Fields.Count >>> Set objXL = CreateObject("Excel.Application") >>> objXL.SheetsInNewWorkbook = 1 >>> Set objWB = objXL.Workbooks.Add >>> Dim f As Field >>> n = 0 >>> ' CopyFromRecordset does not bring the column headings with it. >>> ' So here we add them manually. >>> For Each f In rs.Fields >>> n = n + 1 >>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>> Next f >>> ' and now drop the data into row 2 >>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>> If bFormatColumns Then >>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>> oRng.EntireColumn.AutoFit >>> oRng.Interior.Color = vbYellow >>> oRng.Borders.Color = vbBlack >>> Set oRng = Nothing >>> End If >>> rs.Close >>> Set rs = Nothing >>> objXL.Visible = True >>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>> window to the foreground. End Sub >>> >>> HTH >>> >>> Lambert >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>> Smolin - Beach Access Software >>> Sent: Wednesday, August 23, 2006 1:33 PM >>> To: Access Developers discussion and problem solving >>> Subject: [AccessD] Word Window On Top >>> >>> >>> Dear List: >>> >>> Using automation I open a word doc, but the access app is still on >>> top. >>> Word is in the tray. Click it and the doc is there and open. Q: how >>> can I give the word doc window the focus after I open it? >>> >>> MTIA >>> >>> Rocky >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Sat Aug 26 20:48:51 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 18:48:51 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <00c501c6c977$cf706a60$0202a8c0@default> References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> <00c501c6c977$cf706a60$0202a8c0@default> Message-ID: <44F0FA03.2050207@san.rr.com> Replace OpusApp with WordObj? Rocky Michael R Mattys wrote: > Of course! Right on target, John. > > I was going to say: > > Public Declare Function FindWindow Lib "user32" _ > Alias "FindWindowA" (ByVal lpClassName As String, _ > ByVal lpWindowName As String) As Long > > Public Declare Function ShowWindow Lib "user32" _ > (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long > > Dim OpusApp As Long > OpusApp& = FindWindow("OpusApp", vbNullString) > Call ShowWindow(OpusApp , SW_NORMAL) > > Michael R. Mattys > MapPoint Developer > www.mattysconsulting.com > > ----- Original Message ----- > From: "John Ruff" > To: "'Access Developers discussion and problem solving'" > > Sent: Saturday, August 26, 2006 9:07 PM > Subject: Re: [AccessD] Word Window On Top > > > >> After you create the WordObj set its visible property to true >> >> ' Shows this instance of Word >> WordObj.Visible = True >> >> papparuff >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >> Beach Access Software >> Sent: Saturday, August 26, 2006 4:26 PM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Word Window On Top >> >> Well, I'm really crappin' out with this guy. .Activate didn't work, nor >> .Show. >> >> He tests to see if word is already open - doesn't want to open a second >> instance. >> >> Set WordObj = GetObject(, "Word.Application") >> If Err.Number <> 0 Then >> Set WordObj = CreateObject("Word.Application") >> End If >> >> >> Nothing works so far when Word is already open. But I can't help but >> think there's a simple property or method (there's so freakin' many of >> 'em) to make Word the active window when you open a new document and >> word is already open. >> >> Any other ideas anybody? >> >> MTIA >> >> Rocky >> >> Heenan, Lambert wrote: >> >>> Rocky, >>> >>> WordObj needs to be declared As Word.Application, but is has to be in >>> the >>> same scope as the function you are using. Notice that I actually declare >>> >> the >> >>> xlObj inside my function. >>> >>> Lambert (first name) >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - >>> Beach Access Software >>> Sent: Wednesday, August 23, 2006 4:03 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> Heenan: >>> >>> With WordObj declared as: Dim WordObj As Word.Application >>> >>> and the Function in a separate module, the statement SetForegroundWindow >>> WordObj.hWnd won't compile - gives a method or data member not found >>> >> error. >> >>> The Word 11.0 object library is checked in the references. >>> >>> I tried redeclaring WordObj as Object but that didn't work either. >>> >>> TIA >>> >>> Rocky >>> >>> >>> Heenan, Lambert wrote: >>> >>> >>>> Well here is how I do the same thing with Access opening Excel. It is >>>> all dependant on getting the handle of the Excel window (or Word >>>> window in your case)... >>>> >>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>> As >>>> Long) As Long >>>> >>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>>> Boolean = True) >>>> '--------------------------------------------------------------------- >>>> ------ >>>> ------------ >>>> ' Procedure : ViewInExcel >>>> ' >>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>> >> worksheet, >> >>>> but does >>>> ' : not save the Excel file. The user can choose to save the >>>> >>>> >>> file >>> >>> >>>> if needed. >>>> >>>> >>>> >> '--------------------------------------------------------------------------- >> >>>> ------------ >>>> ' >>>> Dim objXL As excel.Application >>>> Dim objSheet As excel.Worksheet >>>> Dim objWB As excel.Workbook >>>> Dim rs As Object >>>> Dim oRng As excel.Range >>>> Dim nCols As Long, n As Long >>>> >>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>> nCols = rs.Fields.Count >>>> Set objXL = CreateObject("Excel.Application") >>>> objXL.SheetsInNewWorkbook = 1 >>>> Set objWB = objXL.Workbooks.Add >>>> Dim f As Field >>>> n = 0 >>>> ' CopyFromRecordset does not bring the column headings with it. >>>> ' So here we add them manually. >>>> For Each f In rs.Fields >>>> n = n + 1 >>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>> Next f >>>> ' and now drop the data into row 2 >>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>> If bFormatColumns Then >>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>> oRng.EntireColumn.AutoFit >>>> oRng.Interior.Color = vbYellow >>>> oRng.Borders.Color = vbBlack >>>> Set oRng = Nothing >>>> End If >>>> rs.Close >>>> Set rs = Nothing >>>> objXL.Visible = True >>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>> window to the foreground. End Sub >>>> >>>> HTH >>>> >>>> Lambert >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>> Smolin - Beach Access Software >>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: [AccessD] Word Window On Top >>>> >>>> >>>> Dear List: >>>> >>>> Using automation I open a word doc, but the access app is still on >>>> top. >>>> Word is in the tray. Click it and the doc is there and open. Q: how >>>> can I give the word doc window the focus after I open it? >>>> >>>> MTIA >>>> >>>> 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 >> >> -- >> 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 bill_Patten at earthlink.net Sat Aug 26 20:50:16 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Sat, 26 Aug 2006 18:50:16 -0700 Subject: [AccessD] Control size of Report Preview window References: <000001c6c936$e017c930$2e01a8c0@fredxp> Message-ID: <000c01c6c97b$28c02800$6401a8c0@BPCS> Fred, Thanks for keeping me posted. I played with the code, and once I found the clFormWindow and figured out the API calls think that isZoomed and IsZoomed are different I got it working. I think it is much more elegant than my solution but am keeping mine for this project because if a whole page is displayed on the screen the text is too small for my client to read. Since most of the time the report is only a few rows long it is better to be wide and short so the text is bigger. I think what you came up with may be useful for other forms and or reports so I shall add it to on of my regular modules. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Saturday, August 26, 2006 10:41 AM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've found some move/size code that I like better. It's at http://www.mvps.org/access/forms/frm0042.htm. The big difference is that it makes Parent dimensions easily available. It also works for reports where my use of it is screen resolution independent. You will note that I'm using acCmdFitToWindow instead of acCmdZoom75, as it allows the largest print that will show a full page in the window. My code is now: Public Sub SizeAndCenterReport(strReport As String) Dim booZoomed As Boolean Dim fwForm As clFormWindow If ReportIsOpen(strReport) Then If Not IsZoomed(Reports(strReport).hWnd) Then Set fwForm = New clFormWindow With fwForm .hWnd = Reports(strReport).hWnd .Top = 0 .Height = .Parent.Height - 5 'Avoids a vertical scroll bar .Width = .Height * 8.5 / 11 .Left = (.Parent.Width - .Width) / 2 End With Set fwForm = Nothing RunCommand acCmdFitToWindow End If End If End Sub -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 10:06 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Hi Fred, I'll keep that url for future reference, but my method seems to be working ok. When certain employees log into my app, if there are any open requisitions I have a report pop up on the screen. Maximize seems to confuse them and they always hit the wrong x in the upper right hand corner to close. So I set the report to 75% and now set the report window to about 3/4 the size of the screen. They can easily scan the report before closing it and doing what ever the got into the program to do. Lots of good info in that article. Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 5:35 PM Subject: Re: [AccessD] Control size of Report Preview window Hi Bill, I've fiddled a bit with the code at http://support.microsoft.com/default.aspx?kbid=210141 (which uses MoveSize) that is designed for sizing forms and I was able to make it work for the reports just by changing the input specification from Form to Report (and be dual-purpose by using Object). However, my problem with this approach is that I haven't found an equivalent to the On Unload event for reports to save the size that user adjusts to. I haven't experimented yet with the events; perhaps the On Deactivate event will work. If not, I'll either maximize it or follow your approach. Fred -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, August 24, 2006 6:47 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Control size of Report Preview window Fred I have been fighting the same problem, I don't want the form to maximize but want it to open large enough so that the user can read it without having to adjust the size. This is working much better than stock. I haven't finished testing it so no comments from my client as yet but it might help you solve your problem. use docmd.movesize Dim stDocName As String stDocName = "rptRequisitionStatus" DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdZoom75 DoCmd.MoveSize , , 11800 Play with the 1180 and be sure to check it on different resolution screens. HTH Bill ----- Original Message ----- From: "Fred Hooper" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 2:39 PM Subject: [AccessD] Control size of Report Preview window Is there any way to control the size of the report preview window? Runcommand acCmdZoom (10 ... 200) controls the size of the printing in the window but doesn't control the size of the window. Manually sizing the window and pressing the save button "kind of" works, but the window gets progressively smaller as the front end is repeatedly compacted and repaired. Also, when it's moved to a machine with a lower resolution monitor it further shrinks. Is there something using twips (like there is for forms) that I can read, save & apply so the report preview window will be the same inch/cm dimensions on all monitors, regardless of their resolution? -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From mmattys at rochester.rr.com Sat Aug 26 21:34:47 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Sat, 26 Aug 2006 22:34:47 -0400 Subject: [AccessD] Word Window On Top References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> <00c501c6c977$cf706a60$0202a8c0@default> <44F0FA03.2050207@san.rr.com> Message-ID: <00ea01c6c981$5fc7eda0$0202a8c0@default> Hi Rocky, No - OpusApp is the Application name. Most Office Apps are like that Try here: http://www.mvps.org/access/api/api0007.htm Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Saturday, August 26, 2006 9:48 PM Subject: Re: [AccessD] Word Window On Top > Replace OpusApp with WordObj? > > Rocky > > > Michael R Mattys wrote: >> Of course! Right on target, John. >> >> I was going to say: >> >> Public Declare Function FindWindow Lib "user32" _ >> Alias "FindWindowA" (ByVal lpClassName As String, _ >> ByVal lpWindowName As String) As Long >> >> Public Declare Function ShowWindow Lib "user32" _ >> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >> >> Dim OpusApp As Long >> OpusApp& = FindWindow("OpusApp", vbNullString) >> Call ShowWindow(OpusApp , SW_NORMAL) >> >> Michael R. Mattys >> MapPoint Developer >> www.mattysconsulting.com >> >> ----- Original Message ----- >> From: "John Ruff" >> To: "'Access Developers discussion and problem solving'" >> >> Sent: Saturday, August 26, 2006 9:07 PM >> Subject: Re: [AccessD] Word Window On Top >> >> >> >>> After you create the WordObj set its visible property to true >>> >>> ' Shows this instance of Word >>> WordObj.Visible = True >>> >>> papparuff >>> >>> -----Original Message----- >>> From: accessd-bounces at databaseadvisors.com >>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>> Smolin - >>> Beach Access Software >>> Sent: Saturday, August 26, 2006 4:26 PM >>> To: Access Developers discussion and problem solving >>> Subject: Re: [AccessD] Word Window On Top >>> >>> Well, I'm really crappin' out with this guy. .Activate didn't work, nor >>> .Show. >>> >>> He tests to see if word is already open - doesn't want to open a second >>> instance. >>> >>> Set WordObj = GetObject(, "Word.Application") >>> If Err.Number <> 0 Then >>> Set WordObj = CreateObject("Word.Application") >>> End If >>> >>> >>> Nothing works so far when Word is already open. But I can't help but >>> think there's a simple property or method (there's so freakin' many of >>> 'em) to make Word the active window when you open a new document and >>> word is already open. >>> >>> Any other ideas anybody? >>> >>> MTIA >>> >>> Rocky >>> >>> Heenan, Lambert wrote: >>> >>>> Rocky, >>>> >>>> WordObj needs to be declared As Word.Application, but is has to be in >>>> the >>>> same scope as the function you are using. Notice that I actually >>>> declare >>>> >>> the >>> >>>> xlObj inside my function. >>>> >>>> Lambert (first name) >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>> Smolin - >>>> Beach Access Software >>>> Sent: Wednesday, August 23, 2006 4:03 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Word Window On Top >>>> >>>> >>>> Heenan: >>>> >>>> With WordObj declared as: Dim WordObj As Word.Application >>>> >>>> and the Function in a separate module, the statement >>>> SetForegroundWindow >>>> WordObj.hWnd won't compile - gives a method or data member not found >>>> >>> error. >>> >>>> The Word 11.0 object library is checked in the references. >>>> >>>> I tried redeclaring WordObj as Object but that didn't work either. >>>> >>>> TIA >>>> >>>> Rocky >>>> >>>> >>>> Heenan, Lambert wrote: >>>> >>>> >>>>> Well here is how I do the same thing with Access opening Excel. It is >>>>> all dependant on getting the handle of the Excel window (or Word >>>>> window in your case)... >>>>> >>>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>>> As >>>>> Long) As Long >>>>> >>>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>>>> Boolean = True) >>>>> '--------------------------------------------------------------------- >>>>> ------ >>>>> ------------ >>>>> ' Procedure : ViewInExcel >>>>> ' >>>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>>> >>> worksheet, >>> >>>>> but does >>>>> ' : not save the Excel file. The user can choose to save the >>>>> >>>>> >>>> file >>>> >>>> >>>>> if needed. >>>>> >>>>> >>>>> >>> '--------------------------------------------------------------------------- >>> >>>>> ------------ >>>>> ' >>>>> Dim objXL As excel.Application >>>>> Dim objSheet As excel.Worksheet >>>>> Dim objWB As excel.Workbook >>>>> Dim rs As Object >>>>> Dim oRng As excel.Range >>>>> Dim nCols As Long, n As Long >>>>> >>>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>>> nCols = rs.Fields.Count >>>>> Set objXL = CreateObject("Excel.Application") >>>>> objXL.SheetsInNewWorkbook = 1 >>>>> Set objWB = objXL.Workbooks.Add >>>>> Dim f As Field >>>>> n = 0 >>>>> ' CopyFromRecordset does not bring the column headings with it. >>>>> ' So here we add them manually. >>>>> For Each f In rs.Fields >>>>> n = n + 1 >>>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>>> Next f >>>>> ' and now drop the data into row 2 >>>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>>> If bFormatColumns Then >>>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>>> oRng.EntireColumn.AutoFit >>>>> oRng.Interior.Color = vbYellow >>>>> oRng.Borders.Color = vbBlack >>>>> Set oRng = Nothing >>>>> End If >>>>> rs.Close >>>>> Set rs = Nothing >>>>> objXL.Visible = True >>>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>>> window to the foreground. End Sub >>>>> >>>>> HTH >>>>> >>>>> Lambert >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>> Smolin - Beach Access Software >>>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: [AccessD] Word Window On Top >>>>> >>>>> >>>>> Dear List: >>>>> >>>>> Using automation I open a word doc, but the access app is still on >>>>> top. >>>>> Word is in the tray. Click it and the doc is there and open. Q: how >>>>> can I give the word doc window the focus after I open it? >>>>> >>>>> MTIA >>>>> >>>>> 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 >>> >>> -- >>> 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 kathryn at bassett.net Sat Aug 26 22:18:59 2006 From: kathryn at bassett.net (Kathryn Bassett) Date: Sat, 26 Aug 2006 20:18:59 -0700 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. Message-ID: <006701c6c987$8a621710$6401a8c0@Kathryn> Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) From bchacc at san.rr.com Sat Aug 26 23:15:40 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 21:15:40 -0700 Subject: [AccessD] Word Window On Top In-Reply-To: <00ea01c6c981$5fc7eda0$0202a8c0@default> References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF> <00c501c6c977$cf706a60$0202a8c0@default> <44F0FA03.2050207@san.rr.com> <00ea01c6c981$5fc7eda0$0202a8c0@default> Message-ID: <44F11C6C.3010707@san.rr.com> Word is OpusApp and Access is OMain. That makes sense (not). Anyway, thanks - I'll forward the snip to the client and see if that will do it. Best, Rocky Michael R Mattys wrote: > Hi Rocky, > > No - OpusApp is the Application name. > Most Office Apps are like that > Try here: http://www.mvps.org/access/api/api0007.htm > > Michael R. Mattys > MapPoint Developer > www.mattysconsulting.com > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Saturday, August 26, 2006 9:48 PM > Subject: Re: [AccessD] Word Window On Top > > > >> Replace OpusApp with WordObj? >> >> Rocky >> >> >> Michael R Mattys wrote: >> >>> Of course! Right on target, John. >>> >>> I was going to say: >>> >>> Public Declare Function FindWindow Lib "user32" _ >>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>> ByVal lpWindowName As String) As Long >>> >>> Public Declare Function ShowWindow Lib "user32" _ >>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>> >>> Dim OpusApp As Long >>> OpusApp& = FindWindow("OpusApp", vbNullString) >>> Call ShowWindow(OpusApp , SW_NORMAL) >>> >>> Michael R. Mattys >>> MapPoint Developer >>> www.mattysconsulting.com >>> >>> ----- Original Message ----- >>> From: "John Ruff" >>> To: "'Access Developers discussion and problem solving'" >>> >>> Sent: Saturday, August 26, 2006 9:07 PM >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> >>> >>>> After you create the WordObj set its visible property to true >>>> >>>> ' Shows this instance of Word >>>> WordObj.Visible = True >>>> >>>> papparuff >>>> >>>> -----Original Message----- >>>> From: accessd-bounces at databaseadvisors.com >>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>> Smolin - >>>> Beach Access Software >>>> Sent: Saturday, August 26, 2006 4:26 PM >>>> To: Access Developers discussion and problem solving >>>> Subject: Re: [AccessD] Word Window On Top >>>> >>>> Well, I'm really crappin' out with this guy. .Activate didn't work, nor >>>> .Show. >>>> >>>> He tests to see if word is already open - doesn't want to open a second >>>> instance. >>>> >>>> Set WordObj = GetObject(, "Word.Application") >>>> If Err.Number <> 0 Then >>>> Set WordObj = CreateObject("Word.Application") >>>> End If >>>> >>>> >>>> Nothing works so far when Word is already open. But I can't help but >>>> think there's a simple property or method (there's so freakin' many of >>>> 'em) to make Word the active window when you open a new document and >>>> word is already open. >>>> >>>> Any other ideas anybody? >>>> >>>> MTIA >>>> >>>> Rocky >>>> >>>> Heenan, Lambert wrote: >>>> >>>> >>>>> Rocky, >>>>> >>>>> WordObj needs to be declared As Word.Application, but is has to be in >>>>> the >>>>> same scope as the function you are using. Notice that I actually >>>>> declare >>>>> >>>>> >>>> the >>>> >>>> >>>>> xlObj inside my function. >>>>> >>>>> Lambert (first name) >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>> Smolin - >>>>> Beach Access Software >>>>> Sent: Wednesday, August 23, 2006 4:03 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> >>>>> Heenan: >>>>> >>>>> With WordObj declared as: Dim WordObj As Word.Application >>>>> >>>>> and the Function in a separate module, the statement >>>>> SetForegroundWindow >>>>> WordObj.hWnd won't compile - gives a method or data member not found >>>>> >>>>> >>>> error. >>>> >>>> >>>>> The Word 11.0 object library is checked in the references. >>>>> >>>>> I tried redeclaring WordObj as Object but that didn't work either. >>>>> >>>>> TIA >>>>> >>>>> Rocky >>>>> >>>>> >>>>> Heenan, Lambert wrote: >>>>> >>>>> >>>>> >>>>>> Well here is how I do the same thing with Access opening Excel. It is >>>>>> all dependant on getting the handle of the Excel window (or Word >>>>>> window in your case)... >>>>>> >>>>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>>>> As >>>>>> Long) As Long >>>>>> >>>>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns As >>>>>> Boolean = True) >>>>>> '--------------------------------------------------------------------- >>>>>> ------ >>>>>> ------------ >>>>>> ' Procedure : ViewInExcel >>>>>> ' >>>>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>>>> >>>>>> >>>> worksheet, >>>> >>>> >>>>>> but does >>>>>> ' : not save the Excel file. The user can choose to save the >>>>>> >>>>>> >>>>>> >>>>> file >>>>> >>>>> >>>>> >>>>>> if needed. >>>>>> >>>>>> >>>>>> >>>>>> >>>> '--------------------------------------------------------------------------- >>>> >>>> >>>>>> ------------ >>>>>> ' >>>>>> Dim objXL As excel.Application >>>>>> Dim objSheet As excel.Worksheet >>>>>> Dim objWB As excel.Workbook >>>>>> Dim rs As Object >>>>>> Dim oRng As excel.Range >>>>>> Dim nCols As Long, n As Long >>>>>> >>>>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>>>> nCols = rs.Fields.Count >>>>>> Set objXL = CreateObject("Excel.Application") >>>>>> objXL.SheetsInNewWorkbook = 1 >>>>>> Set objWB = objXL.Workbooks.Add >>>>>> Dim f As Field >>>>>> n = 0 >>>>>> ' CopyFromRecordset does not bring the column headings with it. >>>>>> ' So here we add them manually. >>>>>> For Each f In rs.Fields >>>>>> n = n + 1 >>>>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>>>> Next f >>>>>> ' and now drop the data into row 2 >>>>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>>>> If bFormatColumns Then >>>>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) & >>>>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>>>> oRng.EntireColumn.AutoFit >>>>>> oRng.Interior.Color = vbYellow >>>>>> oRng.Borders.Color = vbBlack >>>>>> Set oRng = Nothing >>>>>> End If >>>>>> rs.Close >>>>>> Set rs = Nothing >>>>>> objXL.Visible = True >>>>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>>>> window to the foreground. End Sub >>>>>> >>>>>> HTH >>>>>> >>>>>> Lambert >>>>>> -----Original Message----- >>>>>> From: accessd-bounces at databaseadvisors.com >>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>> Smolin - Beach Access Software >>>>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>>>> To: Access Developers discussion and problem solving >>>>>> Subject: [AccessD] Word Window On Top >>>>>> >>>>>> >>>>>> Dear List: >>>>>> >>>>>> Using automation I open a word doc, but the access app is still on >>>>>> top. >>>>>> Word is in the tray. Click it and the doc is there and open. Q: how >>>>>> can I give the word doc window the focus after I open it? >>>>>> >>>>>> MTIA >>>>>> >>>>>> 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 >>>> >>>> -- >>>> 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 >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From wdhindman at dejpolsystems.com Sun Aug 27 00:10:17 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 27 Aug 2006 01:10:17 -0400 Subject: [AccessD] Word Window On Top References: <000001c6c975$367917a0$6401a8c0@PAPPARUFF><00c501c6c977$cf706a60$0202a8c0@default><44F0FA03.2050207@san.rr.com><00ea01c6c981$5fc7eda0$0202a8c0@default> <44F11C6C.3010707@san.rr.com> Message-ID: <001d01c6c997$16bd0990$153ce944@50NM721> Rocky ...your client isn't the only one with that particular problem ...and it appears to be workstation dependent ...on most systems the Activate command does bring the Word doc to the front ...but not all. ...you might want to give this a look if the problem still exists: http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm William Hindman ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Sunday, August 27, 2006 12:15 AM Subject: Re: [AccessD] Word Window On Top > Word is OpusApp and Access is OMain. That makes sense (not). > > Anyway, thanks - I'll forward the snip to the client and see if that > will do it. > > Best, > > Rocky > > > Michael R Mattys wrote: >> Hi Rocky, >> >> No - OpusApp is the Application name. >> Most Office Apps are like that >> Try here: http://www.mvps.org/access/api/api0007.htm >> >> Michael R. Mattys >> MapPoint Developer >> www.mattysconsulting.com >> >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> To: "Access Developers discussion and problem solving" >> >> Sent: Saturday, August 26, 2006 9:48 PM >> Subject: Re: [AccessD] Word Window On Top >> >> >> >>> Replace OpusApp with WordObj? >>> >>> Rocky >>> >>> >>> Michael R Mattys wrote: >>> >>>> Of course! Right on target, John. >>>> >>>> I was going to say: >>>> >>>> Public Declare Function FindWindow Lib "user32" _ >>>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>>> ByVal lpWindowName As String) As Long >>>> >>>> Public Declare Function ShowWindow Lib "user32" _ >>>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>> >>>> Dim OpusApp As Long >>>> OpusApp& = FindWindow("OpusApp", vbNullString) >>>> Call ShowWindow(OpusApp , SW_NORMAL) >>>> >>>> Michael R. Mattys >>>> MapPoint Developer >>>> www.mattysconsulting.com >>>> >>>> ----- Original Message ----- >>>> From: "John Ruff" >>>> To: "'Access Developers discussion and problem solving'" >>>> >>>> Sent: Saturday, August 26, 2006 9:07 PM >>>> Subject: Re: [AccessD] Word Window On Top >>>> >>>> >>>> >>>> >>>>> After you create the WordObj set its visible property to true >>>>> >>>>> ' Shows this instance of Word >>>>> WordObj.Visible = True >>>>> >>>>> papparuff >>>>> >>>>> -----Original Message----- >>>>> From: accessd-bounces at databaseadvisors.com >>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>> Smolin - >>>>> Beach Access Software >>>>> Sent: Saturday, August 26, 2006 4:26 PM >>>>> To: Access Developers discussion and problem solving >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>> nor >>>>> .Show. >>>>> >>>>> He tests to see if word is already open - doesn't want to open a >>>>> second >>>>> instance. >>>>> >>>>> Set WordObj = GetObject(, "Word.Application") >>>>> If Err.Number <> 0 Then >>>>> Set WordObj = CreateObject("Word.Application") >>>>> End If >>>>> >>>>> >>>>> Nothing works so far when Word is already open. But I can't help but >>>>> think there's a simple property or method (there's so freakin' many of >>>>> 'em) to make Word the active window when you open a new document and >>>>> word is already open. >>>>> >>>>> Any other ideas anybody? >>>>> >>>>> MTIA >>>>> >>>>> Rocky >>>>> >>>>> Heenan, Lambert wrote: >>>>> >>>>> >>>>>> Rocky, >>>>>> >>>>>> WordObj needs to be declared As Word.Application, but is has to be >>>>>> in >>>>>> the >>>>>> same scope as the function you are using. Notice that I actually >>>>>> declare >>>>>> >>>>>> >>>>> the >>>>> >>>>> >>>>>> xlObj inside my function. >>>>>> >>>>>> Lambert (first name) >>>>>> >>>>>> -----Original Message----- >>>>>> From: accessd-bounces at databaseadvisors.com >>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>> Smolin - >>>>>> Beach Access Software >>>>>> Sent: Wednesday, August 23, 2006 4:03 PM >>>>>> To: Access Developers discussion and problem solving >>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>> >>>>>> >>>>>> Heenan: >>>>>> >>>>>> With WordObj declared as: Dim WordObj As Word.Application >>>>>> >>>>>> and the Function in a separate module, the statement >>>>>> SetForegroundWindow >>>>>> WordObj.hWnd won't compile - gives a method or data member not found >>>>>> >>>>>> >>>>> error. >>>>> >>>>> >>>>>> The Word 11.0 object library is checked in the references. >>>>>> >>>>>> I tried redeclaring WordObj as Object but that didn't work either. >>>>>> >>>>>> TIA >>>>>> >>>>>> Rocky >>>>>> >>>>>> >>>>>> Heenan, Lambert wrote: >>>>>> >>>>>> >>>>>> >>>>>>> Well here is how I do the same thing with Access opening Excel. It >>>>>>> is >>>>>>> all dependant on getting the handle of the Excel window (or Word >>>>>>> window in your case)... >>>>>>> >>>>>>> Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd >>>>>>> As >>>>>>> Long) As Long >>>>>>> >>>>>>> Sub ViewInExcel(strRecordSource As String, Optional bFormatColumns >>>>>>> As >>>>>>> Boolean = True) >>>>>>> '--------------------------------------------------------------------- >>>>>>> ------ >>>>>>> ------------ >>>>>>> ' Procedure : ViewInExcel >>>>>>> ' >>>>>>> ' Purpose : Displays a recordset (Table or query) in an Excel >>>>>>> >>>>>>> >>>>> worksheet, >>>>> >>>>> >>>>>>> but does >>>>>>> ' : not save the Excel file. The user can choose to save >>>>>>> the >>>>>>> >>>>>>> >>>>>>> >>>>>> file >>>>>> >>>>>> >>>>>> >>>>>>> if needed. >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>> '--------------------------------------------------------------------------- >>>>> >>>>> >>>>>>> ------------ >>>>>>> ' >>>>>>> Dim objXL As excel.Application >>>>>>> Dim objSheet As excel.Worksheet >>>>>>> Dim objWB As excel.Workbook >>>>>>> Dim rs As Object >>>>>>> Dim oRng As excel.Range >>>>>>> Dim nCols As Long, n As Long >>>>>>> >>>>>>> Set rs = CurrentDb.OpenRecordset(strRecordSource) >>>>>>> nCols = rs.Fields.Count >>>>>>> Set objXL = CreateObject("Excel.Application") >>>>>>> objXL.SheetsInNewWorkbook = 1 >>>>>>> Set objWB = objXL.Workbooks.Add >>>>>>> Dim f As Field >>>>>>> n = 0 >>>>>>> ' CopyFromRecordset does not bring the column headings with it. >>>>>>> ' So here we add them manually. >>>>>>> For Each f In rs.Fields >>>>>>> n = n + 1 >>>>>>> objWB.Sheets("Sheet1").Cells(1, n) = f.Name >>>>>>> Next f >>>>>>> ' and now drop the data into row 2 >>>>>>> objWB.Sheets("Sheet1").Cells(2, 1).CopyFromRecordset rs >>>>>>> If bFormatColumns Then >>>>>>> Set oRng = objWB.Sheets("Sheet1").Range(CStr(ExcelColumn(1)) >>>>>>> & >>>>>>> "1:" & CStr(ExcelColumn(nCols)) & "1") >>>>>>> oRng.EntireColumn.AutoFit >>>>>>> oRng.Interior.Color = vbYellow >>>>>>> oRng.Borders.Color = vbBlack >>>>>>> Set oRng = Nothing >>>>>>> End If >>>>>>> rs.Close >>>>>>> Set rs = Nothing >>>>>>> objXL.Visible = True >>>>>>> SetForegroundWindow objXL.hWnd ' here's the line that brings the >>>>>>> window to the foreground. End Sub >>>>>>> >>>>>>> HTH >>>>>>> >>>>>>> Lambert >>>>>>> -----Original Message----- >>>>>>> From: accessd-bounces at databaseadvisors.com >>>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>>> Smolin - Beach Access Software >>>>>>> Sent: Wednesday, August 23, 2006 1:33 PM >>>>>>> To: Access Developers discussion and problem solving >>>>>>> Subject: [AccessD] Word Window On Top >>>>>>> >>>>>>> >>>>>>> Dear List: >>>>>>> >>>>>>> Using automation I open a word doc, but the access app is still on >>>>>>> top. >>>>>>> Word is in the tray. Click it and the doc is there and open. Q: >>>>>>> how >>>>>>> can I give the word doc window the focus after I open it? >>>>>>> >>>>>>> MTIA >>>>>>> >>>>>>> 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 >>>>> >>>>> -- >>>>> 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 >>> >> >> > > -- > 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 mmattys at rochester.rr.com Sun Aug 27 00:15:07 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Sun, 27 Aug 2006 01:15:07 -0400 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. References: <006701c6c987$8a621710$6401a8c0@Kathryn> Message-ID: <014301c6c997$c709f100$0202a8c0@default> Kathryn, This is the page with the answer, but you may not like it. http://www.mvps.org/access/reports/rpt0009.htm It has been a while since I've worked with this stuff ... Michael R. Mattys MapPoint Developer www.mattysconsulting.com ----- Original Message ----- From: "Kathryn Bassett" To: Sent: Saturday, August 26, 2006 11:18 PM Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. > Situation: .mdb is on K drive which is accessable from two computers (IOW, > K drive is server). No problems in the past when there was a LaserJet 5 > hooked up to both computers. By that I mean if we were "downstairs", > printing would print on the downstairs LJ5, and "upstairs" would print on > the upstairs LJ5. > In both cases, the envelope was put in the tray over on the left side. > > Now, upstairs has new printer (LJ3052) and the envelope goes in center > instead of left side. Access does not automatically adjust - the "to" > address is printing at top of the envelope and the "from" address is not > there at all. If I put paper in the tray that the envelope pulls from, it > shows that it's printing as if it were pulling from the left. > > So, I tried putting the envelope over to the left and it pulls it through, > but doesn't print, and gives me an error message that there was no paper > pickup and to check that the paper was loaded correctly, etc. > > Does this mean that I have to design additional reports for all envelopes > that will be printed upstairs, designing for this specific printer? > > Assuming you give me suggestions, unless they are within next 45 minutes, > I won't be able to try them til Monday when I'm back here at work. > > -- > Kathryn Bassett (at work address) > kathrynatgwens at socal.rr.com > kathryn at bassett.net (home) > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From wdhindman at dejpolsystems.com Sun Aug 27 00:34:29 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Sun, 27 Aug 2006 01:34:29 -0400 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. References: <006701c6c987$8a621710$6401a8c0@Kathryn> Message-ID: <003f01c6c99a$78526490$153ce944@50NM721> ...it would appear that the report isn't changing it's set printer driver which I've seen reports do before ...try this to force the change ...change the report's printer selection to use the "specific printer" option rather than the default (the wording may differ somewhat, I don't have any app open) and set it to the LJ5. When you then open the revised app on the upstairs system it will pop up a dialog saying the LJ5 isn't available and let you change the printer ...on that system ...to the newer one ...that should force your app to use the correct driver for that system. ...hth William Hindman ----- Original Message ----- From: "Kathryn Bassett" To: Sent: Saturday, August 26, 2006 11:18 PM Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. > Situation: .mdb is on K drive which is accessable from two computers (IOW, > K drive is server). No problems in the past when there was a LaserJet 5 > hooked up to both computers. By that I mean if we were "downstairs", > printing would print on the downstairs LJ5, and "upstairs" would print on > the upstairs LJ5. > In both cases, the envelope was put in the tray over on the left side. > > Now, upstairs has new printer (LJ3052) and the envelope goes in center > instead of left side. Access does not automatically adjust - the "to" > address is printing at top of the envelope and the "from" address is not > there at all. If I put paper in the tray that the envelope pulls from, it > shows that it's printing as if it were pulling from the left. > > So, I tried putting the envelope over to the left and it pulls it through, > but doesn't print, and gives me an error message that there was no paper > pickup and to check that the paper was loaded correctly, etc. > > Does this mean that I have to design additional reports for all envelopes > that will be printed upstairs, designing for this specific printer? > > Assuming you give me suggestions, unless they are within next 45 minutes, > I won't be able to try them til Monday when I'm back here at work. > > -- > Kathryn Bassett (at work address) > kathrynatgwens at socal.rr.com > kathryn at bassett.net (home) > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bchacc at san.rr.com Sun Aug 27 01:03:49 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 26 Aug 2006 23:03:49 -0700 Subject: [AccessD] [Fwd: Re: Word Window On Top] Message-ID: <44F135C5.4080705@san.rr.com> Thanks. Will forward. Rocky William Hindman wrote: > Rocky > > ...your client isn't the only one with that particular problem ...and it > appears to be workstation dependent ...on most systems the Activate command > does bring the Word doc to the front ...but not all. > > ...you might want to give this a look if the problem still exists: > > http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm > > > William Hindman > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Sunday, August 27, 2006 12:15 AM > Subject: Re: [AccessD] Word Window On Top > > > >> Word is OpusApp and Access is OMain. That makes sense (not). >> >> Anyway, thanks - I'll forward the snip to the client and see if that >> will do it. >> >> Best, >> >> Rocky >> >> >> Michael R Mattys wrote: >> >>> Hi Rocky, >>> >>> No - OpusApp is the Application name. >>> Most Office Apps are like that >>> Try here: http://www.mvps.org/access/api/api0007.htm >>> >>> Michael R. Mattys >>> MapPoint Developer >>> www.mattysconsulting.com >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Saturday, August 26, 2006 9:48 PM >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> >>> >>>> Replace OpusApp with WordObj? >>>> >>>> Rocky >>>> >>>> >>>> Michael R Mattys wrote: >>>> >>>> >>>>> Of course! Right on target, John. >>>>> >>>>> I was going to say: >>>>> >>>>> Public Declare Function FindWindow Lib "user32" _ >>>>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>>>> ByVal lpWindowName As String) As Long >>>>> >>>>> Public Declare Function ShowWindow Lib "user32" _ >>>>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>>> >>>>> Dim OpusApp As Long >>>>> OpusApp& = FindWindow("OpusApp", vbNullString) >>>>> Call ShowWindow(OpusApp , SW_NORMAL) >>>>> >>>>> Michael R. Mattys >>>>> MapPoint Developer >>>>> www.mattysconsulting.com >>>>> >>>>> ----- Original Message ----- >>>>> From: "John Ruff" >>>>> To: "'Access Developers discussion and problem solving'" >>>>> >>>>> Sent: Saturday, August 26, 2006 9:07 PM >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> After you create the WordObj set its visible property to true >>>>>> >>>>>> ' Shows this instance of Word >>>>>> WordObj.Visible = True >>>>>> >>>>>> papparuff >>>>>> >>>>>> -----Original Message----- >>>>>> From: accessd-bounces at databaseadvisors.com >>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>> Smolin - >>>>>> Beach Access Software >>>>>> Sent: Saturday, August 26, 2006 4:26 PM >>>>>> To: Access Developers discussion and problem solving >>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>> >>>>>> Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>>> nor >>>>>> .Show. >>>>>> >>>>>> He tests to see if word is already open - doesn't want to open a >>>>>> second >>>>>> instance. >>>>>> >>>>>> Set WordObj = GetObject(, "Word.Application") >>>>>> If Err.Number <> 0 Then >>>>>> Set WordObj = CreateObject("Word.Application") >>>>>> End If >>>>>> >>>>>> >>>>>> Nothing works so far when Word is already open. But I can't help but >>>>>> think there's a simple property or method (there's so freakin' many of >>>>>> 'em) to make Word the active window when you open a new document and >>>>>> word is already open. >>>>>> >>>>>> Any other ideas anybody? >>>>>> >>>>>> MTIA >>>>>> >>>>>> Rocky >>>>>> >>>>>> Heenan, Lambert wrote: >>>>>> From jwcolby at colbyconsulting.com Sun Aug 27 08:38:15 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Sun, 27 Aug 2006 09:38:15 -0400 Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: Message-ID: <000c01c6c9de$0d767eb0$657aa8c0@m6805> I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting www.ColbyConsulting.com From accessd at shaw.ca Sun Aug 27 11:08:30 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sun, 27 Aug 2006 09:08:30 -0700 Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: <000c01c6c9de$0d767eb0$657aa8c0@m6805> Message-ID: <0J4N00ISMZG6WT40@l-daemon> Hi John: 1. Would you have an IIS server running on both computers? 2. Are both MS SQLs using different ports (1433 default)? 3. The 'guest' account is turned off by default on new installs; would this be the case on the new computer? 4. Do you have a personal firewall setup on either/both computers that may be blocking the MS SQL ports? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Sunday, August 27, 2006 6:38 AM To: dba-sqlserver at databaseadvisors.com Cc: 'Access Developers discussion and problem solving' Subject: [AccessD] Transferring a database to another SQL Server I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting www.ColbyConsulting.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 Sun Aug 27 11:17:48 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Sun, 27 Aug 2006 09:17:48 -0700 Subject: [AccessD] Transferring a database to another SQL Server References: <000c01c6c9de$0d767eb0$657aa8c0@m6805> Message-ID: <000901c6c9f4$57214840$6401a8c0@BPCS> John, Sounds like a domain issue to me, is one of the machines a domain controller?? If so have you logged the other into the domain? A work around, assuming you can get to the hard drive of one from the other, would be to use enterprise manager, detach the desired databases, copy them to the desired machine and re attach. Bill ----- Original Message ----- From: "JWColby" To: Cc: "'Access Developers discussion and problem solving'" Sent: Sunday, August 27, 2006 6:38 AM Subject: [AccessD] Transferring a database to another SQL Server I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting www.ColbyConsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Sun Aug 27 11:23:06 2006 From: artful at rogers.com (artful at rogers.com) Date: Sun, 27 Aug 2006 09:23:06 -0700 (PDT) Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: <0J4N00ISMZG6WT40@l-daemon> Message-ID: <20060827162307.37721.qmail@web88206.mail.re2.yahoo.com> In addition, SQL 2005 has "remote access" turned off by default. Go into Configuration Manager and have a look there. My guess is that this is your problem. Arthur ----- Original Message ---- From: Jim Lawrence To: Access Developers discussion and problem solving Sent: Sunday, August 27, 2006 12:08:30 PM Subject: Re: [AccessD] Transferring a database to another SQL Server Hi John: 1. Would you have an IIS server running on both computers? 2. Are both MS SQLs using different ports (1433 default)? 3. The 'guest' account is turned off by default on new installs; would this be the case on the new computer? 4. Do you have a personal firewall setup on either/both computers that may be blocking the MS SQL ports? HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Sunday, August 27, 2006 6:38 AM To: dba-sqlserver at databaseadvisors.com Cc: 'Access Developers discussion and problem solving' Subject: [AccessD] Transferring a database to another SQL Server I have just finished rebuilding a machine (new motherboard) and need to transfer a large SQL Server database to that new server. The two servers can see each other (shared folders), but ... I cannot register the other SQL Servers, getting an error "Login failed for 'MachineName\Guest'. I get this error on either machine when trying to register the SQL Server on the other machine. My login user / password is the same on both machines. Both databases were installed using "Windows Authentication" rather than "SQL Server Authentication". Any ideas? John W. Colby Colby Consulting 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 paul.baumann at rtctech.com Sun Aug 27 14:27:36 2006 From: paul.baumann at rtctech.com (Paul Baumann) Date: Sun, 27 Aug 2006 14:27:36 -0500 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. Message-ID: <000401c6ca0e$dac16c60$6465a8c0@scrptrkr.local> Kathryn, There are a number of questions I would ask to resolve this. I the LJ5 driver still installed on the Upstairs machine and if it is is it still the default printer? Does the document (envelope) specify the default printer or was is formatted for the LJ5 specifically? I believe that you problem has little to do with the application but more likely the printer driver setup between the two computers. Paul O. Baumann RTC Technologies, Inc. Tel. 262-925-1300 Fax 262-925-1299 Email: paulb at rtctech.com ----- Original Message ----- From: "Kathryn Bassett" To: Sent: Saturday, August 26, 2006 11:18 PM Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. > Situation: .mdb is on K drive which is accessable from two computers (IOW, > K drive is server). No problems in the past when there was a LaserJet 5 > hooked up to both computers. By that I mean if we were "downstairs", > printing would print on the downstairs LJ5, and "upstairs" would print on > the upstairs LJ5. > In both cases, the envelope was put in the tray over on the left side. > > Now, upstairs has new printer (LJ3052) and the envelope goes in center > instead of left side. Access does not automatically adjust - the "to" > address is printing at top of the envelope and the "from" address is not > there at all. If I put paper in the tray that the envelope pulls from, it > shows that it's printing as if it were pulling from the left. > > So, I tried putting the envelope over to the left and it pulls it through, > but doesn't print, and gives me an error message that there was no paper > pickup and to check that the paper was loaded correctly, etc. > > Does this mean that I have to design additional reports for all envelopes > that will be printed upstairs, designing for this specific printer? > > Assuming you give me suggestions, unless they are within next 45 minutes, > I won't be able to try them til Monday when I'm back here at work. > > -- > Kathryn Bassett (at work address) > kathrynatgwens at socal.rr.com > kathryn at bassett.net (home) > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Sun Aug 27 18:31:52 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sun, 27 Aug 2006 16:31:52 -0700 Subject: [AccessD] [Fwd: Re: Word Window On Top] In-Reply-To: <44F135C5.4080705@san.rr.com> References: <44F135C5.4080705@san.rr.com> Message-ID: <44F22B68.5090009@shaw.ca> This works for me from Access 2003 vs Word 97 or Word2007 Some of these API calls had little glitches prior to WinXP. And were different in Win9x. You may need all three API calls SetActiveWindow, ShowWindow and SetForegroundWindow. 'Windows API Declarations Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As _ Long) As Long Const SW_SHOW = 9 Sub testme() Dim x As Long x = AppActivateClass("OpusApp") 'Word ClassName Debug.Print x End Sub '****************************************************************** ' FUNCTION: AppActivateClass() ' ' PURPOSE: Used to activate another application by using its ' class name instead of the title bar text as AppActivate does. ' ' ARGUMENTS: ' strClassName - The Class Name of the application. ' ' RETURNS: ' 0 - The application was not found - it either was not running ' or the class name is incorrect ' -1 - The application was activated '****************************************************************** Function AppActivateClass(strClassName As String) Dim hwnd As Long 'the application's window handle Dim dummy As Long 'Dummy variable 'Dim strClassName As String 'strClassName = "OpusApp" 'for Word; Opus was orignal beta name of word ' or perhaps somebody's cat 'Get the Window Handle hwnd = FindWindow(strClassName, vbNullString) '0& doesn't work 'hWnd = FindWindow(lpclassname, by Val 0&) Debug.Print "handle =" & hwnd 'Activate the Application dummy = ShowWindow(hwnd, SW_SHOW) ' call needed to restore if app minimized ' else only tray icon activated dummy = SetActiveWindow(hwnd) dummy = SetForegroundWindow(hwnd) 'Return True if Application Running, or False if not. AppActivateClass = hwnd End Function Rocky Smolin - Beach Access Software wrote: > Thanks. Will forward. > >Rocky > > >William Hindman wrote: > > >>Rocky >> >>...your client isn't the only one with that particular problem ...and it >>appears to be workstation dependent ...on most systems the Activate command >>does bring the Word doc to the front ...but not all. >> >>...you might want to give this a look if the problem still exists: >> >>http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm >> >> >>William Hindman >> >>----- Original Message ----- >>From: "Rocky Smolin - Beach Access Software" >>To: "Access Developers discussion and problem solving" >> >>Sent: Sunday, August 27, 2006 12:15 AM >>Subject: Re: [AccessD] Word Window On Top >> >> >> >> >> >>>Word is OpusApp and Access is OMain. That makes sense (not). >>> >>>Anyway, thanks - I'll forward the snip to the client and see if that >>>will do it. >>> >>>Best, >>> >>>Rocky >>> >>> >>>Michael R Mattys wrote: >>> >>> >>> >>>>Hi Rocky, >>>> >>>>No - OpusApp is the Application name. >>>>Most Office Apps are like that >>>>Try here: http://www.mvps.org/access/api/api0007.htm >>>> >>>>Michael R. Mattys >>>>MapPoint Developer >>>>www.mattysconsulting.com >>>> >>>>----- Original Message ----- >>>>From: "Rocky Smolin - Beach Access Software" >>>>To: "Access Developers discussion and problem solving" >>>> >>>>Sent: Saturday, August 26, 2006 9:48 PM >>>>Subject: Re: [AccessD] Word Window On Top >>>> >>>> >>>> >>>> >>>> >>>> >>>>>Replace OpusApp with WordObj? >>>>> >>>>>Rocky >>>>> >>>>> >>>>>Michael R Mattys wrote: >>>>> >>>>> >>>>> >>>>> >>>>>>Of course! Right on target, John. >>>>>> >>>>>>I was going to say: >>>>>> >>>>>>Public Declare Function FindWindow Lib "user32" _ >>>>>>Alias "FindWindowA" (ByVal lpClassName As String, _ >>>>>>ByVal lpWindowName As String) As Long >>>>>> >>>>>>Public Declare Function ShowWindow Lib "user32" _ >>>>>>(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>>>> >>>>>>Dim OpusApp As Long >>>>>>OpusApp& = FindWindow("OpusApp", vbNullString) >>>>>>Call ShowWindow(OpusApp , SW_NORMAL) >>>>>> >>>>>>Michael R. Mattys >>>>>>MapPoint Developer >>>>>>www.mattysconsulting.com >>>>>> >>>>>>----- Original Message ----- >>>>>>From: "John Ruff" >>>>>>To: "'Access Developers discussion and problem solving'" >>>>>> >>>>>>Sent: Saturday, August 26, 2006 9:07 PM >>>>>>Subject: Re: [AccessD] Word Window On Top >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>>After you create the WordObj set its visible property to true >>>>>>> >>>>>>>' Shows this instance of Word >>>>>>>WordObj.Visible = True >>>>>>> >>>>>>>papparuff >>>>>>> >>>>>>>-----Original Message----- >>>>>>>From: accessd-bounces at databaseadvisors.com >>>>>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>>>Smolin - >>>>>>>Beach Access Software >>>>>>>Sent: Saturday, August 26, 2006 4:26 PM >>>>>>>To: Access Developers discussion and problem solving >>>>>>>Subject: Re: [AccessD] Word Window On Top >>>>>>> >>>>>>>Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>>>>nor >>>>>>>.Show. >>>>>>> >>>>>>>He tests to see if word is already open - doesn't want to open a >>>>>>>second >>>>>>>instance. >>>>>>> >>>>>>>Set WordObj = GetObject(, "Word.Application") >>>>>>> If Err.Number <> 0 Then >>>>>>> Set WordObj = CreateObject("Word.Application") >>>>>>> End If >>>>>>> >>>>>>> >>>>>>>Nothing works so far when Word is already open. But I can't help but >>>>>>>think there's a simple property or method (there's so freakin' many of >>>>>>>'em) to make Word the active window when you open a new document and >>>>>>>word is already open. >>>>>>> >>>>>>>Any other ideas anybody? >>>>>>> >>>>>>>MTIA >>>>>>> >>>>>>>Rocky >>>>>>> >>>>>>>Heenan, Lambert wrote: >>>>>>> >>>>>>> >>>>>>> > > > -- Marty Connelly Victoria, B.C. Canada From pcs at azizaz.com Sun Aug 27 18:51:58 2006 From: pcs at azizaz.com (Borge Hansen) Date: Mon, 28 Aug 2006 09:51:58 +1000 Subject: [AccessD] Separate mdb for housing temp tables References: <000b01c6c779$6c053a50$0200a8c0@danwaters> Message-ID: <003901c6ca33$c965c270$fa10a8c0@Albatross> Dan, Yes, please post your code for auto-compacting the BE on a server. Regards borge - snipped- ----- Original Message ----- From: "Dan Waters" To: "'Access Developers discussion and problem solving'" Sent: Thursday, August 24, 2006 10:32 PM Subject: Re: [AccessD] Separate mdb for housing temp tables > Hi Borge, ... > If you still need to keep a separate db to keep temp tables and you want to > compact it regularly, reply back and I'll post the code I use to > auto-compact the BE on the server. > HTH! > Dan From bchacc at san.rr.com Sun Aug 27 18:52:23 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sun, 27 Aug 2006 16:52:23 -0700 Subject: [AccessD] [Fwd: Re: Word Window On Top] In-Reply-To: <44F22B68.5090009@shaw.ca> References: <44F135C5.4080705@san.rr.com> <44F22B68.5090009@shaw.ca> Message-ID: <44F23037.1080506@san.rr.com> Thanks, Marty. I'll let you know what happens. Rocky MartyConnelly wrote: > This works for me from Access 2003 vs Word 97 or Word2007 > Some of these API calls had little glitches prior to WinXP. > And were different in Win9x. > > You may need all three API calls SetActiveWindow, > ShowWindow and SetForegroundWindow. > > > > 'Windows API Declarations > Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd > As Long) As Long > Private Declare Function ShowWindow Lib "user32" _ > (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long > Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ > (ByVal lpClassName As String, ByVal lpWindowName As String) As Long > Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd > As _ > Long) As Long > > Const SW_SHOW = 9 > > Sub testme() > Dim x As Long > x = AppActivateClass("OpusApp") 'Word ClassName > Debug.Print x > End Sub > > '****************************************************************** > ' FUNCTION: AppActivateClass() > ' > ' PURPOSE: Used to activate another application by using its > ' class name instead of the title bar text as AppActivate does. > ' > ' ARGUMENTS: > ' strClassName - The Class Name of the application. > ' > ' RETURNS: > ' 0 - The application was not found - it either was not running > ' or the class name is incorrect > ' -1 - The application was activated > > '****************************************************************** > > Function AppActivateClass(strClassName As String) > Dim hwnd As Long 'the application's window handle > Dim dummy As Long 'Dummy variable > 'Dim strClassName As String > 'strClassName = "OpusApp" 'for Word; Opus was orignal beta name of > word > ' or perhaps somebody's cat > 'Get the Window Handle > hwnd = FindWindow(strClassName, vbNullString) '0& doesn't work > 'hWnd = FindWindow(lpclassname, by Val 0&) > Debug.Print "handle =" & hwnd > 'Activate the Application > dummy = ShowWindow(hwnd, SW_SHOW) ' call needed to restore if app > minimized > ' else only tray icon activated > dummy = SetActiveWindow(hwnd) > dummy = SetForegroundWindow(hwnd) > > 'Return True if Application Running, or False if not. > AppActivateClass = hwnd > End Function > > Rocky Smolin - Beach Access Software wrote: > > >> Thanks. Will forward. >> >> Rocky >> >> >> William Hindman wrote: >> >> >> >>> Rocky >>> >>> ...your client isn't the only one with that particular problem ...and it >>> appears to be workstation dependent ...on most systems the Activate command >>> does bring the Word doc to the front ...but not all. >>> >>> ...you might want to give this a look if the problem still exists: >>> >>> http://xphelpandsupport.mvps.org/how_do_i_prevent_applications_fr.htm >>> >>> >>> William Hindman >>> >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Sunday, August 27, 2006 12:15 AM >>> Subject: Re: [AccessD] Word Window On Top >>> >>> >>> >>> >>> >>> >>>> Word is OpusApp and Access is OMain. That makes sense (not). >>>> >>>> Anyway, thanks - I'll forward the snip to the client and see if that >>>> will do it. >>>> >>>> Best, >>>> >>>> Rocky >>>> >>>> >>>> Michael R Mattys wrote: >>>> >>>> >>>> >>>> >>>>> Hi Rocky, >>>>> >>>>> No - OpusApp is the Application name. >>>>> Most Office Apps are like that >>>>> Try here: http://www.mvps.org/access/api/api0007.htm >>>>> >>>>> Michael R. Mattys >>>>> MapPoint Developer >>>>> www.mattysconsulting.com >>>>> >>>>> ----- Original Message ----- >>>>> From: "Rocky Smolin - Beach Access Software" >>>>> To: "Access Developers discussion and problem solving" >>>>> >>>>> Sent: Saturday, August 26, 2006 9:48 PM >>>>> Subject: Re: [AccessD] Word Window On Top >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> Replace OpusApp with WordObj? >>>>>> >>>>>> Rocky >>>>>> >>>>>> >>>>>> Michael R Mattys wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Of course! Right on target, John. >>>>>>> >>>>>>> I was going to say: >>>>>>> >>>>>>> Public Declare Function FindWindow Lib "user32" _ >>>>>>> Alias "FindWindowA" (ByVal lpClassName As String, _ >>>>>>> ByVal lpWindowName As String) As Long >>>>>>> >>>>>>> Public Declare Function ShowWindow Lib "user32" _ >>>>>>> (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long >>>>>>> >>>>>>> Dim OpusApp As Long >>>>>>> OpusApp& = FindWindow("OpusApp", vbNullString) >>>>>>> Call ShowWindow(OpusApp , SW_NORMAL) >>>>>>> >>>>>>> Michael R. Mattys >>>>>>> MapPoint Developer >>>>>>> www.mattysconsulting.com >>>>>>> >>>>>>> ----- Original Message ----- >>>>>>> From: "John Ruff" >>>>>>> To: "'Access Developers discussion and problem solving'" >>>>>>> >>>>>>> Sent: Saturday, August 26, 2006 9:07 PM >>>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>>> After you create the WordObj set its visible property to true >>>>>>>> >>>>>>>> ' Shows this instance of Word >>>>>>>> WordObj.Visible = True >>>>>>>> >>>>>>>> papparuff >>>>>>>> >>>>>>>> -----Original Message----- >>>>>>>> From: accessd-bounces at databaseadvisors.com >>>>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky >>>>>>>> Smolin - >>>>>>>> Beach Access Software >>>>>>>> Sent: Saturday, August 26, 2006 4:26 PM >>>>>>>> To: Access Developers discussion and problem solving >>>>>>>> Subject: Re: [AccessD] Word Window On Top >>>>>>>> >>>>>>>> Well, I'm really crappin' out with this guy. .Activate didn't work, >>>>>>>> nor >>>>>>>> .Show. >>>>>>>> >>>>>>>> He tests to see if word is already open - doesn't want to open a >>>>>>>> second >>>>>>>> instance. >>>>>>>> >>>>>>>> Set WordObj = GetObject(, "Word.Application") >>>>>>>> If Err.Number <> 0 Then >>>>>>>> Set WordObj = CreateObject("Word.Application") >>>>>>>> End If >>>>>>>> >>>>>>>> >>>>>>>> Nothing works so far when Word is already open. But I can't help but >>>>>>>> think there's a simple property or method (there's so freakin' many of >>>>>>>> 'em) to make Word the active window when you open a new document and >>>>>>>> word is already open. >>>>>>>> >>>>>>>> Any other ideas anybody? >>>>>>>> >>>>>>>> MTIA >>>>>>>> >>>>>>>> Rocky >>>>>>>> >>>>>>>> Heenan, Lambert wrote: >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Mon Aug 28 01:28:58 2006 From: pcs at azizaz.com (Borge Hansen) Date: Mon, 28 Aug 2006 16:28:58 +1000 Subject: [AccessD] Access FE for storing and viewing photos References: <44F135C5.4080705@san.rr.com> Message-ID: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> Hi, What's the best approach for creating a database for storing and viewing photos? If Access FE and BEmdb - use approach as per the Northwind Db? or - bound object frame? I've experimented with the bound object frame and "out of the box" can only manage to store .bmp files in the bound field . I can store .jpg files - but cannot immediately view them on the form as I scroll from record to record - I have to double click the ole object and then I can view the .jpg What gives best functionality using Access FE, storing pictures in a Table (and is .bmp only choice here; what about .jpg format) or storing pictures as separate files in a separate folder and accessing them using the Northwind approach What about SQL2005 Express as a backend? Regards borge From accessd at shaw.ca Mon Aug 28 06:53:27 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Mon, 28 Aug 2006 04:53:27 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> Message-ID: <0J4P004ZGICIT650@l-daemon> Hi Borge: The best method I have found is to simply store the pictures as separate items in their own folder and do not try to inset them into the database. They will load faster, you can use a number of formats, like jpg and the database can then handle thousands picture, if they are not imbedded. Just use a straight IMAGE object and fill its picture property with the name of the picture like "\\Myserver\MyPictures\UncleFred.jpg" HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Sunday, August 27, 2006 11:29 PM To: Access Developers discussion and problem solving Subject: [AccessD] Access FE for storing and viewing photos Hi, What's the best approach for creating a database for storing and viewing photos? If Access FE and BEmdb - use approach as per the Northwind Db? or - bound object frame? I've experimented with the bound object frame and "out of the box" can only manage to store .bmp files in the bound field . I can store .jpg files - but cannot immediately view them on the form as I scroll from record to record - I have to double click the ole object and then I can view the .jpg What gives best functionality using Access FE, storing pictures in a Table (and is .bmp only choice here; what about .jpg format) or storing pictures as separate files in a separate folder and accessing them using the Northwind approach What about SQL2005 Express as a backend? Regards borge -- 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 Aug 28 07:19:31 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Mon, 28 Aug 2006 22:19:31 +1000 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <0J4P004ZGICIT650@l-daemon> References: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross>, <0J4P004ZGICIT650@l-daemon> Message-ID: <44F36BF3.7827.6856E61C@stuart.lexacorp.com.pg> On 28 Aug 2006 at 4:53, Jim Lawrence wrote: The best method I have found is to simply store the pictures as separate > items in their own folder and do not try to inset them into the database. > They will load faster, you can use a number of formats, like jpg and the > database can then handle thousands picture, if they are not imbedded. I agree 100%. Storing pictures inside a database results in huge files, it's much more efficient to store then separately in a compact format such as jpg and load them on demand. > Just > use a straight IMAGE object and fill its picture property with the name of > the picture like "\\Myserver\MyPictures\UncleFred.jpg" I prefer to avoid hard coded paths in this situation. Where possible I store the photos with the application or in a subdirectory below it and use something like: CurrentProject.Path & "\Pictures\UNcleFred.jpg" This lets me move the application and it's associated pictures easily. -- Stuart From Erwin.Craps at ithelps.be Mon Aug 28 07:53:16 2006 From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps) Date: Mon, 28 Aug 2006 14:53:16 +0200 Subject: [AccessD] Access FE for storing and viewing photos Message-ID: >>> Where possible I store the photos with the application or in a subdirectory below it and use something like: >>> CurrentProject.Path & "\Pictures\UNcleFred.jpg" >>>This lets me move the application and it's associated pictures easily. I Agree Makes it also more easy to create a virutal folder when using the database on your IIS website for example. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Monday, August 28, 2006 2:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access FE for storing and viewing photos On 28 Aug 2006 at 4:53, Jim Lawrence wrote: The best method I have found is to simply store the pictures as separate > items in their own folder and do not try to inset them into the database. > They will load faster, you can use a number of formats, like jpg and > the database can then handle thousands picture, if they are not imbedded. I agree 100%. Storing pictures inside a database results in huge files, it's much more efficient to store then separately in a compact format such as jpg and load them on demand. > Just > use a straight IMAGE object and fill its picture property with the > name of the picture like "\\Myserver\MyPictures\UncleFred.jpg" I prefer to avoid hard coded paths in this situation. Where possible I store the photos with the application or in a subdirectory below it and use something like: CurrentProject.Path & "\Pictures\UNcleFred.jpg" This lets me move the application and it's associated pictures easily. -- Stuart -- 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 Aug 28 08:23:03 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 06:23:03 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> References: <44F135C5.4080705@san.rr.com> <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> Message-ID: <44F2EE37.9090305@san.rr.com> Borge: I have a hone-grown picture viewr which I made before Window's ever so handy built in picture viewer which load pictures in sequence from a folder using an unbound image frame. The folder is selected from the folder browser. I can send it to you off line if you want. It's only 49k zipped. The only problem I had with it was when you load the picture (imgPicture.Picture = astrPicArray(intCurrentPicture) ) you get a progress bar which flashes up for a fraction of a second. I experiemnted with turning it off by using a function that sets a specific registry key ("Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options") but it only worked on one machine - seems to be very OS dependent. Let me know if you want it. Regards, Rocky Borge Hansen wrote: > Hi, > > What's the best approach for creating a database for storing and viewing photos? > > If Access FE and BEmdb > - use approach as per the Northwind Db? > or > - bound object frame? > > I've experimented with the bound object frame and "out of the box" can only manage to store .bmp files in the bound field . > I can store .jpg files - but cannot immediately view them on the form as I scroll from record to record - I have to double click the > ole object and then I can view the .jpg > > What gives best functionality using Access FE, > > storing pictures in a Table (and is .bmp only choice here; what about .jpg format) > or > storing pictures as separate files in a separate folder and accessing them using the Northwind approach > > > What about SQL2005 Express as a backend? > > Regards > borge > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From jwcolby at colbyconsulting.com Mon Aug 28 09:44:24 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 28 Aug 2006 10:44:24 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... Message-ID: <000301c6cab0$752f3240$657aa8c0@m6805> I am using Lembit's mighty fine appoint collision function to determine whether records belong in a result set. The date parameters are typed as dates. In the current application I am getting "invalid data type" passed in (nulls). So I created a base query that narrows down to just a dataset where there are always dates in the fields being passed in. I then built a dataset on top of that feeding the dates into the Appt Collision function. STILL getting errors. It turns out that even though the base query pulls out only the records with dates, it apparently hands ALL the records up to the query built on top of the base query and since some of those records have nulls in the dates, the appointment function complains about nulls passed in to the date fields. So... why is it doing this, and is there a way to force the base query to only pass up the filtered result set such that only valid dates are pulled? 'Comments : THANKS TO LEMBIT SOOBIK 'there is a 'simple' equation which defines a conflict in appointments: 'let's name the starting point of an existing appointment Se, endpoint Ee 'and for the new appointment to be tested the starting point St, endpoint Et 'now you can simply check ' 'If St < Ee AND Et > Se ' 'then you have a conflict. 'you can easily visualize that by following drawing ' '_________Se______Ee______ '1_St__Et '2_St_________Et '3_St__________________Et '4___________St_Et '5___________St________Et '6_____________________St__Et ' 'As you can see, only cases 2, 3, 4, 5 have a conflict. case 1 does not have a conflict 'because it ends before the existing one starts (Et < Se) and 6 does not have a conflict 'since it starts after the existing ends (St > Ee. ' 'Parameters: 'Sets : 'Returns : 'Created by: Colby Consulting 'Created : 6/25/99 11:43:56 AM Function ccApptCollision(IDNew As Long, dtmSTNew As Variant, dtmETNew As Variant, _ IDExist As Long, dtmSTExist As Variant, dtmETExist As Variant) As Boolean On Error GoTo Err_ccApptCollision #If boolELE Then Call gProcStack.EnterProc("ccApptCollision", "Module1") #End If Debug.Print dtmSTNew ' If IsNull(dtmSTNew) Or IsNull(dtmSTExist) Then ' ccApptCollision = False ' Exit Function ' End If 'CHECK IF WE ARE COMPARING A RECORD TO ITSELF If IDNew = IDExist Then ccApptCollision = False Exit Function End If 'CHECK FOR COLLISIONS If (dtmSTNew <= dtmETExist) And (dtmETNew >= dtmSTExist) Then ccApptCollision = True Else ccApptCollision = False End If Exit_ccApptCollision: #If boolELE Then Call gProcStack.ExitProc("ccApptCollision") #End If On Error Resume Next Exit Function Err_ccApptCollision: #If boolELE Then WriteErrorLog err #End If Select Case err Case 0 'insert Errors you wish to ignore here Resume Next Case Else 'All other errors will trap Beep LogError mcstrModuleName, err.Number, err.Description, "Error in function Module1.ccApptCollision" Resume Exit_ccApptCollision End Select Resume 0 'FOR TROUBLESHOOTING End Function John W. Colby Colby Consulting www.ColbyConsulting.com From cfoust at infostatsystems.com Mon Aug 28 10:01:05 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 28 Aug 2006 08:01:05 -0700 Subject: [AccessD] FW: ...the gui of the future? In-Reply-To: <0J4K00JKGJ2IBXL4@vms040.mailsrvcs.net> Message-ID: Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 mmattys at rochester.rr.com Mon Aug 28 10:16:39 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Mon, 28 Aug 2006 11:16:39 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... References: <000301c6cab0$752f3240$657aa8c0@m6805> Message-ID: <02e701c6cab4$f77bfd60$0202a8c0@default> ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 28, 2006 10:44 AM Subject: [AccessD] Did you know? Or more correctly - I never knew... -Snip- > It turns out that even though the base query pulls out only the records > with > dates, it apparently hands ALL the records up to the query built on top of > the base query and since some of those records have nulls in the dates, > the > appointment function complains about nulls passed in to the date fields. -Snip- > So... why is it doing this, and is there a way to force the base query to > only pass up the filtered result set such that only valid dates are > pulled? -Snip- The fastest way to get the desired result set would be to append to a temp table. As to why ... there was a Deconstructing Querydefs article by Ken Getz a few years ago that might help to explain it. The link at http://www.developershandbook.com/downloads.htm is dead. I wonder if anyone saved the article? Michael R. Mattys MapPoint Developer www.mattysconsulting.com From jwcolby at colbyconsulting.com Mon Aug 28 10:59:51 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 28 Aug 2006 11:59:51 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... In-Reply-To: <02e701c6cab4$f77bfd60$0202a8c0@default> Message-ID: <000901c6caba$ffde3bc0$657aa8c0@m6805> I do that when I am running into a speed issue. In this case I just wanted to do a "prefilter" to eliminate all records where dates are null before sending it on to a query that expects all dates to be not null. It LOOKS like it prefilters, but in fact it apparently does not. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Michael R Mattys Sent: Monday, August 28, 2006 11:17 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Did you know? Or more correctly - I never knew... ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 28, 2006 10:44 AM Subject: [AccessD] Did you know? Or more correctly - I never knew... -Snip- > It turns out that even though the base query pulls out only the > records with dates, it apparently hands ALL the records up to the > query built on top of the base query and since some of those records > have nulls in the dates, the appointment function complains about > nulls passed in to the date fields. -Snip- > So... why is it doing this, and is there a way to force the base query > to only pass up the filtered result set such that only valid dates are > pulled? -Snip- The fastest way to get the desired result set would be to append to a temp table. As to why ... there was a Deconstructing Querydefs article by Ken Getz a few years ago that might help to explain it. The link at http://www.developershandbook.com/downloads.htm is dead. I wonder if anyone saved the article? Michael R. Mattys MapPoint Developer www.mattysconsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From mmattys at rochester.rr.com Mon Aug 28 11:59:50 2006 From: mmattys at rochester.rr.com (Michael R Mattys) Date: Mon, 28 Aug 2006 12:59:50 -0400 Subject: [AccessD] Did you know? Or more correctly - I never knew... References: <000901c6caba$ffde3bc0$657aa8c0@m6805> Message-ID: <034701c6cac3$6181fc60$0202a8c0@default> ----- Original Message ----- From: "JWColby" To: "'Access Developers discussion and problem solving'" Sent: Monday, August 28, 2006 11:59 AM Subject: Re: [AccessD] Did you know? Or more correctly - I never knew... >I do that when I am running into a speed issue. In this case I just wanted > to do a "prefilter" to eliminate all records where dates are null before > sending it on to a query that expects all dates to be not null. It LOOKS > like it prefilters, but in fact it apparently does not. > > John W. Colby > Colby Consulting > www.ColbyConsulting.com I've found the QueryInfo.mdb from that article I'll send it if you want it. Michael R. Mattys MapPoint Developer www.mattysconsulting.com From fhtapia at gmail.com Mon Aug 28 12:00:16 2006 From: fhtapia at gmail.com (Francisco Tapia) Date: Mon, 28 Aug 2006 10:00:16 -0700 Subject: [AccessD] Transferring a database to another SQL Server In-Reply-To: <000c01c6c9de$0d767eb0$657aa8c0@m6805> References: <000c01c6c9de$0d767eb0$657aa8c0@m6805> Message-ID: Most often your client network protocols are not in synch. If you are able ping each machine then there should be no firewall restrictions between each. If you do not get a ping back then let's look at your firewall configurations. Next, I would open up the client network utility on both servers and check to see what your protocols are on each machine generally Named Pipes and TCP/IP should be selected but if they are not, choose each now, and see if that fixes the problem. Still not? Next thing you can do is setup an Alias to the other server by typing in the server name in the named box and the IP in the address box and selecting what port you will be connecting on (if it's not 1433). On 8/27/06, JWColby wrote: > I have just finished rebuilding a machine (new motherboard) and need to > transfer a large SQL Server database to that new server. The two servers > can see each other (shared folders), but ... > > I cannot register the other SQL Servers, getting an error "Login failed for > 'MachineName\Guest'. I get this error on either machine when trying to > register the SQL Server on the other machine. My login user / password is > the same on both machines. Both databases were installed using "Windows > Authentication" rather than "SQL Server Authentication". > > Any ideas? > > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- -Francisco http://pcthis.blogspot.com |PC news with out the jargon! http://sqlthis.blogspot.com | Tsql and More... From martyconnelly at shaw.ca Mon Aug 28 12:29:31 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 28 Aug 2006 10:29:31 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <0J4P004ZGICIT650@l-daemon> References: <0J4P004ZGICIT650@l-daemon> Message-ID: <44F327FB.3090607@shaw.ca> Have a look at Candace Tripp's example getting jpegs from a directory Picture in Database 97 and 2000 http://www.candace-tripp.com/access_downloads.htm or Pictures mdb's here http://www.rogersaccesslibrary.com/TableOfContents3.asp Jim Lawrence wrote: >Hi Borge: > >The best method I have found is to simply store the pictures as separate >items in their own folder and do not try to inset them into the database. >They will load faster, you can use a number of formats, like jpg and the >database can then handle thousands picture, if they are not imbedded. Just >use a straight IMAGE object and fill its picture property with the name of >the picture like "\\Myserver\MyPictures\UncleFred.jpg" > >HTH >Jim > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen >Sent: Sunday, August 27, 2006 11:29 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] Access FE for storing and viewing photos > >Hi, > >What's the best approach for creating a database for storing and viewing >photos? > >If Access FE and BEmdb >- use approach as per the Northwind Db? >or >- bound object frame? > >I've experimented with the bound object frame and "out of the box" can only >manage to store .bmp files in the bound field . >I can store .jpg files - but cannot immediately view them on the form as I >scroll from record to record - I have to double click the >ole object and then I can view the .jpg > >What gives best functionality using Access FE, > >storing pictures in a Table (and is .bmp only choice here; what about .jpg >format) >or >storing pictures as separate files in a separate folder and accessing them >using the Northwind approach > > >What about SQL2005 Express as a backend? > >Regards >borge > > > -- Marty Connelly Victoria, B.C. Canada From jimdettman at verizon.net Mon Aug 28 12:35:51 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Mon, 28 Aug 2006 13:35:51 -0400 Subject: [AccessD] FW: ...the gui of the future? In-Reply-To: Message-ID: <0J4P006RPY7XDR50@vms048.mailsrvcs.net> Charlotte, I don't believe the screen or the software really cares what touches it...hum, reminds me of a couple of guys pretending to play the piano with no hands and feet... Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Monday, August 28, 2006 11:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 Mon Aug 28 13:00:17 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Mon, 28 Aug 2006 11:00:17 -0700 Subject: [AccessD] FW: ...the gui of the future? In-Reply-To: <0J4P006RPY7XDR50@vms048.mailsrvcs.net> Message-ID: I know. In the demo, he was using several fingers on both hands at once and I believe he referred to having two people working at the same time. So he demonstrated but didn't explain how. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Monday, August 28, 2006 10:36 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] FW: ...the gui of the future? Charlotte, I don't believe the screen or the software really cares what touches it...hum, reminds me of a couple of guys pretending to play the piano with no hands and feet... Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Monday, August 28, 2006 11:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 Mon Aug 28 13:03:21 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Mon, 28 Aug 2006 14:03:21 -0400 Subject: [AccessD] updating a field in the parent based on sum of the child Message-ID: <001b01c6cacc$4024cad0$657aa8c0@m6805> I built a query that sums a field in the child table. I then joined the summation query to the parent table (using the PK/FK) in another query. The resulting query is not updateable. I RTFM and came up with this: When the query is calculating a sum, an average, a count, or other type of total on the values in a field, you cannot update data in the query. Also, you cannot update a query that references a field in the Update To row from a crosstab, a query, a select query, or a subquery that contains totals or aggregate functions. To work around this problem, use the Domain Aggregate function in the Update To row of an update query. You can reference fields from a crosstab query, a select query, or a subquery that contain totals or aggregate functions. Of particular interest is the second sentence "you cannot update a query that references ...". I am just trying to manually update the data in the parent table using a direct edit by hand so this does not seem an exact fit but ... I have always had this issue, never really solved it. I always result to code to open a recordset of the parent table, and iterate the summation query looking up the parent ID in the parent table, then updating the data in the parent table with the sum value from the summation query of the child table. Does anyone know if it is possible to do this update in SQL or should I just go do it my tried and true way? John W. Colby Colby Consulting www.ColbyConsulting.com From jimdettman at verizon.net Mon Aug 28 13:09:00 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Mon, 28 Aug 2006 14:09:00 -0400 Subject: [AccessD] updating a field in the parent based on sum of the child In-Reply-To: <001b01c6cacc$4024cad0$657aa8c0@m6805> Message-ID: <0J4P00K4IZRECWG4@vms044.mailsrvcs.net> John, <> Just like it says; use a DSUM() in the update row and drop the sub query. I've bumped into this too and have had to resort to the DSUM() approach. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Monday, August 28, 2006 2:03 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] updating a field in the parent based on sum of the child I built a query that sums a field in the child table. I then joined the summation query to the parent table (using the PK/FK) in another query. The resulting query is not updateable. I RTFM and came up with this: When the query is calculating a sum, an average, a count, or other type of total on the values in a field, you cannot update data in the query. Also, you cannot update a query that references a field in the Update To row from a crosstab, a query, a select query, or a subquery that contains totals or aggregate functions. To work around this problem, use the Domain Aggregate function in the Update To row of an update query. You can reference fields from a crosstab query, a select query, or a subquery that contain totals or aggregate functions. Of particular interest is the second sentence "you cannot update a query that references ...". I am just trying to manually update the data in the parent table using a direct edit by hand so this does not seem an exact fit but ... I have always had this issue, never really solved it. I always result to code to open a recordset of the parent table, and iterate the summation query looking up the parent ID in the parent table, then updating the data in the parent table with the sum value from the summation query of the child table. Does anyone know if it is possible to do this update in SQL or should I just go do it my tried and true way? John W. Colby Colby Consulting 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 Mon Aug 28 13:20:28 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Mon, 28 Aug 2006 11:20:28 -0700 Subject: [AccessD] Did you know? Or more correctly - I never knew... In-Reply-To: <02e701c6cab4$f77bfd60$0202a8c0@default> References: <000301c6cab0$752f3240$657aa8c0@m6805> <02e701c6cab4$f77bfd60$0202a8c0@default> Message-ID: <44F333EC.8060505@shaw.ca> The url points to old Office VBA magazine site which went out of business, I wonder who bought it and where the files went. I have heard rumors about them being placed in Compuserve. Michael R Mattys wrote: >----- Original Message ----- >From: "JWColby" >To: "'Access Developers discussion and problem solving'" > >Sent: Monday, August 28, 2006 10:44 AM >Subject: [AccessD] Did you know? Or more correctly - I never knew... > >-Snip- > > >>It turns out that even though the base query pulls out only the records >>with >>dates, it apparently hands ALL the records up to the query built on top of >>the base query and since some of those records have nulls in the dates, >>the >>appointment function complains about nulls passed in to the date fields. >> >> >-Snip- > > >>So... why is it doing this, and is there a way to force the base query to >>only pass up the filtered result set such that only valid dates are >>pulled? >> >> >-Snip- > >The fastest way to get the desired result set would be to append to a temp >table. >As to why ... there was a Deconstructing Querydefs article by Ken Getz a few >years ago that might help to explain it. >The link at http://www.developershandbook.com/downloads.htm is dead. >I wonder if anyone saved the article? > >Michael R. Mattys >MapPoint Developer >www.mattysconsulting.com > > > -- Marty Connelly Victoria, B.C. Canada From Jim.Hale at FleetPride.com Mon Aug 28 13:38:08 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Mon, 28 Aug 2006 13:38:08 -0500 Subject: [AccessD] FW: ...the gui of the future? Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDF00@corp-es01.fleetpride.com> Seems to me actually working with that screen all day would be very tiring on the hands/wrist/arms and would result in some new kind of repetitive motion problem like carpal tunnel. What I wish they would develop is a 3D (holographic?)terminal. Ever since I saw the first hologram eons ago I've been expecting some cool device but no joy so far. Jim Hale -----Original Message----- From: Charlotte Foust [mailto:cfoust at infostatsystems.com] Sent: Monday, August 28, 2006 1:00 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? I know. In the demo, he was using several fingers on both hands at once and I believe he referred to having two people working at the same time. So he demonstrated but didn't explain how. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Monday, August 28, 2006 10:36 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] FW: ...the gui of the future? Charlotte, I don't believe the screen or the software really cares what touches it...hum, reminds me of a couple of guys pretending to play the piano with no hands and feet... Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Monday, August 28, 2006 11:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: ...the gui of the future? Multiple fingers. ;o> Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Friday, August 25, 2006 12:21 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: ...the gui of the future? Just realized that none of my e-mails for the past few weeks have gone through... Jim. -----Original Message----- From: Jim Dettman [mailto:jimdettman at verizon.net] Sent: Friday, August 25, 2006 12:35 PM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] ...the gui of the future? Man you guys gotta watch Star Trek; that's old hat. The idea is not new, but what is impressive is that he mentioned that it was low cost and more importantly scaleable. One thing I didn't hear; what it took to make the software recognize multiple points. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell Sent: Friday, August 25, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] ...the gui of the future? On 8/25/06, William Hindman wrote: > http://youtube.com/watch?v=PLhMVNdplJc > > ...thought some of you might find this as fascinating as I do :) That is just too cool!! Gotta get me one of those :) -- 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 *********************************************************************** 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.Clark at niagaracounty.com Mon Aug 28 15:34:20 2006 From: John.Clark at niagaracounty.com (John Clark) Date: Mon, 28 Aug 2006 16:34:20 -0400 Subject: [AccessD] Really simple date question In-Reply-To: <44F333EC.8060505@shaw.ca> References: <000301c6cab0$752f3240$657aa8c0@m6805> <02e701c6cab4$f77bfd60$0202a8c0@default> <44F333EC.8060505@shaw.ca> Message-ID: <44F31B09.167F.006B.0@niagaracounty.com> hello I am revisiting a little timesheet program that I want to make for the office. I want to enter a "week ending" date, at the top, and have it fill in dates for the previous six days. So, if I enter 09/02/2006 for this week's ending date, I want to fill in a label, text box, etc. for Sun as 08/27/06, and Mon 08/28/06, and on through Saturday, which would be the same as the ending date. I then want to enter start time and end time, and also lunch times, and come up w/a total. As usual, I thought this was going to be simple, and I can do it in a query, but in the form I am getting "mismatched types." From bchacc at san.rr.com Mon Aug 28 17:04:14 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 15:04:14 -0700 Subject: [AccessD] Really simple date question In-Reply-To: <44F31B09.167F.006B.0@niagaracounty.com> References: <000301c6cab0$752f3240$657aa8c0@m6805> <02e701c6cab4$f77bfd60$0202a8c0@default> <44F333EC.8060505@shaw.ca> <44F31B09.167F.006B.0@niagaracounty.com> Message-ID: <44F3685E.4030209@san.rr.com> John: Bound form? Do you want to add these records with the dates but without the times to a table? Or unbound form where you accumulate all the data on the form first and then write to the table? Rocky John Clark wrote: > hello > > I am revisiting a little timesheet program that I want to make for the > office. I want to enter a "week ending" date, at the top, and have it > fill in dates for the previous six days. So, if I enter 09/02/2006 for > this week's ending date, I want to fill in a label, text box, etc. for > Sun as 08/27/06, and Mon 08/28/06, and on through Saturday, which would > be the same as the ending date. > > I then want to enter start time and end time, and also lunch times, and > come up w/a total. > > As usual, I thought this was going to be simple, and I can do it in a > query, but in the form I am getting "mismatched types." > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From pcs at azizaz.com Mon Aug 28 19:04:54 2006 From: pcs at azizaz.com (Borge Hansen) Date: Tue, 29 Aug 2006 10:04:54 +1000 Subject: [AccessD] Access FE for storing and viewing photos References: <44F135C5.4080705@san.rr.com><026a01c6ca6b$3ee89860$fa10a8c0@Albatross> <44F2EE37.9090305@san.rr.com> Message-ID: <027b01c6cafe$c23adfa0$fa10a8c0@Albatross> Thanks to all who gave their input on this. Rocky, I'd like to see the functionality of your home grown picture viewer, so yes please send it to me off list. Regards Borge - snipped - ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Monday, August 28, 2006 11:23 PM Subject: Re: [AccessD] Access FE for storing and viewing photos > Borge: > I have a hone-grown picture viewr which I made before Window's ever so > handy built in picture viewer which load pictures in sequence from a > folder using an unbound image frame. The folder is selected from the > folder browser. I can send it to you off line if you want. It's only > 49k zipped. > The only problem I had with it was when you load the picture > (imgPicture.Picture = astrPicArray(intCurrentPicture) > ) you get a progress bar which flashes up for a fraction of a second. I > experiemnted with turning it off by using a function that sets a > specific registry key ("Software\Microsoft\Shared Tools\Graphics > Filters\Import\JPEG\Options") but it only worked on one machine - seems > to be very OS dependent. > Let me know if you want it. From snegus at ovasia.org Mon Aug 28 22:41:24 2006 From: snegus at ovasia.org (Stephen Negus) Date: Tue, 29 Aug 2006 11:41:24 +0800 Subject: [AccessD] Techniques for creating Evaluation Version of applications Message-ID: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> Hi All, I was just wondering if anyone has any techniques that they use for creating evaluation versions of an Access application which "stops working" after a specified period of time (say 30 days) until it is registered (paid for). Thanks, Stephen From accessd at shaw.ca Mon Aug 28 23:00:33 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Mon, 28 Aug 2006 21:00:33 -0700 Subject: [AccessD] Techniques for creating Evaluation Version of applications In-Reply-To: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> Message-ID: <0J4Q003YSR4BWWB0@l-daemon> Hi Stephen: Rocky would be the man who would know best as he has been designing, supporting and protecting his own international sold application: http://www.e-z-mrp.com/ HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stephen Negus Sent: Monday, August 28, 2006 8:41 PM To: accessd at databaseadvisors.com Subject: [AccessD] Techniques for creating Evaluation Version of applications Hi All, I was just wondering if anyone has any techniques that they use for creating evaluation versions of an Access application which "stops working" after a specified period of time (say 30 days) until it is registered (paid for). Thanks, Stephen -- 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 Aug 29 00:28:35 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 22:28:35 -0700 Subject: [AccessD] Techniques for creating Evaluation Version of applications In-Reply-To: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> References: <000401c6cb1d$045b24d0$747ba8c0@onevoicelaptop> Message-ID: <44F3D083.9040109@san.rr.com> Stephen: It's pretty simple, really. I have a 16 character key which is stored in a front end table. It's kind of encrypted but since it's not viewable I guess it really doesn't need to be (like I break the expiration date into the month part, day part, and year part, and convert them into three different alphabetic characters and stash them in non sequential characters in the key). When the app starts, I decrypt the key and extract, among other things, the expiration date. So I just check that date against the clock/calendar and display 'License expired' and then Application.Quit. Since I also store the customer's name, when the app starts one of the text boxes on the opening form has 'Licensed To: " & Customer Name & "License Expires: " & Expiration Date. To stop them from cheating by turning back the date in the computer, every time the app starts I also save the current date in a table. If the current date is less than the last time the app was started I don't allow it to start. Really elementary stuff, but it works. As the expiration date of the app draws near, I display a pop-up which says 'your license will expire in xx days. Call Beach Access Software for a key to extend the license'. I have a customer tracking app which creates these keys based on the desired expiration date. So, I can call up their record in my customer tracking app, generate a new key based on whatever expiration date I want, then then email them the new key which they enter in the pop up, and extend the license. The key is kind of like a Microsoft key - 6 groups of four alphanumeric characters. Oh, yeah, the app is compiled into an mde and the database window is hidden, and the bypass key disabled and all that standard stuff. I don't use drop down menus, either, so I turn off the menu bar. HTH, Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com Stephen Negus wrote: > Hi All, > > I was just wondering if anyone has any techniques that they use for > creating evaluation versions of an Access application which "stops > working" after a specified period of time (say 30 days) until it is > registered (paid for). > > Thanks, > > Stephen > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Tue Aug 29 00:30:01 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 28 Aug 2006 22:30:01 -0700 Subject: [AccessD] Access FE for storing and viewing photos In-Reply-To: <027b01c6cafe$c23adfa0$fa10a8c0@Albatross> References: <44F135C5.4080705@san.rr.com> <026a01c6ca6b$3ee89860$fa10a8c0@Albatross> <44F2EE37.9090305@san.rr.com> <027b01c6cafe$c23adfa0$fa10a8c0@Albatross> Message-ID: <44F3D0D9.9050405@san.rr.com> Borge: Sent out tonight. Let me know if it doesn't arrive on good order. Rocky Borge Hansen wrote: > Thanks to all who gave their input on this. > Rocky, I'd like to see the functionality of your home grown picture viewer, so yes please send it to me off list. > > Regards > Borge > > - snipped - > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > Sent: Monday, August 28, 2006 11:23 PM > Subject: Re: [AccessD] Access FE for storing and viewing photos > > > >> Borge: >> I have a hone-grown picture viewr which I made before Window's ever so >> handy built in picture viewer which load pictures in sequence from a >> folder using an unbound image frame. The folder is selected from the >> folder browser. I can send it to you off line if you want. It's only >> 49k zipped. >> The only problem I had with it was when you load the picture >> (imgPicture.Picture = astrPicArray(intCurrentPicture) >> ) you get a progress bar which flashes up for a fraction of a second. I >> experiemnted with turning it off by using a function that sets a >> specific registry key ("Software\Microsoft\Shared Tools\Graphics >> Filters\Import\JPEG\Options") but it only worked on one machine - seems >> to be very OS dependent. >> Let me know if you want it. >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Tue Aug 29 07:40:29 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Tue, 29 Aug 2006 08:40:29 -0400 Subject: [AccessD] Really simple date question In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E18FB7@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> John, You could probably do in it a query. Assuming that Sunday is your ending day ... SELECT DateAdd("d",-6,[dp]) AS Mon, DateAdd("d",-5,[dp]) AS Tues, DateAdd("d",-4,[dp]) AS Wed, DateAdd("d",-3,[dp]) AS Thu, DateAdd("d",-2,[dp]) AS Fri, DateAdd("d",-1,[dp]) AS Sat, [dp] AS Sun; [dp] is the parameter used to pass in the date to the query. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark Sent: Monday, August 28, 2006 4:34 PM To: Access Developers discussion and problem solving Subject: [AccessD] Really simple date question hello I am revisiting a little timesheet program that I want to make for the office. I want to enter a "week ending" date, at the top, and have it fill in dates for the previous six days. So, if I enter 09/02/2006 for this week's ending date, I want to fill in a label, text box, etc. for Sun as 08/27/06, and Mon 08/28/06, and on through Saturday, which would be the same as the ending date. I then want to enter start time and end time, and also lunch times, and come up w/a total. As usual, I thought this was going to be simple, and I can do it in a query, but in the form I am getting "mismatched types." From Jdemarco at hudsonhealthplan.org Tue Aug 29 09:05:36 2006 From: Jdemarco at hudsonhealthplan.org (Jim DeMarco) Date: Tue, 29 Aug 2006 10:05:36 -0400 Subject: [AccessD] A2K3 - Why does VB Editor window keep opening Message-ID: <08F823FD83787D4BA0B99CA580AD3C7404243305@TTNEXCHCL2.hshhp.com> List, For the past few days I've left Access open with no file opened (just the Access shell) to use as a reminder to open a system I've been prototyping. When I come in the morning the VB editor is open even though I've closed it before leaving. In fact, in between my coming in today (and closing the editor) and typing this message the editor is open again. It also opens when I'm in the system either editing or viewing a form but not coding or doing anything related to code. Has anyone ever seen this behavior? Is there some way to stop it? TIA, Jim DeMarco From ewaldt at gdls.com Tue Aug 29 12:26:57 2006 From: ewaldt at gdls.com (ewaldt at gdls.com) Date: Tue, 29 Aug 2006 13:26:57 -0400 Subject: [AccessD] Make-table query question In-Reply-To: Message-ID: I have a max table (shows the maximum for some calculations for the purpose of choosing which records to display from another table) that is recreated via a make-table query on a regular basis. This needs to happen because of the complexity of queries being run. I'm sure many of you have run into it: Access hits its limit in queries of queries of queries, so you have to stop part-way and do a make-table query, and then start up again. Anyway, it works fine except for the problems below. A subform is based in part on the max table mentioned above. When a new record is created in the main form, and related records are created for the subform, the presence of the subform's records is based in part on corresponding records in the max table. Unfortunately, since the max table is involved in supporting the open forms, it can't be destroyed and rebuilt, as is required by a make-table query. This results in the subform's being blank, since there are no corresponding records. One partial solution is to have the user close the form, run a function I've created to recreate the tables--there are actually several tables involved--and then reopen the form. If that user is the only one logged into the app at the time, that works. I've put a button on the toolbar to run the function, so it's only a minor inconvenience for the user. However, if anyone else is logged in, it's a definite no-go. Any suggestions for help with this? As usual, I may not have explained it clearly enough. Please let me know if that is the case. Thomas F. Ewald FCS Database Manager General Dynamics Land Systems (586) 276-1256 This is an e-mail from General Dynamics Land Systems. It is for the intended recipient only and may contain confidential and privileged information. No one else may read, print, store, copy, forward or act in reliance on it or its attachments. If you are not the intended recipient, please return this message to the sender and delete the message and any attachments from your computer. Your cooperation is appreciated. From gustav at cactus.dk Tue Aug 29 12:36:56 2006 From: gustav at cactus.dk (Gustav Brock) Date: Tue, 29 Aug 2006 19:36:56 +0200 Subject: [AccessD] Svar: Make-table query question Message-ID: Hi Thomas Couldn't you just empty the table and then append the new records? This way the table exists all the time. /gustav >>> ewaldt at gdls.com 29-08-06 19:26 >>> I have a max table (shows the maximum for some calculations for the purpose of choosing which records to display from another table) that is recreated via a make-table query on a regular basis. This needs to happen because of the complexity of queries being run. I'm sure many of you have run into it: Access hits its limit in queries of queries of queries, so you have to stop part-way and do a make-table query, and then start up again. Anyway, it works fine except for the problems below. A subform is based in part on the max table mentioned above. When a new record is created in the main form, and related records are created for the subform, the presence of the subform's records is based in part on corresponding records in the max table. Unfortunately, since the max table is involved in supporting the open forms, it can't be destroyed and rebuilt, as is required by a make-table query. This results in the subform's being blank, since there are no corresponding records. One partial solution is to have the user close the form, run a function I've created to recreate the tables--there are actually several tables involved--and then reopen the form. If that user is the only one logged into the app at the time, that works. I've put a button on the toolbar to run the function, so it's only a minor inconvenience for the user. However, if anyone else is logged in, it's a definite no-go. Any suggestions for help with this? As usual, I may not have explained it clearly enough. Please let me know if that is the case. Thomas F. Ewald FCS Database Manager General Dynamics Land Systems (586) 276-1256 From kathrynatgwens at socal.rr.com Tue Aug 29 12:43:33 2006 From: kathrynatgwens at socal.rr.com (Kathryn ) Date: Tue, 29 Aug 2006 10:43:33 -0700 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: <003f01c6c99a$78526490$153ce944@50NM721> Message-ID: <002001c6cb92$ac68a240$6baaa8c0@upstairs> Be sure to read my response to Paul below as there is a question there. William said: > ...it would appear that the report isn't changing it's set > printer driver which I've seen reports do before ...try this > to force the change ...change the report's printer selection > to use the "specific printer" option rather than the default > (the wording may differ somewhat, I don't have any app > open) and set it to the LJ5. When you then open the revised > app on the upstairs system it will pop up a dialog saying the > LJ5 isn't available and let you change the printer ...on that > system ...to the newer one ...that should force your app to > use the correct driver for that system. Well shoot. That didn't work. Main problem is that LJ5 is networked and I can print to it from upstairs. So setting it as a specific printer doesn't pop up the dialog. To see if it would print correctly if I chose the LJ3052, I changed to specific printer, and even chose #10 as the "paper". Still didn't print right. (I've set it back the way it was since downstairs and the LJ5 are used 95% of the time.) Michael said: > This is the page with the answer, but you may not like it. > http://www.mvps.org/access/reports/rpt0009.htm > It has been a while since I've worked with this stuff ... Right, don't like it because I don't understand it at all. Paul said: > There are a number of questions I would ask to resolve this. > I the LJ5 driver still installed on the Upstairs machine and > if it is is it still the default printer? Does the document > (envelope) specify the default printer or was is formatted > for the LJ5 specifically? I believe that you problem has > little to do with the application but more likely the printer > driver setup between the two computers. We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has been deleted, the Downstairs LJ5 is still showing because it is networked. The LJ3052 is set as the default Upstairs. How do I tell if the envelope is formatted specifically for the LJ5? That seems to be the likely problem at this point. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) > -----Original Message by Kathryn----- Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. From martyconnelly at shaw.ca Tue Aug 29 12:59:35 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Tue, 29 Aug 2006 10:59:35 -0700 Subject: [AccessD] Svar: Make-table query question In-Reply-To: References: Message-ID: <44F48087.30409@shaw.ca> I do something like this to allow a table to be cleared or appended to. asuming table is already created. If MsgBox("Do you want to create a new file table (yes: create, no: append)", _ vbYesNo) = vbYes Then DoCmd.RunSQL "DELETE DISTINCTROW TempTable.fieldname FROM TempTable;" End If Gustav Brock wrote: >Hi Thomas > >Couldn't you just empty the table and then append the new records? This way the table exists all the time. > >/gustav > > > >>>>ewaldt at gdls.com 29-08-06 19:26 >>> >>>> >>>> >I have a max table (shows the maximum for some calculations for the purpose >of choosing which records to display from another table) that is recreated >via a make-table query on a regular basis. This needs to happen because of >the complexity of queries being run. I'm sure many of you have run into it: >Access hits its limit in queries of queries of queries, so you have to stop >part-way and do a make-table query, and then start up again. Anyway, it >works fine except for the problems below. > >A subform is based in part on the max table mentioned above. When a new >record is created in the main form, and related records are created for the >subform, the presence of the subform's records is based in part on >corresponding records in the max table. Unfortunately, since the max table >is involved in supporting the open forms, it can't be destroyed and >rebuilt, as is required by a make-table query. This results in the >subform's being blank, since there are no corresponding records. > >One partial solution is to have the user close the form, run a function >I've created to recreate the tables--there are actually several tables >involved--and then reopen the form. If that user is the only one logged >into the app at the time, that works. I've put a button on the toolbar to >run the function, so it's only a minor inconvenience for the user. However, >if anyone else is logged in, it's a definite no-go. > >Any suggestions for help with this? As usual, I may not have explained it >clearly enough. Please let me know if that is the case. > >Thomas F. Ewald >FCS Database Manager >General Dynamics Land Systems >(586) 276-1256 > > -- Marty Connelly Victoria, B.C. Canada From markamatte at hotmail.com Tue Aug 29 13:58:47 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 29 Aug 2006 18:58:47 +0000 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: <002001c6cb92$ac68a240$6baaa8c0@upstairs> Message-ID: Kathryn, I haven't followed this thread too closely...and it may have been suggested...but could you create seperate reports formatted for each printer...then use an API call to determine what the default printer is...and then use that report? Hope it helps... Mark A. Matte >From: "Kathryn " >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. >Date: Tue, 29 Aug 2006 10:43:33 -0700 > >Be sure to read my response to Paul below as there is a question there. > >William said: > > ...it would appear that the report isn't changing it's set > > printer driver which I've seen reports do before ...try this > > to force the change ...change the report's printer selection > > to use the "specific printer" option rather than the default > > (the wording may differ somewhat, I don't have any app > > open) and set it to the LJ5. When you then open the revised > > app on the upstairs system it will pop up a dialog saying the > > LJ5 isn't available and let you change the printer ...on that > > system ...to the newer one ...that should force your app to > > use the correct driver for that system. > >Well shoot. That didn't work. Main problem is that LJ5 is networked and I >can print to it from upstairs. So setting it as a specific printer doesn't >pop up the dialog. To see if it would print correctly if I chose the >LJ3052, >I changed to specific printer, and even chose #10 as the "paper". Still >didn't print right. (I've set it back the way it was since downstairs and >the LJ5 are used 95% of the time.) > >Michael said: > > This is the page with the answer, but you may not like it. > > http://www.mvps.org/access/reports/rpt0009.htm > > It has been a while since I've worked with this stuff ... > >Right, don't like it because I don't understand it at all. > >Paul said: > > There are a number of questions I would ask to resolve this. > > I the LJ5 driver still installed on the Upstairs machine and > > if it is is it still the default printer? Does the document > > (envelope) specify the default printer or was is formatted > > for the LJ5 specifically? I believe that you problem has > > little to do with the application but more likely the printer > > driver setup between the two computers. > >We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has been >deleted, the Downstairs LJ5 is still showing because it is networked. The >LJ3052 is set as the default Upstairs. How do I tell if the envelope is >formatted specifically for the LJ5? That seems to be the likely problem at >this point. > >-- >Kathryn Bassett (at work address) >kathrynatgwens at socal.rr.com >kathryn at bassett.net (home) > > > -----Original Message by Kathryn----- >Situation: .mdb is on K drive which is accessable from two computers (IOW, >K >drive is server). No problems in the past when there was a LaserJet 5 >hooked >up to both computers. By that I mean if we were "downstairs", printing >would >print on the downstairs LJ5, and "upstairs" would print on the upstairs >LJ5. >In both cases, the envelope was put in the tray over on the left side. > >Now, upstairs has new printer (LJ3052) and the envelope goes in center >instead of left side. Access does not automatically adjust - the "to" >address is printing at top of the envelope and the "from" address is not >there at all. If I put paper in the tray that the envelope pulls from, it >shows that it's printing as if it were pulling from the left. > >So, I tried putting the envelope over to the left and it pulls it through, >but doesn't print, and gives me an error message that there was no paper >pickup and to check that the paper was loaded correctly, etc. > >Does this mean that I have to design additional reports for all envelopes >that will be printed upstairs, designing for this specific printer? > >Assuming you give me suggestions, unless they are within next 45 minutes, I >won't be able to try them til Monday when I'm back here at work. > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From markamatte at hotmail.com Tue Aug 29 14:18:41 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Tue, 29 Aug 2006 19:18:41 +0000 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: Message-ID: "create seperate reports formatted ".. ....or programmatically format the report based on default printer? >From: "Mark A Matte" >Reply-To: Access Developers discussion and problem >solving >To: accessd at databaseadvisors.com >Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. >Date: Tue, 29 Aug 2006 18:58:47 +0000 > >Kathryn, > >I haven't followed this thread too closely...and it may have been >suggested...but could you create seperate reports formatted for each >printer...then use an API call to determine what the default printer >is...and then use that report? > >Hope it helps... > > >Mark A. Matte > > > >From: "Kathryn " > >Reply-To: Access Developers discussion and problem > >solving > >To: "'Access Developers discussion and problem > >solving'" > >Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. > >Date: Tue, 29 Aug 2006 10:43:33 -0700 > > > >Be sure to read my response to Paul below as there is a question there. > > > >William said: > > > ...it would appear that the report isn't changing it's set > > > printer driver which I've seen reports do before ...try this > > > to force the change ...change the report's printer selection > > > to use the "specific printer" option rather than the default > > > (the wording may differ somewhat, I don't have any app > > > open) and set it to the LJ5. When you then open the revised > > > app on the upstairs system it will pop up a dialog saying the > > > LJ5 isn't available and let you change the printer ...on that > > > system ...to the newer one ...that should force your app to > > > use the correct driver for that system. > > > >Well shoot. That didn't work. Main problem is that LJ5 is networked and I > >can print to it from upstairs. So setting it as a specific printer >doesn't > >pop up the dialog. To see if it would print correctly if I chose the > >LJ3052, > >I changed to specific printer, and even chose #10 as the "paper". Still > >didn't print right. (I've set it back the way it was since downstairs and > >the LJ5 are used 95% of the time.) > > > >Michael said: > > > This is the page with the answer, but you may not like it. > > > http://www.mvps.org/access/reports/rpt0009.htm > > > It has been a while since I've worked with this stuff ... > > > >Right, don't like it because I don't understand it at all. > > > >Paul said: > > > There are a number of questions I would ask to resolve this. > > > I the LJ5 driver still installed on the Upstairs machine and > > > if it is is it still the default printer? Does the document > > > (envelope) specify the default printer or was is formatted > > > for the LJ5 specifically? I believe that you problem has > > > little to do with the application but more likely the printer > > > driver setup between the two computers. > > > >We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has >been > >deleted, the Downstairs LJ5 is still showing because it is networked. The > >LJ3052 is set as the default Upstairs. How do I tell if the envelope is > >formatted specifically for the LJ5? That seems to be the likely problem >at > >this point. > > > >-- > >Kathryn Bassett (at work address) > >kathrynatgwens at socal.rr.com > >kathryn at bassett.net (home) > > > > > -----Original Message by Kathryn----- > >Situation: .mdb is on K drive which is accessable from two computers >(IOW, > >K > >drive is server). No problems in the past when there was a LaserJet 5 > >hooked > >up to both computers. By that I mean if we were "downstairs", printing > >would > >print on the downstairs LJ5, and "upstairs" would print on the upstairs > >LJ5. > >In both cases, the envelope was put in the tray over on the left side. > > > >Now, upstairs has new printer (LJ3052) and the envelope goes in center > >instead of left side. Access does not automatically adjust - the "to" > >address is printing at top of the envelope and the "from" address is not > >there at all. If I put paper in the tray that the envelope pulls from, it > >shows that it's printing as if it were pulling from the left. > > > >So, I tried putting the envelope over to the left and it pulls it >through, > >but doesn't print, and gives me an error message that there was no paper > >pickup and to check that the paper was loaded correctly, etc. > > > >Does this mean that I have to design additional reports for all envelopes > >that will be printed upstairs, designing for this specific printer? > > > >Assuming you give me suggestions, unless they are within next 45 minutes, >I > >won't be able to try them til Monday when I'm back here at work. > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >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 Tue Aug 29 15:49:28 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 29 Aug 2006 13:49:28 -0700 Subject: [AccessD] 2nd request - Printing envelopes via 2 printers. In-Reply-To: <002001c6cb92$ac68a240$6baaa8c0@upstairs> Message-ID: <0J4S00MRB1TRA880@l-daemon> Hi Kathryn: The printer drivers should be the same on both computers but sometimes if there are different OS versions the drivers will not be the same and some of the current drivers are not compatible with older OSs like Win98, 2000 or NT. Sometimes the best way to get around the problem is to network the printer through a computer as opposed to having it networked. (Had to do something similar on one client's site as they had a few of NT and 2000 boxes which would never print properly but when using an old beater-box as a print-manager everything then worked.) Just a thought Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kathryn Sent: Tuesday, August 29, 2006 10:44 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] 2nd request - Printing envelopes via 2 printers. Be sure to read my response to Paul below as there is a question there. William said: > ...it would appear that the report isn't changing it's set > printer driver which I've seen reports do before ...try this > to force the change ...change the report's printer selection > to use the "specific printer" option rather than the default > (the wording may differ somewhat, I don't have any app > open) and set it to the LJ5. When you then open the revised > app on the upstairs system it will pop up a dialog saying the > LJ5 isn't available and let you change the printer ...on that > system ...to the newer one ...that should force your app to > use the correct driver for that system. Well shoot. That didn't work. Main problem is that LJ5 is networked and I can print to it from upstairs. So setting it as a specific printer doesn't pop up the dialog. To see if it would print correctly if I chose the LJ3052, I changed to specific printer, and even chose #10 as the "paper". Still didn't print right. (I've set it back the way it was since downstairs and the LJ5 are used 95% of the time.) Michael said: > This is the page with the answer, but you may not like it. > http://www.mvps.org/access/reports/rpt0009.htm > It has been a while since I've worked with this stuff ... Right, don't like it because I don't understand it at all. Paul said: > There are a number of questions I would ask to resolve this. > I the LJ5 driver still installed on the Upstairs machine and > if it is is it still the default printer? Does the document > (envelope) specify the default printer or was is formatted > for the LJ5 specifically? I believe that you problem has > little to do with the application but more likely the printer > driver setup between the two computers. We name everything with UPSTAIRS and DOWNSTAIRS. The Upstairs LJ5 has been deleted, the Downstairs LJ5 is still showing because it is networked. The LJ3052 is set as the default Upstairs. How do I tell if the envelope is formatted specifically for the LJ5? That seems to be the likely problem at this point. -- Kathryn Bassett (at work address) kathrynatgwens at socal.rr.com kathryn at bassett.net (home) > -----Original Message by Kathryn----- Situation: .mdb is on K drive which is accessable from two computers (IOW, K drive is server). No problems in the past when there was a LaserJet 5 hooked up to both computers. By that I mean if we were "downstairs", printing would print on the downstairs LJ5, and "upstairs" would print on the upstairs LJ5. In both cases, the envelope was put in the tray over on the left side. Now, upstairs has new printer (LJ3052) and the envelope goes in center instead of left side. Access does not automatically adjust - the "to" address is printing at top of the envelope and the "from" address is not there at all. If I put paper in the tray that the envelope pulls from, it shows that it's printing as if it were pulling from the left. So, I tried putting the envelope over to the left and it pulls it through, but doesn't print, and gives me an error message that there was no paper pickup and to check that the paper was loaded correctly, etc. Does this mean that I have to design additional reports for all envelopes that will be printed upstairs, designing for this specific printer? Assuming you give me suggestions, unless they are within next 45 minutes, I won't be able to try them til Monday when I'm back here at work. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fahooper at trapo.com Tue Aug 29 16:08:41 2006 From: fahooper at trapo.com (Fred Hooper) Date: Tue, 29 Aug 2006 17:08:41 -0400 Subject: [AccessD] Esc key bounce in Preview In-Reply-To: <0J4S00MRB1TRA880@l-daemon> Message-ID: <000001c6cbaf$4f84dae0$2e01a8c0@fredxp> I sequentially preview 1-10 reports from a single Preview Reports button. For an example of 5 reports, if I close them with the X in the upper-right, everything is fine. But if I close them by pressing the Esc key some of them close before they are visible. It appears to me that the Esc key is active for longer than it takes to open the next report. I've thought of enforcing a time period between reports, but I've tried so hard to make the app as quick as possible that I hate to slow it down on purpose. Any ideas? Thanks, Fred Hooper From pcs at azizaz.com Tue Aug 29 21:16:06 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 30 Aug 2006 12:16:06 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> Message-ID: <03a001c6cbda$40b10590$fa10a8c0@Albatross> Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If From bill_Patten at earthlink.net Tue Aug 29 21:29:38 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Tue, 29 Aug 2006 19:29:38 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> <03a001c6cbda$40b10590$fa10a8c0@Albatross> Message-ID: <001901c6cbdc$24a42a60$6401a8c0@BPCS> Borge, I haven't studied your code but assuming all else works then I would declare the after update event of the control public so external forms can see it and then use: froms!frmControl.cboNav_AfterUpdate HTH Bill ----- Original Message ----- From: "Borge Hansen" To: "Access Developers discussion and problem solving" Sent: Tuesday, August 29, 2006 7:16 PM Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dajomigo at tpg.com.au Tue Aug 29 21:40:18 2006 From: dajomigo at tpg.com.au (David & Joanne Gould) Date: Wed, 30 Aug 2006 12:40:18 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <03a001c6cbda$40b10590$fa10a8c0@Albatross> References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER> <03a001c6cbda$40b10590$fa10a8c0@Albatross> Message-ID: <6.2.1.2.2.20060830123911.03f08aa8@mail.tpg.com.au> Borge I would add the code into the AfterUpdate event module attached to the combo box itself, unless I have misunderstood your question. David At 12:16 PM 30/08/2006, you wrote: >Hmmmm... >I always seem to get stuck when attempting to access and run code in an >afterupdate event when trying to call and execute the event >from another procedure in another module than the Form module the >afterupdate event code resides in.... > >So what are the clear cuts on this.... please > >See the code snippet below > >Regards >Borge > >/Code snippet: > > If FIsLoaded("frmSystem") Then > If FIsLoaded("frmControl") Then > Dim strSecName As String > Dim boolModuleNamePresent As Boolean > > strSecName = Forms("frmSystem")("SecName") > boolModuleNamePresent = DLookup("Screen1", "tblSystem", > "SecName = '" & strSecName & "'") > > If boolModuleNamePresent Then > > Dim frm As Form > Dim ctrl As ComboBox > Set frm = Forms!frmControl > Set ctrl = frm!cboNav > > ctrl.Value = "Clients" > > 'just for testing - tests ok! > Dim vValue0 > Dim vValue1 > Dim vValue2 > Dim vValue3 > Dim vValue4 > > vValue0 = ctrl > vValue1 = ctrl.Column(1) > vValue2 = ctrl.Column(2) > vValue3 = ctrl.Column(3) > vValue4 = ctrl.Column(4) > 'end just for testing > > 'HERE: how do I call the AfterUpdate event of cboNav > in the open form called frmControl ?? > > ' cboNav_AfterUpdate to execute here > > Set frm = Nothing > Set ctrl = Nothing > > > Else > MyMsgBox "You do not have access to the Clients > Module" & vbCrLf & "Please see the System Administrator >about this!", vbInformation > End If > Else > MyMsgBox "This Form requires frmControl to be loaded!", > vbCritical > End If > Else > MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical > End If > > > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From pcs at azizaz.com Tue Aug 29 21:53:21 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 30 Aug 2006 12:53:21 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER><03a001c6cbda$40b10590$fa10a8c0@Albatross> <001901c6cbdc$24a42a60$6401a8c0@BPCS> Message-ID: <03a801c6cbdf$745faa90$fa10a8c0@Albatross> Bill, With Public Sub cboNav_AfterUpdate() I tried your forms!frmControl.cboNav_AfterUpdate ...no good! But forms.frmControl.cboNav_AfterUpdate did it! Thanks for nudging me further.... Gotta read over again those posts on Dot Bang from some days ago.... Regards Borge - snipped - ----- Original Message ----- From: "Bill Patten" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 30, 2006 12:29 PM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure > Borge, > I haven't studied your code but assuming all else works then I would declare > the after update event of the control public so external forms can see it > and then use: > froms!frmControl.cboNav_AfterUpdate > Bill From pcs at azizaz.com Tue Aug 29 21:56:55 2006 From: pcs at azizaz.com (Borge Hansen) Date: Wed, 30 Aug 2006 12:56:55 +1000 Subject: [AccessD] Accessing AfterUpdate Event from another procedure References: <916187228923D311A6FE00A0CC3FAA30D3583B@ADGSERVER><03a001c6cbda$40b10590$fa10a8c0@Albatross> <6.2.1.2.2.20060830123911.03f08aa8@mail.tpg.com.au> Message-ID: <03b001c6cbdf$f47cc140$fa10a8c0@Albatross> David, Not possible here as I want to execute whatever the afterupdate event does from another place in the application.... Problem solved though, see previous post.... Borge ----- Original Message ----- From: "David & Joanne Gould" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 30, 2006 12:40 PM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure > Borge > > I would add the code into the AfterUpdate event module attached to the > combo box itself, unless I have misunderstood your question. > > David > > At 12:16 PM 30/08/2006, you wrote: > >Hmmmm... > >I always seem to get stuck when attempting to access and run code in an > >afterupdate event when trying to call and execute the event > >from another procedure in another module than the Form module the > >afterupdate event code resides in.... > > > >So what are the clear cuts on this.... please > > From cfoust at infostatsystems.com Wed Aug 30 09:40:40 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 30 Aug 2006 07:40:40 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <03b001c6cbdf$f47cc140$fa10a8c0@Albatross> Message-ID: In that case, what you should do is have a public method that is called by both the afterupdate event of the form and wherever else it is needed. It's kind of sloppy to expose the internal events of a form because some of the necessary underpinnings might not have occurred when you call that event. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:57 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure David, Not possible here as I want to execute whatever the afterupdate event does from another place in the application.... Problem solved though, see previous post.... Borge ----- Original Message ----- From: "David & Joanne Gould" To: "Access Developers discussion and problem solving" Sent: Wednesday, August 30, 2006 12:40 PM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure > Borge > > I would add the code into the AfterUpdate event module attached to the > combo box itself, unless I have misunderstood your question. > > David > > At 12:16 PM 30/08/2006, you wrote: > >Hmmmm... > >I always seem to get stuck when attempting to access and run code in an > >afterupdate event when trying to call and execute the event > >from another procedure in another module than the Form module the > >afterupdate event code resides in.... > > > >So what are the clear cuts on this.... please > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From cfoust at infostatsystems.com Wed Aug 30 09:49:52 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Wed, 30 Aug 2006 07:49:52 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <03a001c6cbda$40b10590$fa10a8c0@Albatross> Message-ID: It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:16 PM To: Access Developers discussion and problem solving Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Wed Aug 30 09:58:39 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Wed, 30 Aug 2006 16:58:39 +0200 (CEST) Subject: [AccessD] Accessing AfterUpdate Event from another procedure Message-ID: <16969438.1156949919171.JavaMail.www@wwinf3203> I too am unsure what your trying to do but you would need to use a call statement....I know you can call events in the same form your working in, but as for another form I don't know if it would work....you could always try CALL Forms![frmControl].cboNav_AfterUpdate As I say I don't know if it would work, but surely there could be a better solution.. Paul Message Received: Aug 30 2006, 03:50 PM From: "Charlotte Foust" To: "Access Developers discussion and problem solving" Cc: Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:16 PM To: Access Developers discussion and problem solving Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 30 12:13:50 2006 From: dwaters at usinternet.com (Dan Waters) Date: Wed, 30 Aug 2006 12:13:50 -0500 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <2192524.1156949940541.JavaMail.root@sniper38> Message-ID: <001701c6cc57$aa7f0530$0200a8c0@danwaters> Here's an example: In my system, there is a form which lists all of the items that a user needs to work on. These items are from various business processes, where each process has its own Main Form. A user can click on a line in the list form. This will open the Main Form for that business process, and calls the afterupdate event of the cboNameFilter combobox. This will filter the form to just those records that the user needs to address, and display the record that the user clicked on in the list form. Of course, when a user is in the Main Form, they can select someone else's name from the cboNameFilter combobox to see what that person is currently working on. Or, they can push the Name Filter button to do the same thing and filter the screen to their own items. HTH, Dan -----Original Message----- Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If From artful at rogers.com Wed Aug 30 12:19:34 2006 From: artful at rogers.com (artful at rogers.com) Date: Wed, 30 Aug 2006 10:19:34 -0700 (PDT) Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <16969438.1156949919171.JavaMail.www@wwinf3203> Message-ID: <20060830171934.3974.qmail@web88204.mail.re2.yahoo.com> You also need to declare said event Public, I think. If it is private you won't be able to CALL it. ----- Original Message ---- From: paul.hartland at fsmail.net To: Access Developers discussion and problem solving Sent: Wednesday, August 30, 2006 10:58:39 AM Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure I too am unsure what your trying to do but you would need to use a call statement....I know you can call events in the same form your working in, but as for another form I don't know if it would work....you could always try CALL Forms![frmControl].cboNav_AfterUpdate As I say I don't know if it would work, but surely there could be a better solution.. Paul From accessd at shaw.ca Wed Aug 30 14:15:52 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 30 Aug 2006 12:15:52 -0700 Subject: [AccessD] Accessing AfterUpdate Event from another procedure In-Reply-To: <16969438.1156949919171.JavaMail.www@wwinf3203> Message-ID: <0J4T001HQS5MPB00@l-daemon> Hi Borge: In order to run/spawn another running form and/or processed you will have to run a do event process. See example below: Private Sub MyList_DblClick() Dim bolFormOpen as Boolean ... bolFormOpen = True DoCmd.OpenForm "MyCalledForm" Do while bolFormOpen = true Do While globalBooleanFlag = True DoEvents Loop bolFormOpen = IsLoaded("MyCalledForm") If bolFornOpen = True then AddAnotherRecordtoaTable() End if globalBooleanFlag = bolFormOpen Loop End Sub ... Public Function IsLoaded(ByVal strFormName As String) As Boolean Dim bolStatus as Boolean Const conObjStateClosed = 0 Const conDesignView = 0 bolStatus = False If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then bolStatus = True End If End If IsLoaded = bolStatus End Function Upon initialization the form MyCalledForm it sets the variable globalBooleanFlag to TRUE, within the called Form, it can spawn an external process by setting it to FALSE and holds the caller processing, in the subroutine to the current position until the Form MyCalledForm is closed. If you expand on this "a little more complex than I wanted to have" example, you can have a number of forms opened and various processes running. Also check out WithEvents example by John, http://www.databaseadvisors.com/newsletters/newsletter052002/0205CombiningRa iseEvents%20.htm and Shamil http://smsconsulting.spb.ru/shamil_s/articles.htm which describes similar functionality using the WithEvent clause. HTH Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: Wednesday, August 30, 2006 7:59 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure Importance: High I too am unsure what your trying to do but you would need to use a call statement....I know you can call events in the same form your working in, but as for another form I don't know if it would work....you could always try CALL Forms![frmControl].cboNav_AfterUpdate As I say I don't know if it would work, but surely there could be a better solution.. Paul Message Received: Aug 30 2006, 03:50 PM From: "Charlotte Foust" To: "Access Developers discussion and problem solving" Cc: Subject: Re: [AccessD] Accessing AfterUpdate Event from another procedure It isn't clear to me what you're trying to accomplish with this. Perhaps you could explain it in overview, not the specifics but what you hope to achieve as a result. I still think trying to call the afterupdate event of a combobox on another form is going the long away around to get nowhere. Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Borge Hansen Sent: Tuesday, August 29, 2006 7:16 PM To: Access Developers discussion and problem solving Subject: [AccessD] Accessing AfterUpdate Event from another procedure Hmmmm... I always seem to get stuck when attempting to access and run code in an afterupdate event when trying to call and execute the event from another procedure in another module than the Form module the afterupdate event code resides in.... So what are the clear cuts on this.... please See the code snippet below Regards Borge /Code snippet: If FIsLoaded("frmSystem") Then If FIsLoaded("frmControl") Then Dim strSecName As String Dim boolModuleNamePresent As Boolean strSecName = Forms("frmSystem")("SecName") boolModuleNamePresent = DLookup("Screen1", "tblSystem", "SecName = '" & strSecName & "'") If boolModuleNamePresent Then Dim frm As Form Dim ctrl As ComboBox Set frm = Forms!frmControl Set ctrl = frm!cboNav ctrl.Value = "Clients" 'just for testing - tests ok! Dim vValue0 Dim vValue1 Dim vValue2 Dim vValue3 Dim vValue4 vValue0 = ctrl vValue1 = ctrl.Column(1) vValue2 = ctrl.Column(2) vValue3 = ctrl.Column(3) vValue4 = ctrl.Column(4) 'end just for testing 'HERE: how do I call the AfterUpdate event of cboNav in the open form called frmControl ?? ' cboNav_AfterUpdate to execute here Set frm = Nothing Set ctrl = Nothing Else MyMsgBox "You do not have access to the Clients Module" & vbCrLf & "Please see the System Administrator about this!", vbInformation End If Else MyMsgBox "This Form requires frmControl to be loaded!", vbCritical End If Else MyMsgBox "This Form requires frmSystem to be loaded!", vbCritical End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fahooper at trapo.com Wed Aug 30 14:09:25 2006 From: fahooper at trapo.com (Fred Hooper) Date: Wed, 30 Aug 2006 15:09:25 -0400 Subject: [AccessD] Esc key bounce in Preview In-Reply-To: <000001c6cbaf$4f84dae0$2e01a8c0@fredxp> Message-ID: <004101c6cc67$d02fa900$2e01a8c0@fredxp> Since there was no response, I thought I'd post my solution: After some experimentation, the simplest reliable answer was For intT = 1 to 2 Sleep 1 DoEvents Next before each .OpenForm of the sequential reports. This has removed the effect of key bounce from my cheap keyboard. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Tuesday, August 29, 2006 5:09 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Esc key bounce in Preview I sequentially preview 1-10 reports from a single Preview Reports button. For an example of 5 reports, if I close them with the X in the upper-right, everything is fine. But if I close them by pressing the Esc key some of them close before they are visible. It appears to me that the Esc key is active for longer than it takes to open the next report. I've thought of enforcing a time period between reports, but I've tried so hard to make the app as quick as possible that I hate to slow it down on purpose. Any ideas? Thanks, Fred Hooper From accessd at shaw.ca Wed Aug 30 15:05:12 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 30 Aug 2006 13:05:12 -0700 Subject: [AccessD] Esc key bounce in Preview In-Reply-To: <004101c6cc67$d02fa900$2e01a8c0@fredxp> Message-ID: <0J4T001Z2UFUPH20@l-daemon> Very sharp Fred. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Wednesday, August 30, 2006 12:09 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Esc key bounce in Preview Since there was no response, I thought I'd post my solution: After some experimentation, the simplest reliable answer was For intT = 1 to 2 Sleep 1 DoEvents Next before each .OpenForm of the sequential reports. This has removed the effect of key bounce from my cheap keyboard. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Tuesday, August 29, 2006 5:09 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Esc key bounce in Preview I sequentially preview 1-10 reports from a single Preview Reports button. For an example of 5 reports, if I close them with the X in the upper-right, everything is fine. But if I close them by pressing the Esc key some of them close before they are visible. It appears to me that the Esc key is active for longer than it takes to open the next report. I've thought of enforcing a time period between reports, but I've tried so hard to make the app as quick as possible that I hate to slow it down on purpose. Any ideas? Thanks, Fred Hooper -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From snegus at ovasia.org Wed Aug 30 23:03:13 2006 From: snegus at ovasia.org (Stephen Negus) Date: Thu, 31 Aug 2006 12:03:13 +0800 Subject: [AccessD] Techniques for creating Evaluation Version of Applications In-Reply-To: Message-ID: <001001c6ccb2$687dd5c0$747ba8c0@onevoicelaptop> Thanks Rocky. This is exactly what I was looking for -- just wanting to make sure that I was thinking along the same lines. I appreciate your input. Stephen ------------------------------------------------------------------- Date: Mon, 28 Aug 2006 22:28:35 -0700 From: Rocky Smolin - Beach Access Software Stephen: It's pretty simple, really. I have a 16 character key which is stored in a front end table. It's kind of encrypted but since it's not viewable I guess it really doesn't need to be (like I break the expiration date into the month part, day part, and year part, and convert them into three different alphabetic characters and stash them in non sequential characters in the key). When the app starts, I decrypt the key and extract, among other things, the expiration date. So I just check that date against the clock/calendar and display 'License expired' and then Application.Quit. Since I also store the customer's name, when the app starts one of the text boxes on the opening form has 'Licensed To: " & Customer Name & "License Expires: " & Expiration Date. To stop them from cheating by turning back the date in the computer, every time the app starts I also save the current date in a table. If the current date is less than the last time the app was started I don't allow it to start. Really elementary stuff, but it works. As the expiration date of the app draws near, I display a pop-up which says 'your license will expire in xx days. Call Beach Access Software for a key to extend the license'. I have a customer tracking app which creates these keys based on the desired expiration date. So, I can call up their record in my customer tracking app, generate a new key based on whatever expiration date I want, then then email them the new key which they enter in the pop up, and extend the license. The key is kind of like a Microsoft key - 6 groups of four alphanumeric characters. Oh, yeah, the app is compiled into an mde and the database window is hidden, and the bypass key disabled and all that standard stuff. I don't use drop down menus, either, so I turn off the menu bar. HTH, Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com ------------------------------------------------------------- Stephen Negus wrote: Hi All, I was just wondering if anyone has any techniques that they use for creating evaluation versions of an Access application which "stops working" after a specified period of time (say 30 days) until it is registered (paid for). Thanks, Stephen From jwcolby at colbyconsulting.com Thu Aug 31 09:05:22 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 10:05:22 -0400 Subject: [AccessD] Using 4 gbytes of RAM Message-ID: <001401c6cd06$80a4a710$657aa8c0@m6805> Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting www.ColbyConsulting.com From accessd at shaw.ca Thu Aug 31 09:59:22 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 07:59:22 -0700 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <001401c6cd06$80a4a710$657aa8c0@m6805> Message-ID: <0J4V00EVDAY1F9E0@l-daemon> Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 7:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting 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 Thu Aug 31 10:25:24 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 31 Aug 2006 11:25:24 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <916187228923D311A6FE00A0CC3FAA30E193CA@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D3585B@ADGSERVER> I have 2GB in my home pc - XP Pro. I go over 1GB quite often. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Thursday, August 31, 2006 10:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim From jmhecht at earthlink.net Thu Aug 31 10:37:58 2006 From: jmhecht at earthlink.net (Joe Hecht) Date: Thu, 31 Aug 2006 08:37:58 -0700 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> Message-ID: Some of the computers we are selling (Desktop and laptop) come with 2 gigs installed. 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: Thursday, August 31, 2006 7:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 7:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting 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 Thu Aug 31 10:42:40 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 08:42:40 -0700 (PDT) Subject: [AccessD] Data-driven option buttons Message-ID: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur From artful at rogers.com Thu Aug 31 10:51:59 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 08:51:59 -0700 (PDT) Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> Message-ID: <20060831155159.4582.qmail@web88211.mail.re2.yahoo.com> I have three XP Pro boxes all running more than a GB of RAM. The oldest has only 1.5GB. My desktop development box has 2GB, and my notebook has 2GB as well. I consider that amount of RAM a godsend, because typically I'm running 6 or so apps simultaneously. Arthur ----- Original Message ---- From: Jim Lawrence To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 10:59:22 AM Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. From bchacc at san.rr.com Thu Aug 31 11:01:09 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 09:01:09 -0700 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> References: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> Message-ID: <44F707C5.9050606@san.rr.com> Arthur: I think simplest would be to create the maximum number of buttons in an option frame and hide the ones that aren't being used. You could adjust the width of the border using select case if you wanted, but a borderless option frame would even be easier. I assume then that the questions will be presented one at a time? Rocky artful at rogers.com wrote: > I think that I have asked this question before, but I can't find anything in my emails that pertains, so... > > Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: > > There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. > > For example: > > Q: On a scale of 1 to 5, do you consider yourself: > a) a Genius > b) quite smart but not a genius > c) about average > d) slower than most people I know > e) smarter than a cucumber but it's close > > I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. > > I can't figure out a cool way to do this. Any ideas, friends? > > TIA, > Arthur > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From andy at minstersystems.co.uk Thu Aug 31 12:03:40 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Thu, 31 Aug 2006 17:03:40 +0000 Subject: [AccessD] Data-driven option buttons Message-ID: <20060831160345.7BD252B676B@smtp.nildram.co.uk> My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: [AccessD] Data-driven option buttons Date: 31/08/06 15:45 I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur -- 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 artful at rogers.com Thu Aug 31 11:08:08 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 09:08:08 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <44F707C5.9050606@san.rr.com> Message-ID: <20060831160808.43936.qmail@web88202.mail.re2.yahoo.com> Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. Arthur ----- Original Message ---- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:01:09 PM Subject: Re: [AccessD] Data-driven option buttons Arthur: I think simplest would be to create the maximum number of buttons in an option frame and hide the ones that aren't being used. You could adjust the width of the border using select case if you wanted, but a borderless option frame would even be easier. I assume then that the questions will be presented one at a time? Rocky artful at rogers.com wrote: > I think that I have asked this question before, but I can't find anything in my emails that pertains, so... > > Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: > > There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. > > For example: > > Q: On a scale of 1 to 5, do you consider yourself: > a) a Genius > b) quite smart but not a genius > c) about average > d) slower than most people I know > e) smarter than a cucumber but it's close > > I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. > > I can't figure out a cool way to do this. Any ideas, friends? > > TIA, > Arthur > > > -- 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 ssharkins at setel.com Thu Aug 31 11:24:32 2006 From: ssharkins at setel.com (Susan Harkins) Date: Thu, 31 Aug 2006 12:24:32 -0400 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831160808.43936.qmail@web88202.mail.re2.yahoo.com> Message-ID: <004d01c6cd19$f1bc8c20$4e34fad1@SUSANONE> What you're really wanting then is to build these question gui's on the fly, right? You want the form to update for each question, according to the question's parameters, without actually providing the controls during design time. Um... ... Did I get that right? How many questions are there? Would it be feasible to just build each question as a subform and load, hide, and unhide as needed? Susan H. Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. From jwcolby at colbyconsulting.com Thu Aug 31 11:30:16 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 12:30:16 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> Message-ID: <002b01c6cd1a$be881170$657aa8c0@m6805> Jim, >I have never heard of a XP OS computer having more than a gig. You obviously aren't a gamer. Neither am I in fact but I do some serious multi-tasking. All of my machines have 2 gig in them right now with the exception of my wife's laptop which only has 512 mbytes and definitely needs more. All machines currently run Windows XP32 with the exception of my wife's which runs XP Home. In the case of the laptops, the hardware is indeed the limit since the laptops I have simply do not support more than 2 1gb sticks. As for my "desktops", the latest that I built uses the Asus M2N32-SLI: http://www.newegg.com/Product/Product.asp?Item=N82E16813131011 With an AMD Athlon 64 X2 3800+ http://www.newegg.com/Product/Product.asp?Item=N82E16819103735 And two sticks of Patriot eXtreme Performance 1GB 240-Pin DDR2 SDRAM http://www.newegg.com/Product/Product.asp?Item=N82E16820220142 This motherboard supports 4 1gb sticks, in fact they CLAIM to support 4 2gb sticks. Patriot claims that this motherboard will use 4 sticks of this 1gb ram. As for 2gb sticks, they are almost non-existant ATM but they are on the way. As for using other OSes I would like to. I have the MS action pack which includes various OSes although I screwed up and somehow got the disks separated from their sleeves - the sleeves have the key on them, and the product number on the disks NEVER match the product number on the sleeves - but that is a discussion for another day. I actually did use a different drive to load SBS 2003. It was a PITA because it wanted to do something on the net before I could even get the MB drivers loaded, however I stopped the install (Waaaaaay before it was finished it turns out), loaded the MB drivers which brought up the built in LAN, then went back in to windows and started the install over. It picked up where it left off and finished. At the very end it was asking for something I just didn't understand and I decided to stop at that point and punt since I needed to get this thing working and back to work. I had previously loaded a disk with Windows XP so I just swapped the disks and continued to run XP. BTW, this was last week BEFORE the oh so helpful SQL Server Gurus on that list told me I had to be a Notwork and SQL Server guru or I wasn't worth helping. 8-( So I do have a disk sitting here with SBS 2003 pretty much loaded though it wants something (don't remember what) that I wasn't prepared to give it. Perhaps someday I can put it back in and see if you or someone here can help me get it finished. William has been pushing SBS 2003 as a platform for some time and I thought it might be dead simple, but I guess I'm not quite dead enough? As for memory diagnostic, I have Memtest86 available. It runs standalone from a floppy, and I used it to help me OC this X2 3800. I managed to push it up from 2.0 GHz (clock speed) which AMD calls a 3.8ghz processor to about 2.45 GHz which (for the same core) AMD calls a 4.4+ GHz processor, while keeping Memtest86 happy, or shall we say that it ran overnight with no errors. Any higher clock than that and Memtest would start throwing errors. I'm not an overclocker, so a 20% oc with stability is just fine with me. All of that is using the stock cooling fan as well. Anyway, there you have it. Given that this machine will be a dedicated SQL Server, I thought I'd investigate putting another 2 gb in it, but before I do so I want to know that it will be used. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Thursday, August 31, 2006 10:59 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM Hi John: I have never heard of a XP OS computer having more than a gig. All other systems using larger amounts of memory, that I am aquatinted with, are servers of various kinds which are suppose to better at managing memory and processes. Your limitations will definitely be the OS before the hardware. I would recommend that you try Window 2003 server standard. It is totally brain-dead to install; takes about an hour and a half to install (DVDs are slow) and asks once whether you want to use it as a domain controller. I use one as a work-station and its performance is head and shoulders above XP. It is easier to manage and it definitely uses memory better. Here is a free download that is supposed to do memory diagnostics app for windows: http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia gnostic.shtml >From M$: http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi .mspx What type of motherboard do you have: ASUS, GigaByte ...? Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 7:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting 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 Thu Aug 31 11:36:07 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 09:36:07 -0700 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> Message-ID: <0J4V00CXYFF9INB0@l-daemon> Arthur: The only way I would attempt to do this would be to create a form as a class and then I would be able to generate a new form depending on the results. This is more of a VB method but I think it should fully work in Access. Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 31, 2006 8:43 AM To: Access Developers discussion and problem solving Subject: [AccessD] Data-driven option buttons I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dwaters at usinternet.com Thu Aug 31 11:37:20 2006 From: dwaters at usinternet.com (Dan Waters) Date: Thu, 31 Aug 2006 11:37:20 -0500 Subject: [AccessD] Data-driven option buttons In-Reply-To: <27245246.1157039283324.JavaMail.root@Sniper27> Message-ID: <000801c6cd1b$bbd223c0$0200a8c0@danwaters> Hi Arthur, If the answers have a fair amount of text, perhaps you could put them into text boxes where each text box is in a single record in a continuous form, and your question is placed in the header portion of the form. The user could just click on the answer. The text box could be raised to simulate a button. This avoids the 'how many answers' issue. I haven't done this, but it might be cool . . . Good Luck! Dan Waters -----Original Message----- Subject: [AccessD] Data-driven option buttons I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur From jwcolby at colbyconsulting.com Thu Aug 31 11:39:21 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 12:39:21 -0400 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831154240.84846.qmail@web88203.mail.re2.yahoo.com> Message-ID: <002c01c6cd1c$047c2120$657aa8c0@m6805> Definitely a class. Pass in pointers to the controls to the class as the form opens. Store the control pointers in variables in the class, dimensioned Withevents. Withevents (after update) for the answer controls to "hear" the user's clicking on the controls. Discover the maximum number of answers ever encountered (yea, yea, but dynamically creating controls in Access is ...). Create the maximum number in advance. Hide/unhide the controls. Discover the label associated with a control (described here in the past, ask if you need and I'll find my code) Load the questions from the table and stuff them into the labels. Use the events from the answer controls to manipulate the integer control. Cool stuff, "easy" with classes and withevents. You could do it all directly in the form of course, and may want to initially to get it up and running, but if the app is very complex you may find another form which needs the same functionality and then having it in a class "just works". John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 31, 2006 11:43 AM To: Access Developers discussion and problem solving Subject: [AccessD] Data-driven option buttons I think that I have asked this question before, but I can't find anything in my emails that pertains, so... Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. For example: Q: On a scale of 1 to 5, do you consider yourself: a) a Genius b) quite smart but not a genius c) about average d) slower than most people I know e) smarter than a cucumber but it's close I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. I can't figure out a cool way to do this. Any ideas, friends? TIA, Arthur -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Thu Aug 31 12:20:41 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 10:20:41 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831160808.43936.qmail@web88202.mail.re2.yahoo.com> Message-ID: <20060831172041.75931.qmail@web88206.mail.re2.yahoo.com> I solved it, and now have a "proof of concept" working nicely. This looks like a good direction into which to take this project. I did take the approach of creating enough buttons for all the choices and then in the OnCurrent event hiding the ones that are not needed. It works well. Arthur ----- Original Message ---- From: artful at rogers.com To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:08:08 PM Subject: Re: [AccessD] Data-driven option buttons Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. Arthur ----- Original Message ---- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:01:09 PM Subject: Re: [AccessD] Data-driven option buttons Arthur: I think simplest would be to create the maximum number of buttons in an option frame and hide the ones that aren't being used. You could adjust the width of the border using select case if you wanted, but a borderless option frame would even be easier. I assume then that the questions will be presented one at a time? Rocky artful at rogers.com wrote: > I think that I have asked this question before, but I can't find anything in my emails that pertains, so... > > Assume that a table T1 has several columns C1...C5, containing text, and another column containing an integer. (Let's sidestep the normalization issue, I am aware of that and trying to keep the example simple.) Here is the scenario: > > There is a Question column in T1, containing the text of a question to ask the user. The columns C1..C5 contain text representing possible answers to the question, from which the user can select exactly one answer. The integer column stores the number of the answer selected. > > For example: > > Q: On a scale of 1 to 5, do you consider yourself: > a) a Genius > b) quite smart but not a genius > c) about average > d) slower than most people I know > e) smarter than a cucumber but it's close > > I would like the interface to present the question and then list its possible answers in the form of a set of option buttons, whose After-Update event will record the number of the option selected. This means that I must a) determine the number of possible answers; b) create that many option buttons (or alternatively create a maximum number and hide the irrelevant ones); and c) populate the labels for the buttons with the text stored in columns C1...C5. > > I can't figure out a cool way to do this. Any ideas, friends? > > TIA, > Arthur > > > -- 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Thu Aug 31 12:28:49 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 10:28:49 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <004d01c6cd19$f1bc8c20$4e34fad1@SUSANONE> Message-ID: <20060831172849.53385.qmail@web88204.mail.re2.yahoo.com> Thanks for the input, Susan; always much appreciated. I don't see the need for a sub-form, yet. My assumption would be that you select a questionnaire first (or a QID is passed in, whatever), and that the form will display only the questions in said questionnaire. So far I've only spent about .5 hours on it, but the concept and approach look rock-solid to me. There will be a table in which I record the answers to the questions asked, with appropriate FKs to Questionnaires and Respondents, but so far it appears that this structure will allow me to ask every query the client could possibly want. A simple join from RespondentAnswers to Questions will give me the answers' text, and so on. In the interests of completeness, I should point out that I sidestepped the situation in which open-ended text is permitted as an answer. However, the downstream problems in analyzing such answers usefully push me toward precluding them from the questionnaire in the first place. Perhaps the client will think otherwise. I will cross that bridge when we get there. Arthur ----- Original Message ---- From: Susan Harkins To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 12:24:32 PM Subject: Re: [AccessD] Data-driven option buttons What you're really wanting then is to build these question gui's on the fly, right? You want the form to update for each question, according to the question's parameters, without actually providing the controls during design time. Um... ... Did I get that right? How many questions are there? Would it be feasible to just build each question as a subform and load, hide, and unhide as needed? Susan H. Yup, questions presented one at a time, and perhaps with a few buttons indicating "next question", "skip this question", "return to unanswered questions", etc. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From artful at rogers.com Thu Aug 31 12:43:26 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 10:43:26 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831160345.7BD252B676B@smtp.nildram.co.uk> Message-ID: <20060831174326.80753.qmail@web88202.mail.re2.yahoo.com> It turned out to be trivial to populate the labels for the option group. In addition, the large problem with a combo box is that only one option is visible at a time. Given that only one question will be visible at a time, screen real estate is definitely not the issue, so my UI preference opts for an option group -- you can see all the available choices at once, which I deem superior in this context (not all contexts, of course, but in this one). As to simpler, I can't imagine that it gets much simpler than this: Private Sub Form_Current() With Me If Not .NewRecord Then .Answers_frame.Visible = True .Option5.Visible = Not IsNull(.Answer5) .Answer5_lbl.Caption = Nz(.Answer5, "") .Option4.Visible = Not IsNull(.Answer4) .Answer4_lbl.Caption = Nz(.Answer4, "") .Option3.Visible = Not IsNull(.Answer3) .Answer3_lbl.Caption = Nz(.Answer3, "") .Option2.Visible = Not IsNull(.Answer2) .Answer2_lbl.Caption = Nz(.Answer2, "") .Option1.Visible = Not IsNull(.Answer1) .Answer1_lbl.Caption = Nz(.Answer1, "") Else .Answers_frame.Visible = False End If End With End Sub ----- Original Message ---- From: Andy Lacey To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 1:03:40 PM Subject: Re: [AccessD] Data-driven option buttons My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk From rusty.hammond at cpiqpc.com Thu Aug 31 13:06:30 2006 From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com) Date: Thu, 31 Aug 2006 13:06:30 -0500 Subject: [AccessD] Data-driven option buttons Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8A34@cpixchng-1.cpiqpc.net> Personally I like the option button look for a survey/questionnaire so I'm glad you have a solution, but just for the sake of exploring other options, would a list box have worked? It would show all of the options instead of just one at a time like a combo box. -----Original Message----- From: artful at rogers.com [mailto:artful at rogers.com] Sent: Thursday, August 31, 2006 12:43 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Data-driven option buttons It turned out to be trivial to populate the labels for the option group. In addition, the large problem with a combo box is that only one option is visible at a time. Given that only one question will be visible at a time, screen real estate is definitely not the issue, so my UI preference opts for an option group -- you can see all the available choices at once, which I deem superior in this context (not all contexts, of course, but in this one). As to simpler, I can't imagine that it gets much simpler than this: Private Sub Form_Current() With Me If Not .NewRecord Then .Answers_frame.Visible = True .Option5.Visible = Not IsNull(.Answer5) .Answer5_lbl.Caption = Nz(.Answer5, "") .Option4.Visible = Not IsNull(.Answer4) .Answer4_lbl.Caption = Nz(.Answer4, "") .Option3.Visible = Not IsNull(.Answer3) .Answer3_lbl.Caption = Nz(.Answer3, "") .Option2.Visible = Not IsNull(.Answer2) .Answer2_lbl.Caption = Nz(.Answer2, "") .Option1.Visible = Not IsNull(.Answer1) .Answer1_lbl.Caption = Nz(.Answer1, "") Else .Answers_frame.Visible = False End If End With End Sub ----- Original Message ---- From: Andy Lacey To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 1:03:40 PM Subject: Re: [AccessD] Data-driven option buttons My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk ********************************************************************** 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 Thu Aug 31 13:05:58 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 11:05:58 -0700 Subject: [AccessD] Data-driven option buttons In-Reply-To: <20060831174326.80753.qmail@web88202.mail.re2.yahoo.com> Message-ID: <0J4V004SWJL0V370@l-daemon> Hi Arthur: The only thing you may be concern with is the gaps left on the screen when options are turned off but you can handle by setting the Top and Left properties on each object Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of artful at rogers.com Sent: Thursday, August 31, 2006 10:43 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Data-driven option buttons It turned out to be trivial to populate the labels for the option group. In addition, the large problem with a combo box is that only one option is visible at a time. Given that only one question will be visible at a time, screen real estate is definitely not the issue, so my UI preference opts for an option group -- you can see all the available choices at once, which I deem superior in this context (not all contexts, of course, but in this one). As to simpler, I can't imagine that it gets much simpler than this: Private Sub Form_Current() With Me If Not .NewRecord Then .Answers_frame.Visible = True .Option5.Visible = Not IsNull(.Answer5) .Answer5_lbl.Caption = Nz(.Answer5, "") .Option4.Visible = Not IsNull(.Answer4) .Answer4_lbl.Caption = Nz(.Answer4, "") .Option3.Visible = Not IsNull(.Answer3) .Answer3_lbl.Caption = Nz(.Answer3, "") .Option2.Visible = Not IsNull(.Answer2) .Answer2_lbl.Caption = Nz(.Answer2, "") .Option1.Visible = Not IsNull(.Answer1) .Answer1_lbl.Caption = Nz(.Answer1, "") Else .Answers_frame.Visible = False End If End With End Sub ----- Original Message ---- From: Andy Lacey To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 1:03:40 PM Subject: Re: [AccessD] Data-driven option buttons My first question, Arthur, would be "can't you use a combo-box"? Be SOOOO much simpler. -- Andy Lacey http://www.minstersystems.co.uk -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at verizon.net Thu Aug 31 13:17:03 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Thu, 31 Aug 2006 14:17:03 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <001401c6cd06$80a4a710$657aa8c0@m6805> Message-ID: <0J4V00MYZK4K24M1@vms046.mailsrvcs.net> John, <> A. The OS must support it. B. Executables must be compiled for it. Where all the confusion comes in is in talking about address space vs memory. They are two separate things and physical memory is not utilized anything like your thinking. For a given processor / OS, there is a maximum amount of memory that can be addressed by any given process. This is called the virtual address space. The OS in order to run the process takes up some of that and is mapped into that virtual address space (it usually takes the upper half and there is only one copy mapped into each processes address space). To add to this, some of the space assigned for the process is also used for the OS. Some of that is swappable (can be moved to the swap file it needed) or resident (must always stay in physical memory). Now it gets a little complicated. Each process is given a working set, that is a number of memory pages it can use at any given time. In addition to that there is a page frame table. This is a list of pages that a process is using and they are mapped into the virtual address space. In other words a program *thinks* it can address 4GB of space, but until it wants it, it's not tracked. For each page table entry, the OS keeps track of the virtual address space that it's mapped to and if the page is in the current working set, on the modified page or free page lists, or if it has been paged out to disk. For the working sets, most OS's have a couple different settings that can be played with: Working set default. Working set quota. Working set Extent. Working set increment. Working set decrement. To keep track of physical memory, there are two other lists in the OS: Free page list Modified page list The free page list is use to keep track of physical pages that are available for use by any process. The modified list are physical pages that have been modified by a process, but have not yet been written out to the page file (I'll get to this in a minute). They also have some internal settings to control page faulting. When a process is created, it starts at the default working set size. As the process needs more memory (ie. uses a variable) the OS adds an entry to the page frame table, grabs a page of memory from the free page list, and assigns it to the working set. Once the processes working set is used up, the OS sees if it can be expanded. If so, it expands by the increment. It does this until it reaches the working set extent. If a process still needs more memory, it needs to give up a page in it's working set. The OS takes one of the working set pages, writes it to the modified page list if it's been changed or the free page list if it has not (it's written to the bottom of the list), then grabs a new page from the from the top of the free page list and puts it in the working set. This process continues on. If a process no longer needs the memory, it's released from the working set and put back on the free page list. In the background as part of the OS is a process called the swapper, which controls all this. It monitors the free page list. If not enough free memory is available, it takes the pages from the modified page list, writes them to the page file on disk, and then moves those pages to the bottom of the free page list. What happens if a process needs a page back that it gave up from it's working set? First the OS checks if it is on either the free or modified page lists. If so, this is called a soft fault and the OS can easily move the page back into the working set. If however it was written to the page file on disk (because the OS ran low on physical memory), it's a hard fault. Last, if the OS runs really low on memory, it can elect to swap out a process and it's entire working set. It will do this only if: 1. The modified page list has been flushed. 2. All processes working sets have been trimmed back to the working set quota. Swapping is expensive and done only as a last resort. A process will also swap out if the overall number or processes allowed to be memory resident at one time has been exceeded. I haven't explained everything, like balance set slots, etc. But that's the way virtual memory works in a nutshell. It varies by the OS, but that's been the model used by VMS, NT, XP, etc. Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby Sent: Thursday, August 31, 2006 10:05 AM To: 'Access Developers discussion and problem solving'; dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. Subject: [AccessD] Using 4 gbytes of RAM Is anyone using a machine with more than two gig of Ram? I am reading things about doing this and there seems to be a lot of confusion on the matter. Much of the confusion seems to come from the fact that until the 64 bit versions of the X86 processors, the "internals" of the processor were all 32 bits which limited direct generation of addresses to 4 gig. All of my machines are 64 bit (AMD) processors so theoretically they can use more than 4 gig but how? Everyone seems to agree that in XP32, only 4 gig is available to work with and that things like video cards and other "machine stuff" eats into that. Thus regardless of anything, you will end up with less than 4 gig due to that, perhaps as little as 3.25 gig. After that, confusion reigns, at least in my mind. Understand that I am discussing Windows XP 32 specifically, although anyone is welcome to chip in what they "know" regarding other windows versions as long as they specify what version they are discussing. The next thing that is discussed is that the OS itself reserves 2 gig for itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH APPLICATION, implying that any application can have / use up to 2 gig. Some claim that if you have 4 gig, the swap file won't be used since that is part of the 4 gig available. It seems illogical since each application can use up to 2 gig. However I have created a separate partition to hold my swap file and tried to create one of 6 gig and Windows refused, limiting the size of the swap file to 4 gig. So I am trying to figure out what the reality is. If a machine has 4 gig physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the .75 gig of physical ram simply unused? Is it used by the OS for buffers? What about the swap file? If you have a 4 gig swap file, would you have 7.25 "total available memory" for Windows use? Does this indeed then limit the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? And what happens if you manage to get (for the sake of argument) 8 gig stuffed into a machine. Some motherboards claim to handle that much but can Windows XP 32 actually use it? Can Windows XP 64? If you need this much memory is Windows XP 64 a way to get at the memory? If you are still using 32 bit apps, will it actually map as much as 2 gig of physical memory to the 32 bit apps so that (for example) 3 high powered memory hungry 32 bit apps actually had 2 gig available to each of them all the time? If anyone has run across any authoritive (on-line) reading on the subject I would love to look at it. John W. Colby Colby Consulting www.ColbyConsulting.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From fhtapia at gmail.com Thu Aug 31 13:40:23 2006 From: fhtapia at gmail.com (Francisco Tapia) Date: Thu, 31 Aug 2006 11:40:23 -0700 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00EVDAY1F9E0@l-daemon> References: <001401c6cd06$80a4a710$657aa8c0@m6805> <0J4V00EVDAY1F9E0@l-daemon> Message-ID: My work laptop is equipped w/ 2 gig. XP(32) will only handle up to 4gig, Going to XP(64) will allow you to use more memory but at a price, that being reliable drivers for your hardware. x64 is still a small market, and thus manufacturers don't typically test their 64 counterpart drivers as well, some even prevent installing the 32bit driver on the 64bit OS. :( My wife's laptop is a x64 cpu, but she's running the 32bit OS because of the drivers situation. btw, Windows 2003 std is also limited to 4gb, you'd want to go w/ enterprise to go beyond that limit. On 8/31/06, Jim Lawrence wrote: > Hi John: > > I have never heard of a XP OS computer having more than a gig. All other > systems using larger amounts of memory, that I am aquatinted with, are > servers of various kinds which are suppose to better at managing memory and > processes. Your limitations will definitely be the OS before the hardware. > > I would recommend that you try Window 2003 server standard. It is totally > brain-dead to install; takes about an hour and a half to install (DVDs are > slow) and asks once whether you want to use it as a domain controller. I use > one as a work-station and its performance is head and shoulders above XP. It > is easier to manage and it definitely uses memory better. > > Here is a free download that is supposed to do memory diagnostics app for > windows: > http://www.softpedia.com/get/Tweak/Memory-Tweak/Microsoft-Windows-Memory-Dia > gnostic.shtml > > >From M$: > http://www.microsoft.com/technet/itsolutions/msit/operations/mscom64bitarchi > .mspx > > What type of motherboard do you have: ASUS, GigaByte ...? > > > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of JWColby > Sent: Thursday, August 31, 2006 7:05 AM > To: 'Access Developers discussion and problem solving'; > dba-sqlserver at databaseadvisors.com; Tech - Database Advisors Inc. > Subject: [AccessD] Using 4 gbytes of RAM > > Is anyone using a machine with more than two gig of Ram? I am reading > things about doing this and there seems to be a lot of confusion on the > matter. Much of the confusion seems to come from the fact that until the 64 > bit versions of the X86 processors, the "internals" of the processor were > all 32 bits which limited direct generation of addresses to 4 gig. All of > my machines are 64 bit (AMD) processors so theoretically they can use more > than 4 gig but how? > > Everyone seems to agree that in XP32, only 4 gig is available to work with > and that things like video cards and other "machine stuff" eats into that. > Thus regardless of anything, you will end up with less than 4 gig due to > that, perhaps as little as 3.25 gig. After that, confusion reigns, at least > in my mind. > > Understand that I am discussing Windows XP 32 specifically, although anyone > is welcome to chip in what they "know" regarding other windows versions as > long as they specify what version they are discussing. > > The next thing that is discussed is that the OS itself reserves 2 gig for > itself (which includes the video etc AFAICT), leaving up to 2 gig for EACH > APPLICATION, implying that any application can have / use up to 2 gig. > > Some claim that if you have 4 gig, the swap file won't be used since that is > part of the 4 gig available. It seems illogical since each application can > use up to 2 gig. However I have created a separate partition to hold my > swap file and tried to create one of 6 gig and Windows refused, limiting the > size of the swap file to 4 gig. > > So I am trying to figure out what the reality is. If a machine has 4 gig > physical ram, and "machine stuff" uses (for argument's sake) .75 gig, is the > .75 gig of physical ram simply unused? Is it used by the OS for buffers? > What about the swap file? If you have a 4 gig swap file, would you have > 7.25 "total available memory" for Windows use? Does this indeed then limit > the APPLICATIONS to 5.25 gig of "total" memory and 2 gig of physical memory? > And what happens if you manage to get (for the sake of argument) 8 gig > stuffed into a machine. Some motherboards claim to handle that much but can > Windows XP 32 actually use it? > > Can Windows XP 64? If you need this much memory is Windows XP 64 a way to > get at the memory? If you are still using 32 bit apps, will it actually map > as much as 2 gig of physical memory to the 32 bit apps so that (for example) > 3 high powered memory hungry 32 bit apps actually had 2 gig available to > each of them all the time? > > If anyone has run across any authoritive (on-line) reading on the subject I > would love to look at it. > > John W. Colby > Colby Consulting > 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 > -- -Francisco http://sqlthis.blogspot.com | Tsql and More... From artful at rogers.com Thu Aug 31 13:42:46 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 11:42:46 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <0J4V004SWJL0V370@l-daemon> Message-ID: <20060831184246.82314.qmail@web88204.mail.re2.yahoo.com> You're right, in a totally bulletproof sense, but in the form I use to add new questions and answers, I don't let you supply Answer3 unless you already supplied Answer1 and Answer2, so this turns out to be functionally a non-issue. But still, you are correct. Arthur ----- Original Message ---- From: Jim Lawrence To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 2:05:58 PM Subject: Re: [AccessD] Data-driven option buttons Hi Arthur: The only thing you may be concern with is the gaps left on the screen when options are turned off but you can handle by setting the Top and Left properties on each object Jim From artful at rogers.com Thu Aug 31 13:47:30 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 11:47:30 -0700 (PDT) Subject: [AccessD] Data-driven option buttons In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8A34@cpixchng-1.cpiqpc.net> Message-ID: <20060831184730.24430.qmail@web88209.mail.re2.yahoo.com> A listbox would have worked and not been very complicated to write, but frankly I don't like the look of it, especially in this context. I think the dynamic option buttons look way slicker. Arthur ----- Original Message ---- From: rusty.hammond at cpiqpc.com To: accessd at databaseadvisors.com Sent: Thursday, August 31, 2006 2:06:30 PM Subject: Re: [AccessD] Data-driven option buttons Personally I like the option button look for a survey/questionnaire so I'm glad you have a solution, but just for the sake of exploring other options, would a list box have worked? It would show all of the options instead of just one at a time like a combo box. From jwcolby at colbyconsulting.com Thu Aug 31 13:48:37 2006 From: jwcolby at colbyconsulting.com (JWColby) Date: Thu, 31 Aug 2006 14:48:37 -0400 Subject: [AccessD] Using 4 gbytes of RAM In-Reply-To: <0J4V00MYZK4K24M1@vms046.mailsrvcs.net> Message-ID: <003401c6cd2e$12c751c0$657aa8c0@m6805> Jim, That "in a nutshell" is a very nice explanation. I understand (at a conceptual level) all of this. I used to be in hardware long ago (back when we were swapping memory up above 1 MEGABYTE), and knew the processor instructions that did this stuff etc. I left the hardware side really just about the '386 era. I never really learned the "ring" stuff and protection beyond generalities as it wasn't really added until the '386. What I am trying to discover now, again in generalities, is what really happens specifically in XP32 (cause that's what I am running now) if you add more memory. I assume that memory up to the point where the amount runs into the issue of memory mapped onto hardware (video cards and the like) will just be added to the available pool and used as needed. But (for example) if 4 gig is in a machine and the OS maps .75 gig to "hardware", is the .75 gig of real physical ram just sitting there unused? In the end it may not make any difference in terms of the decision to buy 3 or 4 gig. For example putting a single stick into a MB for an AMD64 can cause performance issues so perhaps you buy two just to get the performance increase even if part of it just sits there. Just kinda "nice to know" on that one. What happens with the swap file and physical ram is a different story though. As I discovered, I cannot even make the swap file larger than 4 gig which implies that the OS decides that since it can only ever use 4 gig, that is the max it can swap out anyway. But that is a rather short sighted way of viewing things. Let's say for the sake of argument that you are doing some video editing and that app asks for 2 gig. You also run some other memory hungry something such as playing a modern game, and it asks for 2 gig. In theory each app should be able to ask for (but not necessarily receive) 2 gig of real physical memory. Just to push the envelope let's say that you load FOUR different memory hog programs and each asks for 2 gig of ram. That is 8 gig asked for. Obviously only 4 gig is physically present, and apparently to XP only 4 gig is truly available, but in theory the swap file should be able to go to 8, 16 or even 32 gig to handle the overflow that has to be swapped in and out. Limiting the swap file to 4 gig seems to be a pretty serious and rather arbitrary limitation here. We have been swapping memory since the dark ages, way before I ever got into the business. It seems that an OS as recent as XP would have opened things up a bit. John W. Colby Colby Consulting www.ColbyConsulting.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Thursday, August 31, 2006 2:17 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Using 4 gbytes of RAM John, <> A. The OS must support it. B. Executables must be compiled for it. Where all the confusion comes in is in talking about address space vs memory. They are two separate things and physical memory is not utilized anything like your thinking. For a given processor / OS, there is a maximum amount of memory that can be addressed by any given process. This is called the virtual address space. The OS in order to run the process takes up some of that and is mapped into that virtual address space (it usually takes the upper half and there is only one copy mapped into each processes address space). To add to this, some of the space assigned for the process is also used for the OS. Some of that is swappable (can be moved to the swap file it needed) or resident (must always stay in physical memory). Now it gets a little complicated. Each process is given a working set, that is a number of memory pages it can use at any given time. In addition to that there is a page frame table. This is a list of pages that a process is using and they are mapped into the virtual address space. In other words a program *thinks* it can address 4GB of space, but until it wants it, it's not tracked. For each page table entry, the OS keeps track of the virtual address space that it's mapped to and if the page is in the current working set, on the modified page or free page lists, or if it has been paged out to disk. For the working sets, most OS's have a couple different settings that can be played with: Working set default. Working set quota. Working set Extent. Working set increment. Working set decrement. To keep track of physical memory, there are two other lists in the OS: Free page list Modified page list The free page list is use to keep track of physical pages that are available for use by any process. The modified list are physical pages that have been modified by a process, but have not yet been written out to the page file (I'll get to this in a minute). They also have some internal settings to control page faulting. When a process is created, it starts at the default working set size. As the process needs more memory (ie. uses a variable) the OS adds an entry to the page frame table, grabs a page of memory from the free page list, and assigns it to the working set. Once the processes working set is used up, the OS sees if it can be expanded. If so, it expands by the increment. It does this until it reaches the working set extent. If a process still needs more memory, it needs to give up a page in it's working set. The OS takes one of the working set pages, writes it to the modified page list if it's been changed or the free page list if it has not (it's written to the bottom of the list), then grabs a new page from the from the top of the free page list and puts it in the working set. This process continues on. If a process no longer needs the memory, it's released from the working set and put back on the free page list. In the background as part of the OS is a process called the swapper, which controls all this. It monitors the free page list. If not enough free memory is available, it takes the pages from the modified page list, writes them to the page file on disk, and then moves those pages to the bottom of the free page list. What happens if a process needs a page back that it gave up from it's working set? First the OS checks if it is on either the free or modified page lists. If so, this is called a soft fault and the OS can easily move the page back into the working set. If however it was written to the page file on disk (because the OS ran low on physical memory), it's a hard fault. Last, if the OS runs really low on memory, it can elect to swap out a process and it's entire working set. It will do this only if: 1. The modified page list has been flushed. 2. All processes working sets have been trimmed back to the working set quota. Swapping is expensive and done only as a last resort. A process will also swap out if the overall number or processes allowed to be memory resident at one time has been exceeded. I haven't explained everything, like balance set slots, etc. But that's the way virtual memory works in a nutshell. It varies by the OS, but that's been the model used by VMS, NT, XP, etc. Jim. From scapistrant at symphonyinfo.com Thu Aug 31 15:40:47 2006 From: scapistrant at symphonyinfo.com (Steve Capistrant) Date: Thu, 31 Aug 2006 15:40:47 -0500 Subject: [AccessD] CPU and locks References: <000601c6cd2b$92e86770$4b4f5a46@Symphony.local> Message-ID: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Dear List, We have an Access 2000 app that has been running for years at a customer's site, provided to 100 users via Citrix profiles. In daily practice, there are usually 5 to 15 people logged in at any given time. The techies running the server are belly-aching about resource utilization. They note that CPU utlization per user zips up to 25% or 30% of server capacity when they perform routine actions (like applying filter rules to search on a form). It drops down to zero after a second or two. But they say "do the math" -- just 4 users doing stuff is going to completely max out our servers. We (our development team) are scratching our heads. This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc. Nothing's really changed over the years. Is it just their awareness that has changed? Are these techies just freaking out because they have a new Performance Monitoring tool? The other observation they make that might cause overuse of CPU is something new to me: When you look at START > Control Panel > Adminstrative Tools > Computer Management > Shared Folders > Open Files.... ....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant.. Thank you ! Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Main: 763-391-7400 ext 801 Toll Free: 888-357-1373 ext 801 Direct: 612-237-0075 From artful at rogers.com Thu Aug 31 16:10:04 2006 From: artful at rogers.com (artful at rogers.com) Date: Thu, 31 Aug 2006 14:10:04 -0700 (PDT) Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <20060831211004.79381.qmail@web88209.mail.re2.yahoo.com> What I have to offer may or may not be useful. Mostly it is a counter-example. I had about 70 users all hitting a TS box with 2GB of RAM, and the SQL db lived on another box. Users in several cities across North America. Never ONCE a performance problem. In fact, the sickening thing from my point of view: it was quicker to hit that remote box than to hit my local instance of exactly the same DB. We never experienced any collisions or deadlocks (polishing my nails for clever coding ), and we never suffered a performance issue or a deadlock. It simply did not happen, even once in about 4 years. I almost wish that it HAD happened so I would have a problem to investigate, but it never did. I ran the resource allocation stuff but it never presented a problem. Using TS, the initial user grabs a chunk of memory and everyone else uses re-entrant code, so the additional mem-grabs were tiny in comparison. Two GB sufficed to serve a potential 70 users (in reality, only maybe 40 were hitting the system at once, given time-zone variations etc.), but the point is that I did not have to throw heavy hardware at this problem, and everything worked beautifully. Admittedly, when 50 users were aboard, the CPU usage went way up, but that is only to be expected. More important, nobody whined about the performance delays. (Other facts of potential importance: it was an Access ADP app whose every object was driven by a sproc or udf; nothing was dynamic SQL. The server was not awesome, merely a P4 with 2GB of RAM. The OS was w2K TS with appropriate patches. The connections were all quick.We didn't bother with Citrix since TS gave us everything we needed.) Arthur ----- Original Message ---- From: Steve Capistrant To: Access Developers discussion and problem solving Sent: Thursday, August 31, 2006 4:40:47 PM Subject: [AccessD] CPU and locks Dear List, We have an Access 2000 app that has been running for years at a customer's site, provided to 100 users via Citrix profiles. In daily practice, there are usually 5 to 15 people logged in at any given time. The techies running the server are belly-aching about resource utilization. They note that CPU utlization per user zips up to 25% or 30% of server capacity when they perform routine actions (like applying filter rules to search on a form). It drops down to zero after a second or two. But they say "do the math" -- just 4 users doing stuff is going to completely max out our servers. We (our development team) are scratching our heads. This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc. Nothing's really changed over the years. Is it just their awareness that has changed? Are these techies just freaking out because they have a new Performance Monitoring tool? The other observation they make that might cause overuse of CPU is something new to me: When you look at START > Control Panel > Adminstrative Tools > Computer Management > Shared Folders > Open Files.... ....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant.. Thank you ! Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Main: 763-391-7400 ext 801 Toll Free: 888-357-1373 ext 801 Direct: 612-237-0075 -- 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 Aug 31 16:13:12 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 01 Sep 2006 07:13:12 +1000 Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> References: <000601c6cd2b$92e86770$4b4f5a46@Symphony.local>, <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <44F7DD88.24323.1D73FE4@stuart.lexacorp.com.pg> On 31 Aug 2006 at 15:40, Steve Capistrant wrote: > Dear List, > > We have an Access 2000 app that has been running for years at a customer's > site, provided to 100 users via Citrix profiles. In daily practice, there > are usually 5 to 15 people logged in at any given time. > > The techies running the server are belly-aching about resource utilization. > They note that CPU utlization per user zips up to 25% or 30% of server > capacity when they perform routine actions (like applying filter rules to > search on a form). It drops down to zero after a second or two. But they > say "do the math" -- just 4 users doing stuff is going to completely max out > our servers. There's nothing wrong with an application using lots of CPU cycles if they are available as long as it is well written and yields to other applications. This sort of thing doesn't scale linearly. The only way to find out what will "max out" your servers is to keep loading additional sessions until you start to see a degradation in performance. > > We (our development team) are scratching our heads. This is normal for > Access. It grabs as much resources as it can get to perform data access > requests. And I've never heard of a server blowing up from too many > simultaneous requests. Windows is designed to handle process threading > reasonably well, putting things in order, assigning priorities, reserving > some CPU for critical processes, etc. > > Nothing's really changed over the years. Is it just their awareness that > has changed? Are these techies just freaking out because they have a new > Performance Monitoring tool? > I suspect you have hit the nail on the head :-) > The other observation they make that might cause overuse of CPU is something > new to me: When you look at START > Control Panel > Adminstrative Tools > > Computer Management > Shared Folders > Open Files.... > > ....they note that most of the MS Access item in this view are showing large > numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is > something I can't explain. It's a standard FE/BE deployment, so an ldb gets > generated at both the FE and BE levels. But what is this huge number of > locks? Stranded ldbs? Some calculus involving the number of simultaneous > users? I told them I'd explore what this meant.. > Huge? They don't know much about databases and record locking, do they? Since the default MaxLockPerFile for Jet is 9500, I certainly wouldn't be getting concerned over a few dozen. (And it's only that small because the standard maximum locks per connection on Novell servers is 10,000 and MS wanted to avoid problems with accessing data stored on them) Go to Tools-Options-Advanced. Set Default Record Locking to "All records" and see how many locks you start getting then :-) > Thank you ! > > Steve Capistrant > Symphony Information Services > scapistrant at symphonyinfo.com > www.symphonyinfo.com > Main: 763-391-7400 ext 801 > Toll Free: 888-357-1373 ext 801 > Direct: 612-237-0075 > -- Stuart From accessd at shaw.ca Thu Aug 31 16:44:27 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Thu, 31 Aug 2006 14:44:27 -0700 Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <0J4V00L93TP4DI40@l-daemon> Hi Steve: You hit the answer right on: This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc We had 65 users hitting a Server (only 512 MGs, held the BE Access and a MS SQL 2000 that actually held the data). Thought the connection was not through Citrix when one person hit utilization would jump to 100% and there were as many as 20 on at any one. No one ever complained that they could not get on or that the system is too slow. I am sure if you had 8GB of RAM, on a box and started up one copy of Access it would show 100% utilization. HTH Jim From bheygood at abestsystems.com Thu Aug 31 17:20:32 2006 From: bheygood at abestsystems.com (Bob Heygood) Date: Thu, 31 Aug 2006 15:20:32 -0700 Subject: [AccessD] Query Parameter In-Reply-To: <20060831184730.24430.qmail@web88209.mail.re2.yahoo.com> Message-ID: I have a query that I execute from code. It has criteria and an alias that references a form control value. This query works fine when run from the db window. But complains that "Too few parameters..1 expected.", when run from my code. TIA Bob Heygood From bchacc at san.rr.com Thu Aug 31 18:13:26 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 16:13:26 -0700 Subject: [AccessD] Query Parameter In-Reply-To: References: Message-ID: <44F76D16.1050906@san.rr.com> How do you run it from code? db.Execute? Rocky Bob Heygood wrote: > I have a query that I execute from code. > It has criteria and an alias that references a form control value. > This query works fine when run from the db window. > But complains that "Too few parameters..1 expected.", when run from my code. > > TIA > > Bob Heygood > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From jimdettman at verizon.net Thu Aug 31 18:28:32 2006 From: jimdettman at verizon.net (Jim Dettman) Date: Thu, 31 Aug 2006 19:28:32 -0400 Subject: [AccessD] CPU and locks In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0103A413@LAKATOS.Symphony.local> Message-ID: <0J4V00M99YJP2053@vms046.mailsrvcs.net> Steve, <> Yup that's normal and as you said, it yields to other processes. As long as there is nothing else, it will take what it can get. In fact, to back this up, there is a MSKB article out there because so many thought is was "abnormal" to see Access use 100% of the CPU. <<....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant..>> Large numbers? 15 to 42 is nothing; it's a database product, it's supposed to lock things (and lots of them). Jim. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Capistrant Sent: Thursday, August 31, 2006 4:41 PM To: Access Developers discussion and problem solving Subject: [AccessD] CPU and locks Dear List, We have an Access 2000 app that has been running for years at a customer's site, provided to 100 users via Citrix profiles. In daily practice, there are usually 5 to 15 people logged in at any given time. The techies running the server are belly-aching about resource utilization. They note that CPU utlization per user zips up to 25% or 30% of server capacity when they perform routine actions (like applying filter rules to search on a form). It drops down to zero after a second or two. But they say "do the math" -- just 4 users doing stuff is going to completely max out our servers. We (our development team) are scratching our heads. This is normal for Access. It grabs as much resources as it can get to perform data access requests. And I've never heard of a server blowing up from too many simultaneous requests. Windows is designed to handle process threading reasonably well, putting things in order, assigning priorities, reserving some CPU for critical processes, etc. Nothing's really changed over the years. Is it just their awareness that has changed? Are these techies just freaking out because they have a new Performance Monitoring tool? The other observation they make that might cause overuse of CPU is something new to me: When you look at START > Control Panel > Adminstrative Tools > Computer Management > Shared Folders > Open Files.... ....they note that most of the MS Access item in this view are showing large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is something I can't explain. It's a standard FE/BE deployment, so an ldb gets generated at both the FE and BE levels. But what is this huge number of locks? Stranded ldbs? Some calculus involving the number of simultaneous users? I told them I'd explore what this meant.. Thank you ! Steve Capistrant Symphony Information Services scapistrant at symphonyinfo.com www.symphonyinfo.com Main: 763-391-7400 ext 801 Toll Free: 888-357-1373 ext 801 Direct: 612-237-0075 From bheygood at abestsystems.com Thu Aug 31 18:35:17 2006 From: bheygood at abestsystems.com (Bob Heygood) Date: Thu, 31 Aug 2006 16:35:17 -0700 Subject: [AccessD] Query Parameter In-Reply-To: <44F76D16.1050906@san.rr.com> Message-ID: Yeah. Tried to supply the !Forms.... to the query parameters box even. No luck.... Bob -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin - Beach Access Software Sent: Thursday, August 31, 2006 4:13 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Query Parameter How do you run it from code? db.Execute? Rocky Bob Heygood wrote: > I have a query that I execute from code. > It has criteria and an alias that references a form control value. > This query works fine when run from the db window. > But complains that "Too few parameters..1 expected.", when run from my code. > > TIA > > Bob Heygood > > > -- 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 Thu Aug 31 18:46:34 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 16:46:34 -0700 Subject: [AccessD] File Copy Message-ID: <44F774DA.7080308@san.rr.com> Dear List: When I run a chunk of code which includes: FileCopy "Cressona Template.xls", Me.txtOutputFileName it runs fine. If I run it again, however, without closing the form and reopening it (but deleting the target file specified in Me.txtOutputFileName that was created the first time), I get an error 52 - bad file number. Does anyone know why? MTIA, Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Thu Aug 31 18:55:14 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 16:55:14 -0700 Subject: [AccessD] Query Parameter In-Reply-To: References: Message-ID: <44F776E2.7030609@san.rr.com> I usually make a public function in a module which return the value from the forms and call that function in the criteria line on the QBE grid. Don't forget the () in the call on the QBE grid. Rocky Bob Heygood wrote: > Yeah. > Tried to supply the !Forms.... to the query parameters box even. No luck.... > > > Bob > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Thursday, August 31, 2006 4:13 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Query Parameter > > > How do you run it from code? db.Execute? > > Rocky > > > Bob Heygood wrote: > >> I have a query that I execute from code. >> It has criteria and an alias that references a form control value. >> This query works fine when run from the db window. >> But complains that "Too few parameters..1 expected.", when run from my >> > code. > >> TIA >> >> Bob Heygood >> >> >> >> > > -- > 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 wdhindman at dejpolsystems.com Thu Aug 31 19:13:54 2006 From: wdhindman at dejpolsystems.com (William Hindman) Date: Thu, 31 Aug 2006 20:13:54 -0400 Subject: [AccessD] File Copy References: <44F774DA.7080308@san.rr.com> Message-ID: <012b01c6cd5b$83bbd180$153ce944@50NM721> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgBadFileNameOrNumber.asp William Hindman ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Thursday, August 31, 2006 7:46 PM Subject: [AccessD] File Copy > Dear List: > > When I run a chunk of code which includes: > > FileCopy "Cressona Template.xls", Me.txtOutputFileName > > it runs fine. If I run it again, however, without closing the form and > reopening it (but deleting the target file specified in > Me.txtOutputFileName that was created the first time), I get an error > 52 - bad file number. > > Does anyone know why? > > MTIA, > > 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 Thu Aug 31 20:58:32 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 31 Aug 2006 18:58:32 -0700 Subject: [AccessD] File Copy In-Reply-To: <012b01c6cd5b$83bbd180$153ce944@50NM721> References: <44F774DA.7080308@san.rr.com> <012b01c6cd5b$83bbd180$153ce944@50NM721> Message-ID: <44F793C8.3000005@san.rr.com> That's what come up with help as well. Covers everything but FileCopy. :( Rocky William Hindman wrote: > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgBadFileNameOrNumber.asp > > William Hindman > > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Thursday, August 31, 2006 7:46 PM > Subject: [AccessD] File Copy > > > >> Dear List: >> >> When I run a chunk of code which includes: >> >> FileCopy "Cressona Template.xls", Me.txtOutputFileName >> >> it runs fine. If I run it again, however, without closing the form and >> reopening it (but deleting the target file specified in >> Me.txtOutputFileName that was created the first time), I get an error >> 52 - bad file number. >> >> Does anyone know why? >> >> MTIA, >> >> 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 >> >> > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From martyconnelly at shaw.ca Thu Aug 31 21:19:58 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Thu, 31 Aug 2006 19:19:58 -0700 Subject: [AccessD] CPU and locks In-Reply-To: <0J4V00M99YJP2053@vms046.mailsrvcs.net> References: <0J4V00M99YJP2053@vms046.mailsrvcs.net> Message-ID: <44F798CE.9020108@shaw.ca> Are these file locks, record locks or page locks they are looking at? Tell them to look at the priority of the threads Access is running. The are all low priority which are immediately relinguished. If Microsoft Access is just idling, It does work to read ahead on data, to fill and refresh the cache, to check on potential multi-user issues. Even just to watch for a keystoke or a mouse move. It also polls the windows message queues. Access won't peg out at 100% in an idle state with nothing else running as the kernel is also doing it's bit. From an old MSKB. Microsoft Access was originally designed to operate in the cooperative multitasking environment that Microsoft Windows 3.x provided. The idle processing code built into Microsoft Access was designed to ensure that Microsoft Access does not begin processing background tasks during brief periods of inactivity, such as when a user pauses between keystrokes. In the preemptive multitasking environment of Microsoft Windows 95 and Microsoft Windows NT, this idle processing code causes Microsoft Access to use 100 percent of CPU resources briefly during idle time. Microsoft Access polls its message queues for activity for about the first 30 seconds of idle time. During this time, Performance Monitor reports that Microsoft Access is using 100 percent of CPU resources. NOTE: Microsoft Access only uses CPU resources that are idle. If your computer has other processes that are ready to run, it will run them. Microsoft Access does not degrade performance of other applications as it polls its message queues. Jim Dettman wrote: >Steve, > ><Access. It grabs as much resources as it can get to perform data access >requests. And I've never heard of a server blowing up from too many >simultaneous requests. Windows is designed to handle process threading >reasonably well, putting things in order, assigning priorities, reserving >some CPU for critical processes, etc.>> > > Yup that's normal and as you said, it yields to other processes. As long >as there is nothing else, it will take what it can get. In fact, to back >this up, there is a MSKB article out there because so many thought is was >"abnormal" to see Access use 100% of the CPU. > > ><<....they note that most of the MS Access item in this view are showing >large numbers in the "# of Locks" column. Ranging from 15 to 42 each. This >is something I can't explain. It's a standard FE/BE deployment, so an ldb >gets generated at both the FE and BE levels. But what is this huge number >of locks? Stranded ldbs? Some calculus involving the number of >simultaneous users? I told them I'd explore what this meant..>> > > Large numbers? 15 to 42 is nothing; it's a database product, it's >supposed to lock things (and lots of them). > >Jim. > > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Capistrant >Sent: Thursday, August 31, 2006 4:41 PM >To: Access Developers discussion and problem solving >Subject: [AccessD] CPU and locks > >Dear List, > >We have an Access 2000 app that has been running for years at a customer's >site, provided to 100 users via Citrix profiles. In daily practice, there >are usually 5 to 15 people logged in at any given time. > >The techies running the server are belly-aching about resource utilization. >They note that CPU utlization per user zips up to 25% or 30% of server >capacity when they perform routine actions (like applying filter rules to >search on a form). It drops down to zero after a second or two. But they >say "do the math" -- just 4 users doing stuff is going to completely max out >our servers. > >We (our development team) are scratching our heads. This is normal for >Access. It grabs as much resources as it can get to perform data access >requests. And I've never heard of a server blowing up from too many >simultaneous requests. Windows is designed to handle process threading >reasonably well, putting things in order, assigning priorities, reserving >some CPU for critical processes, etc. > >Nothing's really changed over the years. Is it just their awareness that >has changed? Are these techies just freaking out because they have a new >Performance Monitoring tool? > >The other observation they make that might cause overuse of CPU is something >new to me: When you look at >START > Control Panel > Adminstrative Tools > Computer Management > Shared >Folders > Open Files.... > >....they note that most of the MS Access item in this view are showing large >numbers in the "# of Locks" column. Ranging from 15 to 42 each. This is >something I can't explain. It's a standard FE/BE deployment, so an ldb gets >generated at both the FE and BE levels. But what is this huge number of >locks? Stranded ldbs? Some calculus involving the number of simultaneous >users? I told them I'd explore what this meant.. > >Thank you ! > >Steve Capistrant >Symphony Information Services >scapistrant at symphonyinfo.com >www.symphonyinfo.com >Main: 763-391-7400 ext 801 >Toll Free: 888-357-1373 ext 801 >Direct: 612-237-0075 > > > > -- Marty Connelly Victoria, B.C. Canada