From jimdettman at verizon.net Mon May 1 05:26:16 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Mon, 1 May 2017 06:26:16 -0400 Subject: [AccessD] A 97 to A 2010 compile error In-Reply-To: <590672E5.8365.513A58F3@stuart.lexacorp.com.pg> References: <00e901d2c064$3e4e30e0$baea92a0$@gmail.com>, <439A4CBB104E4830860FE9AD90028E25@XPS>, <016701d2c1ff$c4f90100$4eeb0300$@gmail.com> <590672E5.8365.513A58F3@stuart.lexacorp.com.pg> Message-ID: <339FE207883B4B2F938550ED4DF2DDEB@XPS> There is a slight edge. While the p-code would ultimately be the same, it's one extra step that Access/VBA does not need to go through when dealing with a reference. All references are converted to the paren/quote format before anything else is done with it. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Sunday, April 30, 2017 07:28 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] A 97 to A 2010 compile error I really doubt that Forms("frmTest")("txtName") will be any different to Forms![frmTest]![txtName] when it comes to run time performance. Both will be converted to exactly the same PCode when the VBA is compiled. -- Stuart On 30 Apr 2017 at 15:19, Bob Heygood wrote: > Hello Jim, > Yes I'm pretty old school and not kept up on the latest Access > changes. I must have written that code a long time ago. Good advice on > explicitly stating the hierarchy of elements and their collections. > Gotta say though I really hate to use any parenthesis in my coding. I > was traumatized many times by my errors and grew to dislike them a > lot, especially when concatenating lines. > > Thanks again, > > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Jim Dettman Sent: Saturday, April 29, 2017 5:07 AM To: 'Access > Developers discussion and problem solving' Subject: Re: [AccessD] A 97 > to A 2010 compile error > > Bob, > > You'll find reference checking got a lot tighter in A2007 and up and > some > things that you got away with before you can no longer. A bang (!) > indicates that what follows is a element of a collection. A dot (.) > means a property, collection, or method name. Also there were some > changes made with A2000, which is the addition of default collections, > that has an impact on references. > > If you can learn to do it, you can always use this syntax: > > Set ctl = Forms("frmTest")("txtName") > > before you would do this: > > Set ctl = Forms![frmTest]![txtName] > > Behind the scenes, Access actually translates all your statements to > this > format of parentheses and quotes, so if you use it, there is a bit of > a performance edge. > > The above works because the controls collection is the default > collection > for a form. Normally in the past, you would have had to do: > > Set ctl = Forms("frmTest").Controls("txtName") > > I'm still "old school" and use the bang everywhere as even with the > ("") > syntax, querydef parameters that refer to form controls is one place > where a bang must be used. There were a couple of others as well, > but I've forgotten what they were, and I could never keep them all > straight, so I continued to use the bang. > > Jim. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bob Heygood Sent: Friday, April 28, 2017 05:13 PM To: 'Access > Developers discussion and problem solving' Subject: [AccessD] A 97 to > A 2010 compile error > > I am converting an app from A 97 to A 2010. > I updated the DAO ref already. > What reference or library am I missing when I get an error : > Compile Error > "Method or Data member not found" > For this line: > txtTerms_ID = rstTerms.[Terms_ID] > .[Terms_ID] is highlighted. > > > TIA > Bob > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Mon May 1 08:42:52 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Mon, 01 May 2017 23:42:52 +1000 Subject: [AccessD] A 97 to A 2010 compile error In-Reply-To: <339FE207883B4B2F938550ED4DF2DDEB@XPS> References: <00e901d2c064$3e4e30e0$baea92a0$@gmail.com>, <590672E5.8365.513A58F3@stuart.lexacorp.com.pg>, <339FE207883B4B2F938550ED4DF2DDEB@XPS> Message-ID: <59073B5C.2832.54496948@stuart.lexacorp.com.pg> The P-Code is only built once. Either when you manually compile or when anything in the module is first run. After that: P-Code is P-Code, regardless of how the source code was formatted. (Do you really think that there is a difference in an Accde depending on how an object reference was typed in the removed source?) At that stage, the reference is no longer in a paren/quote format. The reference has already been "tokenized". in a binary form. In fact the reference is not even in paren/quote format once you move on to the next line. At that stage it is "compiled" to Op-Code which is also a form of tokenized binary. "Compiling" really converts the Op-Codes to P-Code. It's all explained quite well here: http://cpap.com.br/orlando/VBADecompilerMore.asp in the section "What It Means to Decompile and Compact in VBA" -- Stuart On 1 May 2017 at 6:26, Jim Dettman wrote: > > There is a slight edge. > > While the p-code would ultimately be the same, it's one extra step > that > Access/VBA does not need to go through when dealing with a reference. > > All references are converted to the paren/quote format before > anything else > is done with it. > > Jim. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan Sent: Sunday, April 30, 2017 07:28 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] A 97 > to A 2010 compile error > > I really doubt that Forms("frmTest")("txtName") will be any different > to Forms![frmTest]![txtName] when it comes to run time performance. > > Both will be converted to exactly the same PCode when the VBA is > compiled. > > -- > Stuart > > On 30 Apr 2017 at 15:19, Bob Heygood wrote: > > > Hello Jim, > > Yes I'm pretty old school and not kept up on the latest Access > > changes. I must have written that code a long time ago. Good advice > > on explicitly stating the hierarchy of elements and their > > collections. Gotta say though I really hate to use any parenthesis > > in my coding. I was traumatized many times by my errors and grew to > > dislike them a lot, especially when concatenating lines. > > > > Thanks again, > > > > Bob > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Jim Dettman Sent: Saturday, April 29, 2017 5:07 AM To: > > 'Access Developers discussion and problem solving' Subject: Re: > > [AccessD] A 97 to A 2010 compile error > > > > Bob, > > > > You'll find reference checking got a lot tighter in A2007 and up > > and some > > things that you got away with before you can no longer. A bang (!) > > indicates that what follows is a element of a collection. A dot (.) > > means a property, collection, or method name. Also there were some > > changes made with A2000, which is the addition of default > > collections, that has an impact on references. > > > > If you can learn to do it, you can always use this syntax: > > > > Set ctl = Forms("frmTest")("txtName") > > > > before you would do this: > > > > Set ctl = Forms![frmTest]![txtName] > > > > Behind the scenes, Access actually translates all your statements > > to this > > format of parentheses and quotes, so if you use it, there is a bit > > of a performance edge. > > > > The above works because the controls collection is the default > > collection > > for a form. Normally in the past, you would have had to do: > > > > Set ctl = Forms("frmTest").Controls("txtName") > > > > I'm still "old school" and use the bang everywhere as even with > > the ("") > > syntax, querydef parameters that refer to form controls is one place > > where a bang must be used. There were a couple of others as well, > > but I've forgotten what they were, and I could never keep them all > > straight, so I continued to use the bang. > > > > Jim. > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Bob Heygood Sent: Friday, April 28, 2017 05:13 PM To: > > 'Access Developers discussion and problem solving' Subject: > > [AccessD] A 97 to A 2010 compile error > > > > I am converting an app from A 97 to A 2010. > > I updated the DAO ref already. > > What reference or library am I missing when I get an error : > > Compile Error > > "Method or Data member not found" > > For this line: > > txtTerms_ID = rstTerms.[Terms_ID] > > .[Terms_ID] is highlighted. > > > > > > TIA > > Bob > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From jimdettman at verizon.net Mon May 1 09:51:07 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Mon, 1 May 2017 10:51:07 -0400 Subject: [AccessD] A 97 to A 2010 compile error In-Reply-To: <59073B5C.2832.54496948@stuart.lexacorp.com.pg> References: <00e901d2c064$3e4e30e0$baea92a0$@gmail.com>, <590672E5.8365.513A58F3@stuart.lexacorp.com.pg>, <339FE207883B4B2F938550ED4DF2DDEB@XPS> <59073B5C.2832.54496948@stuart.lexacorp.com.pg> Message-ID: <5350C91F06C44704B96B250A4584E35A@XPS> Stuart, Your too far down the process. What I'm saying is that there is a translation done before a statement gets to p-code anytime a *source* statement is interpreted. From your reference, that would be S1 to S2. Your not always working with source of course (accde), but anytime it goes from source, it will be faster than using bang and dot. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Monday, May 01, 2017 09:43 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] A 97 to A 2010 compile error The P-Code is only built once. Either when you manually compile or when anything in the module is first run. After that: P-Code is P-Code, regardless of how the source code was formatted. (Do you really think that there is a difference in an Accde depending on how an object reference was typed in the removed source?) At that stage, the reference is no longer in a paren/quote format. The reference has already been "tokenized". in a binary form. In fact the reference is not even in paren/quote format once you move on to the next line. At that stage it is "compiled" to Op-Code which is also a form of tokenized binary. "Compiling" really converts the Op-Codes to P-Code. It's all explained quite well here: http://cpap.com.br/orlando/VBADecompilerMore.asp in the section "What It Means to Decompile and Compact in VBA" -- Stuart On 1 May 2017 at 6:26, Jim Dettman wrote: > > There is a slight edge. > > While the p-code would ultimately be the same, it's one extra step > that > Access/VBA does not need to go through when dealing with a reference. > > All references are converted to the paren/quote format before > anything else > is done with it. > > Jim. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan Sent: Sunday, April 30, 2017 07:28 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] A 97 > to A 2010 compile error > > I really doubt that Forms("frmTest")("txtName") will be any different > to Forms![frmTest]![txtName] when it comes to run time performance. > > Both will be converted to exactly the same PCode when the VBA is > compiled. > > -- > Stuart > > On 30 Apr 2017 at 15:19, Bob Heygood wrote: > > > Hello Jim, > > Yes I'm pretty old school and not kept up on the latest Access > > changes. I must have written that code a long time ago. Good advice > > on explicitly stating the hierarchy of elements and their > > collections. Gotta say though I really hate to use any parenthesis > > in my coding. I was traumatized many times by my errors and grew to > > dislike them a lot, especially when concatenating lines. > > > > Thanks again, > > > > Bob > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Jim Dettman Sent: Saturday, April 29, 2017 5:07 AM To: > > 'Access Developers discussion and problem solving' Subject: Re: > > [AccessD] A 97 to A 2010 compile error > > > > Bob, > > > > You'll find reference checking got a lot tighter in A2007 and up > > and some > > things that you got away with before you can no longer. A bang (!) > > indicates that what follows is a element of a collection. A dot (.) > > means a property, collection, or method name. Also there were some > > changes made with A2000, which is the addition of default > > collections, that has an impact on references. > > > > If you can learn to do it, you can always use this syntax: > > > > Set ctl = Forms("frmTest")("txtName") > > > > before you would do this: > > > > Set ctl = Forms![frmTest]![txtName] > > > > Behind the scenes, Access actually translates all your statements > > to this > > format of parentheses and quotes, so if you use it, there is a bit > > of a performance edge. > > > > The above works because the controls collection is the default > > collection > > for a form. Normally in the past, you would have had to do: > > > > Set ctl = Forms("frmTest").Controls("txtName") > > > > I'm still "old school" and use the bang everywhere as even with > > the ("") > > syntax, querydef parameters that refer to form controls is one place > > where a bang must be used. There were a couple of others as well, > > but I've forgotten what they were, and I could never keep them all > > straight, so I continued to use the bang. > > > > Jim. > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Bob Heygood Sent: Friday, April 28, 2017 05:13 PM To: > > 'Access Developers discussion and problem solving' Subject: > > [AccessD] A 97 to A 2010 compile error > > > > I am converting an app from A 97 to A 2010. > > I updated the DAO ref already. > > What reference or library am I missing when I get an error : > > Compile Error > > "Method or Data member not found" > > For this line: > > txtTerms_ID = rstTerms.[Terms_ID] > > .[Terms_ID] is highlighted. > > > > > > TIA > > Bob > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Mon May 1 15:29:39 2017 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Mon, 1 May 2017 16:29:39 -0400 Subject: [AccessD] Dan's Decorrupter was Error 3014 Cannot open any more tables In-Reply-To: <59054F4D.27363.4CC7697F@stuart.lexacorp.com.pg> References: <8E16E03987F1FD4FB0A9BEBF7CC160CB35852A79@HOUEX11.kindermorgan.com> <59054F4D.27363.4CC7697F@stuart.lexacorp.com.pg> Message-ID: <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> I get the error: Failed to load PDF document with a Reload option, which brings up the same error. I'm using Chrome as the browser. T Tina Norris Fields tinanfields-at-torchlake-dot-com 231-322-2787 On 04/29/17 10:43 PM, Stuart McLachlan wrote: > I've posted Dan's Decorrupter for those who want a copy at > > http://www.camcopng.com/decorrupter > From wrwehler at gmail.com Mon May 1 15:37:58 2017 From: wrwehler at gmail.com (Ryan W) Date: Mon, 1 May 2017 15:37:58 -0500 Subject: [AccessD] Dan's Decorrupter was Error 3014 Cannot open any more tables In-Reply-To: <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> References: <8E16E03987F1FD4FB0A9BEBF7CC160CB35852A79@HOUEX11.kindermorgan.com> <59054F4D.27363.4CC7697F@stuart.lexacorp.com.pg> <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> Message-ID: You need to right click the link and do "save as" and rename the .pdf to .mdb. Otherwise chrome just tries to open it up. On Mon, May 1, 2017 at 3:29 PM, Tina Norris Fields < tinanfields at torchlake.com> wrote: > I get the error: > > Failed to load PDF document > > with a Reload option, which brings up the same error. > > I'm using Chrome as the browser. > > T > > Tina Norris Fields > tinanfields-at-torchlake-dot-com > 231-322-2787 > > On 04/29/17 10:43 PM, Stuart McLachlan wrote: > >> I've posted Dan's Decorrupter for those who want a copy at >> >> http://www.camcopng.com/decorrupter >> >> > -- > 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 May 1 16:28:35 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Tue, 02 May 2017 07:28:35 +1000 Subject: [AccessD] Dan's Decorrupter was Error 3014 Cannot open any more tables In-Reply-To: <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> References: , <59054F4D.27363.4CC7697F@stuart.lexacorp.com.pg>, <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> Message-ID: <5907A883.5456.55F3C998@stuart.lexacorp.com.pg> OK, I've rename the file from .pdf to .bdm to assist anyone who has their browser configured to open and display rather than to download PDF files. (The only reason for any rename is to avoid problems for those who have A/V or policies which don't allow downloading MDBs from the web or via email because they can contain malicious code) On 1 May 2017 at 16:29, Tina Norris Fields wrote: > I get the error: > > Failed to load PDF document > > with a Reload option, which brings up the same error. > > I'm using Chrome as the browser. > > T > > Tina Norris Fields > tinanfields-at-torchlake-dot-com > 231-322-2787 > > On 04/29/17 10:43 PM, Stuart McLachlan wrote: > > I've posted Dan's Decorrupter for those who want a copy at > > > > http://www.camcopng.com/decorrupter > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bradm at blackforestltd.com Mon May 1 16:41:07 2017 From: bradm at blackforestltd.com (Brad Marks) Date: Mon, 1 May 2017 21:41:07 +0000 Subject: [AccessD] How to Change AccessD email address Message-ID: I would like to change my AccessD email address. Is there an easy way to do this? Do I need to unsubscribe and then resubscribe? Thanks, Brad From carbonnb at gmail.com Mon May 1 16:50:37 2017 From: carbonnb at gmail.com (Bryan Carbonnell) Date: Mon, 1 May 2017 17:50:37 -0400 Subject: [AccessD] How to Change AccessD email address In-Reply-To: References: Message-ID: Goto http://databaseadvisors.com/mailman/listinfo/accessd and login. When logged in you will be able to change your email address Bryan On 1 May 2017 at 17:41, Brad Marks wrote: > I would like to change my AccessD email address. > > Is there an easy way to do this? > > Do I need to unsubscribe and then resubscribe? > > Thanks, > Brad > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com -- Bryan Carbonnell - carbonnb at gmail.com Life's journey is not to arrive at the grave safely in a well-preserved body, but rather to skid in sideways, totally worn out, shouting "What a great ride!" From jwcolby at gmail.com Wed May 3 14:36:20 2017 From: jwcolby at gmail.com (John Colby) Date: Wed, 3 May 2017 15:36:20 -0400 Subject: [AccessD] Dan's Decorrupter was Error 3014 Cannot open any more tables In-Reply-To: <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> References: <8E16E03987F1FD4FB0A9BEBF7CC160CB35852A79@HOUEX11.kindermorgan.com> <59054F4D.27363.4CC7697F@stuart.lexacorp.com.pg> <5c0e5727-3ada-dd39-7463-ef6ebf200024@torchlake.com> Message-ID: <590A3134.5010608@Gmail.com> LOL< yea because it isn't a PDF and chrome is trying to display it. It has to be downloaded, then the extension changed etc. On 5/1/2017 4:29 PM, Tina Norris Fields wrote: > I get the error: > > Failed to load PDF document > > with a Reload option, which brings up the same error. > > I'm using Chrome as the browser. > > T > > Tina Norris Fields > tinanfields-at-torchlake-dot-com > 231-322-2787 > > On 04/29/17 10:43 PM, Stuart McLachlan wrote: >> I've posted Dan's Decorrupter for those who want a copy at >> >> http://www.camcopng.com/decorrupter >> > -- John W. Colby From darren at activebilling.com.au Fri May 5 02:04:21 2017 From: darren at activebilling.com.au (Darren - Active Billing) Date: Fri, 05 May 2017 17:04:21 +1000 Subject: [AccessD] A2003: Testing if a Service or an EXE is Running on another machine In-Reply-To: References: Message-ID: <3FBFFD1D-28F0-4117-8378-A48109B03BBD@activebilling.com.au> Hi Guys, Sending this again ? got no response last time (sad face) Old Windows boxes ? Mix of Server 2003 and XP. I have found some scripting to tell me if an executable is running on my local machine. Works great ? Sample below However, I am unable to get it to interrogate a different machine, without err. Errors usually relate to permissions. Scoured the googles and have tried various things, all to no avail. Has anyone successfully got this to work from Access? I also want to test if a certain ?service? is running on another machine. Would appreciate assistance with that too. Many thanks in advance Here?s an example of working code interrogating the local machine for an Executable. But fails when I pass a machine name or IP Address. Function f_IsExeRunning(strExeName As String, Optional strComputer As String = ".") As Boolean On Error GoTo Err_ Dim objProcesses As Object Set objProcesses = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strExeName & "'") If objProcesses.Count <> 0 Then f_IsExeRunning = True Exit_: On Error Resume Next Set objProcesses = Nothing Exit Function Err_: MsgBox Err.Number & " " & Err.Description, vbCritical, "An Error has Occured" Resume Exit_ End Function From bensonforums at gmail.com Fri May 5 02:31:18 2017 From: bensonforums at gmail.com (Bill Benson) Date: Fri, 5 May 2017 03:31:18 -0400 Subject: [AccessD] A2003: Testing if a Service or an EXE is Running on another machine In-Reply-To: <3FBFFD1D-28F0-4117-8378-A48109B03BBD@activebilling.com.au> References: <3FBFFD1D-28F0-4117-8378-A48109B03BBD@activebilling.com.au> Message-ID: I assume you have looked at this one, as your code looks quite similar. https://www.devhut.net/2014/10/20/vba-wmi-determine-if-a-process-is-running-or-not/ If you can't make that happen because of access rights then I presume that is going to stop you cold no matter what. I would think that many hackers could help you get around that, but I doubt many on this list would want to tell you how, even if they knew (or I would hope they would not). On Fri, May 5, 2017 at 3:04 AM, Darren - Active Billing < darren at activebilling.com.au> wrote: > Hi Guys, > > > > Sending this again ? got no response last time (sad face) > > > > > > Old Windows boxes ? Mix of Server 2003 and XP. I have found some scripting > to tell me if an executable is running on my local machine. Works great ? > Sample below > > > > However, I am unable to get it to interrogate a different machine, without > err. Errors usually relate to permissions. > > > > Scoured the googles and have tried various things, all to no avail. Has > anyone successfully got this to work from Access? > > > > I also want to test if a certain ?service? is running on another machine. > Would appreciate assistance with that too. > > > > Many thanks in advance > > > > > > Here?s an example of working code interrogating the local machine for an > Executable. But fails when I pass a machine name or IP Address. > > > > Function f_IsExeRunning(strExeName As String, Optional strComputer As > String = ".") As Boolean > > > > On Error GoTo Err_ > > > > Dim objProcesses As Object > > > > Set objProcesses = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" > & strComputer & "\root\cimv2").ExecQuery("SELECT * FROM Win32_Process > WHERE Name = '" & strExeName & "'") > > > > If objProcesses.Count <> 0 Then f_IsExeRunning = True > > > > Exit_: > > > > On Error Resume Next > > > > Set objProcesses = Nothing > > > > Exit Function > > > > Err_: > > > > MsgBox Err.Number & " " & Err.Description, vbCritical, "An Error has > Occured" > > > > Resume Exit_ > > > > End Function > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From darren at activebilling.com.au Fri May 5 02:44:19 2017 From: darren at activebilling.com.au (Darren - Active Billing) Date: Fri, 05 May 2017 17:44:19 +1000 Subject: [AccessD] A2003: Testing if a Service or an EXE is Running on another machine In-Reply-To: References: <3FBFFD1D-28F0-4117-8378-A48109B03BBD@activebilling.com.au> Message-ID: <8CC1C4E8-9BD4-4DDE-85BE-CFED34EF6456@activebilling.com.au> Many thanks for the prompt reply, Bill. Yes, I think that link you posted is where I got the original code. (Or at least parts/most of it) We have a few VM?s (Virtual Machines) and it?s these various VM?s that I want to interrogate ? all on the same network. Would allow me to write a nice tool, if I could test if an EXE and/or Service was running across machines?shame. Again ? Many thanks. Darren From: AccessD on behalf of Bill Benson Reply-To: Access Developers discussion and problem solving Date: Friday, 5 May 2017 5:31 pm To: Access Developers discussion and problem solving Subject: Re: [AccessD] A2003: Testing if a Service or an EXE is Running on another machine I assume you have looked at this one, as your code looks quite similar. https://www.devhut.net/2014/10/20/vba-wmi-determine-if-a-process-is-running-or-not/ If you can't make that happen because of access rights then I presume that is going to stop you cold no matter what. I would think that many hackers could help you get around that, but I doubt many on this list would want to tell you how, even if they knew (or I would hope they would not). On Fri, May 5, 2017 at 3:04 AM, Darren - Active Billing < darren at activebilling.com.au> wrote: Hi Guys, Sending this again ? got no response last time (sad face) Old Windows boxes ? Mix of Server 2003 and XP. I have found some scripting to tell me if an executable is running on my local machine. Works great ? Sample below However, I am unable to get it to interrogate a different machine, without err. Errors usually relate to permissions. Scoured the googles and have tried various things, all to no avail. Has anyone successfully got this to work from Access? I also want to test if a certain ?service? is running on another machine. Would appreciate assistance with that too. Many thanks in advance Here?s an example of working code interrogating the local machine for an Executable. But fails when I pass a machine name or IP Address. Function f_IsExeRunning(strExeName As String, Optional strComputer As String = ".") As Boolean On Error GoTo Err_ Dim objProcesses As Object Set objProcesses = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strExeName & "'") If objProcesses.Count <> 0 Then f_IsExeRunning = True Exit_: On Error Resume Next Set objProcesses = Nothing Exit Function Err_: MsgBox Err.Number & " " & Err.Description, vbCritical, "An Error has Occured" Resume Exit_ End Function -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 May 5 03:41:32 2017 From: gustav at cactus.dk (Gustav Brock) Date: Fri, 5 May 2017 08:41:32 +0000 Subject: [AccessD] WithEvents and Windows Phone Colours Message-ID: Hi all I had a need for a "colour picker" for the nice original Windows Phone colour palette. The codes are impossible to remember, so I was looking for a method to point and click to copy a value for later to be pasted into a property pane. As I wanted all values presented in the three often used formats for CSS, VBA, and as hex values - and had the colour values as an enumeration - I also needed some converter functions. Not much, and with a simple loop all field values could be set. However, writing code for 63 fields looked like a daunting task. This is where WithEvents came in and solved that with a few handfuls of code. I wrote it all up here as there are so few examples found demonstrating WithEvents: https://www.experts-exchange.com/articles/29554/Create-Windows-Phone-Colour-Palette-and-Selector-using-WithEvents.html with a reference to John Colby's old tutorial on WithEvents for the interested reader. The only principal difference to John's example is, that I didn't use 63 variables but a collection (as I learned from Shamil) to hold the controls. The colour palette of Windows Phone I have previously used here: https://www.experts-exchange.com/articles/17684/Modern-Metro-style-message-box-and-input-box-for-Microsoft-Access-2013.html /gustav From gustav at cactus.dk Tue May 9 04:00:21 2017 From: gustav at cactus.dk (Gustav Brock) Date: Tue, 9 May 2017 09:00:21 +0000 Subject: [AccessD] EU to support MariaDB Message-ID: Hi all EUR 25 million to support MariaDB's development of new software https://ec.europa.eu/commission/commissioners/2014-2019/katainen/announcements/investment-plan-europe-eur-25-million-support-mariadbs-development-new-software_en Not that I've used MariaDB, but I know some of you do. /gustav From jimdettman at verizon.net Tue May 9 07:41:18 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Tue, 9 May 2017 08:41:18 -0400 Subject: [AccessD] Updated Tree View control Message-ID: <195E6833D6944D38AC67DAA5866B7247@XPS> All, Picoware has announced an update to their Tree View control for Microsoft Access: https://www.picoware.de/info/history.htm?do=return &dispatch=engine Note: this is not in any way an endorsement of this product or an "ad"....just letting everyone know that it's out there and updated. Since this is one of the common requests on Access User Voice, I thought it would be of interest to people. The page does translate to English, just click "English" in the upper right after the page loads. Jim. From bensonforums at gmail.com Tue May 9 12:56:03 2017 From: bensonforums at gmail.com (Bill Benson) Date: Tue, 9 May 2017 13:56:03 -0400 Subject: [AccessD] Updated Tree View control In-Reply-To: <195E6833D6944D38AC67DAA5866B7247@XPS> References: <195E6833D6944D38AC67DAA5866B7247@XPS> Message-ID: Jim - are you implying an endorsement would be bad forum ettiquette? As far as I am concerned I look very favorably on endorsements by experts such as you! I would think a site with as low a volume as our list (no disrespect, just saying...) can handle a few well placed endorsements for products that are worthy in the eyes of the well informed and well traveled. On Tue, May 9, 2017 at 8:41 AM, Jim Dettman wrote: > All, > > Picoware has announced an update to their Tree View control for Microsoft > Access: > > https://www.picoware.de/info/history.htm?do=return > > &dispatch=engine > > Note: this is not in any way an endorsement of this product or an > "ad"....just letting everyone know that it's out there and updated. Since > this is one of the common requests on Access User Voice, I thought it would > be of interest to people. > > The page does translate to English, just click "English" in the upper right > after the page loads. > > Jim. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From jimdettman at verizon.net Tue May 9 14:44:05 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Tue, 9 May 2017 15:44:05 -0400 Subject: [AccessD] Updated Tree View control In-Reply-To: References: <195E6833D6944D38AC67DAA5866B7247@XPS> Message-ID: Bill, No, just that I have zero experience with it. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Tuesday, May 09, 2017 01:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Updated Tree View control Jim - are you implying an endorsement would be bad forum ettiquette? As far as I am concerned I look very favorably on endorsements by experts such as you! I would think a site with as low a volume as our list (no disrespect, just saying...) can handle a few well placed endorsements for products that are worthy in the eyes of the well informed and well traveled. On Tue, May 9, 2017 at 8:41 AM, Jim Dettman wrote: > All, > > Picoware has announced an update to their Tree View control for Microsoft > Access: > > https://www.picoware.de/info/history.htm?do=return > > &dispatch=engine > > Note: this is not in any way an endorsement of this product or an > "ad"....just letting everyone know that it's out there and updated. Since > this is one of the common requests on Access User Voice, I thought it would > be of interest to people. > > The page does translate to English, just click "English" in the upper right > after the page loads. > > Jim. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jerbach.db at gmail.com Tue May 9 15:58:16 2017 From: jerbach.db at gmail.com (Janet Erbach) Date: Tue, 9 May 2017 15:58:16 -0500 Subject: [AccessD] Error 3014 Cannot open any more tables In-Reply-To: References: Message-ID: Update on my 'Cannot open any more tables': my original form had a local temporary table as the data source; I was emptying it and re-filling it with current data from the network every 30 seconds. I restructured my code so that it linked instead to the network data directly instead. (I was using the local table to keep multiple users in this area from printing up copies of the same work order; I devised a different method to keep that from happening.) I have not hit error 3014 since. It was the continual emptying/refilling of the local table that triggered it. Thank you all for your help. Janet On Sat, Apr 29, 2017 at 3:13 AM, Bill Benson wrote: > The fact that you are doing something on a timer sounds to me that this is > acting like a loop. Do you need the timer to occur as frequently as it is? > If you changed it to a larger timer interval does the runtime duration > improve? If you shrink the interval does it deteriorate? That would be your > clue. > > From my non-flammable Note 3, > Bill Benson > > On Apr 25, 2017 5:40 PM, "Janet Erbach" wrote: > > Hello, all. > > I deployed a 2007 app today that is supposed to be up and running all the > time. It's relatively simple - one form bound to a temporary table that is > emptied and refilled every minute on the form timer event. > > After about 30 minutes, the app throws a 3014 Error - cannot open any more > tables. > > We are running jet 4.0, which is the most current, yes? If this is truly a > jet related error, there are a couple of things I can do to help optimize > the app - about half the queries in the app are run from saved query defs, > and I can convert all those to sql statements. I've decompiled and > reinstalled the access database engine, both suggestions that turned up in > a google search. But beyond these troubleshooting steps, I don't know what > else to do. > > Can you please give me some clues on what may be triggering this? I > haven't seen this error before (that I can remember, anyway) and I have > another app deployed on the shop floor which runs 24/7 and refreshes every > minute without any issues. Any help is greatly appreciated! > > Janet Erbach > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 gmail.com Tue May 9 16:10:06 2017 From: jwcolby at gmail.com (John Colby) Date: Tue, 9 May 2017 17:10:06 -0400 Subject: [AccessD] Error 3014 Cannot open any more tables In-Reply-To: References: Message-ID: <5912302E.3080602@Gmail.com> Great to hear! On 5/9/2017 4:58 PM, Janet Erbach wrote: > Update on my 'Cannot open any more tables': my original form had a local > temporary table as the data source; I was emptying it and re-filling it > with current data from the network every 30 seconds. I restructured my > code so that it linked instead to the network data directly instead. (I > was using the local table to keep multiple users in this area from printing > up copies of the same work order; I devised a different method to keep > that from happening.) > > I have not hit error 3014 since. It was the continual emptying/refilling > of the local table that triggered it. Thank you all for your help. > > Janet > > On Sat, Apr 29, 2017 at 3:13 AM, Bill Benson wrote: > >> The fact that you are doing something on a timer sounds to me that this is >> acting like a loop. Do you need the timer to occur as frequently as it is? >> If you changed it to a larger timer interval does the runtime duration >> improve? If you shrink the interval does it deteriorate? That would be your >> clue. >> >> From my non-flammable Note 3, >> Bill Benson >> >> On Apr 25, 2017 5:40 PM, "Janet Erbach" wrote: >> >> Hello, all. >> >> I deployed a 2007 app today that is supposed to be up and running all the >> time. It's relatively simple - one form bound to a temporary table that is >> emptied and refilled every minute on the form timer event. >> >> After about 30 minutes, the app throws a 3014 Error - cannot open any more >> tables. >> >> We are running jet 4.0, which is the most current, yes? If this is truly a >> jet related error, there are a couple of things I can do to help optimize >> the app - about half the queries in the app are run from saved query defs, >> and I can convert all those to sql statements. I've decompiled and >> reinstalled the access database engine, both suggestions that turned up in >> a google search. But beyond these troubleshooting steps, I don't know what >> else to do. >> >> Can you please give me some clues on what may be triggering this? I >> haven't seen this error before (that I can remember, anyway) and I have >> another app deployed on the shop floor which runs 24/7 and refreshes every >> minute without any issues. Any help is greatly appreciated! >> >> Janet Erbach >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> -- John W. Colby From darryl at whittleconsulting.com.au Tue May 9 16:29:58 2017 From: darryl at whittleconsulting.com.au (Darryl Collins) Date: Tue, 9 May 2017 21:29:58 +0000 Subject: [AccessD] Error 3014 Cannot open any more tables In-Reply-To: References: Message-ID: I will also add, - Great that you posted your experience, outcome and thoughts back to the list. That is valuable and helpful for everyone. Thanks. Cheers Darryl. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Janet Erbach Sent: Wednesday, 10 May 2017 6:58 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Error 3014 Cannot open any more tables Update on my 'Cannot open any more tables': my original form had a local temporary table as the data source; I was emptying it and re-filling it with current data from the network every 30 seconds. I restructured my code so that it linked instead to the network data directly instead. (I was using the local table to keep multiple users in this area from printing up copies of the same work order; I devised a different method to keep that from happening.) I have not hit error 3014 since. It was the continual emptying/refilling of the local table that triggered it. Thank you all for your help. Janet On Sat, Apr 29, 2017 at 3:13 AM, Bill Benson wrote: > The fact that you are doing something on a timer sounds to me that > this is acting like a loop. Do you need the timer to occur as frequently as it is? > If you changed it to a larger timer interval does the runtime duration > improve? If you shrink the interval does it deteriorate? That would be > your clue. > > From my non-flammable Note 3, > Bill Benson > > On Apr 25, 2017 5:40 PM, "Janet Erbach" wrote: > > Hello, all. > > I deployed a 2007 app today that is supposed to be up and running all > the time. It's relatively simple - one form bound to a temporary > table that is emptied and refilled every minute on the form timer event. > > After about 30 minutes, the app throws a 3014 Error - cannot open any > more tables. > > We are running jet 4.0, which is the most current, yes? If this is > truly a jet related error, there are a couple of things I can do to > help optimize the app - about half the queries in the app are run from > saved query defs, and I can convert all those to sql statements. I've > decompiled and reinstalled the access database engine, both > suggestions that turned up in a google search. But beyond these > troubleshooting steps, I don't know what else to do. > > Can you please give me some clues on what may be triggering this? I > haven't seen this error before (that I can remember, anyway) and I > have another app deployed on the shop floor which runs 24/7 and > refreshes every minute without any issues. Any help is greatly appreciated! > > Janet Erbach > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Tue May 9 17:26:30 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 9 May 2017 15:26:30 -0700 Subject: [AccessD] Delete Record Problem Message-ID: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Dear List: I have a bound form. With a delete button. Behind the button is some simple code. The line which runs the delete is being executed; "Delete Done" message is displayed. But the record is not being deleted. It's still there! I've posted the delete module's code below. I have another form that does Accounting Firm Courses instead of Society Courses. Same problem! Any idea why this simple command is not working? This is an mdb being developed in A2010. MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub If gintAccessLevel < 3 Then MsgBox "Read Write Access Required", , vbExclamation Exit Sub End If On Error GoTo IsIt2501: Dim inI As Integer intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _ "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) If intI <> 0 Then intReply = MsgBox("This Course Offering appears in " & intI _ & " Particpant Course History record(s). " _ & vbCrLf & vbCrLf & "Deleting this Course Offering will delete it from those Participant histories. " _ & vbCrLf & vbCrLf & "Do you still wish to delete this Course Offering?", vbYesNo) If intReply = vbNo Then MsgBox "Course Offering Not Deleted.", vbExclamation Exit Sub End If End If intReply = MsgBox("OK to Delete this course?", vbYesNo) If intReply = vbNo Then MsgBox "Delete Canceled.", vbExclamation Exit Sub End If DoCmd.RunCommand acCmdDeleteRecord MsgBox "Delete Done.", vbExclamation Exit Sub IsIt2501: If Err.Number = 2501 Then Exit Sub Else MsgBox "Error: " & Err.Number & " - " & Err.Description End If From bensonforums at gmail.com Tue May 9 17:35:20 2017 From: bensonforums at gmail.com (Bill Benson) Date: Tue, 9 May 2017 18:35:20 -0400 Subject: [AccessD] Delete Record Problem In-Reply-To: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: It seems to me toy do not need a colon after on error goto IsIt2501. Is that perhaps causing the error code to be ignored and the msgbox announcing delete occurred to happen? >From my non-flammable Note 3, Bill Benson On May 9, 2017 6:28 PM, "Rocky Smolin" wrote: Dear List: I have a bound form. With a delete button. Behind the button is some simple code. The line which runs the delete is being executed; "Delete Done" message is displayed. But the record is not being deleted. It's still there! I've posted the delete module's code below. I have another form that does Accounting Firm Courses instead of Society Courses. Same problem! Any idea why this simple command is not working? This is an mdb being developed in A2010. MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub If gintAccessLevel < 3 Then MsgBox "Read Write Access Required", , vbExclamation Exit Sub End If On Error GoTo IsIt2501: Dim inI As Integer intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _ "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) If intI <> 0 Then intReply = MsgBox("This Course Offering appears in " & intI _ & " Particpant Course History record(s). " _ & vbCrLf & vbCrLf & "Deleting this Course Offering will delete it from those Participant histories. " _ & vbCrLf & vbCrLf & "Do you still wish to delete this Course Offering?", vbYesNo) If intReply = vbNo Then MsgBox "Course Offering Not Deleted.", vbExclamation Exit Sub End If End If intReply = MsgBox("OK to Delete this course?", vbYesNo) If intReply = vbNo Then MsgBox "Delete Canceled.", vbExclamation Exit Sub End If DoCmd.RunCommand acCmdDeleteRecord MsgBox "Delete Done.", vbExclamation Exit Sub IsIt2501: If Err.Number = 2501 Then Exit Sub Else MsgBox "Error: " & Err.Number & " - " & Err.Description End If -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jwcolby at gmail.com Tue May 9 17:56:22 2017 From: jwcolby at gmail.com (John Colby) Date: Tue, 9 May 2017 18:56:22 -0400 Subject: [AccessD] Delete Record Problem In-Reply-To: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: <59124916.9000207@Gmail.com> They are taking after Google. Never delete anything, just archive it and use it for mining personal info to sell Ads. ;) On 5/9/2017 6:26 PM, Rocky Smolin wrote: > Dear List: > > > > I have a bound form. With a delete button. Behind the button is some > simple code. The line which runs the delete is being executed; "Delete > Done" message is displayed. > > > > But the record is not being deleted. It's still there! > > > > I've posted the delete module's code below. > > > > I have another form that does Accounting Firm Courses instead of Society > Courses. Same problem! > > > > Any idea why this simple command is not working? This is an mdb being > developed in A2010. > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > If gintAccessLevel < 3 Then > > MsgBox "Read Write Access Required", , vbExclamation > > Exit Sub > > End If > > > > On Error GoTo IsIt2501: > > > > Dim inI As Integer > > > > intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _ > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > If intI <> 0 Then > > intReply = MsgBox("This Course Offering appears in " & intI _ > > & " Particpant Course History record(s). " _ > > & vbCrLf & vbCrLf & "Deleting this Course Offering will delete > it from those Participant histories. " _ > > & vbCrLf & vbCrLf & "Do you still wish to delete this Course > Offering?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Course Offering Not Deleted.", vbExclamation > > Exit Sub > > End If > > End If > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Delete Canceled.", vbExclamation > > Exit Sub > > End If > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > MsgBox "Delete Done.", vbExclamation > > Exit Sub > > > > IsIt2501: > > If Err.Number = 2501 Then > > Exit Sub > > Else > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > End If > -- John W. Colby From rockysmolin at bchacc.com Tue May 9 18:47:11 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 9 May 2017 16:47:11 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: <052101d2c91e$94575940$bd060bc0$@bchacc.com> I don't think so. I've been using that syntax for a couple of decades. Actually I tried commenting out the On Error but it made no difference. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Tuesday, May 09, 2017 3:35 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem It seems to me toy do not need a colon after on error goto IsIt2501. Is that perhaps causing the error code to be ignored and the msgbox announcing delete occurred to happen? >From my non-flammable Note 3, Bill Benson On May 9, 2017 6:28 PM, "Rocky Smolin" wrote: Dear List: I have a bound form. With a delete button. Behind the button is some simple code. The line which runs the delete is being executed; "Delete Done" message is displayed. But the record is not being deleted. It's still there! I've posted the delete module's code below. I have another form that does Accounting Firm Courses instead of Society Courses. Same problem! Any idea why this simple command is not working? This is an mdb being developed in A2010. MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub If gintAccessLevel < 3 Then MsgBox "Read Write Access Required", , vbExclamation Exit Sub End If On Error GoTo IsIt2501: Dim inI As Integer intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _ "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) If intI <> 0 Then intReply = MsgBox("This Course Offering appears in " & intI _ & " Particpant Course History record(s). " _ & vbCrLf & vbCrLf & "Deleting this Course Offering will delete it from those Participant histories. " _ & vbCrLf & vbCrLf & "Do you still wish to delete this Course Offering?", vbYesNo) If intReply = vbNo Then MsgBox "Course Offering Not Deleted.", vbExclamation Exit Sub End If End If intReply = MsgBox("OK to Delete this course?", vbYesNo) If intReply = vbNo Then MsgBox "Delete Canceled.", vbExclamation Exit Sub End If DoCmd.RunCommand acCmdDeleteRecord MsgBox "Delete Done.", vbExclamation Exit Sub IsIt2501: If Err.Number = 2501 Then Exit Sub Else MsgBox "Error: " & Err.Number & " - " & Err.Description 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 rockysmolin at bchacc.com Tue May 9 18:48:33 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 9 May 2017 16:48:33 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: <59124916.9000207@Gmail.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> <59124916.9000207@Gmail.com> Message-ID: <052201d2c91e$c4e5c4c0$4eb14e40$@bchacc.com> Ha. I'm too old to start a new business. In fact, I'm mostly retired and just do this for fun now and to give me the illusion of productivity. But right now it's not fun. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby Sent: Tuesday, May 09, 2017 3:56 PM To: Access Developers discussion and problem solving Cc: 'Off Topic' Subject: Re: [AccessD] Delete Record Problem They are taking after Google. Never delete anything, just archive it and use it for mining personal info to sell Ads. ;) On 5/9/2017 6:26 PM, Rocky Smolin wrote: > Dear List: > > > > I have a bound form. With a delete button. Behind the button is some > simple code. The line which runs the delete is being executed; > "Delete Done" message is displayed. > > > > But the record is not being deleted. It's still there! > > > > I've posted the delete module's code below. > > > > I have another form that does Accounting Firm Courses instead of > Society Courses. Same problem! > > > > Any idea why this simple command is not working? This is an mdb being > developed in A2010. > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > If gintAccessLevel < 3 Then > > MsgBox "Read Write Access Required", , vbExclamation > > Exit Sub > > End If > > > > On Error GoTo IsIt2501: > > > > Dim inI As Integer > > > > intI = DCount("fldCourseOfferingID", > "tblParticipantCourseOffering", _ > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > If intI <> 0 Then > > intReply = MsgBox("This Course Offering appears in " & intI _ > > & " Particpant Course History record(s). " _ > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > delete it from those Participant histories. " _ > > & vbCrLf & vbCrLf & "Do you still wish to delete this > Course Offering?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Course Offering Not Deleted.", vbExclamation > > Exit Sub > > End If > > End If > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Delete Canceled.", vbExclamation > > Exit Sub > > End If > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > MsgBox "Delete Done.", vbExclamation > > Exit Sub > > > > IsIt2501: > > If Err.Number = 2501 Then > > Exit Sub > > Else > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > End If > -- John W. Colby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dbdoug at gmail.com Tue May 9 19:17:43 2017 From: dbdoug at gmail.com (Doug Steele) Date: Tue, 9 May 2017 17:17:43 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: Hi Rocky: Can you delete a record manually from the recordset bound to the form? I've had problems in the past where the recordset won't allow deletions. I know I've had a similar problem to you in the past - I think that I got around it by using something like DoCmd.RunSQL "Delete * from myTable where unique key = whatever" Doug On Tue, May 9, 2017 at 3:35 PM, Bill Benson wrote: > It seems to me toy do not need a colon after on error goto IsIt2501. > > Is that perhaps causing the error code to be ignored and the msgbox > announcing delete occurred to happen? > > From my non-flammable Note 3, > Bill Benson > > On May 9, 2017 6:28 PM, "Rocky Smolin" wrote: > > Dear List: > > > > I have a bound form. With a delete button. Behind the button is some > simple code. The line which runs the delete is being executed; "Delete > Done" message is displayed. > > > > But the record is not being deleted. It's still there! > > > > I've posted the delete module's code below. > > > > I have another form that does Accounting Firm Courses instead of Society > Courses. Same problem! > > > > Any idea why this simple command is not working? This is an mdb being > developed in A2010. > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > If gintAccessLevel < 3 Then > > MsgBox "Read Write Access Required", , vbExclamation > > Exit Sub > > End If > > > > On Error GoTo IsIt2501: > > > > Dim inI As Integer > > > > intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _ > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > If intI <> 0 Then > > intReply = MsgBox("This Course Offering appears in " & intI _ > > & " Particpant Course History record(s). " _ > > & vbCrLf & vbCrLf & "Deleting this Course Offering will delete > it from those Participant histories. " _ > > & vbCrLf & vbCrLf & "Do you still wish to delete this > Course > Offering?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Course Offering Not Deleted.", vbExclamation > > Exit Sub > > End If > > End If > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Delete Canceled.", vbExclamation > > Exit Sub > > End If > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > MsgBox "Delete Done.", vbExclamation > > Exit Sub > > > > IsIt2501: > > If Err.Number = 2501 Then > > Exit Sub > > Else > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > 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 rockysmolin at bchacc.com Tue May 9 20:09:14 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 9 May 2017 18:09:14 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: <053c01d2c92a$0a3858c0$1ea90a40$@bchacc.com> I tried the DoCmd.RunSQL approach earlier and had some trouble so I abandoned it. So I went back to it and managed to get it working but in a way that doesn't make me happy. Someday some programmer will have to maintain this and say "What the F!" but for the moment this, believe it or not, works. Thanks for push. And yes, both Requeries are necessary. Rocky DoCmd.SetWarnings False DoCmd.RunSQL "Delete * FROM tblSocietyCourseOfferings WHERE " _ & "fldSocietyCourseOfferingID = " & Me.fldSocietyCourseOfferingID DoCmd.SetWarnings True Me.Requery Me.cboSocietyCourseOfferings.Requery MsgBox "Delete Done.", vbExclamation Me.Requery Exit Sub IsIt2501: If Err.Number = 2501 Then Exit Sub If Err.Number = 3167 Then Resume Next MsgBox "Error: " & Err.Number & " - " & Err.Description -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Steele Sent: Tuesday, May 09, 2017 5:18 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky: Can you delete a record manually from the recordset bound to the form? I've had problems in the past where the recordset won't allow deletions. I know I've had a similar problem to you in the past - I think that I got around it by using something like DoCmd.RunSQL "Delete * from myTable where unique key = whatever" Doug On Tue, May 9, 2017 at 3:35 PM, Bill Benson wrote: > It seems to me toy do not need a colon after on error goto IsIt2501. > > Is that perhaps causing the error code to be ignored and the msgbox > announcing delete occurred to happen? > > From my non-flammable Note 3, > Bill Benson > > On May 9, 2017 6:28 PM, "Rocky Smolin" wrote: > > Dear List: > > > > I have a bound form. With a delete button. Behind the button is some > simple code. The line which runs the delete is being executed; > "Delete Done" message is displayed. > > > > But the record is not being deleted. It's still there! > > > > I've posted the delete module's code below. > > > > I have another form that does Accounting Firm Courses instead of > Society Courses. Same problem! > > > > Any idea why this simple command is not working? This is an mdb being > developed in A2010. > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > If gintAccessLevel < 3 Then > > MsgBox "Read Write Access Required", , vbExclamation > > Exit Sub > > End If > > > > On Error GoTo IsIt2501: > > > > Dim inI As Integer > > > > intI = DCount("fldCourseOfferingID", > "tblParticipantCourseOffering", _ > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > If intI <> 0 Then > > intReply = MsgBox("This Course Offering appears in " & intI _ > > & " Particpant Course History record(s). " _ > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > delete it from those Participant histories. " _ > > & vbCrLf & vbCrLf & "Do you still wish to delete this > Course Offering?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Course Offering Not Deleted.", vbExclamation > > Exit Sub > > End If > > End If > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Delete Canceled.", vbExclamation > > Exit Sub > > End If > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > MsgBox "Delete Done.", vbExclamation > > Exit Sub > > > > IsIt2501: > > If Err.Number = 2501 Then > > Exit Sub > > Else > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > 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 stuart at lexacorp.com.pg Tue May 9 22:51:27 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Wed, 10 May 2017 13:51:27 +1000 Subject: [AccessD] Delete Record Problem In-Reply-To: References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , Message-ID: <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 rockysmolin at bchacc.com Wed May 10 00:32:27 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 9 May 2017 22:32:27 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> Message-ID: <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com> Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From steve at datamanagementsolutions.biz Wed May 10 01:20:04 2017 From: steve at datamanagementsolutions.biz (Steve Schapel) Date: Wed, 10 May 2017 18:20:04 +1200 Subject: [AccessD] Delete Record Problem In-Reply-To: <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com> Message-ID: <1472CF4999BC439B8D0328635E530F19@SteveT540p> Hi Rocky I'd be interested to know what is the Record Source of the form. Regards Steve -----Original Message----- From: Rocky Smolin Sent: Wednesday, May 10, 2017 5:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Wed May 10 08:34:23 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 10 May 2017 06:34:23 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: <1472CF4999BC439B8D0328635E530F19@SteveT540p> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com> <1472CF4999BC439B8D0328635E530F19@SteveT540p> Message-ID: <05b401d2c992$23064f70$6912ee50$@bchacc.com> Steve: It's a query " qrySocietyCourseOfferings". Whe I run it a la carte I can add, modify, and delete records. So it is updateable. Here's the SQL view: SELECT tblShippingData_Society.fldSDSocOrgType, tblSocietyCourseOfferings.fldSocietyCourseOfferingCourseNumber, tblSocietyCourseOfferings.fldSocietyCourseOfferingID, tblCourses.fldCourseName, tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingPDFMaterialsOnly, tblSocietyCourseOfferings.fldSocietyCourseOfferingJustMaterialsNoPDF, tblDiscussionLeader.fldDLFirstName, tblDiscussionLeader.fldDLLastName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName, tblSocietyCourseOfferings.fldCourseID, tblSocietyCourseOfferings.fldSocietyID, tblSocietyCourseOfferings.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingStateID, tblSocietyCourseOfferings.fldSocietyCourseOfferingAHIMaterialsFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingRetailCourseFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingDays, tblSocietyCourseOfferings.fldSocietyCourseOfferingCity, tblSocietyCourseOfferings.fldSocietyCourseOfferingDiscussionLeader, tblSocietyCourseOfferings.fldSocietyCourseOfferingMinimumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingMaximumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingTotalParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredAsOf, tblSocietyCourseOfferings.fldSocietyCourseOfferingComments, tblSocietyCourseOfferings.fldSocietyCourseOfferingStatus, tblSocietyCourseOfferings.fldSocietyCourseCancelledDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingYear, tblSocietyCourseOfferings.fldSocietyCourseOfferingStrengthOfCourses, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterStatus, tblSocietyCourseOfferings.fldSocietyCourseOfferingCPEDirectorLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingOKToMarket, tblSocietyCourseOfferings.fldSocietyCourseOfferingStartMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingEndMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingSameCourseLastYearID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPriorCourseLastYearID, tblDiscussionLeader.fldDLBasicRating, tblDiscussionLeader.fldDLSemiSeniorRating, tblDiscussionLeader.fldDLBeginningInChargeRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPreCourseMaterialsSent, tblShippingData_Society.*, * FROM (((tblSocietyCourseOfferings LEFT JOIN tblCourses ON tblSocietyCourseOfferings.fldCourseID = tblCourses.fldCourseID) INNER JOIN tblSociety ON tblSocietyCourseOfferings.fldSocietyID = tblSociety.fldSocietyID) LEFT JOIN tblDiscussionLeader ON tblSocietyCourseOfferings.fldDiscussionLeaderID = tblDiscussionLeader.fldDiscussionLeaderID) LEFT JOIN tblShippingData_Society ON tblSocietyCourseOfferings.fldSocietyCourseOfferingID = tblShippingData_Society.fldCourseOfferingID ORDER BY tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName; -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Tuesday, May 09, 2017 11:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky I'd be interested to know what is the Record Source of the form. Regards Steve -----Original Message----- From: Rocky Smolin Sent: Wednesday, May 10, 2017 5:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bensonforums at gmail.com Wed May 10 11:33:25 2017 From: bensonforums at gmail.com (Bill Benson) Date: Wed, 10 May 2017 12:33:25 -0400 Subject: [AccessD] Delete Record Problem In-Reply-To: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: Is this the same for all records, or only particular records? Is it possible that the ones not being deleted is one that has not truly been saved yet, but that which when you leave it in form view it does become saved, and then can be deleted if tried again? On Tue, May 9, 2017 at 6:26 PM, Rocky Smolin wrote: > Dear List: > > > > I have a bound form. With a delete button. Behind the button is some > simple code. The line which runs the delete is being executed; "Delete > Done" message is displayed. > > > > But the record is not being deleted. It's still there! > > > > I've posted the delete module's code below. > > > > I have another form that does Accounting Firm Courses instead of Society > Courses. Same problem! > > > > Any idea why this simple command is not working? This is an mdb being > developed in A2010. > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > If gintAccessLevel < 3 Then > > MsgBox "Read Write Access Required", , vbExclamation > > Exit Sub > > End If > > > > On Error GoTo IsIt2501: > > > > Dim inI As Integer > > > > intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _ > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > If intI <> 0 Then > > intReply = MsgBox("This Course Offering appears in " & intI _ > > & " Particpant Course History record(s). " _ > > & vbCrLf & vbCrLf & "Deleting this Course Offering will delete > it from those Participant histories. " _ > > & vbCrLf & vbCrLf & "Do you still wish to delete this > Course > Offering?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Course Offering Not Deleted.", vbExclamation > > Exit Sub > > End If > > End If > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Delete Canceled.", vbExclamation > > Exit Sub > > End If > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > MsgBox "Delete Done.", vbExclamation > > Exit Sub > > > > IsIt2501: > > If Err.Number = 2501 Then > > Exit Sub > > Else > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > End If > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From rockysmolin at bchacc.com Wed May 10 13:16:22 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 10 May 2017 11:16:22 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com> Message-ID: <069201d2c9b9$87e573e0$97b05ba0$@bchacc.com> No. All records. And it was the same for two other forms - similar - courses for Firms and Associations. So I used the same technique for them as well. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Wednesday, May 10, 2017 9:33 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Is this the same for all records, or only particular records? Is it possible that the ones not being deleted is one that has not truly been saved yet, but that which when you leave it in form view it does become saved, and then can be deleted if tried again? On Tue, May 9, 2017 at 6:26 PM, Rocky Smolin wrote: > Dear List: > > > > I have a bound form. With a delete button. Behind the button is some > simple code. The line which runs the delete is being executed; > "Delete Done" message is displayed. > > > > But the record is not being deleted. It's still there! > > > > I've posted the delete module's code below. > > > > I have another form that does Accounting Firm Courses instead of > Society Courses. Same problem! > > > > Any idea why this simple command is not working? This is an mdb being > developed in A2010. > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > If gintAccessLevel < 3 Then > > MsgBox "Read Write Access Required", , vbExclamation > > Exit Sub > > End If > > > > On Error GoTo IsIt2501: > > > > Dim inI As Integer > > > > intI = DCount("fldCourseOfferingID", > "tblParticipantCourseOffering", _ > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > If intI <> 0 Then > > intReply = MsgBox("This Course Offering appears in " & intI _ > > & " Particpant Course History record(s). " _ > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > delete it from those Participant histories. " _ > > & vbCrLf & vbCrLf & "Do you still wish to delete this > Course Offering?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Course Offering Not Deleted.", vbExclamation > > Exit Sub > > End If > > End If > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > If intReply = vbNo Then > > MsgBox "Delete Canceled.", vbExclamation > > Exit Sub > > End If > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > MsgBox "Delete Done.", vbExclamation > > Exit Sub > > > > IsIt2501: > > If Err.Number = 2501 Then > > Exit Sub > > Else > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > 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 fuller.artful at gmail.com Wed May 10 14:51:23 2017 From: fuller.artful at gmail.com (Arthur Fuller) Date: Wed, 10 May 2017 15:51:23 -0400 Subject: [AccessD] EU to support MariaDB In-Reply-To: References: Message-ID: Gustav, I do, and vastly prefer it to MySQL, which Monty also wrote, but after the Sun-then-Oracle acquisitions, Monty quit in about a month and created Maria. (He names his creations after his daughters.) On Tue, May 9, 2017 at 5:00 AM, Gustav Brock wrote: > Hi all > > EUR 25 million to support MariaDB's development of new software > > https://ec.europa.eu/commission/commissioners/2014- > 2019/katainen/announcements/investment-plan-europe-eur-25- > million-support-mariadbs-development-new-software_en > > Not that I've used MariaDB, but I know some of you do. > > /gustav > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- Arthur From steve at datamanagementsolutions.biz Wed May 10 16:29:19 2017 From: steve at datamanagementsolutions.biz (Steve Schapel) Date: Thu, 11 May 2017 09:29:19 +1200 Subject: [AccessD] Delete Record Problem In-Reply-To: <05b401d2c992$23064f70$6912ee50$@bchacc.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com><1472CF4999BC439B8D0328635E530F19@SteveT540p> <05b401d2c992$23064f70$6912ee50$@bchacc.com> Message-ID: Hi Rocky Ok, fair enough. Here's another random thought... Check the Allow Deletions property of the form? Regards Steve -----Original Message----- From: Rocky Smolin Sent: Thursday, May 11, 2017 1:34 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Steve: It's a query " qrySocietyCourseOfferings". Whe I run it a la carte I can add, modify, and delete records. So it is updateable. Here's the SQL view: SELECT tblShippingData_Society.fldSDSocOrgType, tblSocietyCourseOfferings.fldSocietyCourseOfferingCourseNumber, tblSocietyCourseOfferings.fldSocietyCourseOfferingID, tblCourses.fldCourseName, tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingPDFMaterialsOnly, tblSocietyCourseOfferings.fldSocietyCourseOfferingJustMaterialsNoPDF, tblDiscussionLeader.fldDLFirstName, tblDiscussionLeader.fldDLLastName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName, tblSocietyCourseOfferings.fldCourseID, tblSocietyCourseOfferings.fldSocietyID, tblSocietyCourseOfferings.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingStateID, tblSocietyCourseOfferings.fldSocietyCourseOfferingAHIMaterialsFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingRetailCourseFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingDays, tblSocietyCourseOfferings.fldSocietyCourseOfferingCity, tblSocietyCourseOfferings.fldSocietyCourseOfferingDiscussionLeader, tblSocietyCourseOfferings.fldSocietyCourseOfferingMinimumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingMaximumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingTotalParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredAsOf, tblSocietyCourseOfferings.fldSocietyCourseOfferingComments, tblSocietyCourseOfferings.fldSocietyCourseOfferingStatus, tblSocietyCourseOfferings.fldSocietyCourseCancelledDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingYear, tblSocietyCourseOfferings.fldSocietyCourseOfferingStrengthOfCourses, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterStatus, tblSocietyCourseOfferings.fldSocietyCourseOfferingCPEDirectorLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingOKToMarket, tblSocietyCourseOfferings.fldSocietyCourseOfferingStartMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingEndMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingSameCourseLastYearID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPriorCourseLastYearID, tblDiscussionLeader.fldDLBasicRating, tblDiscussionLeader.fldDLSemiSeniorRating, tblDiscussionLeader.fldDLBeginningInChargeRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPreCourseMaterialsSent, tblShippingData_Society.*, * FROM (((tblSocietyCourseOfferings LEFT JOIN tblCourses ON tblSocietyCourseOfferings.fldCourseID = tblCourses.fldCourseID) INNER JOIN tblSociety ON tblSocietyCourseOfferings.fldSocietyID = tblSociety.fldSocietyID) LEFT JOIN tblDiscussionLeader ON tblSocietyCourseOfferings.fldDiscussionLeaderID = tblDiscussionLeader.fldDiscussionLeaderID) LEFT JOIN tblShippingData_Society ON tblSocietyCourseOfferings.fldSocietyCourseOfferingID = tblShippingData_Society.fldCourseOfferingID ORDER BY tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName; -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Tuesday, May 09, 2017 11:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky I'd be interested to know what is the Record Source of the form. Regards Steve -----Original Message----- From: Rocky Smolin Sent: Wednesday, May 10, 2017 5:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Wed May 10 16:35:15 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 10 May 2017 14:35:15 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com><1472CF4999BC439B8D0328635E530F19@SteveT540p> <05b401d2c992$23064f70$6912ee50$@bchacc.com> Message-ID: <06e801d2c9d5$50030d40$f00927c0$@bchacc.com> Yeah - first thought. Even printed out the Allow Deletions property in the delete module just to see if it was somehow getting turned off. But no cigar. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Wednesday, May 10, 2017 2:29 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky Ok, fair enough. Here's another random thought... Check the Allow Deletions property of the form? Regards Steve -----Original Message----- From: Rocky Smolin Sent: Thursday, May 11, 2017 1:34 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Steve: It's a query " qrySocietyCourseOfferings". Whe I run it a la carte I can add, modify, and delete records. So it is updateable. Here's the SQL view: SELECT tblShippingData_Society.fldSDSocOrgType, tblSocietyCourseOfferings.fldSocietyCourseOfferingCourseNumber, tblSocietyCourseOfferings.fldSocietyCourseOfferingID, tblCourses.fldCourseName, tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingPDFMaterialsOnly, tblSocietyCourseOfferings.fldSocietyCourseOfferingJustMaterialsNoPDF, tblDiscussionLeader.fldDLFirstName, tblDiscussionLeader.fldDLLastName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName, tblSocietyCourseOfferings.fldCourseID, tblSocietyCourseOfferings.fldSocietyID, tblSocietyCourseOfferings.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingStateID, tblSocietyCourseOfferings.fldSocietyCourseOfferingAHIMaterialsFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingRetailCourseFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingDays, tblSocietyCourseOfferings.fldSocietyCourseOfferingCity, tblSocietyCourseOfferings.fldSocietyCourseOfferingDiscussionLeader, tblSocietyCourseOfferings.fldSocietyCourseOfferingMinimumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingMaximumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingTotalParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredAsOf, tblSocietyCourseOfferings.fldSocietyCourseOfferingComments, tblSocietyCourseOfferings.fldSocietyCourseOfferingStatus, tblSocietyCourseOfferings.fldSocietyCourseCancelledDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingYear, tblSocietyCourseOfferings.fldSocietyCourseOfferingStrengthOfCourses, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterStatus, tblSocietyCourseOfferings.fldSocietyCourseOfferingCPEDirectorLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingOKToMarket, tblSocietyCourseOfferings.fldSocietyCourseOfferingStartMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingEndMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingSameCourseLastYearID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPriorCourseLastYearID, tblDiscussionLeader.fldDLBasicRating, tblDiscussionLeader.fldDLSemiSeniorRating, tblDiscussionLeader.fldDLBeginningInChargeRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPreCourseMaterialsSent, tblShippingData_Society.*, * FROM (((tblSocietyCourseOfferings LEFT JOIN tblCourses ON tblSocietyCourseOfferings.fldCourseID = tblCourses.fldCourseID) INNER JOIN tblSociety ON tblSocietyCourseOfferings.fldSocietyID = tblSociety.fldSocietyID) LEFT JOIN tblDiscussionLeader ON tblSocietyCourseOfferings.fldDiscussionLeaderID = tblDiscussionLeader.fldDiscussionLeaderID) LEFT JOIN tblShippingData_Society ON tblSocietyCourseOfferings.fldSocietyCourseOfferingID = tblShippingData_Society.fldCourseOfferingID ORDER BY tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName; -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Tuesday, May 09, 2017 11:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky I'd be interested to know what is the Record Source of the form. Regards Steve -----Original Message----- From: Rocky Smolin Sent: Wednesday, May 10, 2017 5:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From BWalsh at healthinsight.org Wed May 10 17:39:01 2017 From: BWalsh at healthinsight.org (Bob Walsh) Date: Wed, 10 May 2017 22:39:01 +0000 Subject: [AccessD] Delete Record Problem In-Reply-To: <06e801d2c9d5$50030d40$f00927c0$@bchacc.com> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com><1472CF4999BC439B8D0328635E530F19@SteveT540p> <05b401d2c992$23064f70$6912ee50$@bchacc.com> <06e801d2c9d5$50030d40$f00927c0$@bchacc.com> Message-ID: <68D062755DECC8469BEF3FB828D8294D1D3DCB9B@LVHIMAIL01.healthinsight.local> Did you try: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 10, 2017 2:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah - first thought. Even printed out the Allow Deletions property in the delete module just to see if it was somehow getting turned off. But no cigar. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Wednesday, May 10, 2017 2:29 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky Ok, fair enough. Here's another random thought... Check the Allow Deletions property of the form? Regards Steve -----Original Message----- From: Rocky Smolin Sent: Thursday, May 11, 2017 1:34 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Steve: It's a query " qrySocietyCourseOfferings". Whe I run it a la carte I can add, modify, and delete records. So it is updateable. Here's the SQL view: SELECT tblShippingData_Society.fldSDSocOrgType, tblSocietyCourseOfferings.fldSocietyCourseOfferingCourseNumber, tblSocietyCourseOfferings.fldSocietyCourseOfferingID, tblCourses.fldCourseName, tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingPDFMaterialsOnly, tblSocietyCourseOfferings.fldSocietyCourseOfferingJustMaterialsNoPDF, tblDiscussionLeader.fldDLFirstName, tblDiscussionLeader.fldDLLastName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName, tblSocietyCourseOfferings.fldCourseID, tblSocietyCourseOfferings.fldSocietyID, tblSocietyCourseOfferings.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingStateID, tblSocietyCourseOfferings.fldSocietyCourseOfferingAHIMaterialsFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingRetailCourseFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingDays, tblSocietyCourseOfferings.fldSocietyCourseOfferingCity, tblSocietyCourseOfferings.fldSocietyCourseOfferingDiscussionLeader, tblSocietyCourseOfferings.fldSocietyCourseOfferingMinimumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingMaximumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingTotalParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredAsOf, tblSocietyCourseOfferings.fldSocietyCourseOfferingComments, tblSocietyCourseOfferings.fldSocietyCourseOfferingStatus, tblSocietyCourseOfferings.fldSocietyCourseCancelledDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingYear, tblSocietyCourseOfferings.fldSocietyCourseOfferingStrengthOfCourses, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterStatus, tblSocietyCourseOfferings.fldSocietyCourseOfferingCPEDirectorLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingOKToMarket, tblSocietyCourseOfferings.fldSocietyCourseOfferingStartMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingEndMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingSameCourseLastYearID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPriorCourseLastYearID, tblDiscussionLeader.fldDLBasicRating, tblDiscussionLeader.fldDLSemiSeniorRating, tblDiscussionLeader.fldDLBeginningInChargeRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPreCourseMaterialsSent, tblShippingData_Society.*, * FROM (((tblSocietyCourseOfferings LEFT JOIN tblCourses ON tblSocietyCourseOfferings.fldCourseID = tblCourses.fldCourseID) INNER JOIN tblSociety ON tblSocietyCourseOfferings.fldSocietyID = tblSociety.fldSocietyID) LEFT JOIN tblDiscussionLeader ON tblSocietyCourseOfferings.fldDiscussionLeaderID = tblDiscussionLeader.fldDiscussionLeaderID) LEFT JOIN tblShippingData_Society ON tblSocietyCourseOfferings.fldSocietyCourseOfferingID = tblShippingData_Society.fldCourseOfferingID ORDER BY tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName; -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Tuesday, May 09, 2017 11:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky I'd be interested to know what is the Record Source of the form. Regards Steve -----Original Message----- From: Rocky Smolin Sent: Wednesday, May 10, 2017 5:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com ________________________________ HealthInsight is a private, nonprofit, community-based organization dedicated to improving health and health care, with offices in four western states: Nevada, New Mexico, Oregon and Utah. HealthInsight also has operations in Seattle, Wash., and Glendale, Calif., supporting End-Stage Renal Disease Networks in the Western United States. The information and any materials included in this transmission may contain confidential information from HealthInsight. The information is intended for use by the person named on this transmittal. If you are not the intended recipient, be aware that any disclosure, copying, distribution, or use of the contents of this transmission is prohibited. If you have received this message in error, please inform the sender and delete all copies. From rockysmolin at bchacc.com Wed May 10 19:18:25 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 10 May 2017 17:18:25 -0700 Subject: [AccessD] Delete Record Problem In-Reply-To: <68D062755DECC8469BEF3FB828D8294D1D3DCB9B@LVHIMAIL01.healthinsight.local> References: <04ed01d2c913$4e685e30$eb391a90$@bchacc.com>, , <59128E3F.22151.808510A6@stuart.lexacorp.com.pg> <059a01d2c94e$cfedb5a0$6fc920e0$@bchacc.com><1472CF4999BC439B8D0328635E530F19@SteveT540p> <05b401d2c992$23064f70$6912ee50$@bchacc.com> <06e801d2c9d5$50030d40$f00927c0$@bchacc.com> <68D062755DECC8469BEF3FB828D8294D1D3DCB9B@LVHIMAIL01.healthinsight.local> Message-ID: <077701d2c9ec$1b957450$52c05cf0$@bchacc.com> No. I'll give that a try. It would be cleaner than the kludge I'm fashioned. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Walsh Sent: Wednesday, May 10, 2017 3:39 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Did you try: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 10, 2017 2:35 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah - first thought. Even printed out the Allow Deletions property in the delete module just to see if it was somehow getting turned off. But no cigar. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Wednesday, May 10, 2017 2:29 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky Ok, fair enough. Here's another random thought... Check the Allow Deletions property of the form? Regards Steve -----Original Message----- From: Rocky Smolin Sent: Thursday, May 11, 2017 1:34 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Steve: It's a query " qrySocietyCourseOfferings". Whe I run it a la carte I can add, modify, and delete records. So it is updateable. Here's the SQL view: SELECT tblShippingData_Society.fldSDSocOrgType, tblSocietyCourseOfferings.fldSocietyCourseOfferingCourseNumber, tblSocietyCourseOfferings.fldSocietyCourseOfferingID, tblCourses.fldCourseName, tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingPDFMaterialsOnly, tblSocietyCourseOfferings.fldSocietyCourseOfferingJustMaterialsNoPDF, tblDiscussionLeader.fldDLFirstName, tblDiscussionLeader.fldDLLastName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName, tblSocietyCourseOfferings.fldCourseID, tblSocietyCourseOfferings.fldSocietyID, tblSocietyCourseOfferings.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingStateID, tblSocietyCourseOfferings.fldSocietyCourseOfferingAHIMaterialsFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingRetailCourseFee, tblSocietyCourseOfferings.fldSocietyCourseOfferingDays, tblSocietyCourseOfferings.fldSocietyCourseOfferingCity, tblSocietyCourseOfferings.fldSocietyCourseOfferingDiscussionLeader, tblSocietyCourseOfferings.fldSocietyCourseOfferingMinimumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingMaximumParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingTotalParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredParticipants, tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredAsOf, tblSocietyCourseOfferings.fldSocietyCourseOfferingComments, tblSocietyCourseOfferings.fldSocietyCourseOfferingStatus, tblSocietyCourseOfferings.fldSocietyCourseCancelledDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingYear, tblSocietyCourseOfferings.fldSocietyCourseOfferingStrengthOfCourses, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterStatus, tblSocietyCourseOfferings.fldSocietyCourseOfferingCPEDirectorLetterSent, tblSocietyCourseOfferings.fldSocietyCourseOfferingOKToMarket, tblSocietyCourseOfferings.fldSocietyCourseOfferingStartMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingEndMarketing, tblSocietyCourseOfferings.fldSocietyCourseOfferingSameCourseLastYearID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPriorCourseLastYearID, tblDiscussionLeader.fldDLBasicRating, tblDiscussionLeader.fldDLSemiSeniorRating, tblDiscussionLeader.fldDLBeginningInChargeRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDLSupervisoryRating, tblDiscussionLeader.fldDiscussionLeaderID, tblSocietyCourseOfferings.fldSocietyCourseOfferingPreCourseMaterialsSent, tblShippingData_Society.*, * FROM (((tblSocietyCourseOfferings LEFT JOIN tblCourses ON tblSocietyCourseOfferings.fldCourseID = tblCourses.fldCourseID) INNER JOIN tblSociety ON tblSocietyCourseOfferings.fldSocietyID = tblSociety.fldSocietyID) LEFT JOIN tblDiscussionLeader ON tblSocietyCourseOfferings.fldDiscussionLeaderID = tblDiscussionLeader.fldDiscussionLeaderID) LEFT JOIN tblShippingData_Society ON tblSocietyCourseOfferings.fldSocietyCourseOfferingID = tblShippingData_Society.fldCourseOfferingID ORDER BY tblSociety.fldSocietyName, tblSocietyCourseOfferings.fldSocietyCourseOfferingDate, tblSocietyCourseOfferings.fldSocietyCourseOfferingName; -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel Sent: Tuesday, May 09, 2017 11:20 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem Hi Rocky I'd be interested to know what is the Record Source of the form. Regards Steve -----Original Message----- From: Rocky Smolin Sent: Wednesday, May 10, 2017 5:32 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Delete Record Problem Yeah I tried that one after I failed with RunSQL. They should all work (I've used all three for 20 years) but there's something fishy about this app and I guess I don't have the patience to get to the bottom of it. Maybe it's time to hang up the mouse. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 09, 2017 8:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Delete Record Problem or CurrentDb.Execute "Delete * from myTable...." That avoids the need for "SetWarnings...." switching On 9 May 2017 at 17:17, Doug Steele wrote: > Hi Rocky: > > Can you delete a record manually from the recordset bound to the form? > I've had problems in the past where the recordset won't allow > deletions. > > I know I've had a similar problem to you in the past - I think that I > got around it by using something like DoCmd.RunSQL "Delete * from > myTable where unique key = whatever" > > Doug > > On Tue, May 9, 2017 at 3:35 PM, Bill Benson > wrote: > > > It seems to me toy do not need a colon after on error goto IsIt2501. > > > > Is that perhaps causing the error code to be ignored and the msgbox > > announcing delete occurred to happen? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 9, 2017 6:28 PM, "Rocky Smolin" > > wrote: > > > > Dear List: > > > > > > > > I have a bound form. With a delete button. Behind the button is > > some simple code. The line which runs the delete is being executed; > > "Delete Done" message is displayed. > > > > > > > > But the record is not being deleted. It's still there! > > > > > > > > I've posted the delete module's code below. > > > > > > > > I have another form that does Accounting Firm Courses instead of > > Society Courses. Same problem! > > > > > > > > Any idea why this simple command is not working? This is an mdb > > being developed in A2010. > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > > > > > If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub > > > > > > > > If gintAccessLevel < 3 Then > > > > MsgBox "Read Write Access Required", , vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > On Error GoTo IsIt2501: > > > > > > > > Dim inI As Integer > > > > > > > > intI = DCount("fldCourseOfferingID", > > "tblParticipantCourseOffering", _ > > > > "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID) > > > > > > > > If intI <> 0 Then > > > > intReply = MsgBox("This Course Offering appears in " & intI > > _ > > > > & " Particpant Course History record(s). " _ > > > > & vbCrLf & vbCrLf & "Deleting this Course Offering will > > delete > > it from those Participant histories. " _ > > > > & vbCrLf & vbCrLf & "Do you still wish to delete > > this > > Course > > Offering?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Course Offering Not Deleted.", vbExclamation > > > > Exit Sub > > > > End If > > > > End If > > > > > > > > intReply = MsgBox("OK to Delete this course?", vbYesNo) > > > > If intReply = vbNo Then > > > > MsgBox "Delete Canceled.", vbExclamation > > > > Exit Sub > > > > End If > > > > > > > > > > > > DoCmd.RunCommand acCmdDeleteRecord > > > > MsgBox "Delete Done.", vbExclamation > > > > Exit Sub > > > > > > > > IsIt2501: > > > > If Err.Number = 2501 Then > > > > Exit Sub > > > > Else > > > > MsgBox "Error: " & Err.Number & " - " & Err.Description > > > > 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 > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com ________________________________ HealthInsight is a private, nonprofit, community-based organization dedicated to improving health and health care, with offices in four western states: Nevada, New Mexico, Oregon and Utah. HealthInsight also has operations in Seattle, Wash., and Glendale, Calif., supporting End-Stage Renal Disease Networks in the Western United States. The information and any materials included in this transmission may contain confidential information from HealthInsight. The information is intended for use by the person named on this transmittal. If you are not the intended recipient, be aware that any disclosure, copying, distribution, or use of the contents of this transmission is prohibited. If you have received this message in error, please inform the sender and delete all copies. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Wed May 17 01:27:47 2017 From: gustav at cactus.dk (Gustav Brock) Date: Wed, 17 May 2017 06:27:47 +0000 Subject: [AccessD] Azure now with MySQL and PostgreSQL Message-ID: Hi all Microsoft continues to push Azure at a speed hard to follow. The variety of offerings is vast - I feel not on par. Here is one of the latest additions: https://azure.microsoft.com/en-us/blog/microsoft-extends-azure-managed-database-services-with-introduction-of-mysql-and-postgresql/ /gustav From accesspro at gmail.com Wed May 17 19:05:44 2017 From: accesspro at gmail.com (Bob Heygood) Date: Wed, 17 May 2017 17:05:44 -0700 Subject: [AccessD] "Object invalid or no longer set" Message-ID: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood From rockysmolin at bchacc.com Wed May 17 19:56:49 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 17 May 2017 17:56:49 -0700 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> References: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> Message-ID: <03dd01d2cf71$a19bebd0$e4d3c370$@bchacc.com> At what point do you get it? During the save as which is converting the format? If so, maybe try converting to 2003 first and then to 2010? Or maybe try importing all the objects from the mdb into an empty accdb. If it farts during the import you'll be able to see which object is causing the problem. HTH Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Wed May 17 20:20:17 2017 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 17 May 2017 19:20:17 -0600 (MDT) Subject: [AccessD] Azure now with MySQL and PostgreSQL In-Reply-To: References: Message-ID: <1774569878.166675008.1495070417854.JavaMail.zimbra@shaw.ca> Hi Gustav: Microsoft is fully embracing Linux in so many ways: https://fossbytes.com/linux-on-windows-server-wsl/ ...and... http://bit.ly/2qTlx3d Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Tuesday, May 16, 2017 11:27:47 PM Subject: [AccessD] Azure now with MySQL and PostgreSQL Hi all Microsoft continues to push Azure at a speed hard to follow. The variety of offerings is vast - I feel not on par. Here is one of the latest additions: https://azure.microsoft.com/en-us/blog/microsoft-extends-azure-managed-database-services-with-introduction-of-mysql-and-postgresql/ /gustav -- 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 May 17 21:22:18 2017 From: dw-murphy at cox.net (Doug Murphy) Date: Wed, 17 May 2017 19:22:18 -0700 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: References: Message-ID: <021e01d2cf7d$93027880$b9076980$@cox.net> Bob, Make sure you're not using the old calendar control or any other controls not currently supported. Doug -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accesspro at gmail.com Thu May 18 19:45:19 2017 From: accesspro at gmail.com (Bob Heygood) Date: Thu, 18 May 2017 17:45:19 -0700 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: References: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> Message-ID: <0fc101d2d039$317748e0$9465daa0$@gmail.com> Sorry. Should have been more clear. The app converted fine from A97 to A2010. And after some adjustments/rewrites to the code, debugs and works well, except for the error noted. Which did occur under A97. Still trying to nail down the exact offending line. This is hard as transactions are used. "DAO BeginTrans, CommitTrans, and Rollback methods of the Workspace object." "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 17, 2017 5:57 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" At what point do you get it? During the save as which is converting the format? If so, maybe try converting to 2003 first and then to 2010? Or maybe try importing all the objects from the mdb into an empty accdb. If it farts during the import you'll be able to see which object is causing the problem. HTH Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accesspro at gmail.com Thu May 18 22:42:24 2017 From: accesspro at gmail.com (Bob Heygood) Date: Thu, 18 May 2017 20:42:24 -0700 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: References: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> Message-ID: <101901d2d051$ede08b50$c9a1a1f0$@gmail.com> Naturally the post below should have read: Which did NOT occur under A97 -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Thursday, May 18, 2017 5:45 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Sorry. Should have been more clear. The app converted fine from A97 to A2010. And after some adjustments/rewrites to the code, debugs and works well, except for the error noted. Which did occur under A97. Still trying to nail down the exact offending line. This is hard as transactions are used. "DAO BeginTrans, CommitTrans, and Rollback methods of the Workspace object." "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 17, 2017 5:57 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" At what point do you get it? During the save as which is converting the format? If so, maybe try converting to 2003 first and then to 2010? Or maybe try importing all the objects from the mdb into an empty accdb. If it farts during the import you'll be able to see which object is causing the problem. HTH Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accesspro at gmail.com Thu May 18 22:43:49 2017 From: accesspro at gmail.com (Bob Heygood) Date: Thu, 18 May 2017 20:43:49 -0700 Subject: [AccessD] VBA Font Size Message-ID: <101a01d2d052$20826d80$61874880$@gmail.com> Why does Access ignore my settings when I change the font size in the VBA editor ? Could it be MZ Tools ? My old eyes are strained. Bob Heygood From bensonforums at gmail.com Thu May 18 22:45:49 2017 From: bensonforums at gmail.com (Bill Benson) Date: Thu, 18 May 2017 23:45:49 -0400 Subject: [AccessD] VBA Font Size In-Reply-To: <101a01d2d052$20826d80$61874880$@gmail.com> References: <101a01d2d052$20826d80$61874880$@gmail.com> Message-ID: So the setting is noticed in other VBA (office) editors, just not Access? >From my non-flammable Note 3, Bill Benson On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > Why does Access ignore my settings when I change the font size in the VBA > editor ? > Could it be MZ Tools ? > My old eyes are strained. > > > Bob Heygood > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From accesspro at gmail.com Fri May 19 08:01:18 2017 From: accesspro at gmail.com (Bob Heygood) Date: Fri, 19 May 2017 06:01:18 -0700 Subject: [AccessD] VBA Font Size In-Reply-To: References: <101a01d2d052$20826d80$61874880$@gmail.com> Message-ID: <105d01d2d0a0$024c5f30$06e51d90$@gmail.com> The failure is across the board. Excel also lets me change the font type but not the size... Office 2010 Thx Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Font Size So the setting is noticed in other VBA (office) editors, just not Access? >From my non-flammable Note 3, Bill Benson On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > Why does Access ignore my settings when I change the font size in the > VBA editor ? > Could it be MZ Tools ? > My old eyes are strained. > > > Bob Heygood > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stephenmconklin at hotmail.com Fri May 19 08:22:26 2017 From: stephenmconklin at hotmail.com (Steve Conklin) Date: Fri, 19 May 2017 13:22:26 +0000 Subject: [AccessD] VBA Font Size In-Reply-To: <105d01d2d0a0$024c5f30$06e51d90$@gmail.com> References: <101a01d2d052$20826d80$61874880$@gmail.com> ,<105d01d2d0a0$024c5f30$06e51d90$@gmail.com> Message-ID: It depends on the font: Arial can do any size but Fixedsys (my choice in VBA) does 9 only. hth, Steve Conklin ________________________________ From: AccessD on behalf of Bob Heygood Sent: Friday, May 19, 2017 9:01 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] VBA Font Size The failure is across the board. Excel also lets me change the font type but not the size... Office 2010 Thx Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Font Size So the setting is noticed in other VBA (office) editors, just not Access? >From my non-flammable Note 3, Bill Benson On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > Why does Access ignore my settings when I change the font size in the > VBA editor ? > Could it be MZ Tools ? > My old eyes are strained. > > > Bob Heygood > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Fri May 19 16:18:13 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sat, 20 May 2017 07:18:13 +1000 Subject: [AccessD] VBA Font Size In-Reply-To: References: <101a01d2d052$20826d80$61874880$@gmail.com>, <105d01d2d0a0$024c5f30$06e51d90$@gmail.com>, Message-ID: <591F6115.23007.ED9DC58@stuart.lexacorp.com.pg> Arial is a problem for code because it is variable width. I use Courier New. It is fixed width and lets you pick the size. And I think it looks a lot nice than Fixedsys :-) -- Stuart On 19 May 2017 at 13:22, Steve Conklin wrote: > It depends on the font: Arial can do any size but Fixedsys (my choice > in VBA) does 9 only. > > > hth, > > Steve Conklin > > > ________________________________ > From: AccessD on behalf of Bob > Heygood Sent: Friday, May 19, 2017 9:01 AM To: > 'Access Developers discussion and problem solving' Subject: Re: > [AccessD] VBA Font Size > > The failure is across the board. Excel also lets me change the font > type but not the size... Office 2010 > > > Thx > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] VBA > Font Size > > So the setting is noticed in other VBA (office) editors, just not > Access? > > From my non-flammable Note 3, > Bill Benson > > On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > > > Why does Access ignore my settings when I change the font size in > > the VBA editor ? Could it be MZ Tools ? My old eyes are strained. > > > > > > Bob Heygood > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Sat May 20 01:07:53 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 20 May 2017 02:07:53 -0400 Subject: [AccessD] VBA Font Size In-Reply-To: <591F6115.23007.ED9DC58@stuart.lexacorp.com.pg> References: <101a01d2d052$20826d80$61874880$@gmail.com> <105d01d2d0a0$024c5f30$06e51d90$@gmail.com> <591F6115.23007.ED9DC58@stuart.lexacorp.com.pg> Message-ID: Me too. >From my non-flammable Note 3, Bill Benson On May 19, 2017 5:19 PM, "Stuart McLachlan" wrote: > Arial is a problem for code because it is variable width. > > I use Courier New. It is fixed width and lets you pick the size. > > And I think it looks a lot nice than Fixedsys :-) > > -- > Stuart > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > It depends on the font: Arial can do any size but Fixedsys (my choice > > in VBA) does 9 only. > > > > > > hth, > > > > Steve Conklin > > > > > > ________________________________ > > From: AccessD on behalf of Bob > > Heygood Sent: Friday, May 19, 2017 9:01 AM To: > > 'Access Developers discussion and problem solving' Subject: Re: > > [AccessD] VBA Font Size > > > > The failure is across the board. Excel also lets me change the font > > type but not the size... Office 2010 > > > > > > Thx > > Bob > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: Access > > Developers discussion and problem solving Subject: Re: [AccessD] VBA > > Font Size > > > > So the setting is noticed in other VBA (office) editors, just not > > Access? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > > > > > Why does Access ignore my settings when I change the font size in > > > the VBA editor ? Could it be MZ Tools ? My old eyes are strained. > > > > > > > > > Bob Heygood > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From accesspro at gmail.com Sat May 20 19:06:39 2017 From: accesspro at gmail.com (Bob Heygood) Date: Sat, 20 May 2017 17:06:39 -0700 Subject: [AccessD] VBA Font Size In-Reply-To: References: <101a01d2d052$20826d80$61874880$@gmail.com> <105d01d2d0a0$024c5f30$06e51d90$@gmail.com> <591F6115.23007.ED9DC58@stuart.lexacorp.com.pg> Message-ID: <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> I tried Courier New. No joy. Still reverts to font of 9 points. Office 2010 M-Z Tools installed Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Font Size Me too. >From my non-flammable Note 3, Bill Benson On May 19, 2017 5:19 PM, "Stuart McLachlan" wrote: > Arial is a problem for code because it is variable width. > > I use Courier New. It is fixed width and lets you pick the size. > > And I think it looks a lot nice than Fixedsys :-) > > -- > Stuart > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > It depends on the font: Arial can do any size but Fixedsys (my > > choice in VBA) does 9 only. > > > > > > hth, > > > > Steve Conklin > > > > > > ________________________________ > > From: AccessD on behalf of > > Bob Heygood Sent: Friday, May 19, 2017 9:01 AM To: > > 'Access Developers discussion and problem solving' Subject: Re: > > [AccessD] VBA Font Size > > > > The failure is across the board. Excel also lets me change the font > > type but not the size... Office 2010 > > > > > > Thx > > Bob > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > Access Developers discussion and problem solving Subject: Re: > > [AccessD] VBA Font Size > > > > So the setting is noticed in other VBA (office) editors, just not > > Access? > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > > > > > Why does Access ignore my settings when I change the font size in > > > the VBA editor ? Could it be MZ Tools ? My old eyes are strained. > > > > > > > > > Bob Heygood > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bensonforums at gmail.com Sat May 20 19:54:35 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 20 May 2017 20:54:35 -0400 Subject: [AccessD] VBA Font Size In-Reply-To: <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> References: <101a01d2d052$20826d80$61874880$@gmail.com> <105d01d2d0a0$024c5f30$06e51d90$@gmail.com> <591F6115.23007.ED9DC58@stuart.lexacorp.com.pg> <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> Message-ID: Repair MS Office I feel On Sat, May 20, 2017 at 8:06 PM, Bob Heygood wrote: > I tried Courier New. No joy. > Still reverts to font of 9 points. > > Office 2010 > M-Z Tools installed > > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Bill Benson > Sent: Friday, May 19, 2017 11:08 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] VBA Font Size > > Me too. > > From my non-flammable Note 3, > Bill Benson > > On May 19, 2017 5:19 PM, "Stuart McLachlan" > wrote: > > > Arial is a problem for code because it is variable width. > > > > I use Courier New. It is fixed width and lets you pick the size. > > > > And I think it looks a lot nice than Fixedsys :-) > > > > -- > > Stuart > > > > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > > > It depends on the font: Arial can do any size but Fixedsys (my > > > choice in VBA) does 9 only. > > > > > > > > > hth, > > > > > > Steve Conklin > > > > > > > > > ________________________________ > > > From: AccessD on behalf of > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 AM > To: > > > 'Access Developers discussion and problem solving' Subject: Re: > > > [AccessD] VBA Font Size > > > > > > The failure is across the board. Excel also lets me change the font > > > type but not the size... Office 2010 > > > > > > > > > Thx > > > Bob > > > > > > > > > -----Original Message----- > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > > Access Developers discussion and problem solving Subject: Re: > > > [AccessD] VBA Font Size > > > > > > So the setting is noticed in other VBA (office) editors, just not > > > Access? > > > > > > From my non-flammable Note 3, > > > Bill Benson > > > > > > On May 18, 2017 11:44 PM, "Bob Heygood" wrote: > > > > > > > Why does Access ignore my settings when I change the font size in > > > > the VBA editor ? Could it be MZ Tools ? My old eyes are strained. > > > > > > > > > > > > Bob Heygood > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Sat May 20 19:55:59 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sun, 21 May 2017 10:55:59 +1000 Subject: [AccessD] VBA Font Size In-Reply-To: <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> References: <101a01d2d052$20826d80$61874880$@gmail.com>, , <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> Message-ID: <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> Strange. Same environment as me Office 2010 + M-Z Tools and I have no problem changing the fotn size. Does the actual font change if you go to something like Consolas (Western)? i.e. is the complete font setting of just the size that is locked? On 20 May 2017 at 17:06, Bob Heygood wrote: > I tried Courier New. No joy. > Still reverts to font of 9 points. > > Office 2010 > M-Z Tools installed > > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] VBA > Font Size > > Me too. > > From my non-flammable Note 3, > Bill Benson > > On May 19, 2017 5:19 PM, "Stuart McLachlan" > wrote: > > > Arial is a problem for code because it is variable width. > > > > I use Courier New. It is fixed width and lets you pick the size. > > > > And I think it looks a lot nice than Fixedsys :-) > > > > -- > > Stuart > > > > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > > > It depends on the font: Arial can do any size but Fixedsys (my > > > choice in VBA) does 9 only. > > > > > > > > > hth, > > > > > > Steve Conklin > > > > > > > > > ________________________________ > > > From: AccessD on behalf of > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 > > > AM To: 'Access Developers discussion and problem solving' Subject: > > > Re: [AccessD] VBA Font Size > > > > > > The failure is across the board. Excel also lets me change the > > > font type but not the size... Office 2010 > > > > > > > > > Thx > > > Bob > > > > > > > > > -----Original Message----- > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > > Access Developers discussion and problem solving Subject: Re: > > > [AccessD] VBA Font Size > > > > > > So the setting is noticed in other VBA (office) editors, just not > > > Access? > > > > > > From my non-flammable Note 3, > > > Bill Benson > > > > > > On May 18, 2017 11:44 PM, "Bob Heygood" > > > wrote: > > > > > > > Why does Access ignore my settings when I change the font size > > > > in the VBA editor ? Could it be MZ Tools ? My old eyes are > > > > strained. > > > > > > > > > > > > Bob Heygood > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Sat May 20 20:01:41 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sun, 21 May 2017 11:01:41 +1000 Subject: [AccessD] VBA Font Size In-Reply-To: <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> References: <101a01d2d052$20826d80$61874880$@gmail.com>, , <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> Message-ID: <5920E6F5.30950.14CCA8C9@stuart.lexacorp.com.pg> What version of MZ-Tools. Still on v3.0 or have you upgraded to v 8.0? On 20 May 2017 at 17:06, Bob Heygood wrote: > I tried Courier New. No joy. > Still reverts to font of 9 points. > > Office 2010 > M-Z Tools installed > > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] VBA > Font Size > > Me too. > > From my non-flammable Note 3, > Bill Benson > > On May 19, 2017 5:19 PM, "Stuart McLachlan" > wrote: > > > Arial is a problem for code because it is variable width. > > > > I use Courier New. It is fixed width and lets you pick the size. > > > > And I think it looks a lot nice than Fixedsys :-) > > > > -- > > Stuart > > > > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > > > It depends on the font: Arial can do any size but Fixedsys (my > > > choice in VBA) does 9 only. > > > > > > > > > hth, > > > > > > Steve Conklin > > > > > > > > > ________________________________ > > > From: AccessD on behalf of > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 > > > AM To: 'Access Developers discussion and problem solving' Subject: > > > Re: [AccessD] VBA Font Size > > > > > > The failure is across the board. Excel also lets me change the > > > font type but not the size... Office 2010 > > > > > > > > > Thx > > > Bob > > > > > > > > > -----Original Message----- > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > > Access Developers discussion and problem solving Subject: Re: > > > [AccessD] VBA Font Size > > > > > > So the setting is noticed in other VBA (office) editors, just not > > > Access? > > > > > > From my non-flammable Note 3, > > > Bill Benson > > > > > > On May 18, 2017 11:44 PM, "Bob Heygood" > > > wrote: > > > > > > > Why does Access ignore my settings when I change the font size > > > > in the VBA editor ? Could it be MZ Tools ? My old eyes are > > > > strained. > > > > > > > > > > > > Bob Heygood > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Sat May 20 20:05:04 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 20 May 2017 21:05:04 -0400 Subject: [AccessD] VBA Font Size In-Reply-To: <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> References: <101a01d2d052$20826d80$61874880$@gmail.com> <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> Message-ID: I am seeing multiple postings on this subject. Bob what Ac version are you using? Are you working on a laptop? Someone seemed to think it has to do with screen resolution, picking larger fonts that the screen doesn't want to show in certain resolution modes. I didn't read all of this, but you might have a look here and here : I think one person (Ac2016) found a workable solution and the other did not (Ac2010). On Sat, May 20, 2017 at 8:55 PM, Stuart McLachlan wrote: > Strange. > > Same environment as me Office 2010 + M-Z Tools and I have no problem > changing the fotn > size. > > Does the actual font change if you go to something like Consolas > (Western)? i.e. is the > complete font setting of just the size that is locked? > > > > On 20 May 2017 at 17:06, Bob Heygood wrote: > > > I tried Courier New. No joy. > > Still reverts to font of 9 points. > > > > Office 2010 > > M-Z Tools installed > > > > Bob > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access > > Developers discussion and problem solving Subject: Re: [AccessD] VBA > > Font Size > > > > Me too. > > > > From my non-flammable Note 3, > > Bill Benson > > > > On May 19, 2017 5:19 PM, "Stuart McLachlan" > > wrote: > > > > > Arial is a problem for code because it is variable width. > > > > > > I use Courier New. It is fixed width and lets you pick the size. > > > > > > And I think it looks a lot nice than Fixedsys :-) > > > > > > -- > > > Stuart > > > > > > > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > > > > > It depends on the font: Arial can do any size but Fixedsys (my > > > > choice in VBA) does 9 only. > > > > > > > > > > > > hth, > > > > > > > > Steve Conklin > > > > > > > > > > > > ________________________________ > > > > From: AccessD on behalf of > > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 > > > > AM To: 'Access Developers discussion and problem solving' Subject: > > > > Re: [AccessD] VBA Font Size > > > > > > > > The failure is across the board. Excel also lets me change the > > > > font type but not the size... Office 2010 > > > > > > > > > > > > Thx > > > > Bob > > > > > > > > > > > > -----Original Message----- > > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > > > Access Developers discussion and problem solving Subject: Re: > > > > [AccessD] VBA Font Size > > > > > > > > So the setting is noticed in other VBA (office) editors, just not > > > > Access? > > > > > > > > From my non-flammable Note 3, > > > > Bill Benson > > > > > > > > On May 18, 2017 11:44 PM, "Bob Heygood" > > > > wrote: > > > > > > > > > Why does Access ignore my settings when I change the font size > > > > > in the VBA editor ? Could it be MZ Tools ? My old eyes are > > > > > strained. > > > > > > > > > > > > > > > Bob Heygood > > > > > > > > > > -- > > > > > AccessD mailing list > > > > > AccessD at databaseadvisors.com > > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Sat May 20 20:07:34 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 20 May 2017 21:07:34 -0400 Subject: [AccessD] VBA Font Size In-Reply-To: References: <101a01d2d052$20826d80$61874880$@gmail.com> <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> Message-ID: Sorry, just saw you already told us it was Office 2010. Anyway it still could be screen resolution setting. But I don't see how... also people referring to registry settings, but even manually changing those, they got reset afterwards by the application (or something that interacts with the application.) On Sat, May 20, 2017 at 9:05 PM, Bill Benson wrote: > I am seeing multiple postings on this subject. Bob what Ac version are you > using? Are you working on a laptop? Someone seemed to think it has to do > with screen resolution, picking larger fonts that the screen doesn't want > to show in certain resolution modes. > > I didn't read all of this, but you might have a look here > and > here : > I think one person (Ac2016) found a workable solution and the other did not > (Ac2010). > > > On Sat, May 20, 2017 at 8:55 PM, Stuart McLachlan > wrote: > >> Strange. >> >> Same environment as me Office 2010 + M-Z Tools and I have no problem >> changing the fotn >> size. >> >> Does the actual font change if you go to something like Consolas >> (Western)? i.e. is the >> complete font setting of just the size that is locked? >> >> >> >> On 20 May 2017 at 17:06, Bob Heygood wrote: >> >> > I tried Courier New. No joy. >> > Still reverts to font of 9 points. >> > >> > Office 2010 >> > M-Z Tools installed >> > >> > Bob >> > >> > >> > -----Original Message----- >> > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf >> > Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access >> > Developers discussion and problem solving Subject: Re: [AccessD] VBA >> > Font Size >> > >> > Me too. >> > >> > From my non-flammable Note 3, >> > Bill Benson >> > >> > On May 19, 2017 5:19 PM, "Stuart McLachlan" >> > wrote: >> > >> > > Arial is a problem for code because it is variable width. >> > > >> > > I use Courier New. It is fixed width and lets you pick the size. >> > > >> > > And I think it looks a lot nice than Fixedsys :-) >> > > >> > > -- >> > > Stuart >> > > >> > > >> > > On 19 May 2017 at 13:22, Steve Conklin wrote: >> > > >> > > > It depends on the font: Arial can do any size but Fixedsys (my >> > > > choice in VBA) does 9 only. >> > > > >> > > > >> > > > hth, >> > > > >> > > > Steve Conklin >> > > > >> > > > >> > > > ________________________________ >> > > > From: AccessD on behalf of >> > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 >> > > > AM To: 'Access Developers discussion and problem solving' Subject: >> > > > Re: [AccessD] VBA Font Size >> > > > >> > > > The failure is across the board. Excel also lets me change the >> > > > font type but not the size... Office 2010 >> > > > >> > > > >> > > > Thx >> > > > Bob >> > > > >> > > > >> > > > -----Original Message----- >> > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On >> > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: >> > > > Access Developers discussion and problem solving Subject: Re: >> > > > [AccessD] VBA Font Size >> > > > >> > > > So the setting is noticed in other VBA (office) editors, just not >> > > > Access? >> > > > >> > > > From my non-flammable Note 3, >> > > > Bill Benson >> > > > >> > > > On May 18, 2017 11:44 PM, "Bob Heygood" >> > > > wrote: >> > > > >> > > > > Why does Access ignore my settings when I change the font size >> > > > > in the VBA editor ? Could it be MZ Tools ? My old eyes are >> > > > > strained. >> > > > > >> > > > > >> > > > > Bob Heygood >> > > > > >> > > > > -- >> > > > > AccessD mailing list >> > > > > AccessD at databaseadvisors.com >> > > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > > Website: http://www.databaseadvisors.com >> > > > > >> > > > -- >> > > > AccessD mailing list >> > > > AccessD at databaseadvisors.com >> > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > Website: http://www.databaseadvisors.com >> > > > >> > > > -- >> > > > AccessD mailing list >> > > > AccessD at databaseadvisors.com >> > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > Website: http://www.databaseadvisors.com >> > > > -- >> > > > AccessD mailing list >> > > > AccessD at databaseadvisors.com >> > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > Website: http://www.databaseadvisors.com >> > > > >> > > >> > > >> > > -- >> > > AccessD mailing list >> > > AccessD at databaseadvisors.com >> > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > Website: http://www.databaseadvisors.com >> > > >> > -- >> > AccessD mailing list >> > AccessD at databaseadvisors.com >> > http://databaseadvisors.com/mailman/listinfo/accessd >> > Website: http://www.databaseadvisors.com >> > >> > -- >> > AccessD mailing list >> > AccessD at databaseadvisors.com >> > http://databaseadvisors.com/mailman/listinfo/accessd >> > Website: http://www.databaseadvisors.com >> > >> >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > From accesspro at gmail.com Sat May 20 21:03:27 2017 From: accesspro at gmail.com (Bob Heygood) Date: Sat, 20 May 2017 19:03:27 -0700 Subject: [AccessD] VBA Font Size In-Reply-To: <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> References: <101a01d2d052$20826d80$61874880$@gmail.com>, , <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> Message-ID: <00c101d2d1d6$70a713d0$51f53b70$@gmail.com> The actual font type changes. The "Sample" shows a size increase. But, when I click ok, the resulting editor is always in 9 points..... BTW I like Consolas. New to me. Be great if I could see it in bout a 14 point size. Thanks again, Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Saturday, May 20, 2017 5:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Font Size Strange. Same environment as me Office 2010 + M-Z Tools and I have no problem changing the fotn size. Does the actual font change if you go to something like Consolas (Western)? i.e. is the complete font setting of just the size that is locked? On 20 May 2017 at 17:06, Bob Heygood wrote: > I tried Courier New. No joy. > Still reverts to font of 9 points. > > Office 2010 > M-Z Tools installed > > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] VBA > Font Size > > Me too. > > From my non-flammable Note 3, > Bill Benson > > On May 19, 2017 5:19 PM, "Stuart McLachlan" > wrote: > > > Arial is a problem for code because it is variable width. > > > > I use Courier New. It is fixed width and lets you pick the size. > > > > And I think it looks a lot nice than Fixedsys :-) > > > > -- > > Stuart > > > > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > > > It depends on the font: Arial can do any size but Fixedsys (my > > > choice in VBA) does 9 only. > > > > > > > > > hth, > > > > > > Steve Conklin > > > > > > > > > ________________________________ > > > From: AccessD on behalf of > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 > > > AM To: 'Access Developers discussion and problem solving' Subject: > > > Re: [AccessD] VBA Font Size > > > > > > The failure is across the board. Excel also lets me change the > > > font type but not the size... Office 2010 > > > > > > > > > Thx > > > Bob > > > > > > > > > -----Original Message----- > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > > Access Developers discussion and problem solving Subject: Re: > > > [AccessD] VBA Font Size > > > > > > So the setting is noticed in other VBA (office) editors, just not > > > Access? > > > > > > From my non-flammable Note 3, > > > Bill Benson > > > > > > On May 18, 2017 11:44 PM, "Bob Heygood" > > > wrote: > > > > > > > Why does Access ignore my settings when I change the font size > > > > in the VBA editor ? Could it be MZ Tools ? My old eyes are > > > > strained. > > > > > > > > > > > > Bob Heygood > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accesspro at gmail.com Sat May 20 21:03:27 2017 From: accesspro at gmail.com (Bob Heygood) Date: Sat, 20 May 2017 19:03:27 -0700 Subject: [AccessD] VBA Font Size In-Reply-To: <5920E6F5.30950.14CCA8C9@stuart.lexacorp.com.pg> References: <101a01d2d052$20826d80$61874880$@gmail.com>, , <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> <5920E6F5.30950.14CCA8C9@stuart.lexacorp.com.pg> Message-ID: <00c201d2d1d6$71784680$5468d380$@gmail.com> 8.0 Thanks -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Saturday, May 20, 2017 6:02 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Font Size What version of MZ-Tools. Still on v3.0 or have you upgraded to v 8.0? On 20 May 2017 at 17:06, Bob Heygood wrote: > I tried Courier New. No joy. > Still reverts to font of 9 points. > > Office 2010 > M-Z Tools installed > > Bob > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] VBA > Font Size > > Me too. > > From my non-flammable Note 3, > Bill Benson > > On May 19, 2017 5:19 PM, "Stuart McLachlan" > wrote: > > > Arial is a problem for code because it is variable width. > > > > I use Courier New. It is fixed width and lets you pick the size. > > > > And I think it looks a lot nice than Fixedsys :-) > > > > -- > > Stuart > > > > > > On 19 May 2017 at 13:22, Steve Conklin wrote: > > > > > It depends on the font: Arial can do any size but Fixedsys (my > > > choice in VBA) does 9 only. > > > > > > > > > hth, > > > > > > Steve Conklin > > > > > > > > > ________________________________ > > > From: AccessD on behalf of > > > Bob Heygood Sent: Friday, May 19, 2017 9:01 > > > AM To: 'Access Developers discussion and problem solving' Subject: > > > Re: [AccessD] VBA Font Size > > > > > > The failure is across the board. Excel also lets me change the > > > font type but not the size... Office 2010 > > > > > > > > > Thx > > > Bob > > > > > > > > > -----Original Message----- > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: > > > Access Developers discussion and problem solving Subject: Re: > > > [AccessD] VBA Font Size > > > > > > So the setting is noticed in other VBA (office) editors, just not > > > Access? > > > > > > From my non-flammable Note 3, > > > Bill Benson > > > > > > On May 18, 2017 11:44 PM, "Bob Heygood" > > > wrote: > > > > > > > Why does Access ignore my settings when I change the font size > > > > in the VBA editor ? Could it be MZ Tools ? My old eyes are > > > > strained. > > > > > > > > > > > > Bob Heygood > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accesspro at gmail.com Sun May 21 14:50:51 2017 From: accesspro at gmail.com (Bob Heygood) Date: Sun, 21 May 2017 12:50:51 -0700 Subject: [AccessD] VBA Font Size In-Reply-To: References: <101a01d2d052$20826d80$61874880$@gmail.com> <00b701d2d1c6$1ef57be0$5ce073a0$@gmail.com> <5920E59F.27818.14C771C2@stuart.lexacorp.com.pg> Message-ID: <013601d2d26b$8d8e42d0$a8aac870$@gmail.com> Yes. I have monkeyed with a lot of my screen settings though the years. And don't do so much VBA work now. BUT it sure would be cool to fix this Thanks again Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Saturday, May 20, 2017 6:08 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] VBA Font Size Sorry, just saw you already told us it was Office 2010. Anyway it still could be screen resolution setting. But I don't see how... also people referring to registry settings, but even manually changing those, they got reset afterwards by the application (or something that interacts with the application.) On Sat, May 20, 2017 at 9:05 PM, Bill Benson wrote: > I am seeing multiple postings on this subject. Bob what Ac version are > you using? Are you working on a laptop? Someone seemed to think it > has to do with screen resolution, picking larger fonts that the screen > doesn't want to show in certain resolution modes. > > I didn't read all of this, but you might have a look here > _win10/font-size-in-vba-editor-in-excel-2016/2f51c62d-bf74-4029-92ee-5aaebc2 92e39> and here : > I think one person (Ac2016) found a workable solution and the other > did not (Ac2010). > > > On Sat, May 20, 2017 at 8:55 PM, Stuart McLachlan > > wrote: > >> Strange. >> >> Same environment as me Office 2010 + M-Z Tools and I have no problem >> changing the fotn size. >> >> Does the actual font change if you go to something like Consolas >> (Western)? i.e. is the complete font setting of just the size that >> is locked? >> >> >> >> On 20 May 2017 at 17:06, Bob Heygood wrote: >> >> > I tried Courier New. No joy. >> > Still reverts to font of 9 points. >> > >> > Office 2010 >> > M-Z Tools installed >> > >> > Bob >> > >> > >> > -----Original Message----- >> > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On >> > Behalf Of Bill Benson Sent: Friday, May 19, 2017 11:08 PM To: >> > Access Developers discussion and problem solving Subject: Re: >> > [AccessD] VBA Font Size >> > >> > Me too. >> > >> > From my non-flammable Note 3, >> > Bill Benson >> > >> > On May 19, 2017 5:19 PM, "Stuart McLachlan" >> > >> > wrote: >> > >> > > Arial is a problem for code because it is variable width. >> > > >> > > I use Courier New. It is fixed width and lets you pick the size. >> > > >> > > And I think it looks a lot nice than Fixedsys :-) >> > > >> > > -- >> > > Stuart >> > > >> > > >> > > On 19 May 2017 at 13:22, Steve Conklin wrote: >> > > >> > > > It depends on the font: Arial can do any size but Fixedsys (my >> > > > choice in VBA) does 9 only. >> > > > >> > > > >> > > > hth, >> > > > >> > > > Steve Conklin >> > > > >> > > > >> > > > ________________________________ >> > > > From: AccessD on behalf >> > > > of Bob Heygood Sent: Friday, May 19, 2017 >> > > > 9:01 AM To: 'Access Developers discussion and problem solving' Subject: >> > > > Re: [AccessD] VBA Font Size >> > > > >> > > > The failure is across the board. Excel also lets me change the >> > > > font type but not the size... Office 2010 >> > > > >> > > > >> > > > Thx >> > > > Bob >> > > > >> > > > >> > > > -----Original Message----- >> > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On >> > > > Behalf Of Bill Benson Sent: Thursday, May 18, 2017 8:46 PM To: >> > > > Access Developers discussion and problem solving Subject: Re: >> > > > [AccessD] VBA Font Size >> > > > >> > > > So the setting is noticed in other VBA (office) editors, just >> > > > not Access? >> > > > >> > > > From my non-flammable Note 3, >> > > > Bill Benson >> > > > >> > > > On May 18, 2017 11:44 PM, "Bob Heygood" >> > > > wrote: >> > > > >> > > > > Why does Access ignore my settings when I change the font >> > > > > size in the VBA editor ? Could it be MZ Tools ? My old eyes >> > > > > are strained. >> > > > > >> > > > > >> > > > > Bob Heygood >> > > > > >> > > > > -- >> > > > > AccessD mailing list >> > > > > AccessD at databaseadvisors.com >> > > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > > Website: http://www.databaseadvisors.com >> > > > > >> > > > -- >> > > > AccessD mailing list >> > > > AccessD at databaseadvisors.com >> > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > Website: http://www.databaseadvisors.com >> > > > >> > > > -- >> > > > AccessD mailing list >> > > > AccessD at databaseadvisors.com >> > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > Website: http://www.databaseadvisors.com >> > > > -- >> > > > AccessD mailing list >> > > > AccessD at databaseadvisors.com >> > > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > > Website: http://www.databaseadvisors.com >> > > > >> > > >> > > >> > > -- >> > > AccessD mailing list >> > > AccessD at databaseadvisors.com >> > > http://databaseadvisors.com/mailman/listinfo/accessd >> > > Website: http://www.databaseadvisors.com >> > > >> > -- >> > AccessD mailing list >> > AccessD at databaseadvisors.com >> > http://databaseadvisors.com/mailman/listinfo/accessd >> > Website: http://www.databaseadvisors.com >> > >> > -- >> > AccessD mailing list >> > AccessD at databaseadvisors.com >> > http://databaseadvisors.com/mailman/listinfo/accessd >> > Website: http://www.databaseadvisors.com >> > >> >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Tue May 23 06:37:23 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 23 May 2017 04:37:23 -0700 Subject: [AccessD] Distance between zip codes Message-ID: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> Dear List: I have a client who wants to know all of the zip codes that lie within a certain radius of a selected zip code. I seem to recall some discussion about this on the list but it could have been 15 years ago now. Is there some tool available that can be dropped into and Access FE (using 2010 now). MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin From jimdettman at verizon.net Tue May 23 07:26:40 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Tue, 23 May 2017 08:26:40 -0400 Subject: [AccessD] Distance between zip codes In-Reply-To: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> Message-ID: <011a01d2d3bf$d545c760$7fd15620$@verizon.net> Rocky, I'm not aware of any tool, other than using a web browser control and one of the mapping services (Google, Bing, or Mapquest) The problem with all the mapping services is that at some point, you need to start paying to use it. They only allow so many free calls a day. But I do have code to do this more or less. What I do is given a list of lat/long's, a point, and a number of miles, figure out who in that list is in the radius. In my case it is the location of people, but it could easily be zips. All you'd need is a list of the lat/long for each. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, May 23, 2017 07:37 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Distance between zip codes Dear List: I have a client who wants to know all of the zip codes that lie within a certain radius of a selected zip code. I seem to recall some discussion about this on the list but it could have been 15 years ago now. Is there some tool available that can be dropped into and Access FE (using 2010 now). MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at verizon.net Tue May 23 07:26:40 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Tue, 23 May 2017 08:26:40 -0400 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: <0fc101d2d039$317748e0$9465daa0$@gmail.com> References: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> <0fc101d2d039$317748e0$9465daa0$@gmail.com> Message-ID: <011b01d2d3bf$d5e0a7d0$81a1f770$@verizon.net> Bob, Get a copy of MZ Tools (or something else), which will allow you to number the lines in a project/module/procedure. You can do it manually as well if you know the procedure at least and it's not large. Then in your error handler, use the undocumented vba.erl call, which will give you the line number where the error occurred. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Thursday, May 18, 2017 08:45 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Sorry. Should have been more clear. The app converted fine from A97 to A2010. And after some adjustments/rewrites to the code, debugs and works well, except for the error noted. Which did occur under A97. Still trying to nail down the exact offending line. This is hard as transactions are used. "DAO BeginTrans, CommitTrans, and Rollback methods of the Workspace object." "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 17, 2017 5:57 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" At what point do you get it? During the save as which is converting the format? If so, maybe try converting to 2003 first and then to 2010? Or maybe try importing all the objects from the mdb into an empty accdb. If it farts during the import you'll be able to see which object is causing the problem. HTH Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Tue May 23 07:40:07 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Tue, 23 May 2017 22:40:07 +1000 Subject: [AccessD] Distance between zip codes In-Reply-To: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> Message-ID: <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> Don't know of anything you can drop in, but here's a list of zip codes with lat/lon. I've got some code that calculates distance between any two lat/lon locations. (I wrote it for sailing) It would be fairly easy to write a procedure thatsteps through the data and locates matching codes, but it probably won't be very fast. Interesting project. Give me a day or so and I'll see f I can come up with something :) On 23 May 2017 at 4:37, Rocky Smolin wrote: > Dear List: > > > > I have a client who wants to know all of the zip codes that lie within > a certain radius of a selected zip code. > > > > I seem to recall some discussion about this on the list but it could > have been 15 years ago now. > > > > Is there some tool available that can be dropped into and Access FE > (using 2010 now). > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From jackandpat.d at gmail.com Tue May 23 07:53:20 2017 From: jackandpat.d at gmail.com (jack drawbridge) Date: Tue, 23 May 2017 08:53:20 -0400 Subject: [AccessD] Distance between zip codes In-Reply-To: <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> Message-ID: Rocky, There is a sample database (mdb format) at https://access-programmers.co.uk/forums/showpost.php?p=1382593&postcount=65 that demos the use of 2 zips. 2 addresses, 2 lat/Long or any combination to find distance between them. As others have said, I don't know of anything you can just drop in. jack On Tue, May 23, 2017 at 8:40 AM, Stuart McLachlan wrote: > Don't know of anything you can drop in, but here's a list of zip codes > with lat/lon. > > I've got some code that calculates distance between any two lat/lon > locations. (I wrote it for > sailing) > > It would be fairly easy to write a procedure thatsteps through the data > and locates matching > codes, but it probably won't be very fast. > > Interesting project. Give me a day or so and I'll see f I can come up with > something :) > > > > > > On 23 May 2017 at 4:37, Rocky Smolin wrote: > > > Dear List: > > > > > > > > I have a client who wants to know all of the zip codes that lie within > > a certain radius of a selected zip code. > > > > > > > > I seem to recall some discussion about this on the list but it could > > have been 15 years ago now. > > > > > > > > Is there some tool available that can be dropped into and Access FE > > (using 2010 now). > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.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 Tue May 23 08:01:24 2017 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Tue, 23 May 2017 13:01:24 +0000 Subject: [AccessD] Distance between zip codes In-Reply-To: References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB358638E6@HOUEX11.kindermorgan.com> Here is something else you might look at https://www.zipcodesoft.com/distance-between-zip-codes -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: Tuesday, May 23, 2017 7:53 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Distance between zip codes [This email message was received from the Internet and came from outside of Kinder Morgan] Rocky, There is a sample database (mdb format) at https://access-programmers.co.uk/forums/showpost.php?p=1382593&postcount=65 that demos the use of 2 zips. 2 addresses, 2 lat/Long or any combination to find distance between them. As others have said, I don't know of anything you can just drop in. jack On Tue, May 23, 2017 at 8:40 AM, Stuart McLachlan wrote: > Don't know of anything you can drop in, but here's a list of zip codes > with lat/lon. > > I've got some code that calculates distance between any two lat/lon > locations. (I wrote it for > sailing) > > It would be fairly easy to write a procedure thatsteps through the > data and locates matching codes, but it probably won't be very fast. > > Interesting project. Give me a day or so and I'll see f I can come up > with something :) > > > > > > On 23 May 2017 at 4:37, Rocky Smolin wrote: > > > Dear List: > > > > > > > > I have a client who wants to know all of the zip codes that lie > > within a certain radius of a selected zip code. > > > > > > > > I seem to recall some discussion about this on the list but it could > > have been 15 years ago now. > > > > > > > > Is there some tool available that can be dropped into and Access FE > > (using 2010 now). > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Tue May 23 08:35:50 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 23 May 2017 06:35:50 -0700 Subject: [AccessD] Distance between zip codes In-Reply-To: <011a01d2d3bf$d545c760$7fd15620$@verizon.net> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> <011a01d2d3bf$d545c760$7fd15620$@verizon.net> Message-ID: <021e01d2d3c9$7e102440$7a306cc0$@bchacc.com> I've found a couple of zip/lat/long free downloads and fond some code that calculates the distance. So I think I may be covered. To take one zip code and calculate the distance to all the others takes about 15 seconds on my i7 box with SSD. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Distance between zip codes Rocky, I'm not aware of any tool, other than using a web browser control and one of the mapping services (Google, Bing, or Mapquest) The problem with all the mapping services is that at some point, you need to start paying to use it. They only allow so many free calls a day. But I do have code to do this more or less. What I do is given a list of lat/long's, a point, and a number of miles, figure out who in that list is in the radius. In my case it is the location of people, but it could easily be zips. All you'd need is a list of the lat/long for each. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, May 23, 2017 07:37 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Distance between zip codes Dear List: I have a client who wants to know all of the zip codes that lie within a certain radius of a selected zip code. I seem to recall some discussion about this on the list but it could have been 15 years ago now. Is there some tool available that can be dropped into and Access FE (using 2010 now). MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at verizon.net Tue May 23 08:37:54 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Tue, 23 May 2017 09:37:54 -0400 Subject: [AccessD] Distance between zip codes In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB358638E6@HOUEX11.kindermorgan.com> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> <8E16E03987F1FD4FB0A9BEBF7CC160CB358638E6@HOUEX11.kindermorgan.com> Message-ID: <012001d2d3c9$c89b64c0$59d22e40$@verizon.net> For those that want it, here's the VBA code. Do be aware that there are variations. Calculating distance is not as an exact science as one might think (the earth is not truly round). But for the purposes of this, it's close enough. As far as performance, I had a list of about 10,000, and it's reasonable to simply calculate all the distances to the given point for each, then filter on the radius. If you have a large list, you can make an optimization by calculating the lat/long for your radius for North, East, South, and West, then filtering the list based lat/long pairs (North vs South, East vs West) first. This in effect draws a square around your radius the circle and minimizes the number of distance calcs you need to make (everyone in the square vs the entire list). I'm sure there is probably a fancy way of determining if a given lat/long pair is within the circle or not, but I never uncovered one in my research and I didn't try very hard once I discovered that the distance calc was fairly fast. Jim. Public Function CalcDist(lat1Degrees As Double, lon1Degrees As Double, lat2Degrees As Double, lon2Degrees As Double) As Double Const RoutineName = "CalcDist" Const Version = "1.0.0.0" Dim lat1Radians As Double Dim lon1Radians As Double Dim lat2Radians As Double Dim lon2Radians As Double Dim AsinBase As Double Dim DerivedAsin As Double 10 On Error GoTo Error_Procedure 'Convert each decimal degree to radians 20 lat1Radians = (lat1Degrees / 180) * 3.14159265359 30 lon1Radians = (lon1Degrees / 180) * 3.14159265359 40 lat2Radians = (lat2Degrees / 180) * 3.14159265359 50 lon2Radians = (lon2Degrees / 180) * 3.14159265359 60 AsinBase = Sin(Sqr(Sin((lat1Radians - lat2Radians) / 2) ^ 2 + Cos(lat1Radians) * Cos(lat2Radians) * Sin((lon1Radians - lon2Radians) / 2) ^ 2)) 70 DerivedAsin = (AsinBase / Sqr(-AsinBase * AsinBase + 1)) 'Get distance from [lat1,lon1] to [lat2,lon2] ' Earth's mean radius. ' Use 3443.89849 for nautical miles ' Use 6371 for KM ' Use 3958.756 for miles 80 CalcDist = 2 * DerivedAsin * 3958.756 Exit_Procedure: 90 On Error Resume Next 100 Exit Function Error_Procedure: 110 UnexpectedError ModuleName, RoutineName, Version, Err.Number, Err.Description, Err.Source, VBA.Erl 120 Resume Exit_Procedure End Function -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester Sent: Tuesday, May 23, 2017 09:01 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Distance between zip codes Here is something else you might look at https://www.zipcodesoft.com/distance-between-zip-codes -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: Tuesday, May 23, 2017 7:53 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Distance between zip codes [This email message was received from the Internet and came from outside of Kinder Morgan] Rocky, There is a sample database (mdb format) at https://access-programmers.co.uk/forums/showpost.php?p=1382593&postcount=65 that demos the use of 2 zips. 2 addresses, 2 lat/Long or any combination to find distance between them. As others have said, I don't know of anything you can just drop in. jack On Tue, May 23, 2017 at 8:40 AM, Stuart McLachlan wrote: > Don't know of anything you can drop in, but here's a list of zip codes > with lat/lon. > > I've got some code that calculates distance between any two lat/lon > locations. (I wrote it for > sailing) > > It would be fairly easy to write a procedure thatsteps through the > data and locates matching codes, but it probably won't be very fast. > > Interesting project. Give me a day or so and I'll see f I can come up > with something :) > > > > > > On 23 May 2017 at 4:37, Rocky Smolin wrote: > > > Dear List: > > > > > > > > I have a client who wants to know all of the zip codes that lie > > within a certain radius of a selected zip code. > > > > > > > > I seem to recall some discussion about this on the list but it could > > have been 15 years ago now. > > > > > > > > Is there some tool available that can be dropped into and Access FE > > (using 2010 now). > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Tue May 23 08:37:23 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 23 May 2017 06:37:23 -0700 Subject: [AccessD] Distance between zip codes In-Reply-To: <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> Message-ID: <021f01d2d3c9$b5c3a1f0$214ae5d0$@bchacc.com> OK - thanks. I found a couple zip/lat/long files and some code that calculates distance. Don't know how accurate it is but it looks good. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 23, 2017 5:40 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Distance between zip codes Don't know of anything you can drop in, but here's a list of zip codes with lat/lon. I've got some code that calculates distance between any two lat/lon locations. (I wrote it for sailing) It would be fairly easy to write a procedure thatsteps through the data and locates matching codes, but it probably won't be very fast. Interesting project. Give me a day or so and I'll see f I can come up with something :) On 23 May 2017 at 4:37, Rocky Smolin wrote: > Dear List: > > > > I have a client who wants to know all of the zip codes that lie within > a certain radius of a selected zip code. > > > > I seem to recall some discussion about this on the list but it could > have been 15 years ago now. > > > > Is there some tool available that can be dropped into and Access FE > (using 2010 now). > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Tue May 23 09:14:25 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Wed, 24 May 2017 00:14:25 +1000 Subject: [AccessD] Distance between zip codes In-Reply-To: <021e01d2d3c9$7e102440$7a306cc0$@bchacc.com> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com>, <011a01d2d3bf$d545c760$7fd15620$@verizon.net>, <021e01d2d3c9$7e102440$7a306cc0$@bchacc.com> Message-ID: <592443C1.10275.725FA2B@stuart.lexacorp.com.pg> Interesting little challenge, that didn't take nearly as long as I expected. Check out: http://www.camcopng.com/download/USZipCodeDistances.zip Access database containing all 33,000+ US Zip codes from the link I posted earlier. Select ZIP code from combobox. Enter maximum distance in text box, click button. 17 seconds? It takes this application about 1 second to find and display all ZIPs within x miles of the selected ZIP.. :-) On 23 May 2017 at 6:35, Rocky Smolin wrote: > I've found a couple of zip/lat/long free downloads and fond some code > that calculates the distance. So I think I may be covered. To take > one zip code and calculate the distance to all the others takes about > 15 seconds on my i7 box with SSD. > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: 'Access > Developers discussion and problem solving' Subject: Re: [AccessD] > Distance between zip codes > > Rocky, > > I'm not aware of any tool, other than using a web browser control and > one > of the mapping services (Google, Bing, or Mapquest) > > The problem with all the mapping services is that at some point, you > need > to start paying to use it. They only allow so many free calls a day. > > But I do have code to do this more or less. What I do is given a > list of > lat/long's, a point, and a number of miles, figure out who in that > list is in the radius. > > In my case it is the location of people, but it could easily be zips. > All > you'd need is a list of the lat/long for each. > > Jim. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Rocky Smolin Sent: Tuesday, May 23, 2017 07:37 AM To: 'Access > Developers discussion and problem solving' Subject: [AccessD] Distance > between zip codes > > Dear List: > > > > I have a client who wants to know all of the zip codes that lie within > a certain radius of a selected zip code. > > > > I seem to recall some discussion about this on the list but it could > have been 15 years ago now. > > > > Is there some tool available that can be dropped into and Access FE > (using 2010 now). > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From rockysmolin at bchacc.com Tue May 23 09:40:31 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 23 May 2017 07:40:31 -0700 Subject: [AccessD] Distance between zip codes In-Reply-To: <592443C1.10275.725FA2B@stuart.lexacorp.com.pg> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com>, <011a01d2d3bf$d545c760$7fd15620$@verizon.net>, <021e01d2d3c9$7e102440$7a306cc0$@bchacc.com> <592443C1.10275.725FA2B@stuart.lexacorp.com.pg> Message-ID: <023101d2d3d2$87d26070$97772150$@bchacc.com> That is PRECISELY what I need - well, the client needs. Thanks so much. Is that your work? It's very fast. Best, Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 23, 2017 7:14 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Distance between zip codes Interesting little challenge, that didn't take nearly as long as I expected. Check out: http://www.camcopng.com/download/USZipCodeDistances.zip Access database containing all 33,000+ US Zip codes from the link I posted earlier. Select ZIP code from combobox. Enter maximum distance in text box, click button. 17 seconds? It takes this application about 1 second to find and display all ZIPs within x miles of the selected ZIP.. :-) On 23 May 2017 at 6:35, Rocky Smolin wrote: > I've found a couple of zip/lat/long free downloads and fond some code > that calculates the distance. So I think I may be covered. To take > one zip code and calculate the distance to all the others takes about > 15 seconds on my i7 box with SSD. > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: 'Access > Developers discussion and problem solving' Subject: Re: [AccessD] > Distance between zip codes > > Rocky, > > I'm not aware of any tool, other than using a web browser control and > one of the mapping services (Google, Bing, or Mapquest) > > The problem with all the mapping services is that at some point, you > need to start paying to use it. They only allow so many free calls a > day. > > But I do have code to do this more or less. What I do is given a > list of > lat/long's, a point, and a number of miles, figure out who in that > list is in the radius. > > In my case it is the location of people, but it could easily be zips. > All > you'd need is a list of the lat/long for each. > > Jim. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Rocky Smolin Sent: Tuesday, May 23, 2017 07:37 AM To: 'Access > Developers discussion and problem solving' Subject: [AccessD] Distance > between zip codes > > Dear List: > > > > I have a client who wants to know all of the zip codes that lie within > a certain radius of a selected zip code. > > > > I seem to recall some discussion about this on the list but it could > have been 15 years ago now. > > > > Is there some tool available that can be dropped into and Access FE > (using 2010 now). > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Tue May 23 09:53:08 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Wed, 24 May 2017 00:53:08 +1000 Subject: [AccessD] Distance between zip codes In-Reply-To: <023101d2d3d2$87d26070$97772150$@bchacc.com> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com>, <592443C1.10275.725FA2B@stuart.lexacorp.com.pg>, <023101d2d3d2$87d26070$97772150$@bchacc.com> Message-ID: <59244CD4.31012.7496981@stuart.lexacorp.com.pg> Yep, all my own work (apart from the data which came from the earlier link). I already had the trig and distance functions in an old sailing application which I wrote many years ago. So I just had to built the tables, form and the GetZipsWithinDistance function. On 23 May 2017 at 7:40, Rocky Smolin wrote: > That is PRECISELY what I need - well, the client needs. Thanks so > much. Is that your work? It's very fast. > > Best, > > Rocky > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan Sent: Tuesday, May 23, 2017 7:14 AM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] > Distance between zip codes > > Interesting little challenge, that didn't take nearly as long as I > expected. Check out: > > http://www.camcopng.com/download/USZipCodeDistances.zip > > Access database containing all 33,000+ US Zip codes from the link I > posted earlier. > > Select ZIP code from combobox. Enter maximum distance in text box, > click button. > > > 17 seconds? It takes this application about 1 second to find and > display all ZIPs within x miles of the selected ZIP.. > > :-) > > > > On 23 May 2017 at 6:35, Rocky Smolin wrote: > > > I've found a couple of zip/lat/long free downloads and fond some > > code that calculates the distance. So I think I may be covered. To > > take one zip code and calculate the distance to all the others takes > > about 15 seconds on my i7 box with SSD. > > > > R > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: > > 'Access Developers discussion and problem solving' Subject: Re: > > [AccessD] Distance between zip codes > > > > Rocky, > > > > I'm not aware of any tool, other than using a web browser control > > and > > one of the mapping services (Google, Bing, or Mapquest) > > > > The problem with all the mapping services is that at some point, > > you > > need to start paying to use it. They only allow so many free calls > > a day. > > > > But I do have code to do this more or less. What I do is given a > > list of > > lat/long's, a point, and a number of miles, figure out who in that > > list is in the radius. > > > > In my case it is the location of people, but it could easily be > > zips. > > All > > you'd need is a list of the lat/long for each. > > > > Jim. > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Rocky Smolin Sent: Tuesday, May 23, 2017 07:37 AM To: > > 'Access Developers discussion and problem solving' Subject: > > [AccessD] Distance between zip codes > > > > Dear List: > > > > > > > > I have a client who wants to know all of the zip codes that lie > > within a certain radius of a selected zip code. > > > > > > > > I seem to recall some discussion about this on the list but it could > > have been 15 years ago now. > > > > > > > > Is there some tool available that can be dropped into and Access FE > > (using 2010 now). > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From rockysmolin at bchacc.com Tue May 23 10:08:36 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 23 May 2017 08:08:36 -0700 Subject: [AccessD] Distance between zip codes In-Reply-To: <59244CD4.31012.7496981@stuart.lexacorp.com.pg> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com>, <592443C1.10275.725FA2B@stuart.lexacorp.com.pg>, <023101d2d3d2$87d26070$97772150$@bchacc.com> <59244CD4.31012.7496981@stuart.lexacorp.com.pg> Message-ID: <024301d2d3d6$73af0e00$5b0d2a00$@bchacc.com> Really nice stuff. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, May 23, 2017 7:53 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Distance between zip codes Yep, all my own work (apart from the data which came from the earlier link). I already had the trig and distance functions in an old sailing application which I wrote many years ago. So I just had to built the tables, form and the GetZipsWithinDistance function. On 23 May 2017 at 7:40, Rocky Smolin wrote: > That is PRECISELY what I need - well, the client needs. Thanks so > much. Is that your work? It's very fast. > > Best, > > Rocky > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan Sent: Tuesday, May 23, 2017 7:14 AM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] > Distance between zip codes > > Interesting little challenge, that didn't take nearly as long as I > expected. Check out: > > http://www.camcopng.com/download/USZipCodeDistances.zip > > Access database containing all 33,000+ US Zip codes from the link I > posted earlier. > > Select ZIP code from combobox. Enter maximum distance in text box, > click button. > > > 17 seconds? It takes this application about 1 second to find and > display all ZIPs within x miles of the selected ZIP.. > > :-) > > > > On 23 May 2017 at 6:35, Rocky Smolin wrote: > > > I've found a couple of zip/lat/long free downloads and fond some > > code that calculates the distance. So I think I may be covered. To > > take one zip code and calculate the distance to all the others takes > > about 15 seconds on my i7 box with SSD. > > > > R > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: > > 'Access Developers discussion and problem solving' Subject: Re: > > [AccessD] Distance between zip codes > > > > Rocky, > > > > I'm not aware of any tool, other than using a web browser control > > and one of the mapping services (Google, Bing, or Mapquest) > > > > The problem with all the mapping services is that at some point, > > you need to start paying to use it. They only allow so many free > > calls a day. > > > > But I do have code to do this more or less. What I do is given a > > list of > > lat/long's, a point, and a number of miles, figure out who in that > > list is in the radius. > > > > In my case it is the location of people, but it could easily be > > zips. > > All > > you'd need is a list of the lat/long for each. > > > > Jim. > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Rocky Smolin Sent: Tuesday, May 23, 2017 07:37 AM To: > > 'Access Developers discussion and problem solving' Subject: > > [AccessD] Distance between zip codes > > > > Dear List: > > > > > > > > I have a client who wants to know all of the zip codes that lie > > within a certain radius of a selected zip code. > > > > > > > > I seem to recall some discussion about this on the list but it could > > have been 15 years ago now. > > > > > > > > Is there some tool available that can be dropped into and Access FE > > (using 2010 now). > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 gmail.com Tue May 23 13:22:32 2017 From: ssharkins at gmail.com (Susan Harkins) Date: Tue, 23 May 2017 14:22:32 -0400 Subject: [AccessD] Distance between zip codes In-Reply-To: <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> References: <020701d2d3b8$f26898b0$d739ca10$@bchacc.com> <59242DA7.9365.6CFA392@stuart.lexacorp.com.pg> Message-ID: Facebook can do it, so must exist. Susan H. On Tue, May 23, 2017 at 8:40 AM, Stuart McLachlan wrote: > Don't know of anything you can drop in, but here's a list of zip codes > with lat/lon. > > I've got some code that calculates distance between any two lat/lon > locations. (I wrote it for > sailing) > > It would be fairly easy to write a procedure thatsteps through the data > and locates matching > codes, but it probably won't be very fast. > > Interesting project. Give me a day or so and I'll see f I can come up with > something :) > > > > > > On 23 May 2017 at 4:37, Rocky Smolin wrote: > > > Dear List: > > > > > > > > I have a client who wants to know all of the zip codes that lie within > > a certain radius of a selected zip code. > > > > > > > > I seem to recall some discussion about this on the list but it could > > have been 15 years ago now. > > > > > > > > Is there some tool available that can be dropped into and Access FE > > (using 2010 now). > > > > > > > > MTIA > > > > > > > > > > > > Rocky Smolin > > > > Beach Access Software > > > > 760-683-5777 > > > > www.bchacc.com > > > > www.e-z-mrp.com > > > > Skype: rocky.smolin > > > > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From accesspro at gmail.com Tue May 23 19:25:53 2017 From: accesspro at gmail.com (Bob Heygood) Date: Tue, 23 May 2017 17:25:53 -0700 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: References: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> <0fc101d2d039$317748e0$9465daa0$@gmail.com> Message-ID: <000001d2d424$4e373dc0$eaa5b940$@gmail.com> Hello Jim, I found the offending code. I am a big fan of MZ tools. What I could not understand was why it did not fail for them when using A97. Turns out it did and they didn't explain it correctly. Thanks for the response. Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Bob, Get a copy of MZ Tools (or something else), which will allow you to number the lines in a project/module/procedure. You can do it manually as well if you know the procedure at least and it's not large. Then in your error handler, use the undocumented vba.erl call, which will give you the line number where the error occurred. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Thursday, May 18, 2017 08:45 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Sorry. Should have been more clear. The app converted fine from A97 to A2010. And after some adjustments/rewrites to the code, debugs and works well, except for the error noted. Which did occur under A97. Still trying to nail down the exact offending line. This is hard as transactions are used. "DAO BeginTrans, CommitTrans, and Rollback methods of the Workspace object." "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 17, 2017 5:57 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" At what point do you get it? During the save as which is converting the format? If so, maybe try converting to 2003 first and then to 2010? Or maybe try importing all the objects from the mdb into an empty accdb. If it farts during the import you'll be able to see which object is causing the problem. HTH Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at verizon.net Wed May 24 07:27:38 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Wed, 24 May 2017 08:27:38 -0400 Subject: [AccessD] "Object invalid or no longer set" In-Reply-To: <000001d2d424$4e373dc0$eaa5b940$@gmail.com> References: <0f1401d2cf6a$7f4ad7a0$7de086e0$@gmail.com> <0fc101d2d039$317748e0$9465daa0$@gmail.com> <000001d2d424$4e373dc0$eaa5b940$@gmail.com> Message-ID: <035b01d2d489$223cbe60$66b63b20$@verizon.net> Glad to hear you found it. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Tuesday, May 23, 2017 08:26 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Hello Jim, I found the offending code. I am a big fan of MZ tools. What I could not understand was why it did not fail for them when using A97. Turns out it did and they didn't explain it correctly. Thanks for the response. Bob -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Tuesday, May 23, 2017 5:27 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Bob, Get a copy of MZ Tools (or something else), which will allow you to number the lines in a project/module/procedure. You can do it manually as well if you know the procedure at least and it's not large. Then in your error handler, use the undocumented vba.erl call, which will give you the line number where the error occurred. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Thursday, May 18, 2017 08:45 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" Sorry. Should have been more clear. The app converted fine from A97 to A2010. And after some adjustments/rewrites to the code, debugs and works well, except for the error noted. Which did occur under A97. Still trying to nail down the exact offending line. This is hard as transactions are used. "DAO BeginTrans, CommitTrans, and Rollback methods of the Workspace object." "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, May 17, 2017 5:57 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] "Object invalid or no longer set" At what point do you get it? During the save as which is converting the format? If so, maybe try converting to 2003 first and then to 2010? Or maybe try importing all the objects from the mdb into an empty accdb. If it farts during the import you'll be able to see which object is causing the problem. HTH Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Wednesday, May 17, 2017 5:06 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] "Object invalid or no longer set" Hello to the list, I am getting this error when converting from A97 to A2010: "Object invalid or no longer set" Per MS, I checked my Jet 4.0 version and it looks like I have the latest. Any other suggestions ? TIA Bob Heygood -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From charlotte.foust at gmail.com Thu May 25 00:48:54 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Wed, 24 May 2017 22:48:54 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: Message-ID: I ran into something today that left me scratching my head. I ran a query to extract the first letter of a company name to use as an index. About 42 out of some 60k came back empty and no editing I could do would change that. I hunted around the internet and found a few issues with SharePoint and Unicode but nothing that made sense in context. Have any of you ever happened on this? I found a way to fix the fields, because i could find no way to query around it. The length of the string was for the visible characters, but the first character wasn't visible. Charlotte Foust 916-206-4336 From jamesbutton at blueyonder.co.uk Thu May 25 07:34:52 2017 From: jamesbutton at blueyonder.co.uk (James Button) Date: Thu, 25 May 2017 13:34:52 +0100 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: Message-ID: >From 'fun' with Excel - a leading ' in a string can be a real pain to deal with. Also there are the not a space 'whitespace' characters that can also cause annoyance ( especially when part of a filename) JimB -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, May 25, 2017 6:49 AM To: Access Developers discussion and problem Subject: [AccessD] Zero-width characters in query I ran into something today that left me scratching my head. I ran a query to extract the first letter of a company name to use as an index. About 42 out of some 60k came back empty and no editing I could do would change that. I hunted around the internet and found a few issues with SharePoint and Unicode but nothing that made sense in context. Have any of you ever happened on this? I found a way to fix the fields, because i could find no way to query around it. The length of the string was for the visible characters, but the first character wasn't visible. Charlotte Foust 916-206-4336 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Thu May 25 07:45:02 2017 From: gustav at cactus.dk (Gustav Brock) Date: Thu, 25 May 2017 12:45:02 +0000 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: , Message-ID: Hi Charlotte You can run a query like Select [OffendingField], Asc([OffendingField]) As FirstByte From YourTable Order By Asc([OffendingField]) to study nasty character. /gustav -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, May 25, 2017 6:49 AM To: Access Developers discussion and problem Subject: [AccessD] Zero-width characters in query I ran into something today that left me scratching my head. I ran a query to extract the first letter of a company name to use as an index. About 42 out of some 60k came back empty and no editing I could do would change that. I hunted around the internet and found a few issues with SharePoint and Unicode but nothing that made sense in context. Have any of you ever happened on this? I found a way to fix the fields, because i could find no way to query around it. The length of the string was for the visible characters, but the first character wasn't visible. Charlotte Foust 916-206-4336 From charlotte.foust at gmail.com Thu May 25 09:46:04 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Thu, 25 May 2017 07:46:04 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: Message-ID: Using the Asc() function on the first character is how I discovered the problem. Charlotte Foust 916-206-4336 On May 25, 2017 5:45 AM, "Gustav Brock" wrote: > Hi Charlotte > > You can run a query like > > Select [OffendingField], Asc([OffendingField]) As FirstByte > From YourTable > Order By Asc([OffendingField]) > > to study nasty character. > > /gustav > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Charlotte Foust > Sent: Thursday, May 25, 2017 6:49 AM > To: Access Developers discussion and problem > > Subject: [AccessD] Zero-width characters in query > > I ran into something today that left me scratching my head. I ran a query > to extract the first letter of a company name to use as an index. About 42 > out of some 60k came back empty and no editing I could do would change > that. > > I hunted around the internet and found a few issues with SharePoint and > Unicode but nothing that made sense in context. Have any of you ever > happened on this? I found a way to fix the fields, because i could find no > way to query around it. The length of the string was for the visible > characters, but the first character wasn't visible. > > Charlotte Foust > 916-206-4336 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From rockysmolin at bchacc.com Thu May 25 09:54:53 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 07:54:53 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: Message-ID: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> Not a solution but if you retrieved the second character in the string in the event that the fist character was blank or null, would that second character actually be the first character in the string? Or be the second character? Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Wednesday, May 24, 2017 10:49 PM To: Access Developers discussion and problem Subject: [AccessD] Zero-width characters in query I ran into something today that left me scratching my head. I ran a query to extract the first letter of a company name to use as an index. About 42 out of some 60k came back empty and no editing I could do would change that. I hunted around the internet and found a few issues with SharePoint and Unicode but nothing that made sense in context. Have any of you ever happened on this? I found a way to fix the fields, because i could find no way to query around it. The length of the string was for the visible characters, but the first character wasn't visible. Charlotte Foust 916-206-4336 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Thu May 25 10:15:42 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 08:15:42 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> References: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> Message-ID: <051b01d2d569$c68f7b20$53ae7160$@bchacc.com> " would that second character actually be the first character in the string? Or be the second character?" By which I meant would that second character actually be the first visible character in the string? Or be the second visible character? On the theory that when the first character comes up blank it's actually getting some non-displayable character. r -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Thursday, May 25, 2017 7:55 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Zero-width characters in query Not a solution but if you retrieved the second character in the string in the event that the fist character was blank or null, would that second character actually be the first character in the string? Or be the second character? Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Wednesday, May 24, 2017 10:49 PM To: Access Developers discussion and problem Subject: [AccessD] Zero-width characters in query I ran into something today that left me scratching my head. I ran a query to extract the first letter of a company name to use as an index. About 42 out of some 60k came back empty and no editing I could do would change that. I hunted around the internet and found a few issues with SharePoint and Unicode but nothing that made sense in context. Have any of you ever happened on this? I found a way to fix the fields, because i could find no way to query around it. The length of the string was for the visible characters, but the first character wasn't visible. Charlotte Foust 916-206-4336 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From charlotte.foust at gmail.com Thu May 25 10:20:11 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Thu, 25 May 2017 08:20:11 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> References: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> Message-ID: I tried that, but the first character wasn't null, it was a chr(9). I replaced it with a null string to cure the craziness. Charlotte Foust 916-206-4336 On May 25, 2017 7:56 AM, "Rocky Smolin" wrote: > Not a solution but if you retrieved the second character in the string in > the event that the fist character was blank or null, would that second > character actually be the first character in the string? Or be the second > character? > > Rocky > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Charlotte Foust > Sent: Wednesday, May 24, 2017 10:49 PM > To: Access Developers discussion and problem > Subject: [AccessD] Zero-width characters in query > > I ran into something today that left me scratching my head. I ran a query > to extract the first letter of a company name to use as an index. About 42 > out of some 60k came back empty and no editing I could do would change > that. > > I hunted around the internet and found a few issues with SharePoint and > Unicode but nothing that made sense in context. Have any of you ever > happened on this? I found a way to fix the fields, because i could find no > way to query around it. The length of the string was for the visible > characters, but the first character wasn't visible. > > Charlotte Foust > 916-206-4336 > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From gustav at cactus.dk Thu May 25 11:47:55 2017 From: gustav at cactus.dk (Gustav Brock) Date: Thu, 25 May 2017 16:47:55 +0000 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com>, Message-ID: Hi Charlotte That's nothing fancy, just a tab: vbTab. /gustav ________________________________________ Fra: AccessD p? vegne af Charlotte Foust Sendt: 25. maj 2017 17:20:11 Til: Access Developers discussion and problem Emne: Re: [AccessD] Zero-width characters in query I tried that, but the first character wasn't null, it was a chr(9). I replaced it with a null string to cure the craziness. Charlotte Foust 916-206-4336 From stuart at lexacorp.com.pg Thu May 25 15:26:37 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 26 May 2017 06:26:37 +1000 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: , <050501d2d566$de0ead50$9a2c07f0$@bchacc.com>, Message-ID: <59273DFD.4788.12C77235@stuart.lexacorp.com.pg> Someone must have imported a badly structured text file into the database :( On 25 May 2017 at 8:20, Charlotte Foust wrote: > I tried that, but the first character wasn't null, it was a chr(9). I > replaced it with a null string to cure the craziness. > > Charlotte Foust > 916-206-4336 > > On May 25, 2017 7:56 AM, "Rocky Smolin" > wrote: > > > Not a solution but if you retrieved the second character in the > > string in the event that the fist character was blank or null, would > > that second character actually be the first character in the string? > > Or be the second character? > > > > Rocky > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Charlotte Foust Sent: Wednesday, May 24, 2017 10:49 PM To: > > Access Developers discussion and problem Subject: [AccessD] > > Zero-width characters in query > > > > I ran into something today that left me scratching my head. I ran a > > query to extract the first letter of a company name to use as an > > index. About 42 out of some 60k came back empty and no editing I > > could do would change that. > > > > I hunted around the internet and found a few issues with SharePoint > > and Unicode but nothing that made sense in context. Have any of you > > ever happened on this? I found a way to fix the fields, because i > > could find no way to query around it. The length of the string was > > for the visible characters, but the first character wasn't visible. > > > > Charlotte Foust > > 916-206-4336 > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > 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 gmail.com Thu May 25 17:00:36 2017 From: ssharkins at gmail.com (Susan Harkins) Date: Thu, 25 May 2017 18:00:36 -0400 Subject: [AccessD] Zero-width characters in query In-Reply-To: <59273DFD.4788.12C77235@stuart.lexacorp.com.pg> References: , <050501d2d566$de0ead50$9a2c07f0$@bchacc.com>, <59273DFD.4788.12C77235@stuart.lexacorp.com.pg> Message-ID: <002201d2d5a2$57bd55d0$07380170$@gmail.com> I was wondering the same thing -- where did that come from? Susan h. Someone must have imported a badly structured text file into the database :( From rockysmolin at bchacc.com Thu May 25 18:10:18 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 16:10:18 -0700 Subject: [AccessD] Keyboard Shortcut Message-ID: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Dear List: When working with tabbed documents in Access 2010 is there a keyboard shortcut to close the current document? MTIA Rocky From rockysmolin at bchacc.com Thu May 25 18:12:39 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 16:12:39 -0700 Subject: [AccessD] Annoying Bounce Message-ID: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> Dear List: Working with the Navigation Pain in Access 2010, when using the vertical slider to scroll down the list of objects, whenever I stop scrolling down, the list bounces back up some (seemingly) random number of objects. Is there a way to stop that? MMTIA Rocky From davidmcafee at gmail.com Thu May 25 18:24:09 2017 From: davidmcafee at gmail.com (David McAfee) Date: Thu, 25 May 2017 16:24:09 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: Message-ID: This is what i had to do when i dealt with mdb files coming back from the state and county. Drove me nuts tryimg to figure out why nz([AidCode],"") <>"" was not picking up blanks On May 25, 2017 7:47 AM, "Charlotte Foust" wrote: > Using the Asc() function on the first character is how I discovered the > problem. > > Charlotte Foust > 916-206-4336 > > On May 25, 2017 5:45 AM, "Gustav Brock" wrote: > > > Hi Charlotte > > > > You can run a query like > > > > Select [OffendingField], Asc([OffendingField]) As FirstByte > > From YourTable > > Order By Asc([OffendingField]) > > > > to study nasty character. > > > > /gustav > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > > Charlotte Foust > > Sent: Thursday, May 25, 2017 6:49 AM > > To: Access Developers discussion and problem < > accessd at databaseadvisors.com > > > > > Subject: [AccessD] Zero-width characters in query > > > > I ran into something today that left me scratching my head. I ran a > query > > to extract the first letter of a company name to use as an index. About > 42 > > out of some 60k came back empty and no editing I could do would change > > that. > > > > I hunted around the internet and found a few issues with SharePoint and > > Unicode but nothing that made sense in context. Have any of you ever > > happened on this? I found a way to fix the fields, because i could find > no > > way to query around it. The length of the string was for the visible > > characters, but the first character wasn't visible. > > > > Charlotte Foust > > 916-206-4336 > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From davidmcafee at gmail.com Thu May 25 18:25:07 2017 From: davidmcafee at gmail.com (David McAfee) Date: Thu, 25 May 2017 16:25:07 -0700 Subject: [AccessD] Keyboard Shortcut In-Reply-To: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Message-ID: Ctrl+w for the tab Alt+F4 for the app On May 25, 2017 4:11 PM, "Rocky Smolin" wrote: > Dear List: > > > > When working with tabbed documents in Access 2010 is there a keyboard > shortcut to close the current document? > > > > MTIA > > > > Rocky > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From rockysmolin at bchacc.com Thu May 25 18:37:40 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 16:37:40 -0700 Subject: [AccessD] Keyboard Shortcut In-Reply-To: References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Message-ID: <05f001d2d5af$e689a860$b39cf920$@bchacc.com> Ah, excellent. The tab thing is great. Sometimes I have 1/2 dozen table open in tabs and want to close them all before running the next test. Is there a way to switch between tabs using the keyboard? Thanks and regards, Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee Sent: Thursday, May 25, 2017 4:25 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Keyboard Shortcut Ctrl+w for the tab Alt+F4 for the app On May 25, 2017 4:11 PM, "Rocky Smolin" wrote: > Dear List: > > > > When working with tabbed documents in Access 2010 is there a keyboard > shortcut to close the current document? > > > > MTIA > > > > Rocky > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dbdoug at gmail.com Thu May 25 19:05:08 2017 From: dbdoug at gmail.com (Doug Steele) Date: Thu, 25 May 2017 17:05:08 -0700 Subject: [AccessD] Annoying Bounce In-Reply-To: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> References: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> Message-ID: FWIW, I've noticed the same very irritating behavior. Doug On Thu, May 25, 2017 at 4:12 PM, Rocky Smolin wrote: > Dear List: > > > > Working with the Navigation Pain in Access 2010, when using the vertical > slider to scroll down the list of objects, whenever I stop scrolling down, > the list bounces back up some (seemingly) random number of objects. > > > > Is there a way to stop that? > > > > MMTIA > > > > Rocky > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From jimdettman at verizon.net Thu May 25 19:55:07 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Thu, 25 May 2017 20:55:07 -0400 Subject: [AccessD] Annoying Bounce In-Reply-To: References: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> Message-ID: <572EA66B-7B7B-47BE-A2AE-BDBF54D88A61@verizon.net> No real fix for it and it's been broken all the way up to Access 2016. You can do two things to minimize it: 1. Put the screen settings back to 100% instead of 125. 2. Change the general text alignment to text from interface mode under options. This reduces it but doesn't eliminate it. Jim Sent from my iPhone > On May 25, 2017, at 8:05 PM, Doug Steele wrote: > > FWIW, I've noticed the same very irritating behavior. > > Doug > > On Thu, May 25, 2017 at 4:12 PM, Rocky Smolin > wrote: > >> Dear List: >> >> >> >> Working with the Navigation Pain in Access 2010, when using the vertical >> slider to scroll down the list of objects, whenever I stop scrolling down, >> the list bounces back up some (seemingly) random number of objects. >> >> >> >> Is there a way to stop that? >> >> >> >> MMTIA >> >> >> >> Rocky >> >> >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Thu May 25 20:13:17 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 18:13:17 -0700 Subject: [AccessD] Annoying Bounce In-Reply-To: References: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> Message-ID: <060801d2d5bd$42208b50$c661a1f0$@bchacc.com> I have tracked it down to one fix which is changing the display setting back to 100% from 125%. But 100% is too small for my old eyes. Didn't even check to see if it solved the bounce problem. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Steele Sent: Thursday, May 25, 2017 5:05 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Annoying Bounce FWIW, I've noticed the same very irritating behavior. Doug On Thu, May 25, 2017 at 4:12 PM, Rocky Smolin wrote: > Dear List: > > > > Working with the Navigation Pain in Access 2010, when using the > vertical slider to scroll down the list of objects, whenever I stop > scrolling down, the list bounces back up some (seemingly) random number of objects. > > > > Is there a way to stop that? > > > > MMTIA > > > > Rocky > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Thu May 25 20:16:19 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 25 May 2017 18:16:19 -0700 Subject: [AccessD] Annoying Bounce In-Reply-To: <572EA66B-7B7B-47BE-A2AE-BDBF54D88A61@verizon.net> References: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> <572EA66B-7B7B-47BE-A2AE-BDBF54D88A61@verizon.net> Message-ID: <061701d2d5bd$ae8199b0$0b84cd10$@bchacc.com> I tried #2. Helps (but not really). #1 just too small for me. Using the search bar in the Nav Pain was suggested. Maybe I can make a habit of that. Because I'm scrolling but I know what object I'm looking for. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman Sent: Thursday, May 25, 2017 5:55 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Annoying Bounce No real fix for it and it's been broken all the way up to Access 2016. You can do two things to minimize it: 1. Put the screen settings back to 100% instead of 125. 2. Change the general text alignment to text from interface mode under options. This reduces it but doesn't eliminate it. Jim Sent from my iPhone > On May 25, 2017, at 8:05 PM, Doug Steele wrote: > > FWIW, I've noticed the same very irritating behavior. > > Doug > > On Thu, May 25, 2017 at 4:12 PM, Rocky Smolin > wrote: > >> Dear List: >> >> >> >> Working with the Navigation Pain in Access 2010, when using the >> vertical slider to scroll down the list of objects, whenever I stop >> scrolling down, the list bounces back up some (seemingly) random number of objects. >> >> >> >> Is there a way to stop that? >> >> >> >> MMTIA >> >> >> >> Rocky >> >> >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kost36 at otenet.gr Fri May 26 03:55:54 2017 From: kost36 at otenet.gr (Kostas Konstantinidis) Date: Fri, 26 May 2017 11:55:54 +0300 Subject: [AccessD] datediff & format Message-ID: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> Hi all, In a time tracking I use the datediff hours: (DateDiff("?";[TimeIn];[TimeOut]))/60 but what I really need is to track the time difference result in format as hh:mm Could anyone help please? Thanks /kostas From stuart at lexacorp.com.pg Fri May 26 04:50:49 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 26 May 2017 19:50:49 +1000 Subject: [AccessD] datediff & format In-Reply-To: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> Message-ID: <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From kost36 at otenet.gr Fri May 26 05:05:32 2017 From: kost36 at otenet.gr (Kostas Konstantinidis) Date: Fri, 26 May 2017 13:05:32 +0300 Subject: [AccessD] datediff & format In-Reply-To: <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> Message-ID: <006d01d2d607$9dc34160$d949c420$@otenet.gr> Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Fri May 26 05:16:36 2017 From: gustav at cactus.dk (Gustav Brock) Date: Fri, 26 May 2017 10:16:36 +0000 Subject: [AccessD] datediff & format In-Reply-To: <006d01d2d607$9dc34160$d949c420$@otenet.gr> References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg>, <006d01d2d607$9dc34160$d949c420$@otenet.gr> Message-ID: Hi Kostas You can use this function: Public Function FormatHourMinute( _ ByVal datTime As Date, _ Optional ByVal strSeparator As String = ":") _ As String ' Returns count of days, hours and minutes of datTime ' converted to hours and minutes as a formatted string ' with an optional choice of time separator. ' ' Example: ' datTime: #10:03# + #20:01# ' returns: 30:04 ' ' 2005-02-05. Cactus Data ApS, CPH. Dim strHour As String Dim strMinute As String Dim strHourMinute As String strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) ' Add leading zero to minute count when needed. strMinute = Right("0" & CStr(Minute(datTime)), 2) strHourMinute = strHour & strSeparator & strMinute FormatHourMinute = strHourMinute End Function TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 12:05:32 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas From kost36 at otenet.gr Fri May 26 05:32:04 2017 From: kost36 at otenet.gr (Kostas Konstantinidis) Date: Fri, 26 May 2017 13:32:04 +0300 Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg>, <006d01d2d607$9dc34160$d949c420$@otenet.gr> Message-ID: <006e01d2d60b$52ddd620$f8998260$@otenet.gr> Great!!! Thanks Gustav -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, May 26, 2017 1:17 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] datediff & format Hi Kostas You can use this function: Public Function FormatHourMinute( _ ByVal datTime As Date, _ Optional ByVal strSeparator As String = ":") _ As String ' Returns count of days, hours and minutes of datTime ' converted to hours and minutes as a formatted string ' with an optional choice of time separator. ' ' Example: ' datTime: #10:03# + #20:01# ' returns: 30:04 ' ' 2005-02-05. Cactus Data ApS, CPH. Dim strHour As String Dim strMinute As String Dim strHourMinute As String strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) ' Add leading zero to minute count when needed. strMinute = Right("0" & CStr(Minute(datTime)), 2) strHourMinute = strHour & strSeparator & strMinute FormatHourMinute = strHourMinute End Function TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 12:05:32 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas -- 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 May 26 08:40:00 2017 From: Lambert.Heenan at aig.com (Heenan, Lambert) Date: Fri, 26 May 2017 13:40:00 +0000 Subject: [AccessD] Keyboard Shortcut In-Reply-To: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Message-ID: Rocky, Cntrl-F4, closes the current tab. Ctrl-F6 moves right.. Ctrl-Shift-F6 moves left. The same shortcuts work in most multi window proggies, like Excel and Word and Firefox Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Thursday, May 25, 2017 7:10 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Keyboard Shortcut Dear List: When working with tabbed documents in Access 2010 is there a keyboard shortcut to close the current document? MTIA Rocky -- 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 May 26 08:42:35 2017 From: Lambert.Heenan at aig.com (Heenan, Lambert) Date: Fri, 26 May 2017 13:42:35 +0000 Subject: [AccessD] datediff & format In-Reply-To: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> Message-ID: Kostas, No need for DateDiff, just subtract the two dates. Print format(now()-date(),"hh:mm:ss") 09:41:17 Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kostas Konstantinidis Sent: Friday, May 26, 2017 4:56 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] datediff & format Hi all, In a time tracking I use the datediff hours: (DateDiff("?";[TimeIn];[TimeOut]))/60 but what I really need is to track the time difference result in format as hh:mm Could anyone help please? Thanks /kostas -- 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 May 26 08:44:03 2017 From: Lambert.Heenan at aig.com (Heenan, Lambert) Date: Fri, 26 May 2017 13:44:03 +0000 Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> Message-ID: If it's within on day. :-) Lambert? -----Original Message----- From: Heenan, Lambert Sent: Friday, May 26, 2017 9:43 AM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] datediff & format Kostas, No need for DateDiff, just subtract the two dates. Print format(now()-date(),"hh:mm:ss") 09:41:17 Lambert -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kostas Konstantinidis Sent: Friday, May 26, 2017 4:56 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] datediff & format Hi all, In a time tracking I use the datediff hours: (DateDiff("?";[TimeIn];[TimeOut]))/60 but what I really need is to track the time difference result in format as hh:mm Could anyone help please? Thanks /kostas -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Fri May 26 09:02:38 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Fri, 26 May 2017 07:02:38 -0700 Subject: [AccessD] Keyboard Shortcut In-Reply-To: References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Message-ID: <069901d2d628$bbe3a560$33aaf020$@bchacc.com> Tested and verified! Thank you. Do you know if there's a way to change those or assign a key that would trigger a Ctrl-F6? The Ctrl-F6 is a two-handed operation. Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, May 26, 2017 6:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Keyboard Shortcut Rocky, Cntrl-F4, closes the current tab. Ctrl-F6 moves right.. Ctrl-Shift-F6 moves left. The same shortcuts work in most multi window proggies, like Excel and Word and Firefox Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Thursday, May 25, 2017 7:10 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Keyboard Shortcut Dear List: When working with tabbed documents in Access 2010 is there a keyboard shortcut to close the current document? MTIA Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From wrwehler at gmail.com Fri May 26 09:05:42 2017 From: wrwehler at gmail.com (Ryan W) Date: Fri, 26 May 2017 09:05:42 -0500 Subject: [AccessD] Keyboard Shortcut In-Reply-To: References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Message-ID: Ctrl-F4 etc.. nice. Somehow I missed those. On Fri, May 26, 2017 at 8:40 AM, Heenan, Lambert wrote: > Rocky, > > Cntrl-F4, closes the current tab. Ctrl-F6 moves right.. Ctrl-Shift-F6 > moves left. > > The same shortcuts work in most multi window proggies, like Excel and Word > and Firefox > > Lambert > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Rocky Smolin > Sent: Thursday, May 25, 2017 7:10 PM > To: 'Access Developers discussion and problem solving' > Subject: [AccessD] Keyboard Shortcut > > Dear List: > > > > When working with tabbed documents in Access 2010 is there a keyboard > shortcut to close the current document? > > > > MTIA > > > > Rocky > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 May 26 09:36:36 2017 From: Lambert.Heenan at aig.com (Heenan, Lambert) Date: Fri, 26 May 2017 14:36:36 +0000 Subject: [AccessD] Keyboard Shortcut In-Reply-To: <069901d2d628$bbe3a560$33aaf020$@bchacc.com> References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> <069901d2d628$bbe3a560$33aaf020$@bchacc.com> Message-ID: Well in Access you could define an autokey macro I think. Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Friday, May 26, 2017 10:03 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Keyboard Shortcut Tested and verified! Thank you. Do you know if there's a way to change those or assign a key that would trigger a Ctrl-F6? The Ctrl-F6 is a two-handed operation. Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, May 26, 2017 6:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Keyboard Shortcut Rocky, Cntrl-F4, closes the current tab. Ctrl-F6 moves right.. Ctrl-Shift-F6 moves left. The same shortcuts work in most multi window proggies, like Excel and Word and Firefox Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Thursday, May 25, 2017 7:10 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Keyboard Shortcut Dear List: When working with tabbed documents in Access 2010 is there a keyboard shortcut to close the current document? MTIA Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kost36 at otenet.gr Fri May 26 10:11:37 2017 From: kost36 at otenet.gr (Kostas Konstantinidis) Date: Fri, 26 May 2017 18:11:37 +0300 Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg>, <006d01d2d607$9dc34160$d949c420$@otenet.gr> Message-ID: <008201d2d632$6024d0a0$206e71e0$@otenet.gr> Hi Gustav, For any reason it doesn't work for me... TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) returns "You tried to execute a query that does not include the specified expression 'TimeIn' as part of an aggregate function." May be it happens because of the Greek MS Office version? (Greek date format #dd/mm/yyyy#) The query is SELECT tblEmployeeTime.TimeIN, tblEmployeeTime.TimeOUT, FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime ORDER BY tblEmployeeTime.TimeOUT DESC; Any idea please? Many thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, May 26, 2017 1:17 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] datediff & format Hi Kostas You can use this function: Public Function FormatHourMinute( _ ByVal datTime As Date, _ Optional ByVal strSeparator As String = ":") _ As String ' Returns count of days, hours and minutes of datTime ' converted to hours and minutes as a formatted string ' with an optional choice of time separator. ' ' Example: ' datTime: #10:03# + #20:01# ' returns: 30:04 ' ' 2005-02-05. Cactus Data ApS, CPH. Dim strHour As String Dim strMinute As String Dim strHourMinute As String strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) ' Add leading zero to minute count when needed. strMinute = Right("0" & CStr(Minute(datTime)), 2) strHourMinute = strHour & strSeparator & strMinute FormatHourMinute = strHourMinute End Function TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 12:05:32 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Fri May 26 10:18:04 2017 From: accessd at shaw.ca (Jim Lawrence) Date: Fri, 26 May 2017 09:18:04 -0600 (MDT) Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> <006d01d2d607$9dc34160$d949c420$@otenet.gr> Message-ID: <2036197631.197786303.1495811884000.JavaMail.zimbra@shaw.ca> Brilliant. Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Friday, May 26, 2017 3:16:36 AM Subject: Re: [AccessD] datediff & format Hi Kostas You can use this function: Public Function FormatHourMinute( _ ByVal datTime As Date, _ Optional ByVal strSeparator As String = ":") _ As String ' Returns count of days, hours and minutes of datTime ' converted to hours and minutes as a formatted string ' with an optional choice of time separator. ' ' Example: ' datTime: #10:03# + #20:01# ' returns: 30:04 ' ' 2005-02-05. Cactus Data ApS, CPH. Dim strHour As String Dim strMinute As String Dim strHourMinute As String strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) ' Add leading zero to minute count when needed. strMinute = Right("0" & CStr(Minute(datTime)), 2) strHourMinute = strHour & strSeparator & strMinute FormatHourMinute = strHourMinute End Function TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 12:05:32 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kost36 at otenet.gr Fri May 26 10:25:55 2017 From: kost36 at otenet.gr (Kostas Konstantinidis) Date: Fri, 26 May 2017 18:25:55 +0300 Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> Message-ID: <008301d2d634$5fbdbf80$1f393e80$@otenet.gr> HI Heeman, Your suggestion works but with some changes.... Just to know how it substituted for Greek MS Office version hours: Format(([TimeOUT])-([TimeIN]);"??:??:??") I don't know if your windows version can display the above Greek characters for date format In free translation something like "ww:ll:dd" :-)) Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, May 26, 2017 4:43 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] datediff & format Kostas, No need for DateDiff, just subtract the two dates. Print format(now()-date(),"hh:mm:ss") 09:41:17 Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kostas Konstantinidis Sent: Friday, May 26, 2017 4:56 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] datediff & format Hi all, In a time tracking I use the datediff hours: (DateDiff("?";[TimeIn];[TimeOut]))/60 but what I really need is to track the time difference result in format as hh:mm Could anyone help please? Thanks /kostas -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Fri May 26 11:04:08 2017 From: gustav at cactus.dk (Gustav Brock) Date: Fri, 26 May 2017 16:04:08 +0000 Subject: [AccessD] datediff & format In-Reply-To: <008201d2d632$6024d0a0$206e71e0$@otenet.gr> References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg>, <006d01d2d607$9dc34160$d949c420$@otenet.gr> , <008201d2d632$6024d0a0$206e71e0$@otenet.gr> Message-ID: Hi Kostas If you wish to sum, you must either group by something or nothing: SELECT tblEmployeeTime.EmployeeId, FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime GROUP BY tblEmployeeTime.EmployeeId; or: SELECT FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime; /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 17:11:37 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Gustav, For any reason it doesn't work for me... TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) returns "You tried to execute a query that does not include the specified expression 'TimeIn' as part of an aggregate function." May be it happens because of the Greek MS Office version? (Greek date format #dd/mm/yyyy#) The query is SELECT tblEmployeeTime.TimeIN, tblEmployeeTime.TimeOUT, FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime ORDER BY tblEmployeeTime.TimeOUT DESC; Any idea please? Many thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, May 26, 2017 1:17 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] datediff & format Hi Kostas You can use this function: Public Function FormatHourMinute( _ ByVal datTime As Date, _ Optional ByVal strSeparator As String = ":") _ As String ' Returns count of days, hours and minutes of datTime ' converted to hours and minutes as a formatted string ' with an optional choice of time separator. ' ' Example: ' datTime: #10:03# + #20:01# ' returns: 30:04 ' ' 2005-02-05. Cactus Data ApS, CPH. Dim strHour As String Dim strMinute As String Dim strHourMinute As String strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) ' Add leading zero to minute count when needed. strMinute = Right("0" & CStr(Minute(datTime)), 2) strHourMinute = strHour & strSeparator & strMinute FormatHourMinute = strHourMinute End Function TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 12:05:32 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas From rockysmolin at bchacc.com Fri May 26 11:24:42 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Fri, 26 May 2017 09:24:42 -0700 Subject: [AccessD] Keyboard Shortcut In-Reply-To: References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> <069901d2d628$bbe3a560$33aaf020$@bchacc.com> Message-ID: <06b501d2d63c$94e1bf10$bea53d30$@bchacc.com> I'll Google that and try it. BTW, the MS on-line help is way inferior to just typing your question in a Google search. Works most of the time for me on things like that. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, May 26, 2017 7:37 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Keyboard Shortcut Well in Access you could define an autokey macro I think. Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Friday, May 26, 2017 10:03 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Keyboard Shortcut Tested and verified! Thank you. Do you know if there's a way to change those or assign a key that would trigger a Ctrl-F6? The Ctrl-F6 is a two-handed operation. Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert Sent: Friday, May 26, 2017 6:40 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Keyboard Shortcut Rocky, Cntrl-F4, closes the current tab. Ctrl-F6 moves right.. Ctrl-Shift-F6 moves left. The same shortcuts work in most multi window proggies, like Excel and Word and Firefox Lambert? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Thursday, May 25, 2017 7:10 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Keyboard Shortcut Dear List: When working with tabbed documents in Access 2010 is there a keyboard shortcut to close the current document? MTIA Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From kost36 at otenet.gr Fri May 26 11:46:41 2017 From: kost36 at otenet.gr (Kostas Konstantinidis) Date: Fri, 26 May 2017 19:46:41 +0300 Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg>, <006d01d2d607$9dc34160$d949c420$@otenet.gr> , <008201d2d632$6024d0a0$206e71e0$@otenet.gr> Message-ID: <008a01d2d63f$a7fe4bb0$f7fae310$@otenet.gr> Thanks Gustav /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, May 26, 2017 7:04 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] datediff & format Hi Kostas If you wish to sum, you must either group by something or nothing: SELECT tblEmployeeTime.EmployeeId, FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime GROUP BY tblEmployeeTime.EmployeeId; or: SELECT FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime; /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 17:11:37 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Gustav, For any reason it doesn't work for me... TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) returns "You tried to execute a query that does not include the specified expression 'TimeIn' as part of an aggregate function." May be it happens because of the Greek MS Office version? (Greek date format #dd/mm/yyyy#) The query is SELECT tblEmployeeTime.TimeIN, tblEmployeeTime.TimeOUT, FormatHourMinute(Sum([TimeOUT]-[TimeIN])) AS TotalTime FROM tblEmployeeTime ORDER BY tblEmployeeTime.TimeOUT DESC; Any idea please? Many thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, May 26, 2017 1:17 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] datediff & format Hi Kostas You can use this function: Public Function FormatHourMinute( _ ByVal datTime As Date, _ Optional ByVal strSeparator As String = ":") _ As String ' Returns count of days, hours and minutes of datTime ' converted to hours and minutes as a formatted string ' with an optional choice of time separator. ' ' Example: ' datTime: #10:03# + #20:01# ' returns: 30:04 ' ' 2005-02-05. Cactus Data ApS, CPH. Dim strHour As String Dim strMinute As String Dim strHourMinute As String strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) ' Add leading zero to minute count when needed. strMinute = Right("0" & CStr(Minute(datTime)), 2) strHourMinute = strHour & strSeparator & strMinute FormatHourMinute = strHourMinute End Function TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) /gustav ________________________________________ Fra: AccessD p? vegne af Kostas Konstantinidis Sendt: 26. maj 2017 12:05:32 Til: 'Access Developers discussion and problem solving' Emne: Re: [AccessD] datediff & format Hi Stuart, I guess I need both of them while I need extra calculation for weekly and monthly sum Thanks /kostas -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Friday, May 26, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] datediff & format Is it always within a single day? or Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? -- Stuart On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > Hi all, > In a time tracking I use the datediff > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > but what I really need is to track the time difference result in > format as hh:mm > > Could anyone help please? > Thanks > /kostas -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From charlotte.foust at gmail.com Fri May 26 14:16:02 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Fri, 26 May 2017 12:16:02 -0700 Subject: [AccessD] Zero-width characters in query In-Reply-To: <59273DFD.4788.12C77235@stuart.lexacorp.com.pg> References: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> <59273DFD.4788.12C77235@stuart.lexacorp.com.pg> Message-ID: I was assured that the values were typed in, but I don't know of any way to type a tab into a text box when tab is the default action for moving to the next control. Charlotte Foust (916) 206-4336 On Thu, May 25, 2017 at 1:26 PM, Stuart McLachlan wrote: > Someone must have imported a badly structured text file into the database > :( > > > On 25 May 2017 at 8:20, Charlotte Foust wrote: > > > I tried that, but the first character wasn't null, it was a chr(9). I > > replaced it with a null string to cure the craziness. > > > > Charlotte Foust > > 916-206-4336 > > > > On May 25, 2017 7:56 AM, "Rocky Smolin" > > wrote: > > > > > Not a solution but if you retrieved the second character in the > > > string in the event that the fist character was blank or null, would > > > that second character actually be the first character in the string? > > > Or be the second character? > > > > > > Rocky > > > > > > > > > -----Original Message----- > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > Behalf Of Charlotte Foust Sent: Wednesday, May 24, 2017 10:49 PM To: > > > Access Developers discussion and problem Subject: [AccessD] > > > Zero-width characters in query > > > > > > I ran into something today that left me scratching my head. I ran a > > > query to extract the first letter of a company name to use as an > > > index. About 42 out of some 60k came back empty and no editing I > > > could do would change that. > > > > > > I hunted around the internet and found a few issues with SharePoint > > > and Unicode but nothing that made sense in context. Have any of you > > > ever happened on this? I found a way to fix the fields, because i > > > could find no way to query around it. The length of the string was > > > for the visible characters, but the first character wasn't visible. > > > > > > Charlotte Foust > > > 916-206-4336 > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Fri May 26 14:57:38 2017 From: bensonforums at gmail.com (Bill Benson) Date: Fri, 26 May 2017 15:57:38 -0400 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: <050501d2d566$de0ead50$9a2c07f0$@bchacc.com> <59273DFD.4788.12C77235@stuart.lexacorp.com.pg> Message-ID: When the user has copied and pasted the data from a source in Word or another program, into a field in Access, I believe tabs go in as CHR(9) without the user having to physically touch the tab key themselves. But Maybe I am imagining this memory. On Fri, May 26, 2017 at 3:16 PM, Charlotte Foust wrote: > I was assured that the values were typed in, but I don't know of any way to > type a tab into a text box when tab is the default action for moving to the > next control. > > Charlotte Foust > (916) 206-4336 > > On Thu, May 25, 2017 at 1:26 PM, Stuart McLachlan > wrote: > > > Someone must have imported a badly structured text file into the database > > :( > > > > > > On 25 May 2017 at 8:20, Charlotte Foust wrote: > > > > > I tried that, but the first character wasn't null, it was a chr(9). I > > > replaced it with a null string to cure the craziness. > > > > > > Charlotte Foust > > > 916-206-4336 > > > > > > On May 25, 2017 7:56 AM, "Rocky Smolin" > > > wrote: > > > > > > > Not a solution but if you retrieved the second character in the > > > > string in the event that the fist character was blank or null, would > > > > that second character actually be the first character in the string? > > > > Or be the second character? > > > > > > > > Rocky > > > > > > > > > > > > -----Original Message----- > > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > > Behalf Of Charlotte Foust Sent: Wednesday, May 24, 2017 10:49 PM To: > > > > Access Developers discussion and problem Subject: [AccessD] > > > > Zero-width characters in query > > > > > > > > I ran into something today that left me scratching my head. I ran a > > > > query to extract the first letter of a company name to use as an > > > > index. About 42 out of some 60k came back empty and no editing I > > > > could do would change that. > > > > > > > > I hunted around the internet and found a few issues with SharePoint > > > > and Unicode but nothing that made sense in context. Have any of you > > > > ever happened on this? I found a way to fix the fields, because i > > > > could find no way to query around it. The length of the string was > > > > for the visible characters, but the first character wasn't visible. > > > > > > > > Charlotte Foust > > > > 916-206-4336 > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Fri May 26 15:00:14 2017 From: bensonforums at gmail.com (Bill Benson) Date: Fri, 26 May 2017 16:00:14 -0400 Subject: [AccessD] Keyboard Shortcut In-Reply-To: References: <05d701d2d5ac$13e71c10$3bb55430$@bchacc.com> Message-ID: I can't remember whether I had a problem with clicking the "x" in upper right corner of the tab not closing the tabs, or whether Ctrl-F4 was not working. Someone here helped me with that - I think that the tab had to be activated (have focus) before it would work properly. I wish I could remember which action was letting me down at the time. On Fri, May 26, 2017 at 10:05 AM, Ryan W wrote: > Ctrl-F4 etc.. nice. Somehow I missed those. > > > On Fri, May 26, 2017 at 8:40 AM, Heenan, Lambert > wrote: > > > Rocky, > > > > Cntrl-F4, closes the current tab. Ctrl-F6 moves right.. Ctrl-Shift-F6 > > moves left. > > > > The same shortcuts work in most multi window proggies, like Excel and > Word > > and Firefox > > > > Lambert > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > > Rocky Smolin > > Sent: Thursday, May 25, 2017 7:10 PM > > To: 'Access Developers discussion and problem solving' > > Subject: [AccessD] Keyboard Shortcut > > > > Dear List: > > > > > > > > When working with tabbed documents in Access 2010 is there a keyboard > > shortcut to close the current document? > > > > > > > > MTIA > > > > > > > > Rocky > > > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > 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 Fri May 26 16:21:11 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sat, 27 May 2017 07:21:11 +1000 Subject: [AccessD] Zero-width characters in query In-Reply-To: References: , , Message-ID: <59289C47.9290.181FC35C@stuart.lexacorp.com.pg> You are correct. I've seen tabs and all all sorts of other bad things from people copy/pasting from Word into Access (smart quotes are a real PITA). On 26 May 2017 at 15:57, Bill Benson wrote: > When the user has copied and pasted the data from a source in Word or > another program, into a field in Access, I believe tabs go in as > CHR(9) without the user having to physically touch the tab key > themselves. But Maybe I am imagining this memory. > > On Fri, May 26, 2017 at 3:16 PM, Charlotte Foust > wrote: > > > I was assured that the values were typed in, but I don't know of any > > way to type a tab into a text box when tab is the default action for > > moving to the next control. > > > > Charlotte Foust > > (916) 206-4336 > > > > On Thu, May 25, 2017 at 1:26 PM, Stuart McLachlan > > wrote: > > > > > Someone must have imported a badly structured text file into the > > > database :( > > > > > > > > > On 25 May 2017 at 8:20, Charlotte Foust wrote: > > > > > > > I tried that, but the first character wasn't null, it was a > > > > chr(9). I replaced it with a null string to cure the craziness. > > > > > > > > Charlotte Foust > > > > 916-206-4336 > > > > > > > > On May 25, 2017 7:56 AM, "Rocky Smolin" > > > > wrote: > > > > > > > > > Not a solution but if you retrieved the second character in > > > > > the string in the event that the fist character was blank or > > > > > null, would that second character actually be the first > > > > > character in the string? > > > > > Or be the second character? > > > > > > > > > > Rocky > > > > > > > > > > > > > > > -----Original Message----- > > > > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > > > > Behalf Of Charlotte Foust Sent: Wednesday, May 24, 2017 10:49 > > > > > PM To: Access Developers discussion and problem Subject: > > > > > [AccessD] Zero-width characters in query > > > > > > > > > > I ran into something today that left me scratching my head. I > > > > > ran a query to extract the first letter of a company name to > > > > > use as an index. About 42 out of some 60k came back empty and > > > > > no editing I could do would change that. > > > > > > > > > > I hunted around the internet and found a few issues with > > > > > SharePoint and Unicode but nothing that made sense in context. > > > > > Have any of you ever happened on this? I found a way to fix > > > > > the fields, because i could find no way to query around it. > > > > > The length of the string was for the visible characters, but > > > > > the first character wasn't visible. > > > > > > > > > > Charlotte Foust > > > > > 916-206-4336 > > > > > -- > > > > > AccessD mailing list > > > > > AccessD at databaseadvisors.com > > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > > Website: http://www.databaseadvisors.com > > > > > > > > > > -- > > > > > AccessD mailing list > > > > > AccessD at databaseadvisors.com > > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > > Website: http://www.databaseadvisors.com > > > > > > > > > -- > > > > AccessD mailing list > > > > AccessD at databaseadvisors.com > > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > > Website: http://www.databaseadvisors.com > > > > > > > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Fri May 26 23:37:24 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 27 May 2017 00:37:24 -0400 Subject: [AccessD] Annoying Bounce In-Reply-To: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> References: <05dc01d2d5ac$67fed1d0$37fc7570$@bchacc.com> Message-ID: Can't be worse than the bounce that occurs in the CustomUI editor whenever I make a change within 20% of the bottom portion of the code. Doesn't help anyone but I like to vent... Feel your pain. On Thu, May 25, 2017 at 7:12 PM, Rocky Smolin wrote: > Dear List: > > > > Working with the Navigation Pain in Access 2010, when using the vertical > slider to scroll down the list of objects, whenever I stop scrolling down, > the list bounces back up some (seemingly) random number of objects. > > > > Is there a way to stop that? > > > > MMTIA > > > > Rocky > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Fri May 26 23:38:58 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 27 May 2017 00:38:58 -0400 Subject: [AccessD] datediff & format In-Reply-To: <2036197631.197786303.1495811884000.JavaMail.zimbra@shaw.ca> References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> <006d01d2d607$9dc34160$d949c420$@otenet.gr> <2036197631.197786303.1495811884000.JavaMail.zimbra@shaw.ca> Message-ID: Jim Please include at least SOME of the text you are replying over with your accolade so we know who it is attributable to... thanks! On Fri, May 26, 2017 at 11:18 AM, Jim Lawrence wrote: > Brilliant. > > Jim > > ----- Original Message ----- > From: "Gustav Brock" > To: "Access Developers discussion and problem solving" < > accessd at databaseadvisors.com> > Sent: Friday, May 26, 2017 3:16:36 AM > Subject: Re: [AccessD] datediff & format > > Hi Kostas > > You can use this function: > > > Public Function FormatHourMinute( _ > ByVal datTime As Date, _ > Optional ByVal strSeparator As String = ":") _ > As String > > ' Returns count of days, hours and minutes of datTime > ' converted to hours and minutes as a formatted string > ' with an optional choice of time separator. > ' > ' Example: > ' datTime: #10:03# + #20:01# > ' returns: 30:04 > ' > ' 2005-02-05. Cactus Data ApS, CPH. > > Dim strHour As String > Dim strMinute As String > Dim strHourMinute As String > > strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) > ' Add leading zero to minute count when needed. > strMinute = Right("0" & CStr(Minute(datTime)), 2) > strHourMinute = strHour & strSeparator & strMinute > > FormatHourMinute = strHourMinute > > End Function > > > TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) > > /gustav > ________________________________________ > Fra: AccessD p? vegne af Kostas > Konstantinidis > Sendt: 26. maj 2017 12:05:32 > Til: 'Access Developers discussion and problem solving' > Emne: Re: [AccessD] datediff & format > > Hi Stuart, > I guess I need both of them while I need extra calculation for weekly and > monthly sum > > Thanks > /kostas > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Stuart McLachlan > Sent: Friday, May 26, 2017 12:51 PM > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] datediff & format > > Is it always within a single day? > or > Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? > Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? > > -- > Stuart > > > On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: > > > Hi all, > > In a time tracking I use the datediff > > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 > > > > but what I really need is to track the time difference result in > > format as hh:mm > > > > Could anyone help please? > > Thanks > > /kostas > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From bensonforums at gmail.com Fri May 26 23:40:27 2017 From: bensonforums at gmail.com (Bill Benson) Date: Sat, 27 May 2017 00:40:27 -0400 Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> <006d01d2d607$9dc34160$d949c420$@otenet.gr> <2036197631.197786303.1495811884000.JavaMail.zimbra@shaw.ca> Message-ID: ok, this is weird (and embarassing) - no matter how many times I clicked on show hidden text Google refused to show me who you were replying to. Until I checked my own response to Jim, then oh sure, I could see who he was responding to THEN. Forgive... millenial-tech challenged! On Sat, May 27, 2017 at 12:38 AM, Bill Benson wrote: > Jim > > Please include at least SOME of the text you are replying over with your > accolade so we know who it is attributable to... thanks! > > On Fri, May 26, 2017 at 11:18 AM, Jim Lawrence wrote: > >> Brilliant. >> >> Jim >> >> ----- Original Message ----- >> From: "Gustav Brock" >> To: "Access Developers discussion and problem solving" < >> accessd at databaseadvisors.com> >> Sent: Friday, May 26, 2017 3:16:36 AM >> Subject: Re: [AccessD] datediff & format >> >> Hi Kostas >> >> You can use this function: >> >> >> Public Function FormatHourMinute( _ >> ByVal datTime As Date, _ >> Optional ByVal strSeparator As String = ":") _ >> As String >> >> ' Returns count of days, hours and minutes of datTime >> ' converted to hours and minutes as a formatted string >> ' with an optional choice of time separator. >> ' >> ' Example: >> ' datTime: #10:03# + #20:01# >> ' returns: 30:04 >> ' >> ' 2005-02-05. Cactus Data ApS, CPH. >> >> Dim strHour As String >> Dim strMinute As String >> Dim strHourMinute As String >> >> strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) >> ' Add leading zero to minute count when needed. >> strMinute = Right("0" & CStr(Minute(datTime)), 2) >> strHourMinute = strHour & strSeparator & strMinute >> >> FormatHourMinute = strHourMinute >> >> End Function >> >> >> TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) >> >> /gustav >> ________________________________________ >> Fra: AccessD p? vegne af Kostas >> Konstantinidis >> Sendt: 26. maj 2017 12:05:32 >> Til: 'Access Developers discussion and problem solving' >> Emne: Re: [AccessD] datediff & format >> >> Hi Stuart, >> I guess I need both of them while I need extra calculation for weekly and >> monthly sum >> >> Thanks >> /kostas >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >> Stuart McLachlan >> Sent: Friday, May 26, 2017 12:51 PM >> To: Access Developers discussion and problem solving >> >> Subject: Re: [AccessD] datediff & format >> >> Is it always within a single day? >> or >> Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? >> Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? >> >> -- >> Stuart >> >> >> On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: >> >> > Hi all, >> > In a time tracking I use the datediff >> > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 >> > >> > but what I really need is to track the time difference result in >> > format as hh:mm >> > >> > Could anyone help please? >> > Thanks >> > /kostas >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > From accessd at shaw.ca Sat May 27 12:17:07 2017 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 27 May 2017 11:17:07 -0600 (MDT) Subject: [AccessD] datediff & format In-Reply-To: References: <005b01d2d5fd$e38879e0$aa996da0$@otenet.gr> <5927FA79.31563.15A7B951@stuart.lexacorp.com.pg> <006d01d2d607$9dc34160$d949c420$@otenet.gr> <2036197631.197786303.1495811884000.JavaMail.zimbra@shaw.ca> Message-ID: <1355138041.200771165.1495905427076.JavaMail.zimbra@shaw.ca> That is strange? Jim ----- Original Message ----- From: "Bill Benson" To: "Access Developers discussion and problem solving" Sent: Friday, May 26, 2017 9:40:27 PM Subject: Re: [AccessD] datediff & format ok, this is weird (and embarassing) - no matter how many times I clicked on show hidden text Google refused to show me who you were replying to. Until I checked my own response to Jim, then oh sure, I could see who he was responding to THEN. Forgive... millenial-tech challenged! On Sat, May 27, 2017 at 12:38 AM, Bill Benson wrote: > Jim > > Please include at least SOME of the text you are replying over with your > accolade so we know who it is attributable to... thanks! > > On Fri, May 26, 2017 at 11:18 AM, Jim Lawrence wrote: > >> Brilliant. >> >> Jim >> >> ----- Original Message ----- >> From: "Gustav Brock" >> To: "Access Developers discussion and problem solving" < >> accessd at databaseadvisors.com> >> Sent: Friday, May 26, 2017 3:16:36 AM >> Subject: Re: [AccessD] datediff & format >> >> Hi Kostas >> >> You can use this function: >> >> >> Public Function FormatHourMinute( _ >> ByVal datTime As Date, _ >> Optional ByVal strSeparator As String = ":") _ >> As String >> >> ' Returns count of days, hours and minutes of datTime >> ' converted to hours and minutes as a formatted string >> ' with an optional choice of time separator. >> ' >> ' Example: >> ' datTime: #10:03# + #20:01# >> ' returns: 30:04 >> ' >> ' 2005-02-05. Cactus Data ApS, CPH. >> >> Dim strHour As String >> Dim strMinute As String >> Dim strHourMinute As String >> >> strHour = CStr(Fix(datTime) * 24 + Hour(datTime)) >> ' Add leading zero to minute count when needed. >> strMinute = Right("0" & CStr(Minute(datTime)), 2) >> strHourMinute = strHour & strSeparator & strMinute >> >> FormatHourMinute = strHourMinute >> >> End Function >> >> >> TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn])) >> >> /gustav >> ________________________________________ >> Fra: AccessD p? vegne af Kostas >> Konstantinidis >> Sendt: 26. maj 2017 12:05:32 >> Til: 'Access Developers discussion and problem solving' >> Emne: Re: [AccessD] datediff & format >> >> Hi Stuart, >> I guess I need both of them while I need extra calculation for weekly and >> monthly sum >> >> Thanks >> /kostas >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >> Stuart McLachlan >> Sent: Friday, May 26, 2017 12:51 PM >> To: Access Developers discussion and problem solving >> >> Subject: Re: [AccessD] datediff & format >> >> Is it always within a single day? >> or >> Can it roll over midnight? i.e. Can TimeIn be greater than TimeOut? >> Can it exceed 24 hours? If so, do you want 1:02:30 or 26:30 ? >> >> -- >> Stuart >> >> >> On 26 May 2017 at 11:55, Kostas Konstantinidis wrote: >> >> > Hi all, >> > In a time tracking I use the datediff >> > hours: (DateDiff("";[TimeIn];[TimeOut]))/60 >> > >> > but what I really need is to track the time difference result in >> > format as hh:mm >> > >> > Could anyone help please? >> > Thanks >> > /kostas >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com