From tinanfields at torchlake.com Tue Aug 1 07:37:57 2017 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 1 Aug 2017 08:37:57 -0400 Subject: [AccessD] Access files by date In-Reply-To: <038101d30a78$98798390$c96c8ab0$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com> <012501d306e6$88f1f780$9ad5e680$@gmail.com> <038101d30a78$98798390$c96c8ab0$@bchacc.com> Message-ID: I'd sure like to see the finished product. T Tina Norris Fields tinanfields-at-torchlake-dot-com 231-322-2787 On 07/31/17 11:45 PM, Rocky Smolin wrote: > Bob: > > Are you still interested in the sort-photos-by-date-and-rename program? I > can send it to you with or without the phone consult. Not the version that > I first posted but the one that really works off the photo taken date in the > jpg header. > > Best, > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob > Heygood > Sent: Thursday, July 27, 2017 7:42 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Access files by date > > Great solution. > I have a need that this will work for as well. > > Thx > Bob Heygood > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Stuart McLachlan > Sent: Monday, July 24, 2017 1:10 AM > To: Access Developers discussion and problem solving > Cc: 'Off Topic' > Subject: Re: [AccessD] Access files by date > > I'd create a table to store all the filenames and dates with whatever other > fields you need for new filenames, comments or whatever. Then a simple > function: > > Function GetPhotos() As Long > Dim strFName As String > Dim fdate As Date > Dim rs As DAO.Recordset > Dim lngCount As Long > Set rs = CurrentDb.OpenRecordset("tblPhotos") > strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > "" > rs.AddNew > rs!FileName = strFilename > rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" & > strFilename) > rs.Update > lngCount = lngCount + 1 > strFilename = Dir$ > Wend > rs.Close > Set re = Nothing > GetPhotos = lngCount > End Function > > Once you have then in the table you can do anything you want with the data, > manually or with VBA. > > On 23 Jul 2017 at 21:36, Rocky Smolin wrote: > >> Dear List: >> >> >> >> Having just returned from a 5 day 250 mile bike trek through the >> redwoods of northern California with a group of 0 guys, I have >> volunteered to assemble everyone's pictures and edit them down to a >> director's cut. >> >> >> >> What I have done after editing all their photos (and discarding many) >> is put everyone's pictures in one folder which I can then display by >> date. Since everyone (hopefully) has a correct date time stamp, the >> pictures of like places and times are now grouped together. >> >> >> >> So now I would like to loop through these picture in date sequence, >> and rename them RR00010, RR00020, RR0030, etc. so I can then do a bit >> of rearranging by changing file names. Once that's done I can do a >> final cull of the pictures and, if I need to manually insert any in a >> different place I can do it - like RR00025 would go between RR00020 >> and RR00030. >> >> >> >> I'm having a little though, trouble extracting this solution from the >> web. Can someone point me in the right direction? Can this all be >> done with FSO? My first attempt retrieved the pics in file name order, >> not date/time order. And don't see a way using the Dir command to do >> that. >> >> >> >> 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 Aug 1 08:24:14 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 1 Aug 2017 06:24:14 -0700 Subject: [AccessD] Access files by date In-Reply-To: References: <010701d30436$5d161630$17424290$@bchacc.com> <012501d306e6$88f1f780$9ad5e680$@gmail.com> <038101d30a78$98798390$c96c8ab0$@bchacc.com> Message-ID: <03b101d30ac9$784d1c20$68e75460$@bchacc.com> Hahahahahaha....(sorry) it's a mess because it was a one-off for my own use - no one was ever supposed to see it :) And once I got it working there was no point in fooling with it. No comments. Lots of lines of code commented out as it evolved. Let me send it to you and you can call or write if you've got questions. 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 Tina Norris Fields Sent: Tuesday, August 01, 2017 5:38 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Access files by date I'd sure like to see the finished product. T Tina Norris Fields tinanfields-at-torchlake-dot-com 231-322-2787 On 07/31/17 11:45 PM, Rocky Smolin wrote: > Bob: > > Are you still interested in the sort-photos-by-date-and-rename > program? I can send it to you with or without the phone consult. Not > the version that I first posted but the one that really works off the > photo taken date in the jpg header. > > Best, > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bob Heygood > Sent: Thursday, July 27, 2017 7:42 AM > To: 'Access Developers discussion and problem solving' > Subject: Re: [AccessD] Access files by date > > Great solution. > I have a need that this will work for as well. > > Thx > Bob Heygood > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan > Sent: Monday, July 24, 2017 1:10 AM > To: Access Developers discussion and problem solving > Cc: 'Off Topic' > Subject: Re: [AccessD] Access files by date > > I'd create a table to store all the filenames and dates with whatever > other fields you need for new filenames, comments or whatever. Then a > simple > function: > > Function GetPhotos() As Long > Dim strFName As String > Dim fdate As Date > Dim rs As DAO.Recordset > Dim lngCount As Long > Set rs = CurrentDb.OpenRecordset("tblPhotos") > strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > "" > rs.AddNew > rs!FileName = strFilename > rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" & > strFilename) > rs.Update > lngCount = lngCount + 1 > strFilename = Dir$ > Wend > rs.Close > Set re = Nothing > GetPhotos = lngCount > End Function > > Once you have then in the table you can do anything you want with the > data, manually or with VBA. > > On 23 Jul 2017 at 21:36, Rocky Smolin wrote: > >> Dear List: >> >> >> >> Having just returned from a 5 day 250 mile bike trek through the >> redwoods of northern California with a group of 0 guys, I have >> volunteered to assemble everyone's pictures and edit them down to a >> director's cut. >> >> >> >> What I have done after editing all their photos (and discarding many) >> is put everyone's pictures in one folder which I can then display by >> date. Since everyone (hopefully) has a correct date time stamp, the >> pictures of like places and times are now grouped together. >> >> >> >> So now I would like to loop through these picture in date sequence, >> and rename them RR00010, RR00020, RR0030, etc. so I can then do a >> bit of rearranging by changing file names. Once that's done I can do >> a final cull of the pictures and, if I need to manually insert any in >> a different place I can do it - like RR00025 would go between RR00020 >> and RR00030. >> >> >> >> I'm having a little though, trouble extracting this solution from the >> web. Can someone point me in the right direction? Can this all be >> done with FSO? My first attempt retrieved the pics in file name >> order, not date/time order. And don't see a way using the Dir command >> to do that. >> >> >> >> 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 tinanfields at torchlake.com Tue Aug 1 09:30:36 2017 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Tue, 1 Aug 2017 10:30:36 -0400 Subject: [AccessD] Access files by date In-Reply-To: <03b101d30ac9$784d1c20$68e75460$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com> <012501d306e6$88f1f780$9ad5e680$@gmail.com> <038101d30a78$98798390$c96c8ab0$@bchacc.com> <03b101d30ac9$784d1c20$68e75460$@bchacc.com> Message-ID: <398a46d9-6040-0270-1c58-a6907750d2eb@torchlake.com> Thank you, Rocky. I would appreciate that. T Tina Norris Fields tinanfields-at-torchlake-dot-com 231-322-2787 On 08/01/17 9:24 AM, Rocky Smolin wrote: > Hahahahahaha....(sorry) it's a mess because it was a one-off for my own use > - no one was ever supposed to see it :) And once I got it working there was > no point in fooling with it. No comments. Lots of lines of code commented > out as it evolved. Let me send it to you and you can call or write if > you've got questions. > > > 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 > Tina Norris Fields > Sent: Tuesday, August 01, 2017 5:38 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Access files by date > > I'd sure like to see the finished product. > > T > > Tina Norris Fields > tinanfields-at-torchlake-dot-com > 231-322-2787 > > On 07/31/17 11:45 PM, Rocky Smolin wrote: >> Bob: >> >> Are you still interested in the sort-photos-by-date-and-rename >> program? I can send it to you with or without the phone consult. Not >> the version that I first posted but the one that really works off the >> photo taken date in the jpg header. >> >> Best, >> >> R >> >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf >> Of Bob Heygood >> Sent: Thursday, July 27, 2017 7:42 AM >> To: 'Access Developers discussion and problem solving' >> Subject: Re: [AccessD] Access files by date >> >> Great solution. >> I have a need that this will work for as well. >> >> Thx >> Bob Heygood >> >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf >> Of Stuart McLachlan >> Sent: Monday, July 24, 2017 1:10 AM >> To: Access Developers discussion and problem solving >> Cc: 'Off Topic' >> Subject: Re: [AccessD] Access files by date >> >> I'd create a table to store all the filenames and dates with whatever >> other fields you need for new filenames, comments or whatever. Then a >> simple >> function: >> >> Function GetPhotos() As Long >> Dim strFName As String >> Dim fdate As Date >> Dim rs As DAO.Recordset >> Dim lngCount As Long >> Set rs = CurrentDb.OpenRecordset("tblPhotos") >> strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > "" >> rs.AddNew >> rs!FileName = strFilename >> rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" & >> strFilename) >> rs.Update >> lngCount = lngCount + 1 >> strFilename = Dir$ >> Wend >> rs.Close >> Set re = Nothing >> GetPhotos = lngCount >> End Function >> >> Once you have then in the table you can do anything you want with the >> data, manually or with VBA. >> >> On 23 Jul 2017 at 21:36, Rocky Smolin wrote: >> >>> Dear List: >>> >>> >>> >>> Having just returned from a 5 day 250 mile bike trek through the >>> redwoods of northern California with a group of 0 guys, I have >>> volunteered to assemble everyone's pictures and edit them down to a >>> director's cut. >>> >>> >>> >>> What I have done after editing all their photos (and discarding many) >>> is put everyone's pictures in one folder which I can then display by >>> date. Since everyone (hopefully) has a correct date time stamp, the >>> pictures of like places and times are now grouped together. >>> >>> >>> >>> So now I would like to loop through these picture in date sequence, >>> and rename them RR00010, RR00020, RR0030, etc. so I can then do a >>> bit of rearranging by changing file names. Once that's done I can do >>> a final cull of the pictures and, if I need to manually insert any in >>> a different place I can do it - like RR00025 would go between RR00020 >>> and RR00030. >>> >>> >>> >>> I'm having a little though, trouble extracting this solution from the >>> web. Can someone point me in the right direction? Can this all be >>> done with FSO? My first attempt retrieved the pics in file name >>> order, not date/time order. And don't see a way using the Dir command >>> to do that. >>> >>> >>> >>> 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 df.waters at outlook.com Tue Aug 1 09:47:28 2017 From: df.waters at outlook.com (Dan Waters) Date: Tue, 1 Aug 2017 14:47:28 +0000 Subject: [AccessD] Access files by date In-Reply-To: <038101d30a78$98798390$c96c8ab0$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com> <012501d306e6$88f1f780$9ad5e680$@gmail.com> <038101d30a78$98798390$c96c8ab0$@bchacc.com> Message-ID: Hi Rocky, Could you post that code here? I'd like to see how this was done too. Thanks! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 31, 2017 22:45 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Access files by date Bob: Are you still interested in the sort-photos-by-date-and-rename program? I can send it to you with or without the phone consult. Not the version that I first posted but the one that really works off the photo taken date in the jpg header. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Thursday, July 27, 2017 7:42 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Access files by date Great solution. I have a need that this will work for as well. Thx Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Monday, July 24, 2017 1:10 AM To: Access Developers discussion and problem solving Cc: 'Off Topic' Subject: Re: [AccessD] Access files by date I'd create a table to store all the filenames and dates with whatever other fields you need for new filenames, comments or whatever. Then a simple function: Function GetPhotos() As Long Dim strFName As String Dim fdate As Date Dim rs As DAO.Recordset Dim lngCount As Long Set rs = CurrentDb.OpenRecordset("tblPhotos") strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > "" rs.AddNew rs!FileName = strFilename rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" & strFilename) rs.Update lngCount = lngCount + 1 strFilename = Dir$ Wend rs.Close Set re = Nothing GetPhotos = lngCount End Function Once you have then in the table you can do anything you want with the data, manually or with VBA. On 23 Jul 2017 at 21:36, Rocky Smolin wrote: > Dear List: > > > > Having just returned from a 5 day 250 mile bike trek through the > redwoods of northern California with a group of 0 guys, I have > volunteered to assemble everyone's pictures and edit them down to a > director's cut. > > > > What I have done after editing all their photos (and discarding many) > is put everyone's pictures in one folder which I can then display by > date. Since everyone (hopefully) has a correct date time stamp, the > pictures of like places and times are now grouped together. > > > > So now I would like to loop through these picture in date sequence, > and rename them RR00010, RR00020, RR0030, etc. so I can then do a bit > of rearranging by changing file names. Once that's done I can do a > final cull of the pictures and, if I need to manually insert any in a > different place I can do it - like RR00025 would go between RR00020 > and RR00030. > > > > I'm having a little though, trouble extracting this solution from the > web. Can someone point me in the right direction? Can this all be > done with FSO? My first attempt retrieved the pics in file name order, > not date/time order. And don't see a way using the Dir command to do > that. > > > > 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 Aug 1 09:50:10 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 1 Aug 2017 07:50:10 -0700 Subject: [AccessD] Access files by date In-Reply-To: <398a46d9-6040-0270-1c58-a6907750d2eb@torchlake.com> References: <010701d30436$5d161630$17424290$@bchacc.com> <012501d306e6$88f1f780$9ad5e680$@gmail.com> <038101d30a78$98798390$c96c8ab0$@bchacc.com> <03b101d30ac9$784d1c20$68e75460$@bchacc.com> <398a46d9-6040-0270-1c58-a6907750d2eb@torchlake.com> Message-ID: <03cf01d30ad5$7a198140$6e4c83c0$@bchacc.com> Sent offline to you and Arthur and Bob Heygood. r -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris Fields Sent: Tuesday, August 01, 2017 7:31 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Access files by date Thank you, Rocky. I would appreciate that. T Tina Norris Fields tinanfields-at-torchlake-dot-com 231-322-2787 On 08/01/17 9:24 AM, Rocky Smolin wrote: > Hahahahahaha....(sorry) it's a mess because it was a one-off for my > own use > - no one was ever supposed to see it :) And once I got it working > there was no point in fooling with it. No comments. Lots of lines of > code commented out as it evolved. Let me send it to you and you can > call or write if you've got questions. > > > 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 Tina Norris Fields > Sent: Tuesday, August 01, 2017 5:38 AM > To: accessd at databaseadvisors.com > Subject: Re: [AccessD] Access files by date > > I'd sure like to see the finished product. > > T > > Tina Norris Fields > tinanfields-at-torchlake-dot-com > 231-322-2787 > > On 07/31/17 11:45 PM, Rocky Smolin wrote: >> Bob: >> >> Are you still interested in the sort-photos-by-date-and-rename >> program? I can send it to you with or without the phone consult. >> Not the version that I first posted but the one that really works off >> the photo taken date in the jpg header. >> >> Best, >> >> R >> >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf >> Of Bob Heygood >> Sent: Thursday, July 27, 2017 7:42 AM >> To: 'Access Developers discussion and problem solving' >> Subject: Re: [AccessD] Access files by date >> >> Great solution. >> I have a need that this will work for as well. >> >> Thx >> Bob Heygood >> >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf >> Of Stuart McLachlan >> Sent: Monday, July 24, 2017 1:10 AM >> To: Access Developers discussion and problem solving >> Cc: 'Off Topic' >> Subject: Re: [AccessD] Access files by date >> >> I'd create a table to store all the filenames and dates with whatever >> other fields you need for new filenames, comments or whatever. Then >> a simple >> function: >> >> Function GetPhotos() As Long >> Dim strFName As String >> Dim fdate As Date >> Dim rs As DAO.Recordset >> Dim lngCount As Long >> Set rs = CurrentDb.OpenRecordset("tblPhotos") >> strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > "" >> rs.AddNew >> rs!FileName = strFilename >> rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" & >> strFilename) >> rs.Update >> lngCount = lngCount + 1 >> strFilename = Dir$ >> Wend >> rs.Close >> Set re = Nothing >> GetPhotos = lngCount >> End Function >> >> Once you have then in the table you can do anything you want with the >> data, manually or with VBA. >> >> On 23 Jul 2017 at 21:36, Rocky Smolin wrote: >> >>> Dear List: >>> >>> >>> >>> Having just returned from a 5 day 250 mile bike trek through the >>> redwoods of northern California with a group of 0 guys, I have >>> volunteered to assemble everyone's pictures and edit them down to a >>> director's cut. >>> >>> >>> >>> What I have done after editing all their photos (and discarding >>> many) is put everyone's pictures in one folder which I can then >>> display by date. Since everyone (hopefully) has a correct date time >>> stamp, the pictures of like places and times are now grouped together. >>> >>> >>> >>> So now I would like to loop through these picture in date sequence, >>> and rename them RR00010, RR00020, RR0030, etc. so I can then do a >>> bit of rearranging by changing file names. Once that's done I can do >>> a final cull of the pictures and, if I need to manually insert any >>> in a different place I can do it - like RR00025 would go between >>> RR00020 and RR00030. >>> >>> >>> >>> I'm having a little though, trouble extracting this solution from >>> the web. Can someone point me in the right direction? Can this all >>> be done with FSO? My first attempt retrieved the pics in file name >>> order, not date/time order. And don't see a way using the Dir >>> command to do that. >>> >>> >>> >>> 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 Aug 1 09:56:22 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 1 Aug 2017 07:56:22 -0700 Subject: [AccessD] Access files by date In-Reply-To: References: <010701d30436$5d161630$17424290$@bchacc.com> <012501d306e6$88f1f780$9ad5e680$@gmail.com> <038101d30a78$98798390$c96c8ab0$@bchacc.com> Message-ID: <03d001d30ad6$576014b0$06203e10$@bchacc.com> No! It's Ugly! Well...ok...If you post your email address, I'll send you the accdb offline as well so if you want to fool with it you won't have to parse out all the line feeds and other trash that accumulates in the email: R Option Compare Database Option Explicit Dim strFolder As String Dim strFileSpec As String Dim strFileName As String Dim strNewName As String Dim fs As Object Dim f As Variant Dim s As Variant Dim s2 As Variant Dim datDate As Date Dim intI As Integer Dim rs As DAO.Recordset Dim lngCount As Long Dim lngFileNumber As Long Private Sub Command0_Click() strFolder = "C:\Users\Rocky\Desktop\Redwood Ride Pictures\Mashup\" strFileSpec = "*.*" MsgBox GetPhotos & " And Done." End Sub Function GetPhotos() As Long Set fs = CreateObject("Scripting.FileSystemObject") CurrentDb.Execute "Delete * FROM tblPhotos" ' Get the files into the table withth eir original taken date Set rs = CurrentDb.OpenRecordset("Select * FROM tblPhotos") MsgBox strFolder & strFileSpec strFileName = Dir$(strFolder & strFileSpec) While strFileName <> "" Set f = fs.GetFile(strFolder & strFileName) s = GetProperty(strFolder & strFileName, 12) rs.AddNew rs!fldPhotosFileName = strFileName s2 = "" ' make some characters blank For intI = 1 To Len(s) If Mid(s, intI, 1) = "/" Or Mid(s, intI, 1) = ":" Or Mid(s, intI, 1) = " " Then s2 = s2 + Mid(s, intI, 1) GoTo NextIntI: End If ' make the non aplhanumeric characters zero If (Asc(Mid(s, intI, 1)) >= 65 And Asc(Mid(s, intI, 1)) <= 90) Or (Asc(Mid(s, intI, 1)) >= 48 And Asc(Mid(s, intI, 1)) <= 57) Then s2 = s2 + Mid(s, intI, 1) Else s2 = s2 + "0" End If NextIntI: Next intI If s2 = "" Then s2 = FileDateTime(strFolder & strFileName) rs!fldPhotosFileDate = s2 rs.Update lngCount = lngCount + 1 strFileName = Dir$ Wend rs.Close Set rs = Nothing GetPhotos = lngCount ' Rename files in chrono sequence lngFileNumber = 0 Set rs = CurrentDb.OpenRecordset("Select * FROM tblPhotos ORDER BY fldPhotosFileDate") Do While rs.EOF = False lngFileNumber = lngFileNumber + 10 strNewName = strFolder & "RR" & Right("0000" & Trim(Str(lngFileNumber)), 4) & ".jpg" ' rename file in folder and save the new name in the table for later inspection ' (to see if it really worked) Name strFolder & rs!fldPhotosFileName As strNewName rs.Edit rs!fldPhotosFileNewName = strNewName rs.Update rs.MoveNext If rs.BOF = False And rs.EOF = False Then datDate = rs!fldPhotosFileDate Loop End Function Function GetProperty(strFile, n) Dim objShell Dim objFolder Dim objFolderItem Dim i Dim strPath Dim strName Dim intPos 'On Error GoTo ErrHandler intPos = InStrRev(strFile, "\") strPath = Left(strFile, intPos) strName = Mid(strFile, intPos + 1) Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(strPath) Set objFolderItem = objFolder.ParseName(strName) If Not objFolderItem Is Nothing Then ' search jpg header fields to find which one is the original date taken field 'MsgBox objFolder.GetDetailsOf(objFolderItem, 10) 'MsgBox objFolder.GetDetailsOf(objFolderItem, 11) 'MsgBox objFolder.GetDetailsOf(objFolderItem, 12) 'MsgBox objFolder.GetDetailsOf(objFolderItem, 13) 'MsgBox objFolder.GetDetailsOf(objFolderItem, 14) 'MsgBox objFolder.GetDetailsOf(objFolderItem, 15) 'MsgBox objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) End If ExitHandler: Set objFolderItem = Nothing Set objFolder = Nothing Set objShell = Nothing Exit Function ErrHandler: MsgBox Err.Description, vbExclamation Resume ExitHandler End Function -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Tuesday, August 01, 2017 7:47 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access files by date Hi Rocky, Could you post that code here? I'd like to see how this was done too. Thanks! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 31, 2017 22:45 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Access files by date Bob: Are you still interested in the sort-photos-by-date-and-rename program? I can send it to you with or without the phone consult. Not the version that I first posted but the one that really works off the photo taken date in the jpg header. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood Sent: Thursday, July 27, 2017 7:42 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Access files by date Great solution. I have a need that this will work for as well. Thx Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Monday, July 24, 2017 1:10 AM To: Access Developers discussion and problem solving Cc: 'Off Topic' Subject: Re: [AccessD] Access files by date I'd create a table to store all the filenames and dates with whatever other fields you need for new filenames, comments or whatever. Then a simple function: Function GetPhotos() As Long Dim strFName As String Dim fdate As Date Dim rs As DAO.Recordset Dim lngCount As Long Set rs = CurrentDb.OpenRecordset("tblPhotos") strFilename = Dir$(CurrentProject.payh & "\*.jpg") While strFilename > "" rs.AddNew rs!FileName = strFilename rs!Filedate = fdate = FileDateTime(CurrentProject.Path & "\" & strFilename) rs.Update lngCount = lngCount + 1 strFilename = Dir$ Wend rs.Close Set re = Nothing GetPhotos = lngCount End Function Once you have then in the table you can do anything you want with the data, manually or with VBA. On 23 Jul 2017 at 21:36, Rocky Smolin wrote: > Dear List: > > > > Having just returned from a 5 day 250 mile bike trek through the > redwoods of northern California with a group of 0 guys, I have > volunteered to assemble everyone's pictures and edit them down to a > director's cut. > > > > What I have done after editing all their photos (and discarding many) > is put everyone's pictures in one folder which I can then display by > date. Since everyone (hopefully) has a correct date time stamp, the > pictures of like places and times are now grouped together. > > > > So now I would like to loop through these picture in date sequence, > and rename them RR00010, RR00020, RR0030, etc. so I can then do a bit > of rearranging by changing file names. Once that's done I can do a > final cull of the pictures and, if I need to manually insert any in a > different place I can do it - like RR00025 would go between RR00020 > and RR00030. > > > > I'm having a little though, trouble extracting this solution from the > web. Can someone point me in the right direction? Can this all be > done with FSO? My first attempt retrieved the pics in file name order, > not date/time order. And don't see a way using the Dir command to do > that. > > > > 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 Aug 1 10:16:22 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 1 Aug 2017 08:16:22 -0700 Subject: [AccessD] Export/Import all Objects In-Reply-To: References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> Message-ID: <03d701d30ad9$22634b30$6729e190$@bchacc.com> Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 1 10:19:30 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 1 Aug 2017 08:19:30 -0700 Subject: [AccessD] Export/Import all Objects In-Reply-To: <03d701d30ad9$22634b30$6729e190$@bchacc.com> References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> <03d701d30ad9$22634b30$6729e190$@bchacc.com> Message-ID: <03e101d30ad9$92e79d70$b8b6d850$@bchacc.com> Holy Code Cleaners, Batman! It appears to have worked. Now I'll try it on a second accdb that's really really hosed up. You're already in for one martini. Stand by for a double. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, August 01, 2017 8:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 1 16:42:50 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Wed, 02 Aug 2017 07:42:50 +1000 Subject: [AccessD] Access files by date In-Reply-To: <03d001d30ad6$576014b0$06203e10$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com>, , <03d001d30ad6$576014b0$06203e10$@bchacc.com> Message-ID: <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > ' search jpg header fields to find which one is the original date ... > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) FWIW,.. replacing objFolder.GetDetailsOf(objFolderItem, 16) with objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of the item instead of its value. I came across th list below of GetDetailsOf item numbers. Seems MS have just added items haphazardly to a list as they have identified EXIF and other metadata tags used by different types of files. If you want the Lat/Lon so that you can track your photos geographically, that's item 39. Experimenting, there is no error if you ask for an item Detail that doesn't exist. I looped through a folder asking for item details up to 1000 without any error '0 Name '1 Size '2 Item type '3 Date Modified '4 Date created '5 Date accessed '6 Attributes '7 Offline Status '8 Offline availability '9 Perceived type '10 owner '11 Kind '12 Date taken '13 Contributing artists '14 Album '15 Year '16 Genre '17 Conductors '18 Tags '19 rating '20 Authors '21 Title '22 Subject '23 Categories '24 Comments '25 copyright '26 # '27 Length '28 Bit Rate '29 Protected '30 Camera model '31 Dimensions '32 Camera maker '33 Company '34 File Description '35 Program Name '36 Duration '37 Is online '38 Is recurring '39 Location '40 Optional attendee addresses '41 Optional attendees '42 Organizer Address '43 Organizer Name '44 Reminder Time '45 Required attendee addresses '46 Required attendees '47 Resources '48 Meeting Status '49 Free/busy status '50 Total Size '51 Account Name '52 task Status '53 computer '54 Anniversary '55 Assistant 's name '56 Assistant 's phone '57 Birthday '58 Business Address '59 Business City '60 Business Country / region '61 Business P.O.box '62 Business postal code '63 Business State Or province '64 Business Street '65 Business fax '66 Business home page '67 Business phone '68 Callback Number '69 Car phone '70 Children '71 Company main phone '72 Department '73 E-mail address '74 e -mail2 '75 e -mail3 '76 E-mail list '77 E-mail display name '78 File as '79 First Name '80 Full Name '81 Gender '82 Given Name '83 Hobbies '84 Home Address '85 Home City '86 Home Country / region '87 Home P.O.box '88 Home postal code '89 Home State Or province '90 Home Street '91 Home fax '92 Home phone '93 IM addresses '94 Initials '95 Job Title '96 Label '97 last Name '98 Mailing Address '99 Middle Name '100 Cell phone '101 Nickname '102 Office Location '103 Other Address '104 Other City '105 Other Country / region '106 Other P.O.box '107 Other postal code '108 Other State Or province '109 Other Street '110 Pager '111 Personal Title '112 City '113 Country/region '114 P.O.box '115 Postal code '116 State or province '117 Street '118 Primary e - mail '119 Primary phone '120 Profession '121 Spouse/Partner '122 Suffix '123 TTY/TTD phone '124 Telex '125 Webpage '126 Content Status '127 Content type '128 Date acquired '129 Date archived '130 Date completed '131 Device Category '132 Connected '133 Discovery Method '134 Friendly Name '135 Local computer '136 Manufacturer '137 model '138 Paired '139 Classification '140 Status '141 Client ID '142 Contributors '143 Content created '144 last printed '145 Date last saved '146 Division '147 Document ID '148 Pages '149 Slides '150 Total editing time '151 Word Count '152 Due Date '153 End date '154 File Count '155 FileName '156 File Version '157 flag Color '158 flag Status '159 Space free '160 Bit Depth '161 Horizontal resolution '162 Width '163 Vertical resolution '164 Height '165 Importance '166 Is attachment '167 Is deleted '168 Encryption Status '169 Has flag '170 Is completed '171 Incomplete '172 Read Status '173 Shared '174 Creators '175 Date '176 Folder Name '177 Folder Path '178 Folder '179 Participants '180 Path '181 by Location '182 Type '183 Contact Names '184 Entry type '185 Language '186 Date visited '187 Description '188 link Status '189 link Target '190 URL '191 Media created '192 Date released '193 Encoded by '194 Producers '195 Publisher '196 Subtitle '197 User web URL '198 Writers '199 attachments '200 Bcc addresses '201 Bcc '202 Cc addresses '203 Cc '204 Conversation ID '205 Date Received '206 Date sent '207 From addresses '208 From '209 Has attachments '210 Sender Address '211 Sender Name '212 Store '213 To addresses '214 To do title '215 To '216 Mileage '217 Album artist '218 Album ID '219 Beats -per - Minute '220 Composers '221 Initial Key '222 Part of a compilation '223 Mood '224 Part of set '225 Period '226 Color '227 Parental rating '228 Parental rating reason '229 Space used '230 EXIF Version '231 Event '232 Exposure bias '233 Exposure Program '234 Exposure Time '235 F-stop '236 Flash Mode '237 Focal Length '238 35mm focal length '239 ISO speed '240 Lens maker '241 Lens model '242 Light Source '243 Max aperture '244 Metering Mode '245 Orientation '246 People '247 Program Mode '248 saturation '249 Subject distance '250 White Balance '251 Priority '252 Project '253 Channel Number '254 Episode Name '255 Closed captioning '256 Rerun '257 SAP '258 Broadcast Date '259 Program Description '260 Recording Time '261 Station call sign '262 Station Name '263 Summary '264 Snippets '265 Auto Summary '266 Search ranking '267 Sensitivity '268 Shared with '269 Sharing Status '270 Product Name '271 Product Version '272 Support link '273 Source '274 Start Date '275 Billing Information '276 Complete '277 task owner '278 Total file size '279 Legal trademarks '280 Video compression '281 Directors '282 Data Rate '283 Frame Height '284 Frame Rate '285 Frame Width '286 Total bitRate '287 Primary disk '288 Memory '289 Machine Status '290 Configuration File '291 '292 '293 '294 '295 Masters Keywords (debug) '296 Masters Keywords (debug) From stuart at lexacorp.com.pg Tue Aug 1 16:57:00 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Wed, 02 Aug 2017 07:57:00 +1000 Subject: [AccessD] Access files by date In-Reply-To: <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> References: <010701d30436$5d161630$17424290$@bchacc.com>, <03d001d30ad6$576014b0$06203e10$@bchacc.com>, <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> Message-ID: <5980F92C.30064.2D68ACC0@stuart.lexacorp.com.pg> On 2 Aug 2017 at 7:42, Stuart McLachlan wrote: > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > ' search jpg header fields to find which one is the original date > ... > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > Based on Rocky's code, I just knocked up a simple little application to get all available information about every file in a folder. Just a table with four fields and the following module. Option Compare Database Option Explicit Function getdata() Dim s As String s = Dir$(CurrentProject.Path & "\*.*") While s > "" GetProperties CurrentProject.Path & "\" & s s = Dir$ Wend End Function Function GetProperties(strFile) Dim objShell Dim objFolder Dim objFolderItem Dim strPath Dim strName Dim intPos Dim x As Long Dim rs As DAO.Recordset 'On Error GoTo ErrHandler intPos = InStrRev(strFile, "\") strPath = Left(strFile, intPos) strName = Mid(strFile, intPos + 1) Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(strPath) Set objFolderItem = objFolder.ParseName(strName) If Not objFolderItem Is Nothing Then Set rs = CurrentDb.OpenRecordset("tblProperties") For x = 0 To 300 rs.AddNew rs!FileName = strName rs!PropNUm = x rs!Propname = objFolder.GetDetailsOf(objFolder.Items, x) rs!PropValue = objFolder.GetDetailsOf(objFolderItem, x) rs.Update Next End If ExitHandler: Set objFolderItem = Nothing Set objFolder = Nothing Set objShell = Nothing rs.Close Set rs = Nothing Exit Function ErrHandler: MsgBox Err.Description, vbExclamation Resume ExitHandler End Function From rockysmolin at bchacc.com Wed Aug 2 09:03:53 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 2 Aug 2017 07:03:53 -0700 Subject: [AccessD] Access files by date In-Reply-To: <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> References: <010701d30436$5d161630$17424290$@bchacc.com>, , <03d001d30ad6$576014b0$06203e10$@bchacc.com> <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> Message-ID: <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> Cool. But the list you posted is even more helpful. Are those 296 fields all standard (if unused) in a jpg file? DO you know of a link to a site with more description of those fields? Tia R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan Sent: Tuesday, August 01, 2017 2:43 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access files by date On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > ' search jpg header fields to find which one is the original date ... > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) FWIW,.. replacing objFolder.GetDetailsOf(objFolderItem, 16) with objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of the item instead of its value. I came across th list below of GetDetailsOf item numbers. Seems MS have just added items haphazardly to a list as they have identified EXIF and other metadata tags used by different types of files. If you want the Lat/Lon so that you can track your photos geographically, that's item 39. Experimenting, there is no error if you ask for an item Detail that doesn't exist. I looped through a folder asking for item details up to 1000 without any error '0 Name '1 Size '2 Item type '3 Date Modified '4 Date created '5 Date accessed '6 Attributes '7 Offline Status '8 Offline availability '9 Perceived type '10 owner '11 Kind '12 Date taken '13 Contributing artists '14 Album '15 Year '16 Genre '17 Conductors '18 Tags '19 rating '20 Authors '21 Title '22 Subject '23 Categories '24 Comments '25 copyright '26 # '27 Length '28 Bit Rate '29 Protected '30 Camera model '31 Dimensions '32 Camera maker '33 Company '34 File Description '35 Program Name '36 Duration '37 Is online '38 Is recurring '39 Location '40 Optional attendee addresses '41 Optional attendees '42 Organizer Address '43 Organizer Name '44 Reminder Time '45 Required attendee addresses '46 Required attendees '47 Resources '48 Meeting Status '49 Free/busy status '50 Total Size '51 Account Name '52 task Status '53 computer '54 Anniversary '55 Assistant 's name '56 Assistant 's phone '57 Birthday '58 Business Address '59 Business City '60 Business Country / region '61 Business P.O.box '62 Business postal code '63 Business State Or province '64 Business Street '65 Business fax '66 Business home page '67 Business phone '68 Callback Number '69 Car phone '70 Children '71 Company main phone '72 Department '73 E-mail address '74 e -mail2 '75 e -mail3 '76 E-mail list '77 E-mail display name '78 File as '79 First Name '80 Full Name '81 Gender '82 Given Name '83 Hobbies '84 Home Address '85 Home City '86 Home Country / region '87 Home P.O.box '88 Home postal code '89 Home State Or province '90 Home Street '91 Home fax '92 Home phone '93 IM addresses '94 Initials '95 Job Title '96 Label '97 last Name '98 Mailing Address '99 Middle Name '100 Cell phone '101 Nickname '102 Office Location '103 Other Address '104 Other City '105 Other Country / region '106 Other P.O.box '107 Other postal code '108 Other State Or province '109 Other Street '110 Pager '111 Personal Title '112 City '113 Country/region '114 P.O.box '115 Postal code '116 State or province '117 Street '118 Primary e - mail '119 Primary phone '120 Profession '121 Spouse/Partner '122 Suffix '123 TTY/TTD phone '124 Telex '125 Webpage '126 Content Status '127 Content type '128 Date acquired '129 Date archived '130 Date completed '131 Device Category '132 Connected '133 Discovery Method '134 Friendly Name '135 Local computer '136 Manufacturer '137 model '138 Paired '139 Classification '140 Status '141 Client ID '142 Contributors '143 Content created '144 last printed '145 Date last saved '146 Division '147 Document ID '148 Pages '149 Slides '150 Total editing time '151 Word Count '152 Due Date '153 End date '154 File Count '155 FileName '156 File Version '157 flag Color '158 flag Status '159 Space free '160 Bit Depth '161 Horizontal resolution '162 Width '163 Vertical resolution '164 Height '165 Importance '166 Is attachment '167 Is deleted '168 Encryption Status '169 Has flag '170 Is completed '171 Incomplete '172 Read Status '173 Shared '174 Creators '175 Date '176 Folder Name '177 Folder Path '178 Folder '179 Participants '180 Path '181 by Location '182 Type '183 Contact Names '184 Entry type '185 Language '186 Date visited '187 Description '188 link Status '189 link Target '190 URL '191 Media created '192 Date released '193 Encoded by '194 Producers '195 Publisher '196 Subtitle '197 User web URL '198 Writers '199 attachments '200 Bcc addresses '201 Bcc '202 Cc addresses '203 Cc '204 Conversation ID '205 Date Received '206 Date sent '207 From addresses '208 From '209 Has attachments '210 Sender Address '211 Sender Name '212 Store '213 To addresses '214 To do title '215 To '216 Mileage '217 Album artist '218 Album ID '219 Beats -per - Minute '220 Composers '221 Initial Key '222 Part of a compilation '223 Mood '224 Part of set '225 Period '226 Color '227 Parental rating '228 Parental rating reason '229 Space used '230 EXIF Version '231 Event '232 Exposure bias '233 Exposure Program '234 Exposure Time '235 F-stop '236 Flash Mode '237 Focal Length '238 35mm focal length '239 ISO speed '240 Lens maker '241 Lens model '242 Light Source '243 Max aperture '244 Metering Mode '245 Orientation '246 People '247 Program Mode '248 saturation '249 Subject distance '250 White Balance '251 Priority '252 Project '253 Channel Number '254 Episode Name '255 Closed captioning '256 Rerun '257 SAP '258 Broadcast Date '259 Program Description '260 Recording Time '261 Station call sign '262 Station Name '263 Summary '264 Snippets '265 Auto Summary '266 Search ranking '267 Sensitivity '268 Shared with '269 Sharing Status '270 Product Name '271 Product Version '272 Support link '273 Source '274 Start Date '275 Billing Information '276 Complete '277 task owner '278 Total file size '279 Legal trademarks '280 Video compression '281 Directors '282 Data Rate '283 Frame Height '284 Frame Rate '285 Frame Width '286 Total bitRate '287 Primary disk '288 Memory '289 Machine Status '290 Configuration File '291 '292 '293 '294 '295 Masters Keywords (debug) '296 Masters Keywords (debug) -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jackandpat.d at gmail.com Wed Aug 2 09:11:32 2017 From: jackandpat.d at gmail.com (jack drawbridge) Date: Wed, 2 Aug 2017 10:11:32 -0400 Subject: [AccessD] Access files by date In-Reply-To: <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com> <03d001d30ad6$576014b0$06203e10$@bchacc.com> <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> Message-ID: Rocky, You may get some info from this recent link. https://www.access-programmers.co.uk/forums/showthread.php?p=1537880#post1537880 Good luck. On Wed, Aug 2, 2017 at 10:03 AM, Rocky Smolin wrote: > Cool. But the list you posted is even more helpful. Are those 296 fields > all standard (if unused) in a jpg file? DO you know of a link to a site > with more description of those fields? > > Tia > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Stuart McLachlan > Sent: Tuesday, August 01, 2017 2:43 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Access files by date > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > ' search jpg header fields to find which one is the original date > ... > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > FWIW,.. > replacing > objFolder.GetDetailsOf(objFolderItem, 16) with > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of the > item > instead of its value. > > I came across th list below of GetDetailsOf item numbers. > > Seems MS have just added items haphazardly to a list as they have > identified EXIF and other metadata tags used by different types of files. > > If you want the Lat/Lon so that you can track your photos geographically, > that's item 39. > > Experimenting, there is no error if you ask for an item Detail that doesn't > exist. I looped through a folder asking for item details up to 1000 > without > any error > > > > '0 Name > '1 Size > '2 Item type > '3 Date Modified > '4 Date created > '5 Date accessed > '6 Attributes > '7 Offline Status > '8 Offline availability > '9 Perceived type > '10 owner > '11 Kind > '12 Date taken > '13 Contributing artists > '14 Album > '15 Year > '16 Genre > '17 Conductors > '18 Tags > '19 rating > '20 Authors > '21 Title > '22 Subject > '23 Categories > '24 Comments > '25 copyright > '26 # > '27 Length > '28 Bit Rate > '29 Protected > '30 Camera model > '31 Dimensions > '32 Camera maker > '33 Company > '34 File Description > '35 Program Name > '36 Duration > '37 Is online > '38 Is recurring > '39 Location > '40 Optional attendee addresses > '41 Optional attendees > '42 Organizer Address > '43 Organizer Name > '44 Reminder Time > '45 Required attendee addresses > '46 Required attendees > '47 Resources > '48 Meeting Status > '49 Free/busy status > '50 Total Size > '51 Account Name > '52 task Status > '53 computer > '54 Anniversary > '55 Assistant 's name > '56 Assistant 's phone > '57 Birthday > '58 Business Address > '59 Business City > '60 Business Country / region > '61 Business P.O.box > '62 Business postal code > '63 Business State Or province > '64 Business Street > '65 Business fax > '66 Business home page > '67 Business phone > '68 Callback Number > '69 Car phone > '70 Children > '71 Company main phone > '72 Department > '73 E-mail address > '74 e -mail2 > '75 e -mail3 > '76 E-mail list > '77 E-mail display name > '78 File as > '79 First Name > '80 Full Name > '81 Gender > '82 Given Name > '83 Hobbies > '84 Home Address > '85 Home City > '86 Home Country / region > '87 Home P.O.box > '88 Home postal code > '89 Home State Or province > '90 Home Street > '91 Home fax > '92 Home phone > '93 IM addresses > '94 Initials > '95 Job Title > '96 Label > '97 last Name > '98 Mailing Address > '99 Middle Name > '100 Cell phone > '101 Nickname > '102 Office Location > '103 Other Address > '104 Other City > '105 Other Country / region > '106 Other P.O.box > '107 Other postal code > '108 Other State Or province > '109 Other Street > '110 Pager > '111 Personal Title > '112 City > '113 Country/region > '114 P.O.box > '115 Postal code > '116 State or province > '117 Street > '118 Primary e - mail > '119 Primary phone > '120 Profession > '121 Spouse/Partner > '122 Suffix > '123 TTY/TTD phone > '124 Telex > '125 Webpage > '126 Content Status > '127 Content type > '128 Date acquired > '129 Date archived > '130 Date completed > '131 Device Category > '132 Connected > '133 Discovery Method > '134 Friendly Name > '135 Local computer > '136 Manufacturer > '137 model > '138 Paired > '139 Classification > '140 Status > '141 Client ID > '142 Contributors > '143 Content created > '144 last printed > '145 Date last saved > '146 Division > '147 Document ID > '148 Pages > '149 Slides > '150 Total editing time > '151 Word Count > '152 Due Date > '153 End date > '154 File Count > '155 FileName > '156 File Version > '157 flag Color > '158 flag Status > '159 Space free > '160 Bit Depth > '161 Horizontal resolution > '162 Width > '163 Vertical resolution > '164 Height > '165 Importance > '166 Is attachment > '167 Is deleted > '168 Encryption Status > '169 Has flag > '170 Is completed > '171 Incomplete > '172 Read Status > '173 Shared > '174 Creators > '175 Date > '176 Folder Name > '177 Folder Path > '178 Folder > '179 Participants > '180 Path > '181 by Location > '182 Type > '183 Contact Names > '184 Entry type > '185 Language > '186 Date visited > '187 Description > '188 link Status > '189 link Target > '190 URL > '191 Media created > '192 Date released > '193 Encoded by > '194 Producers > '195 Publisher > '196 Subtitle > '197 User web URL > '198 Writers > '199 attachments > '200 Bcc addresses > '201 Bcc > '202 Cc addresses > '203 Cc > '204 Conversation ID > '205 Date Received > '206 Date sent > '207 From addresses > '208 From > '209 Has attachments > '210 Sender Address > '211 Sender Name > '212 Store > '213 To addresses > '214 To do title > '215 To > '216 Mileage > '217 Album artist > '218 Album ID > '219 Beats -per - Minute > '220 Composers > '221 Initial Key > '222 Part of a compilation > '223 Mood > '224 Part of set > '225 Period > '226 Color > '227 Parental rating > '228 Parental rating reason > '229 Space used > '230 EXIF Version > '231 Event > '232 Exposure bias > '233 Exposure Program > '234 Exposure Time > '235 F-stop > '236 Flash Mode > '237 Focal Length > '238 35mm focal length > '239 ISO speed > '240 Lens maker > '241 Lens model > '242 Light Source > '243 Max aperture > '244 Metering Mode > '245 Orientation > '246 People > '247 Program Mode > '248 saturation > '249 Subject distance > '250 White Balance > '251 Priority > '252 Project > '253 Channel Number > '254 Episode Name > '255 Closed captioning > '256 Rerun > '257 SAP > '258 Broadcast Date > '259 Program Description > '260 Recording Time > '261 Station call sign > '262 Station Name > '263 Summary > '264 Snippets > '265 Auto Summary > '266 Search ranking > '267 Sensitivity > '268 Shared with > '269 Sharing Status > '270 Product Name > '271 Product Version > '272 Support link > '273 Source > '274 Start Date > '275 Billing Information > '276 Complete > '277 task owner > '278 Total file size > '279 Legal trademarks > '280 Video compression > '281 Directors > '282 Data Rate > '283 Frame Height > '284 Frame Rate > '285 Frame Width > '286 Total bitRate > '287 Primary disk > '288 Memory > '289 Machine Status > '290 Configuration File > '291 > '292 > '293 > '294 > '295 Masters Keywords (debug) > '296 Masters Keywords (debug) > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Aug 2 09:35:05 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 2 Aug 2017 07:35:05 -0700 Subject: [AccessD] Access files by date In-Reply-To: References: <010701d30436$5d161630$17424290$@bchacc.com> <03d001d30ad6$576014b0$06203e10$@bchacc.com> <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> Message-ID: <04b301d30b9c$899e6820$9cdb3860$@bchacc.com> Beautiful. But jpg is missing. None of the formats listed have Date Taken checked. Is jpg the only one using that field? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: Wednesday, August 02, 2017 7:12 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access files by date Rocky, You may get some info from this recent link. https://www.access-programmers.co.uk/forums/showthread.php?p=1537880#post153 7880 Good luck. On Wed, Aug 2, 2017 at 10:03 AM, Rocky Smolin wrote: > Cool. But the list you posted is even more helpful. Are those 296 > fields all standard (if unused) in a jpg file? DO you know of a link > to a site with more description of those fields? > > Tia > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan > Sent: Tuesday, August 01, 2017 2:43 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Access files by date > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > ' search jpg header fields to find which one is the original date > ... > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > FWIW,.. > replacing > objFolder.GetDetailsOf(objFolderItem, 16) with > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of the > item instead of its value. > > I came across th list below of GetDetailsOf item numbers. > > Seems MS have just added items haphazardly to a list as they have > identified EXIF and other metadata tags used by different types of files. > > If you want the Lat/Lon so that you can track your photos > geographically, that's item 39. > > Experimenting, there is no error if you ask for an item Detail that > doesn't exist. I looped through a folder asking for item details up > to 1000 without any error > > > > '0 Name > '1 Size > '2 Item type > '3 Date Modified > '4 Date created > '5 Date accessed > '6 Attributes > '7 Offline Status > '8 Offline availability > '9 Perceived type > '10 owner > '11 Kind > '12 Date taken > '13 Contributing artists > '14 Album > '15 Year > '16 Genre > '17 Conductors > '18 Tags > '19 rating > '20 Authors > '21 Title > '22 Subject > '23 Categories > '24 Comments > '25 copyright > '26 # > '27 Length > '28 Bit Rate > '29 Protected > '30 Camera model > '31 Dimensions > '32 Camera maker > '33 Company > '34 File Description > '35 Program Name > '36 Duration > '37 Is online > '38 Is recurring > '39 Location > '40 Optional attendee addresses > '41 Optional attendees > '42 Organizer Address > '43 Organizer Name > '44 Reminder Time > '45 Required attendee addresses > '46 Required attendees > '47 Resources > '48 Meeting Status > '49 Free/busy status > '50 Total Size > '51 Account Name > '52 task Status > '53 computer > '54 Anniversary > '55 Assistant 's name > '56 Assistant 's phone > '57 Birthday > '58 Business Address > '59 Business City > '60 Business Country / region > '61 Business P.O.box > '62 Business postal code > '63 Business State Or province > '64 Business Street > '65 Business fax > '66 Business home page > '67 Business phone > '68 Callback Number > '69 Car phone > '70 Children > '71 Company main phone > '72 Department > '73 E-mail address > '74 e -mail2 > '75 e -mail3 > '76 E-mail list > '77 E-mail display name > '78 File as > '79 First Name > '80 Full Name > '81 Gender > '82 Given Name > '83 Hobbies > '84 Home Address > '85 Home City > '86 Home Country / region > '87 Home P.O.box > '88 Home postal code > '89 Home State Or province > '90 Home Street > '91 Home fax > '92 Home phone > '93 IM addresses > '94 Initials > '95 Job Title > '96 Label > '97 last Name > '98 Mailing Address > '99 Middle Name > '100 Cell phone > '101 Nickname > '102 Office Location > '103 Other Address > '104 Other City > '105 Other Country / region > '106 Other P.O.box > '107 Other postal code > '108 Other State Or province > '109 Other Street > '110 Pager > '111 Personal Title > '112 City > '113 Country/region > '114 P.O.box > '115 Postal code > '116 State or province > '117 Street > '118 Primary e - mail > '119 Primary phone > '120 Profession > '121 Spouse/Partner > '122 Suffix > '123 TTY/TTD phone > '124 Telex > '125 Webpage > '126 Content Status > '127 Content type > '128 Date acquired > '129 Date archived > '130 Date completed > '131 Device Category > '132 Connected > '133 Discovery Method > '134 Friendly Name > '135 Local computer > '136 Manufacturer > '137 model > '138 Paired > '139 Classification > '140 Status > '141 Client ID > '142 Contributors > '143 Content created > '144 last printed > '145 Date last saved > '146 Division > '147 Document ID > '148 Pages > '149 Slides > '150 Total editing time > '151 Word Count > '152 Due Date > '153 End date > '154 File Count > '155 FileName > '156 File Version > '157 flag Color > '158 flag Status > '159 Space free > '160 Bit Depth > '161 Horizontal resolution > '162 Width > '163 Vertical resolution > '164 Height > '165 Importance > '166 Is attachment > '167 Is deleted > '168 Encryption Status > '169 Has flag > '170 Is completed > '171 Incomplete > '172 Read Status > '173 Shared > '174 Creators > '175 Date > '176 Folder Name > '177 Folder Path > '178 Folder > '179 Participants > '180 Path > '181 by Location > '182 Type > '183 Contact Names > '184 Entry type > '185 Language > '186 Date visited > '187 Description > '188 link Status > '189 link Target > '190 URL > '191 Media created > '192 Date released > '193 Encoded by > '194 Producers > '195 Publisher > '196 Subtitle > '197 User web URL > '198 Writers > '199 attachments > '200 Bcc addresses > '201 Bcc > '202 Cc addresses > '203 Cc > '204 Conversation ID > '205 Date Received > '206 Date sent > '207 From addresses > '208 From > '209 Has attachments > '210 Sender Address > '211 Sender Name > '212 Store > '213 To addresses > '214 To do title > '215 To > '216 Mileage > '217 Album artist > '218 Album ID > '219 Beats -per - Minute > '220 Composers > '221 Initial Key > '222 Part of a compilation > '223 Mood > '224 Part of set > '225 Period > '226 Color > '227 Parental rating > '228 Parental rating reason > '229 Space used > '230 EXIF Version > '231 Event > '232 Exposure bias > '233 Exposure Program > '234 Exposure Time > '235 F-stop > '236 Flash Mode > '237 Focal Length > '238 35mm focal length > '239 ISO speed > '240 Lens maker > '241 Lens model > '242 Light Source > '243 Max aperture > '244 Metering Mode > '245 Orientation > '246 People > '247 Program Mode > '248 saturation > '249 Subject distance > '250 White Balance > '251 Priority > '252 Project > '253 Channel Number > '254 Episode Name > '255 Closed captioning > '256 Rerun > '257 SAP > '258 Broadcast Date > '259 Program Description > '260 Recording Time > '261 Station call sign > '262 Station Name > '263 Summary > '264 Snippets > '265 Auto Summary > '266 Search ranking > '267 Sensitivity > '268 Shared with > '269 Sharing Status > '270 Product Name > '271 Product Version > '272 Support link > '273 Source > '274 Start Date > '275 Billing Information > '276 Complete > '277 task owner > '278 Total file size > '279 Legal trademarks > '280 Video compression > '281 Directors > '282 Data Rate > '283 Frame Height > '284 Frame Rate > '285 Frame Width > '286 Total bitRate > '287 Primary disk > '288 Memory > '289 Machine Status > '290 Configuration File > '291 > '292 > '293 > '294 > '295 Masters Keywords (debug) > '296 Masters Keywords (debug) > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Aug 2 09:59:39 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 2 Aug 2017 07:59:39 -0700 Subject: [AccessD] FW: Message Delivery Failure Message-ID: <04cd01d30b9f$f7516a90$e5f43fb0$@bchacc.com> Bob: Tried to send the photo rename file but it bounced. Got a better address? r -----Original Message----- From: postmaster at secureserver.net [mailto:postmaster at secureserver.net] Sent: Tuesday, August 01, 2017 9:08 PM To: rockysmolin at bchacc.com Subject: Message Delivery Failure This is an automatically generated Delivery Status Notification. Delivery to the following recipients was aborted after 12.7 hour(s): * bwalsh at healtinsight.org Reason: There was an error while attempting to deliver your message with [Subject: "PhotoRename.zip"] to bwalsh at healtinsight.org. It has been in queue too long, and will not attempt delivery again. From BWalsh at healthinsight.org Wed Aug 2 10:04:00 2017 From: BWalsh at healthinsight.org (Bob Walsh) Date: Wed, 2 Aug 2017 15:04:00 +0000 Subject: [AccessD] FW: Message Delivery Failure In-Reply-To: <04cd01d30b9f$f7516a90$e5f43fb0$@bchacc.com> References: <04cd01d30b9f$f7516a90$e5f43fb0$@bchacc.com> Message-ID: <68D062755DECC8469BEF3FB828D8294D23305845@LVHIMAIL01.healthinsight.local> bwalsh at healthinsight.org the H in health was missing From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, August 02, 2017 8:00 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: Message Delivery Failure Bob: Tried to send the photo rename file but it bounced. Got a better address? r -----Original Message----- From: postmaster at secureserver.net [mailto:postmaster at secureserver.net] Sent: Tuesday, August 01, 2017 9:08 PM To: rockysmolin at bchacc.com Subject: Message Delivery Failure This is an automatically generated Delivery Status Notification. Delivery to the following recipients was aborted after 12.7 hour(s): * bwalsh at healtinsight.org Reason: There was an error while attempting to deliver your message with [Subject: "PhotoRename.zip"] to bwalsh at healtinsight.org. It has been in queue too long, and will not attempt delivery again. -- 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 Aug 2 10:06:06 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 2 Aug 2017 08:06:06 -0700 Subject: [AccessD] Export/Import all Objects References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> <03d701d30ad9$22634b30$6729e190$@bchacc.com> Message-ID: <04ce01d30ba0$dd8b8ea0$98a2abe0$@bchacc.com> OK - truth in programming: I found out that the cause of the problem was not corruption but using tabbed documents. However, the decorrupter led me to this discovery so you're still in for the double martini. When I ran the decorrupter it turned off tabbed documents. I like tabbed documents - makes it easy to navigate among several open forms/reports. When I turned them back on, the resizing problem reappeared. So the takeaway - if you are using the ADH form resizing code from the 2003 ADH in A2010 (or later? Probably), tabbed documents will hose the resizing. So I'll just leave them off. However, now I have the problem of switching to other open forms. In A2003 this was easy - Windows in the menu at the top dropped down a list of open windows. Is there anything similar in A2010 - or some other way to navigate among open forms without tabbed documents? r -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 9:11 AM To: 'Rocky Smolin' Subject: RE: [AccessD] Export/Import all Objects It's a double!! You have saved my bacon!! Thank you. R -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 8:20 AM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] Export/Import all Objects Holy Code Cleaners, Batman! It appears to have worked. Now I'll try it on a second accdb that's really really hosed up. You're already in for one martini. Stand by for a double. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, August 01, 2017 8:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Wed Aug 2 16:34:18 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Thu, 03 Aug 2017 07:34:18 +1000 Subject: [AccessD] Access files by date In-Reply-To: <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com>, <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg>, <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> Message-ID: <5982455A.8043.327A41AA@stuart.lexacorp.com.pg> AFAICT, they are standard FOR any file. What is IN the file depends on its format and whether Windows knows how to extract the data. Some of those fields are extracted from the EXIF data block in a jpg file, some are extracted from a n MS Outllok appointment/VCard file, some from the the XMP Metadata contained in an mpeg movie file, etc, etc, If you run the code I posted separately on everything in a folder containing a mix of file types, you will see how it works. On 2 Aug 2017 at 7:03, Rocky Smolin wrote: > Cool. But the list you posted is even more helpful. Are those 296 > fields all standard (if unused) in a jpg file? DO you know of a link > to a site with more description of those fields? > > Tia > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan Sent: Tuesday, August 01, 2017 2:43 PM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] > Access files by date > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > ' search jpg header fields to find which one is the original date > ... > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > FWIW,.. > replacing > objFolder.GetDetailsOf(objFolderItem, 16) with > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of the > item instead of its value. > > I came across th list below of GetDetailsOf item numbers. > > Seems MS have just added items haphazardly to a list as they have > identified EXIF and other metadata tags used by different types of > files. > > If you want the Lat/Lon so that you can track your photos > geographically, that's item 39. > > Experimenting, there is no error if you ask for an item Detail that > doesn't exist. I looped through a folder asking for item details up > to 1000 without any error > > > > '0 Name > '1 Size > '2 Item type > '3 Date Modified > '4 Date created > '5 Date accessed > '6 Attributes > '7 Offline Status > '8 Offline availability > '9 Perceived type > '10 owner > '11 Kind > '12 Date taken > '13 Contributing artists > '14 Album > '15 Year > '16 Genre > '17 Conductors > '18 Tags > '19 rating > '20 Authors > '21 Title > '22 Subject > '23 Categories > '24 Comments > '25 copyright > '26 # > '27 Length > '28 Bit Rate > '29 Protected > '30 Camera model > '31 Dimensions > '32 Camera maker > '33 Company > '34 File Description > '35 Program Name > '36 Duration > '37 Is online > '38 Is recurring > '39 Location > '40 Optional attendee addresses > '41 Optional attendees > '42 Organizer Address > '43 Organizer Name > '44 Reminder Time > '45 Required attendee addresses > '46 Required attendees > '47 Resources > '48 Meeting Status > '49 Free/busy status > '50 Total Size > '51 Account Name > '52 task Status > '53 computer > '54 Anniversary > '55 Assistant 's name > '56 Assistant 's phone > '57 Birthday > '58 Business Address > '59 Business City > '60 Business Country / region > '61 Business P.O.box > '62 Business postal code > '63 Business State Or province > '64 Business Street > '65 Business fax > '66 Business home page > '67 Business phone > '68 Callback Number > '69 Car phone > '70 Children > '71 Company main phone > '72 Department > '73 E-mail address > '74 e -mail2 > '75 e -mail3 > '76 E-mail list > '77 E-mail display name > '78 File as > '79 First Name > '80 Full Name > '81 Gender > '82 Given Name > '83 Hobbies > '84 Home Address > '85 Home City > '86 Home Country / region > '87 Home P.O.box > '88 Home postal code > '89 Home State Or province > '90 Home Street > '91 Home fax > '92 Home phone > '93 IM addresses > '94 Initials > '95 Job Title > '96 Label > '97 last Name > '98 Mailing Address > '99 Middle Name > '100 Cell phone > '101 Nickname > '102 Office Location > '103 Other Address > '104 Other City > '105 Other Country / region > '106 Other P.O.box > '107 Other postal code > '108 Other State Or province > '109 Other Street > '110 Pager > '111 Personal Title > '112 City > '113 Country/region > '114 P.O.box > '115 Postal code > '116 State or province > '117 Street > '118 Primary e - mail > '119 Primary phone > '120 Profession > '121 Spouse/Partner > '122 Suffix > '123 TTY/TTD phone > '124 Telex > '125 Webpage > '126 Content Status > '127 Content type > '128 Date acquired > '129 Date archived > '130 Date completed > '131 Device Category > '132 Connected > '133 Discovery Method > '134 Friendly Name > '135 Local computer > '136 Manufacturer > '137 model > '138 Paired > '139 Classification > '140 Status > '141 Client ID > '142 Contributors > '143 Content created > '144 last printed > '145 Date last saved > '146 Division > '147 Document ID > '148 Pages > '149 Slides > '150 Total editing time > '151 Word Count > '152 Due Date > '153 End date > '154 File Count > '155 FileName > '156 File Version > '157 flag Color > '158 flag Status > '159 Space free > '160 Bit Depth > '161 Horizontal resolution > '162 Width > '163 Vertical resolution > '164 Height > '165 Importance > '166 Is attachment > '167 Is deleted > '168 Encryption Status > '169 Has flag > '170 Is completed > '171 Incomplete > '172 Read Status > '173 Shared > '174 Creators > '175 Date > '176 Folder Name > '177 Folder Path > '178 Folder > '179 Participants > '180 Path > '181 by Location > '182 Type > '183 Contact Names > '184 Entry type > '185 Language > '186 Date visited > '187 Description > '188 link Status > '189 link Target > '190 URL > '191 Media created > '192 Date released > '193 Encoded by > '194 Producers > '195 Publisher > '196 Subtitle > '197 User web URL > '198 Writers > '199 attachments > '200 Bcc addresses > '201 Bcc > '202 Cc addresses > '203 Cc > '204 Conversation ID > '205 Date Received > '206 Date sent > '207 From addresses > '208 From > '209 Has attachments > '210 Sender Address > '211 Sender Name > '212 Store > '213 To addresses > '214 To do title > '215 To > '216 Mileage > '217 Album artist > '218 Album ID > '219 Beats -per - Minute > '220 Composers > '221 Initial Key > '222 Part of a compilation > '223 Mood > '224 Part of set > '225 Period > '226 Color > '227 Parental rating > '228 Parental rating reason > '229 Space used > '230 EXIF Version > '231 Event > '232 Exposure bias > '233 Exposure Program > '234 Exposure Time > '235 F-stop > '236 Flash Mode > '237 Focal Length > '238 35mm focal length > '239 ISO speed > '240 Lens maker > '241 Lens model > '242 Light Source > '243 Max aperture > '244 Metering Mode > '245 Orientation > '246 People > '247 Program Mode > '248 saturation > '249 Subject distance > '250 White Balance > '251 Priority > '252 Project > '253 Channel Number > '254 Episode Name > '255 Closed captioning > '256 Rerun > '257 SAP > '258 Broadcast Date > '259 Program Description > '260 Recording Time > '261 Station call sign > '262 Station Name > '263 Summary > '264 Snippets > '265 Auto Summary > '266 Search ranking > '267 Sensitivity > '268 Shared with > '269 Sharing Status > '270 Product Name > '271 Product Version > '272 Support link > '273 Source > '274 Start Date > '275 Billing Information > '276 Complete > '277 task owner > '278 Total file size > '279 Legal trademarks > '280 Video compression > '281 Directors > '282 Data Rate > '283 Frame Height > '284 Frame Rate > '285 Frame Width > '286 Total bitRate > '287 Primary disk > '288 Memory > '289 Machine Status > '290 Configuration File > '291 > '292 > '293 > '294 > '295 Masters Keywords (debug) > '296 Masters Keywords (debug) > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Wed Aug 2 16:45:14 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Thu, 03 Aug 2017 07:45:14 +1000 Subject: [AccessD] Access files by date In-Reply-To: <04b301d30b9c$899e6820$9cdb3860$@bchacc.com> References: <010701d30436$5d161630$17424290$@bchacc.com>, , <04b301d30b9c$899e6820$9cdb3860$@bchacc.com> Message-ID: <598247EA.12914.328443FB@stuart.lexacorp.com.pg> "Date Taken" is a standard EXIF field. You find EXIF data in a lot of JPEG, TIFF and WAV files at least. EXIF was developed specifically for us in sound and image files created by digital cameras (including mobile phones). There are similar standards used for other media file , including XMP and IPTC On 2 Aug 2017 at 7:35, Rocky Smolin wrote: > Beautiful. But jpg is missing. None of the formats listed have Date > Taken checked. Is jpg the only one using that field? > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of jack drawbridge Sent: Wednesday, August 02, 2017 7:12 AM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] > Access files by date > > Rocky, > > You may get some info from this recent link. > https://www.access-programmers.co.uk/forums/showthread.php?p=1537880#p > ost153 7880 > > Good luck. > > On Wed, Aug 2, 2017 at 10:03 AM, Rocky Smolin > wrote: > > > Cool. But the list you posted is even more helpful. Are those 296 > > fields all standard (if unused) in a jpg file? DO you know of a > > link to a site with more description of those fields? > > > > Tia > > > > R > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Stuart McLachlan Sent: Tuesday, August 01, 2017 2:43 PM > > To: Access Developers discussion and problem solving Subject: Re: > > [AccessD] Access files by date > > > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > > ' search jpg header fields to find which one is the original date > > ... > > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field > > > 12 > > > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > > > FWIW,.. > > replacing > > objFolder.GetDetailsOf(objFolderItem, 16) with > > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of > > the item instead of its value. > > > > I came across th list below of GetDetailsOf item numbers. > > > > Seems MS have just added items haphazardly to a list as they have > > identified EXIF and other metadata tags used by different types of > > files. > > > > If you want the Lat/Lon so that you can track your photos > > geographically, that's item 39. > > > > Experimenting, there is no error if you ask for an item Detail that > > doesn't exist. I looped through a folder asking for item details up > > to 1000 without any error > > > > > > > > '0 Name > > '1 Size > > '2 Item type > > '3 Date Modified > > '4 Date created > > '5 Date accessed > > '6 Attributes > > '7 Offline Status > > '8 Offline availability > > '9 Perceived type > > '10 owner > > '11 Kind > > '12 Date taken > > '13 Contributing artists > > '14 Album > > '15 Year > > '16 Genre > > '17 Conductors > > '18 Tags > > '19 rating > > '20 Authors > > '21 Title > > '22 Subject > > '23 Categories > > '24 Comments > > '25 copyright > > '26 # > > '27 Length > > '28 Bit Rate > > '29 Protected > > '30 Camera model > > '31 Dimensions > > '32 Camera maker > > '33 Company > > '34 File Description > > '35 Program Name > > '36 Duration > > '37 Is online > > '38 Is recurring > > '39 Location > > '40 Optional attendee addresses > > '41 Optional attendees > > '42 Organizer Address > > '43 Organizer Name > > '44 Reminder Time > > '45 Required attendee addresses > > '46 Required attendees > > '47 Resources > > '48 Meeting Status > > '49 Free/busy status > > '50 Total Size > > '51 Account Name > > '52 task Status > > '53 computer > > '54 Anniversary > > '55 Assistant 's name > > '56 Assistant 's phone > > '57 Birthday > > '58 Business Address > > '59 Business City > > '60 Business Country / region > > '61 Business P.O.box > > '62 Business postal code > > '63 Business State Or province > > '64 Business Street > > '65 Business fax > > '66 Business home page > > '67 Business phone > > '68 Callback Number > > '69 Car phone > > '70 Children > > '71 Company main phone > > '72 Department > > '73 E-mail address > > '74 e -mail2 > > '75 e -mail3 > > '76 E-mail list > > '77 E-mail display name > > '78 File as > > '79 First Name > > '80 Full Name > > '81 Gender > > '82 Given Name > > '83 Hobbies > > '84 Home Address > > '85 Home City > > '86 Home Country / region > > '87 Home P.O.box > > '88 Home postal code > > '89 Home State Or province > > '90 Home Street > > '91 Home fax > > '92 Home phone > > '93 IM addresses > > '94 Initials > > '95 Job Title > > '96 Label > > '97 last Name > > '98 Mailing Address > > '99 Middle Name > > '100 Cell phone > > '101 Nickname > > '102 Office Location > > '103 Other Address > > '104 Other City > > '105 Other Country / region > > '106 Other P.O.box > > '107 Other postal code > > '108 Other State Or province > > '109 Other Street > > '110 Pager > > '111 Personal Title > > '112 City > > '113 Country/region > > '114 P.O.box > > '115 Postal code > > '116 State or province > > '117 Street > > '118 Primary e - mail > > '119 Primary phone > > '120 Profession > > '121 Spouse/Partner > > '122 Suffix > > '123 TTY/TTD phone > > '124 Telex > > '125 Webpage > > '126 Content Status > > '127 Content type > > '128 Date acquired > > '129 Date archived > > '130 Date completed > > '131 Device Category > > '132 Connected > > '133 Discovery Method > > '134 Friendly Name > > '135 Local computer > > '136 Manufacturer > > '137 model > > '138 Paired > > '139 Classification > > '140 Status > > '141 Client ID > > '142 Contributors > > '143 Content created > > '144 last printed > > '145 Date last saved > > '146 Division > > '147 Document ID > > '148 Pages > > '149 Slides > > '150 Total editing time > > '151 Word Count > > '152 Due Date > > '153 End date > > '154 File Count > > '155 FileName > > '156 File Version > > '157 flag Color > > '158 flag Status > > '159 Space free > > '160 Bit Depth > > '161 Horizontal resolution > > '162 Width > > '163 Vertical resolution > > '164 Height > > '165 Importance > > '166 Is attachment > > '167 Is deleted > > '168 Encryption Status > > '169 Has flag > > '170 Is completed > > '171 Incomplete > > '172 Read Status > > '173 Shared > > '174 Creators > > '175 Date > > '176 Folder Name > > '177 Folder Path > > '178 Folder > > '179 Participants > > '180 Path > > '181 by Location > > '182 Type > > '183 Contact Names > > '184 Entry type > > '185 Language > > '186 Date visited > > '187 Description > > '188 link Status > > '189 link Target > > '190 URL > > '191 Media created > > '192 Date released > > '193 Encoded by > > '194 Producers > > '195 Publisher > > '196 Subtitle > > '197 User web URL > > '198 Writers > > '199 attachments > > '200 Bcc addresses > > '201 Bcc > > '202 Cc addresses > > '203 Cc > > '204 Conversation ID > > '205 Date Received > > '206 Date sent > > '207 From addresses > > '208 From > > '209 Has attachments > > '210 Sender Address > > '211 Sender Name > > '212 Store > > '213 To addresses > > '214 To do title > > '215 To > > '216 Mileage > > '217 Album artist > > '218 Album ID > > '219 Beats -per - Minute > > '220 Composers > > '221 Initial Key > > '222 Part of a compilation > > '223 Mood > > '224 Part of set > > '225 Period > > '226 Color > > '227 Parental rating > > '228 Parental rating reason > > '229 Space used > > '230 EXIF Version > > '231 Event > > '232 Exposure bias > > '233 Exposure Program > > '234 Exposure Time > > '235 F-stop > > '236 Flash Mode > > '237 Focal Length > > '238 35mm focal length > > '239 ISO speed > > '240 Lens maker > > '241 Lens model > > '242 Light Source > > '243 Max aperture > > '244 Metering Mode > > '245 Orientation > > '246 People > > '247 Program Mode > > '248 saturation > > '249 Subject distance > > '250 White Balance > > '251 Priority > > '252 Project > > '253 Channel Number > > '254 Episode Name > > '255 Closed captioning > > '256 Rerun > > '257 SAP > > '258 Broadcast Date > > '259 Program Description > > '260 Recording Time > > '261 Station call sign > > '262 Station Name > > '263 Summary > > '264 Snippets > > '265 Auto Summary > > '266 Search ranking > > '267 Sensitivity > > '268 Shared with > > '269 Sharing Status > > '270 Product Name > > '271 Product Version > > '272 Support link > > '273 Source > > '274 Start Date > > '275 Billing Information > > '276 Complete > > '277 task owner > > '278 Total file size > > '279 Legal trademarks > > '280 Video compression > > '281 Directors > > '282 Data Rate > > '283 Frame Height > > '284 Frame Rate > > '285 Frame Width > > '286 Total bitRate > > '287 Primary disk > > '288 Memory > > '289 Machine Status > > '290 Configuration File > > '291 > > '292 > > '293 > > '294 > > '295 Masters Keywords (debug) > > '296 Masters Keywords (debug) > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Wed Aug 2 17:01:13 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Thu, 03 Aug 2017 08:01:13 +1000 Subject: [AccessD] Access files by date In-Reply-To: References: <010701d30436$5d161630$17424290$@bchacc.com>, <049d01d30b98$2cbdff20$8639fd60$@bchacc.com>, Message-ID: <59824BA9.16346.3292E5D5@stuart.lexacorp.com.pg> Interesting, that list has more data items than the one I posted and the new items have been interspersed, so the Item number changes for the same data from #52 onwards. Likely it's OS version dependent, so if you are using it for something than may run on different Windows versions, it would pay to check the property name and not just rely on the property number. -- Stuart On 2 Aug 2017 at 10:11, jack drawbridge wrote: > Rocky, > > You may get some info from this recent link. > https://www.access-programmers.co.uk/forums/showthread.php?p=1537880#p > ost1537880 > > Good luck. > > On Wed, Aug 2, 2017 at 10:03 AM, Rocky Smolin > wrote: > > > Cool. But the list you posted is even more helpful. Are those 296 > > fields all standard (if unused) in a jpg file? DO you know of a > > link to a site with more description of those fields? > > > > Tia > > > > R > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Stuart McLachlan Sent: Tuesday, August 01, 2017 2:43 PM > > To: Access Developers discussion and problem solving Subject: Re: > > [AccessD] Access files by date > > > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > > ' search jpg header fields to find which one is the original date > > ... > > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field > > > 12 > > > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > > > FWIW,.. > > replacing > > objFolder.GetDetailsOf(objFolderItem, 16) with > > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of > > the item instead of its value. > > > > I came across th list below of GetDetailsOf item numbers. > > > > Seems MS have just added items haphazardly to a list as they have > > identified EXIF and other metadata tags used by different types of > > files. > > > > If you want the Lat/Lon so that you can track your photos > > geographically, that's item 39. > > > > Experimenting, there is no error if you ask for an item Detail that > > doesn't exist. I looped through a folder asking for item details up > > to 1000 without any error > > > > > > > > '0 Name > > '1 Size > > '2 Item type > > '3 Date Modified > > '4 Date created > > '5 Date accessed > > '6 Attributes > > '7 Offline Status > > '8 Offline availability > > '9 Perceived type > > '10 owner > > '11 Kind > > '12 Date taken > > '13 Contributing artists > > '14 Album > > '15 Year > > '16 Genre > > '17 Conductors > > '18 Tags > > '19 rating > > '20 Authors > > '21 Title > > '22 Subject > > '23 Categories > > '24 Comments > > '25 copyright > > '26 # > > '27 Length > > '28 Bit Rate > > '29 Protected > > '30 Camera model > > '31 Dimensions > > '32 Camera maker > > '33 Company > > '34 File Description > > '35 Program Name > > '36 Duration > > '37 Is online > > '38 Is recurring > > '39 Location > > '40 Optional attendee addresses > > '41 Optional attendees > > '42 Organizer Address > > '43 Organizer Name > > '44 Reminder Time > > '45 Required attendee addresses > > '46 Required attendees > > '47 Resources > > '48 Meeting Status > > '49 Free/busy status > > '50 Total Size > > '51 Account Name > > '52 task Status > > '53 computer > > '54 Anniversary > > '55 Assistant 's name > > '56 Assistant 's phone > > '57 Birthday > > '58 Business Address > > '59 Business City > > '60 Business Country / region > > '61 Business P.O.box > > '62 Business postal code > > '63 Business State Or province > > '64 Business Street > > '65 Business fax > > '66 Business home page > > '67 Business phone > > '68 Callback Number > > '69 Car phone > > '70 Children > > '71 Company main phone > > '72 Department > > '73 E-mail address > > '74 e -mail2 > > '75 e -mail3 > > '76 E-mail list > > '77 E-mail display name > > '78 File as > > '79 First Name > > '80 Full Name > > '81 Gender > > '82 Given Name > > '83 Hobbies > > '84 Home Address > > '85 Home City > > '86 Home Country / region > > '87 Home P.O.box > > '88 Home postal code > > '89 Home State Or province > > '90 Home Street > > '91 Home fax > > '92 Home phone > > '93 IM addresses > > '94 Initials > > '95 Job Title > > '96 Label > > '97 last Name > > '98 Mailing Address > > '99 Middle Name > > '100 Cell phone > > '101 Nickname > > '102 Office Location > > '103 Other Address > > '104 Other City > > '105 Other Country / region > > '106 Other P.O.box > > '107 Other postal code > > '108 Other State Or province > > '109 Other Street > > '110 Pager > > '111 Personal Title > > '112 City > > '113 Country/region > > '114 P.O.box > > '115 Postal code > > '116 State or province > > '117 Street > > '118 Primary e - mail > > '119 Primary phone > > '120 Profession > > '121 Spouse/Partner > > '122 Suffix > > '123 TTY/TTD phone > > '124 Telex > > '125 Webpage > > '126 Content Status > > '127 Content type > > '128 Date acquired > > '129 Date archived > > '130 Date completed > > '131 Device Category > > '132 Connected > > '133 Discovery Method > > '134 Friendly Name > > '135 Local computer > > '136 Manufacturer > > '137 model > > '138 Paired > > '139 Classification > > '140 Status > > '141 Client ID > > '142 Contributors > > '143 Content created > > '144 last printed > > '145 Date last saved > > '146 Division > > '147 Document ID > > '148 Pages > > '149 Slides > > '150 Total editing time > > '151 Word Count > > '152 Due Date > > '153 End date > > '154 File Count > > '155 FileName > > '156 File Version > > '157 flag Color > > '158 flag Status > > '159 Space free > > '160 Bit Depth > > '161 Horizontal resolution > > '162 Width > > '163 Vertical resolution > > '164 Height > > '165 Importance > > '166 Is attachment > > '167 Is deleted > > '168 Encryption Status > > '169 Has flag > > '170 Is completed > > '171 Incomplete > > '172 Read Status > > '173 Shared > > '174 Creators > > '175 Date > > '176 Folder Name > > '177 Folder Path > > '178 Folder > > '179 Participants > > '180 Path > > '181 by Location > > '182 Type > > '183 Contact Names > > '184 Entry type > > '185 Language > > '186 Date visited > > '187 Description > > '188 link Status > > '189 link Target > > '190 URL > > '191 Media created > > '192 Date released > > '193 Encoded by > > '194 Producers > > '195 Publisher > > '196 Subtitle > > '197 User web URL > > '198 Writers > > '199 attachments > > '200 Bcc addresses > > '201 Bcc > > '202 Cc addresses > > '203 Cc > > '204 Conversation ID > > '205 Date Received > > '206 Date sent > > '207 From addresses > > '208 From > > '209 Has attachments > > '210 Sender Address > > '211 Sender Name > > '212 Store > > '213 To addresses > > '214 To do title > > '215 To > > '216 Mileage > > '217 Album artist > > '218 Album ID > > '219 Beats -per - Minute > > '220 Composers > > '221 Initial Key > > '222 Part of a compilation > > '223 Mood > > '224 Part of set > > '225 Period > > '226 Color > > '227 Parental rating > > '228 Parental rating reason > > '229 Space used > > '230 EXIF Version > > '231 Event > > '232 Exposure bias > > '233 Exposure Program > > '234 Exposure Time > > '235 F-stop > > '236 Flash Mode > > '237 Focal Length > > '238 35mm focal length > > '239 ISO speed > > '240 Lens maker > > '241 Lens model > > '242 Light Source > > '243 Max aperture > > '244 Metering Mode > > '245 Orientation > > '246 People > > '247 Program Mode > > '248 saturation > > '249 Subject distance > > '250 White Balance > > '251 Priority > > '252 Project > > '253 Channel Number > > '254 Episode Name > > '255 Closed captioning > > '256 Rerun > > '257 SAP > > '258 Broadcast Date > > '259 Program Description > > '260 Recording Time > > '261 Station call sign > > '262 Station Name > > '263 Summary > > '264 Snippets > > '265 Auto Summary > > '266 Search ranking > > '267 Sensitivity > > '268 Shared with > > '269 Sharing Status > > '270 Product Name > > '271 Product Version > > '272 Support link > > '273 Source > > '274 Start Date > > '275 Billing Information > > '276 Complete > > '277 task owner > > '278 Total file size > > '279 Legal trademarks > > '280 Video compression > > '281 Directors > > '282 Data Rate > > '283 Frame Height > > '284 Frame Rate > > '285 Frame Width > > '286 Total bitRate > > '287 Primary disk > > '288 Memory > > '289 Machine Status > > '290 Configuration File > > '291 > > '292 > > '293 > > '294 > > '295 Masters Keywords (debug) > > '296 Masters Keywords (debug) > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From df.waters at outlook.com Thu Aug 3 13:24:12 2017 From: df.waters at outlook.com (Dan Waters) Date: Thu, 3 Aug 2017 18:24:12 +0000 Subject: [AccessD] Export/Import all Objects In-Reply-To: <04ce01d30ba0$dd8b8ea0$98a2abe0$@bchacc.com> References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> <03d701d30ad9$22634b30$6729e190$@bchacc.com> <04ce01d30ba0$dd8b8ea0$98a2abe0$@bchacc.com> Message-ID: Hi Rocky! Mmm - I can taste those martinis now! Although I don't think I've ever actually had one ... :-( I am really happy that this worked well! Once I had this working I used it on every access file for a customer prior to every update. Three of my long-term customers have now been using my Access system for three years w/o any intervention from me and perhaps the decorrupting has been helping. I think my DeCorrupter should reset the file to use tabbed documents if they were used in the first place. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: August 2, 2017 10:06 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects OK - truth in programming: I found out that the cause of the problem was not corruption but using tabbed documents. However, the decorrupter led me to this discovery so you're still in for the double martini. When I ran the decorrupter it turned off tabbed documents. I like tabbed documents - makes it easy to navigate among several open forms/reports. When I turned them back on, the resizing problem reappeared. So the takeaway - if you are using the ADH form resizing code from the 2003 ADH in A2010 (or later? Probably), tabbed documents will hose the resizing. So I'll just leave them off. However, now I have the problem of switching to other open forms. In A2003 this was easy - Windows in the menu at the top dropped down a list of open windows. Is there anything similar in A2010 - or some other way to navigate among open forms without tabbed documents? r -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 9:11 AM To: 'Rocky Smolin' Subject: RE: [AccessD] Export/Import all Objects It's a double!! You have saved my bacon!! Thank you. R -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 8:20 AM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] Export/Import all Objects Holy Code Cleaners, Batman! It appears to have worked. Now I'll try it on a second accdb that's really really hosed up. You're already in for one martini. Stand by for a double. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, August 01, 2017 8:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 14:12:55 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 3 Aug 2017 12:12:55 -0700 Subject: [AccessD] Export/Import all Objects In-Reply-To: References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> <03d701d30ad9$22634b30$6729e190$@bchacc.com> <04ce01d30ba0$dd8b8ea0$98a2abe0$@bchacc.com> Message-ID: <065f01d30c8c$82ff23b0$88fd6b10$@bchacc.com> The decorrupter did not set the tabbed documents back but since it was developed for A2003, which didn't have tabbed docs maybe that setting (along with other various Options) is not exported? Just a guess. I really miss the old A2003 UI - Alt-W-number to move between open forms. Now I'm trying to figure out how to move between open forms without the tabs. Any suggestions? Best, r R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, August 03, 2017 11:24 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky! Mmm - I can taste those martinis now! Although I don't think I've ever actually had one ... :-( I am really happy that this worked well! Once I had this working I used it on every access file for a customer prior to every update. Three of my long-term customers have now been using my Access system for three years w/o any intervention from me and perhaps the decorrupting has been helping. I think my DeCorrupter should reset the file to use tabbed documents if they were used in the first place. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: August 2, 2017 10:06 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects OK - truth in programming: I found out that the cause of the problem was not corruption but using tabbed documents. However, the decorrupter led me to this discovery so you're still in for the double martini. When I ran the decorrupter it turned off tabbed documents. I like tabbed documents - makes it easy to navigate among several open forms/reports. When I turned them back on, the resizing problem reappeared. So the takeaway - if you are using the ADH form resizing code from the 2003 ADH in A2010 (or later? Probably), tabbed documents will hose the resizing. So I'll just leave them off. However, now I have the problem of switching to other open forms. In A2003 this was easy - Windows in the menu at the top dropped down a list of open windows. Is there anything similar in A2010 - or some other way to navigate among open forms without tabbed documents? r -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 9:11 AM To: 'Rocky Smolin' Subject: RE: [AccessD] Export/Import all Objects It's a double!! You have saved my bacon!! Thank you. R -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 8:20 AM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] Export/Import all Objects Holy Code Cleaners, Batman! It appears to have worked. Now I'll try it on a second accdb that's really really hosed up. You're already in for one martini. Stand by for a double. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, August 01, 2017 8:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From df.waters at outlook.com Thu Aug 3 14:23:56 2017 From: df.waters at outlook.com (Dan Waters) Date: Thu, 3 Aug 2017 19:23:56 +0000 Subject: [AccessD] Export/Import all Objects In-Reply-To: <065f01d30c8c$82ff23b0$88fd6b10$@bchacc.com> References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> <03d701d30ad9$22634b30$6729e190$@bchacc.com> <04ce01d30ba0$dd8b8ea0$98a2abe0$@bchacc.com> <065f01d30c8c$82ff23b0$88fd6b10$@bchacc.com> Message-ID: In Access 2010 on the Home Ribbon there is an area named 'Window'. There is a 'Switch Windows' option. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: August 3, 2017 14:13 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects The decorrupter did not set the tabbed documents back but since it was developed for A2003, which didn't have tabbed docs maybe that setting (along with other various Options) is not exported? Just a guess. I really miss the old A2003 UI - Alt-W-number to move between open forms. Now I'm trying to figure out how to move between open forms without the tabs. Any suggestions? Best, r R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, August 03, 2017 11:24 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky! Mmm - I can taste those martinis now! Although I don't think I've ever actually had one ... :-( I am really happy that this worked well! Once I had this working I used it on every access file for a customer prior to every update. Three of my long-term customers have now been using my Access system for three years w/o any intervention from me and perhaps the decorrupting has been helping. I think my DeCorrupter should reset the file to use tabbed documents if they were used in the first place. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: August 2, 2017 10:06 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects OK - truth in programming: I found out that the cause of the problem was not corruption but using tabbed documents. However, the decorrupter led me to this discovery so you're still in for the double martini. When I ran the decorrupter it turned off tabbed documents. I like tabbed documents - makes it easy to navigate among several open forms/reports. When I turned them back on, the resizing problem reappeared. So the takeaway - if you are using the ADH form resizing code from the 2003 ADH in A2010 (or later? Probably), tabbed documents will hose the resizing. So I'll just leave them off. However, now I have the problem of switching to other open forms. In A2003 this was easy - Windows in the menu at the top dropped down a list of open windows. Is there anything similar in A2010 - or some other way to navigate among open forms without tabbed documents? r -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 9:11 AM To: 'Rocky Smolin' Subject: RE: [AccessD] Export/Import all Objects It's a double!! You have saved my bacon!! Thank you. R -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 8:20 AM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] Export/Import all Objects Holy Code Cleaners, Batman! It appears to have worked. Now I'll try it on a second accdb that's really really hosed up. You're already in for one martini. Stand by for a double. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, August 01, 2017 8:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 14:43:20 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Thu, 3 Aug 2017 12:43:20 -0700 Subject: [AccessD] Export/Import all Objects In-Reply-To: References: <053701d306e3$aa58de50$ff0a9af0$@bchacc.com> <057f01d306fe$33135080$9939f180$@bchacc.com> <05bc01d3070c$9edc0e20$dc942a60$@bchacc.com> <060701d3073c$5a125760$0e370620$@bchacc.com> <03d701d30ad9$22634b30$6729e190$@bchacc.com> <04ce01d30ba0$dd8b8ea0$98a2abe0$@bchacc.com> <065f01d30c8c$82ff23b0$88fd6b10$@bchacc.com> Message-ID: <067a01d30c90$c30f2550$492d6ff0$@bchacc.com> Dang! Who knew? Thank you. Makes my life so much easier. But why do they have to move everything around every time they come out with a new release? I love kb shortcuts and I used to be able to ctrl-d to open form in design mode. Now I have to right click it. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, August 03, 2017 12:24 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects In Access 2010 on the Home Ribbon there is an area named 'Window'. There is a 'Switch Windows' option. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: August 3, 2017 14:13 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects The decorrupter did not set the tabbed documents back but since it was developed for A2003, which didn't have tabbed docs maybe that setting (along with other various Options) is not exported? Just a guess. I really miss the old A2003 UI - Alt-W-number to move between open forms. Now I'm trying to figure out how to move between open forms without the tabs. Any suggestions? Best, r R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, August 03, 2017 11:24 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky! Mmm - I can taste those martinis now! Although I don't think I've ever actually had one ... :-( I am really happy that this worked well! Once I had this working I used it on every access file for a customer prior to every update. Three of my long-term customers have now been using my Access system for three years w/o any intervention from me and perhaps the decorrupting has been helping. I think my DeCorrupter should reset the file to use tabbed documents if they were used in the first place. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: August 2, 2017 10:06 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects OK - truth in programming: I found out that the cause of the problem was not corruption but using tabbed documents. However, the decorrupter led me to this discovery so you're still in for the double martini. When I ran the decorrupter it turned off tabbed documents. I like tabbed documents - makes it easy to navigate among several open forms/reports. When I turned them back on, the resizing problem reappeared. So the takeaway - if you are using the ADH form resizing code from the 2003 ADH in A2010 (or later? Probably), tabbed documents will hose the resizing. So I'll just leave them off. However, now I have the problem of switching to other open forms. In A2003 this was easy - Windows in the menu at the top dropped down a list of open windows. Is there anything similar in A2010 - or some other way to navigate among open forms without tabbed documents? r -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 9:11 AM To: 'Rocky Smolin' Subject: RE: [AccessD] Export/Import all Objects It's a double!! You have saved my bacon!! Thank you. R -----Original Message----- From: Rocky Smolin [mailto:rockysmolin at bchacc.com] Sent: Tuesday, August 01, 2017 8:20 AM To: 'Access Developers discussion and problem solving' Subject: RE: [AccessD] Export/Import all Objects Holy Code Cleaners, Batman! It appears to have worked. Now I'll try it on a second accdb that's really really hosed up. You're already in for one martini. Stand by for a double. R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, August 01, 2017 8:16 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Dan: I changed 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then To 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then And that made it run. I'm decorrupting an accdb file. Still have to test the results. 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 Dan Waters Sent: Friday, July 28, 2017 12:56 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, It's been years since I looked into this file ... In the module named DeCorrupter Code change the Function named DestinationFileAlreadyExists to this: '--------------------------------------------------------------------------- Private Function DestinationFileAlreadyExists() As Boolean 1 On Error GoTo EH Dim fso As Object Dim stgPrompt As String Dim fil As File 2 Set fso = CreateObject("Scripting.FileSystemObject") 3 If fso.FileExists(MstgDestinationFullPath) Then 4 If fso.FileExists(Replace(MstgDestinationFullPath, ".mdb", ".ldb")) Then '-- If an .ldb file exists then the ...TEXT.mdb file is probably open 5 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 6 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 7 DestinationFileAlreadyExists = True 8 Exit Function 9 ElseIf fso.FileExists(Replace(MstgDestinationFullPath, ".accdb", ".laccdb")) Then '-- If an .laccdb file exists then the ...TEXT.accdb file is probably open 10 stgPrompt = "The file " & MstgDestinationFullPath & " appears to be open." _ & vbNewLine & vbNewLine _ & "You must close it before continuing." 11 MsgBox stgPrompt, vbCritical + vbOKOnly, "Destination File Is Open" 12 DestinationFileAlreadyExists = True 13 Exit Function 14 Else 15 Set fil = fso.GetFile(MstgDestinationFullPath) 16 fil.Attributes = 0 17 fso.DeleteFile MstgDestinationFullPath, True 18 End If 19 End If 20 Set fso = Nothing 21 Exit Function EH: 22 DoCmd.Hourglass False 23 stgPrompt = "ERROR: DestinationFileAlreadyExists" & vbNewLine & vbNewLine _ & "Line: " & Erl & vbNewLine _ & "Number: " & Err.Number & vbNewLine _ & "Description: " & Err.Description 24 MsgBox stgPrompt, vbExclamation + vbOKOnly, GstgProcessName & " Error" 25 Stop End Function '--------------------------------------------------------------------------- I hope this will solve it. Good Luck! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 19:57 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I don't think so. Doesn't appear to be. It gets created when I start the export, yes? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:51 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Is the file actually open? -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 14:15 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects I did but ran into a bug - The file C:\Clients\AHI\AHI_FE-1229-DecorrupterTEXT.accdb appears to be open. You must close it before continuing. What am I doing wrong? TIA Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 12:03 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Hi Rocky, Looks like you can download it from http://www.camcopng.com/decorrupter. Enjoy! Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: July 27, 2017 12:32 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Export/Import all Objects Woo-hoo! Thank you. Please send to rocky.smolin at bchacc.com. Best, R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: Thursday, July 27, 2017 9:34 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects I do and it's now called the DeCorrupter! But someone put a copy on their website to make it easily available for downloading and I don't remember who that was. If anyone would like a copy let me know and I'll send it off-line. Dan -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: July 27, 2017 10:06 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Export/Import all Objects Rocky, I'm not positive, but , as I recall, Dan Waters had a routine (originally called EatBloat or similar) that would do a save as text of all objects and had option to do a Load From text. I repeat I'm not positive. Good luck. On Thu, Jul 27, 2017 at 10:21 AM, Rocky Smolin wrote: > Dear List: > > > > I have an application where the forms are all hosed up on screen resizing. > I > tried Peter's Shrinker Stretcher but it didn't solve the problem. > > > > I remember a thread on the list in the past about exporting all the > objects to text and then reimporting them into a new database as a way > to solve some corruption problems. I'd like to try that but can't > remember exactly how to go about it. > > > > Can someone point me in the right direction for that? > > > > 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd 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 Aug 3 22:35:35 2017 From: accesspro at gmail.com (Bob Heygood) Date: Thu, 3 Aug 2017 20:35:35 -0700 Subject: [AccessD] Access files by date In-Reply-To: References: <010701d30436$5d161630$17424290$@bchacc.com> <03d001d30ad6$576014b0$06203e10$@bchacc.com> <5980F5DA.1340.2D5BB48D@stuart.lexacorp.com.pg> <049d01d30b98$2cbdff20$8639fd60$@bchacc.com> Message-ID: <03cf01d30cd2$bca23990$35e6acb0$@gmail.com> Rocky & Stuart thanks for the info and code. Looking forward to using soon. Hopefully I will get some info from the RAW photo file format that I am now experimenting with. Bob Heygood -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Wednesday, August 2, 2017 7:35 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Access files by date Beautiful. But jpg is missing. None of the formats listed have Date Taken checked. Is jpg the only one using that field? R -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: Wednesday, August 02, 2017 7:12 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access files by date Rocky, You may get some info from this recent link. https://www.access-programmers.co.uk/forums/showthread.php?p=1537880#post153 7880 Good luck. On Wed, Aug 2, 2017 at 10:03 AM, Rocky Smolin wrote: > Cool. But the list you posted is even more helpful. Are those 296 > fields all standard (if unused) in a jpg file? DO you know of a link > to a site with more description of those fields? > > Tia > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Stuart McLachlan > Sent: Tuesday, August 01, 2017 2:43 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Access files by date > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > ' search jpg header fields to find which one is the original date > ... > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field 12 > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > FWIW,.. > replacing > objFolder.GetDetailsOf(objFolderItem, 16) with > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of the > item instead of its value. > > I came across th list below of GetDetailsOf item numbers. > > Seems MS have just added items haphazardly to a list as they have > identified EXIF and other metadata tags used by different types of files. > > If you want the Lat/Lon so that you can track your photos > geographically, that's item 39. > > Experimenting, there is no error if you ask for an item Detail that > doesn't exist. I looped through a folder asking for item details up > to 1000 without any error > > > > '0 Name > '1 Size > '2 Item type > '3 Date Modified > '4 Date created > '5 Date accessed > '6 Attributes > '7 Offline Status > '8 Offline availability > '9 Perceived type > '10 owner > '11 Kind > '12 Date taken > '13 Contributing artists > '14 Album > '15 Year > '16 Genre > '17 Conductors > '18 Tags > '19 rating > '20 Authors > '21 Title > '22 Subject > '23 Categories > '24 Comments > '25 copyright > '26 # > '27 Length > '28 Bit Rate > '29 Protected > '30 Camera model > '31 Dimensions > '32 Camera maker > '33 Company > '34 File Description > '35 Program Name > '36 Duration > '37 Is online > '38 Is recurring > '39 Location > '40 Optional attendee addresses > '41 Optional attendees > '42 Organizer Address > '43 Organizer Name > '44 Reminder Time > '45 Required attendee addresses > '46 Required attendees > '47 Resources > '48 Meeting Status > '49 Free/busy status > '50 Total Size > '51 Account Name > '52 task Status > '53 computer > '54 Anniversary > '55 Assistant 's name > '56 Assistant 's phone > '57 Birthday > '58 Business Address > '59 Business City > '60 Business Country / region > '61 Business P.O.box > '62 Business postal code > '63 Business State Or province > '64 Business Street > '65 Business fax > '66 Business home page > '67 Business phone > '68 Callback Number > '69 Car phone > '70 Children > '71 Company main phone > '72 Department > '73 E-mail address > '74 e -mail2 > '75 e -mail3 > '76 E-mail list > '77 E-mail display name > '78 File as > '79 First Name > '80 Full Name > '81 Gender > '82 Given Name > '83 Hobbies > '84 Home Address > '85 Home City > '86 Home Country / region > '87 Home P.O.box > '88 Home postal code > '89 Home State Or province > '90 Home Street > '91 Home fax > '92 Home phone > '93 IM addresses > '94 Initials > '95 Job Title > '96 Label > '97 last Name > '98 Mailing Address > '99 Middle Name > '100 Cell phone > '101 Nickname > '102 Office Location > '103 Other Address > '104 Other City > '105 Other Country / region > '106 Other P.O.box > '107 Other postal code > '108 Other State Or province > '109 Other Street > '110 Pager > '111 Personal Title > '112 City > '113 Country/region > '114 P.O.box > '115 Postal code > '116 State or province > '117 Street > '118 Primary e - mail > '119 Primary phone > '120 Profession > '121 Spouse/Partner > '122 Suffix > '123 TTY/TTD phone > '124 Telex > '125 Webpage > '126 Content Status > '127 Content type > '128 Date acquired > '129 Date archived > '130 Date completed > '131 Device Category > '132 Connected > '133 Discovery Method > '134 Friendly Name > '135 Local computer > '136 Manufacturer > '137 model > '138 Paired > '139 Classification > '140 Status > '141 Client ID > '142 Contributors > '143 Content created > '144 last printed > '145 Date last saved > '146 Division > '147 Document ID > '148 Pages > '149 Slides > '150 Total editing time > '151 Word Count > '152 Due Date > '153 End date > '154 File Count > '155 FileName > '156 File Version > '157 flag Color > '158 flag Status > '159 Space free > '160 Bit Depth > '161 Horizontal resolution > '162 Width > '163 Vertical resolution > '164 Height > '165 Importance > '166 Is attachment > '167 Is deleted > '168 Encryption Status > '169 Has flag > '170 Is completed > '171 Incomplete > '172 Read Status > '173 Shared > '174 Creators > '175 Date > '176 Folder Name > '177 Folder Path > '178 Folder > '179 Participants > '180 Path > '181 by Location > '182 Type > '183 Contact Names > '184 Entry type > '185 Language > '186 Date visited > '187 Description > '188 link Status > '189 link Target > '190 URL > '191 Media created > '192 Date released > '193 Encoded by > '194 Producers > '195 Publisher > '196 Subtitle > '197 User web URL > '198 Writers > '199 attachments > '200 Bcc addresses > '201 Bcc > '202 Cc addresses > '203 Cc > '204 Conversation ID > '205 Date Received > '206 Date sent > '207 From addresses > '208 From > '209 Has attachments > '210 Sender Address > '211 Sender Name > '212 Store > '213 To addresses > '214 To do title > '215 To > '216 Mileage > '217 Album artist > '218 Album ID > '219 Beats -per - Minute > '220 Composers > '221 Initial Key > '222 Part of a compilation > '223 Mood > '224 Part of set > '225 Period > '226 Color > '227 Parental rating > '228 Parental rating reason > '229 Space used > '230 EXIF Version > '231 Event > '232 Exposure bias > '233 Exposure Program > '234 Exposure Time > '235 F-stop > '236 Flash Mode > '237 Focal Length > '238 35mm focal length > '239 ISO speed > '240 Lens maker > '241 Lens model > '242 Light Source > '243 Max aperture > '244 Metering Mode > '245 Orientation > '246 People > '247 Program Mode > '248 saturation > '249 Subject distance > '250 White Balance > '251 Priority > '252 Project > '253 Channel Number > '254 Episode Name > '255 Closed captioning > '256 Rerun > '257 SAP > '258 Broadcast Date > '259 Program Description > '260 Recording Time > '261 Station call sign > '262 Station Name > '263 Summary > '264 Snippets > '265 Auto Summary > '266 Search ranking > '267 Sensitivity > '268 Shared with > '269 Sharing Status > '270 Product Name > '271 Product Version > '272 Support link > '273 Source > '274 Start Date > '275 Billing Information > '276 Complete > '277 task owner > '278 Total file size > '279 Legal trademarks > '280 Video compression > '281 Directors > '282 Data Rate > '283 Frame Height > '284 Frame Rate > '285 Frame Width > '286 Total bitRate > '287 Primary disk > '288 Memory > '289 Machine Status > '290 Configuration File > '291 > '292 > '293 > '294 > '295 Masters Keywords (debug) > '296 Masters Keywords (debug) > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Thu Aug 3 23:38:59 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Fri, 04 Aug 2017 14:38:59 +1000 Subject: [AccessD] Access files by date In-Reply-To: <03cf01d30cd2$bca23990$35e6acb0$@gmail.com> References: <010701d30436$5d161630$17424290$@bchacc.com>, , <03cf01d30cd2$bca23990$35e6acb0$@gmail.com> Message-ID: <5983FA63.7337.39256C45@stuart.lexacorp.com.pg> There are lots of RAW formats, every camera manufacturer seems to use their own. But many do include the EXIF data WIkipedia has a good article on it: https://en.wikipedia.org/wiki/Raw_image_format (Just to recap on an earlier post, I've confirmed that the number of items available and their indexes are OS dependent. There were only 39 available in XP, there are now over 300. The first 51 appear to be at the same index from Vista onwards.) On 3 Aug 2017 at 20:35, Bob Heygood wrote: > Rocky & Stuart > thanks for the info and code. > Looking forward to using soon. > Hopefully I will get some info from the RAW photo file format that I > am now experimenting with. > > Bob Heygood > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Rocky Smolin Sent: Wednesday, August 2, 2017 7:35 AM To: 'Access > Developers discussion and problem solving' Subject: Re: [AccessD] > Access files by date > > Beautiful. But jpg is missing. None of the formats listed have Date > Taken checked. Is jpg the only one using that field? > > R > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of jack drawbridge Sent: Wednesday, August 02, 2017 7:12 AM To: Access > Developers discussion and problem solving Subject: Re: [AccessD] > Access files by date > > Rocky, > > You may get some info from this recent link. > https://www.access-programmers.co.uk/forums/showthread.php?p=1537880#p > ost153 7880 > > Good luck. > > On Wed, Aug 2, 2017 at 10:03 AM, Rocky Smolin > wrote: > > > Cool. But the list you posted is even more helpful. Are those 296 > > fields all standard (if unused) in a jpg file? DO you know of a > > link to a site with more description of those fields? > > > > Tia > > > > R > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Stuart McLachlan Sent: Tuesday, August 01, 2017 2:43 PM > > To: Access Developers discussion and problem solving Subject: Re: > > [AccessD] Access files by date > > > > On 1 Aug 2017 at 7:56, Rocky Smolin wrote: > > > ' search jpg header fields to find which one is the original date > > ... > > > objFolder.GetDetailsOf(objFolderItem, 16) ' turns out to be field > > > 12 > > > > > GetProperty = objFolder.GetDetailsOf(objFolderItem, 12) > > > > FWIW,.. > > replacing > > objFolder.GetDetailsOf(objFolderItem, 16) with > > objFolder.GetDetailsOf(objFolder.Items, i) will return the Name of > > the item instead of its value. > > > > I came across th list below of GetDetailsOf item numbers. > > > > Seems MS have just added items haphazardly to a list as they have > > identified EXIF and other metadata tags used by different types of > > files. > > > > If you want the Lat/Lon so that you can track your photos > > geographically, that's item 39. > > > > Experimenting, there is no error if you ask for an item Detail that > > doesn't exist. I looped through a folder asking for item details up > > to 1000 without any error > > > > > > > > '0 Name > > '1 Size > > '2 Item type > > '3 Date Modified > > '4 Date created > > '5 Date accessed > > '6 Attributes > > '7 Offline Status > > '8 Offline availability > > '9 Perceived type > > '10 owner > > '11 Kind > > '12 Date taken > > '13 Contributing artists > > '14 Album > > '15 Year > > '16 Genre > > '17 Conductors > > '18 Tags > > '19 rating > > '20 Authors > > '21 Title > > '22 Subject > > '23 Categories > > '24 Comments > > '25 copyright > > '26 # > > '27 Length > > '28 Bit Rate > > '29 Protected > > '30 Camera model > > '31 Dimensions > > '32 Camera maker > > '33 Company > > '34 File Description > > '35 Program Name > > '36 Duration > > '37 Is online > > '38 Is recurring > > '39 Location > > '40 Optional attendee addresses > > '41 Optional attendees > > '42 Organizer Address > > '43 Organizer Name > > '44 Reminder Time > > '45 Required attendee addresses > > '46 Required attendees > > '47 Resources > > '48 Meeting Status > > '49 Free/busy status > > '50 Total Size > > '51 Account Name > > '52 task Status > > '53 computer > > '54 Anniversary > > '55 Assistant 's name > > '56 Assistant 's phone > > '57 Birthday > > '58 Business Address > > '59 Business City > > '60 Business Country / region > > '61 Business P.O.box > > '62 Business postal code > > '63 Business State Or province > > '64 Business Street > > '65 Business fax > > '66 Business home page > > '67 Business phone > > '68 Callback Number > > '69 Car phone > > '70 Children > > '71 Company main phone > > '72 Department > > '73 E-mail address > > '74 e -mail2 > > '75 e -mail3 > > '76 E-mail list > > '77 E-mail display name > > '78 File as > > '79 First Name > > '80 Full Name > > '81 Gender > > '82 Given Name > > '83 Hobbies > > '84 Home Address > > '85 Home City > > '86 Home Country / region > > '87 Home P.O.box > > '88 Home postal code > > '89 Home State Or province > > '90 Home Street > > '91 Home fax > > '92 Home phone > > '93 IM addresses > > '94 Initials > > '95 Job Title > > '96 Label > > '97 last Name > > '98 Mailing Address > > '99 Middle Name > > '100 Cell phone > > '101 Nickname > > '102 Office Location > > '103 Other Address > > '104 Other City > > '105 Other Country / region > > '106 Other P.O.box > > '107 Other postal code > > '108 Other State Or province > > '109 Other Street > > '110 Pager > > '111 Personal Title > > '112 City > > '113 Country/region > > '114 P.O.box > > '115 Postal code > > '116 State or province > > '117 Street > > '118 Primary e - mail > > '119 Primary phone > > '120 Profession > > '121 Spouse/Partner > > '122 Suffix > > '123 TTY/TTD phone > > '124 Telex > > '125 Webpage > > '126 Content Status > > '127 Content type > > '128 Date acquired > > '129 Date archived > > '130 Date completed > > '131 Device Category > > '132 Connected > > '133 Discovery Method > > '134 Friendly Name > > '135 Local computer > > '136 Manufacturer > > '137 model > > '138 Paired > > '139 Classification > > '140 Status > > '141 Client ID > > '142 Contributors > > '143 Content created > > '144 last printed > > '145 Date last saved > > '146 Division > > '147 Document ID > > '148 Pages > > '149 Slides > > '150 Total editing time > > '151 Word Count > > '152 Due Date > > '153 End date > > '154 File Count > > '155 FileName > > '156 File Version > > '157 flag Color > > '158 flag Status > > '159 Space free > > '160 Bit Depth > > '161 Horizontal resolution > > '162 Width > > '163 Vertical resolution > > '164 Height > > '165 Importance > > '166 Is attachment > > '167 Is deleted > > '168 Encryption Status > > '169 Has flag > > '170 Is completed > > '171 Incomplete > > '172 Read Status > > '173 Shared > > '174 Creators > > '175 Date > > '176 Folder Name > > '177 Folder Path > > '178 Folder > > '179 Participants > > '180 Path > > '181 by Location > > '182 Type > > '183 Contact Names > > '184 Entry type > > '185 Language > > '186 Date visited > > '187 Description > > '188 link Status > > '189 link Target > > '190 URL > > '191 Media created > > '192 Date released > > '193 Encoded by > > '194 Producers > > '195 Publisher > > '196 Subtitle > > '197 User web URL > > '198 Writers > > '199 attachments > > '200 Bcc addresses > > '201 Bcc > > '202 Cc addresses > > '203 Cc > > '204 Conversation ID > > '205 Date Received > > '206 Date sent > > '207 From addresses > > '208 From > > '209 Has attachments > > '210 Sender Address > > '211 Sender Name > > '212 Store > > '213 To addresses > > '214 To do title > > '215 To > > '216 Mileage > > '217 Album artist > > '218 Album ID > > '219 Beats -per - Minute > > '220 Composers > > '221 Initial Key > > '222 Part of a compilation > > '223 Mood > > '224 Part of set > > '225 Period > > '226 Color > > '227 Parental rating > > '228 Parental rating reason > > '229 Space used > > '230 EXIF Version > > '231 Event > > '232 Exposure bias > > '233 Exposure Program > > '234 Exposure Time > > '235 F-stop > > '236 Flash Mode > > '237 Focal Length > > '238 35mm focal length > > '239 ISO speed > > '240 Lens maker > > '241 Lens model > > '242 Light Source > > '243 Max aperture > > '244 Metering Mode > > '245 Orientation > > '246 People > > '247 Program Mode > > '248 saturation > > '249 Subject distance > > '250 White Balance > > '251 Priority > > '252 Project > > '253 Channel Number > > '254 Episode Name > > '255 Closed captioning > > '256 Rerun > > '257 SAP > > '258 Broadcast Date > > '259 Program Description > > '260 Recording Time > > '261 Station call sign > > '262 Station Name > > '263 Summary > > '264 Snippets > > '265 Auto Summary > > '266 Search ranking > > '267 Sensitivity > > '268 Shared with > > '269 Sharing Status > > '270 Product Name > > '271 Product Version > > '272 Support link > > '273 Source > > '274 Start Date > > '275 Billing Information > > '276 Complete > > '277 task owner > > '278 Total file size > > '279 Legal trademarks > > '280 Video compression > > '281 Directors > > '282 Data Rate > > '283 Frame Height > > '284 Frame Rate > > '285 Frame Width > > '286 Total bitRate > > '287 Primary disk > > '288 Memory > > '289 Machine Status > > '290 Configuration File > > '291 > > '292 > > '293 > > '294 > > '295 Masters Keywords (debug) > > '296 Masters Keywords (debug) > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From cjlabs at att.net Sun Aug 6 20:47:19 2017 From: cjlabs at att.net (cjlabs) Date: Sun, 6 Aug 2017 20:47:19 -0500 Subject: [AccessD] Change a property on all reports Message-ID: <0eed01d30f1f$1b7372b0$525a5810$@att.net> I want to change the Close Button property on all reports to Yes. Here are 2 methods I have tried. Both open each report, but the Close button property is not changed. Can someone help me out with the correct way to do this? I though adding the property would be the way to go. Public Sub UpdateReportProperty() Dim rpt As Object For Each rpt In Application.CurrentProject.AllReports DoCmd.OpenReport rpt.Name, acViewDesign rpt.Properties.Add "CloseButton", True DoCmd.Close acReport, rpt.Name, acSaveYes Next End Sub Public Sub UpdateReportProperty() Dim i As Integer For i = 0 To CurrentProject.AllReports.Count - 1 DoCmd.OpenReport CurrentProject.AllReports.Item(i).Name, acViewDesign CurrentProject.AllReports.Item(i).Properties.Add "CloseButton", True DoCmd.Close acReport, CurrentProject.AllReports.Item(i).Name, acSaveYes Next i End Sub Thanks Carolyn Johnson From rockysmolin at bchacc.com Wed Aug 9 08:41:38 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 9 Aug 2017 06:41:38 -0700 Subject: [AccessD] FW: VBA Function In-Reply-To: References: Message-ID: <031301d31115$39f354b0$add9fe10$@bchacc.com> Dear Lists: I don't do much with ADO and less with SQL. The back end here is SQL. He says if he puts the code into the QBE it retrieves all the clients with the string in their email address. But in the code it only retrieves one. Does anyone see why the code below doesn't work for him? MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin From: James Charlton [mailto:James at charltonweeks.com] Sent: Monday, August 07, 2017 11:17 AM To: Rocky Smolin Subject: VBA Function I am using the following function to find a client by an email address: It works ONLY IF a client is found that only has one email and this is it. Some clients have multiple emails listed and there are multiple clients that have the search item in their emails. I want all the clients that have the search item in their email field. How do I fix this? jc Public Function FetchNameFrmEMailPart(ByVal stEMP) As String Dim conn As ADODB.Connection, rs As ADODB.Recordset Dim stAns As String, stEmail As String Set conn = New ADODB.Connection conn.ConnectionString = Bwq conn.Open Set rs = New ADODB.Recordset stEMP = Nz(stEMP, "") stEmail = "%" & stEMP & "%" rs.Source = "SELECT LName, FName From tClients " & _ "WHERE [E-Mail] like '" & stEmail & "'" rs.ActiveConnection = conn rs.Open stAns = "" Do While Not rs.EOF stAns = stAns & rs(0) & ", " & rs(1) & vbCrLf rs.MoveNext Loop FetchNameFrmEMailPart = stAns rs.Close conn.Close End Function James Charlton Charlton Weeks LLP 1031 W Ave M14, Suite A Palmdale, CA 93551 661-265-0969 From fahooper at gmail.com Wed Aug 9 08:51:15 2017 From: fahooper at gmail.com (Fred Hooper) Date: Wed, 09 Aug 2017 09:51:15 -0400 Subject: [AccessD] FW: VBA Function In-Reply-To: <031301d31115$39f354b0$add9fe10$@bchacc.com> References: <031301d31115$39f354b0$add9fe10$@bchacc.com> Message-ID: <598B1353.1070800@gmail.com> Hi Rocky, He might try the CHARINDEX (equivalent to InStr, note reversed parameter order) approach: rs.Source = "SELECT LName, FName From tClients "& _ "WHERE CHARINDEX('"& stEmail& "',[E-Mail])> 0" Best, Fred > Rocky Smolin > Wednesday, August 09, 2017 9:41 AM > Dear Lists: > > > > I don't do much with ADO and less with SQL. The back end here is SQL. > > > > He says if he puts the code into the QBE it retrieves all the clients with > the string in their email address. But in the code it only retrieves one. > > > > Does anyone see why the code below doesn't work for him? > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > From: James Charlton [mailto:James at charltonweeks.com] > Sent: Monday, August 07, 2017 11:17 AM > To: Rocky Smolin > Subject: VBA Function > > > > I am using the following function to find a client by an email address: > > It works ONLY IF a client is found that only has one email and this is it. > > Some clients have multiple emails listed and there are multiple > clients that > have the search item in their emails. > > I want all the clients that have the search item in their email field. > > How do I fix this? > > jc > > > > > > Public Function FetchNameFrmEMailPart(ByVal stEMP) As String > > Dim conn As ADODB.Connection, rs As ADODB.Recordset > > Dim stAns As String, stEmail As String > > Set conn = New ADODB.Connection > > conn.ConnectionString = Bwq > > conn.Open > > Set rs = New ADODB.Recordset > > stEMP = Nz(stEMP, "") > > stEmail = "%" & stEMP & "%" > > > > rs.Source = "SELECT LName, FName From tClients " & _ > > "WHERE [E-Mail] like '" & stEmail & "'" > > rs.ActiveConnection = conn > > rs.Open > > stAns = "" > > Do While Not rs.EOF > > stAns = stAns & rs(0) & ", " & rs(1) & vbCrLf > > rs.MoveNext > > Loop > > > > FetchNameFrmEMailPart = stAns > > rs.Close > > conn.Close > > > > End Function > > > > James Charlton > > Charlton Weeks LLP > > 1031 W Ave M14, Suite A > > Palmdale, CA 93551 > > 661-265-0969 > > > From paul.hartland at googlemail.com Wed Aug 9 09:02:34 2017 From: paul.hartland at googlemail.com (Paul Hartland) Date: Wed, 9 Aug 2017 15:02:34 +0100 Subject: [AccessD] FW: VBA Function In-Reply-To: <598B1353.1070800@gmail.com> References: <031301d31115$39f354b0$add9fe10$@bchacc.com> <598B1353.1070800@gmail.com> Message-ID: not sure about this but does VBA allow the use of % in the like statements, I thought VBA only used ? (single characte) or * (multiple characters)....that being said have you tried the following approaches.... 1 stEmail = stEMP rs.Source = "SELECT LName, FName From tClients " & _ "WHERE [E-Mail] like %'" & stEmail & "'%" 2. stEmail = stEMP rs.Source = "SELECT LName, FName From tClients " & _ "WHERE [E-Mail] like *'" & stEmail & "'*" Paul Virus-free. www.avg.com <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> On 9 August 2017 at 14:51, Fred Hooper wrote: > Hi Rocky, > > He might try the CHARINDEX (equivalent to InStr, note reversed parameter > order) approach: > > rs.Source = "SELECT LName, FName From tClients "& _ > > "WHERE CHARINDEX('"& stEmail& "',[E-Mail])> 0" > > Best, > Fred > > Rocky Smolin >> Wednesday, August 09, 2017 9:41 AM >> >> Dear Lists: >> >> >> >> I don't do much with ADO and less with SQL. The back end here is SQL. >> >> >> >> He says if he puts the code into the QBE it retrieves all the clients with >> the string in their email address. But in the code it only retrieves one. >> >> >> >> Does anyone see why the code below doesn't work for him? >> >> >> >> MTIA >> >> >> >> >> >> Rocky Smolin >> >> Beach Access Software >> >> 760-683-5777 >> >> www.bchacc.com >> >> www.e-z-mrp.com >> >> Skype: rocky.smolin >> >> >> >> >> >> >> >> From: James Charlton [mailto:James at charltonweeks.com] >> Sent: Monday, August 07, 2017 11:17 AM >> To: Rocky Smolin >> Subject: VBA Function >> >> >> >> I am using the following function to find a client by an email address: >> >> It works ONLY IF a client is found that only has one email and this is it. >> >> Some clients have multiple emails listed and there are multiple clients >> that >> have the search item in their emails. >> >> I want all the clients that have the search item in their email field. >> >> How do I fix this? >> >> jc >> >> >> >> >> >> Public Function FetchNameFrmEMailPart(ByVal stEMP) As String >> >> Dim conn As ADODB.Connection, rs As ADODB.Recordset >> >> Dim stAns As String, stEmail As String >> >> Set conn = New ADODB.Connection >> >> conn.ConnectionString = Bwq >> >> conn.Open >> >> Set rs = New ADODB.Recordset >> >> stEMP = Nz(stEMP, "") >> >> stEmail = "%" & stEMP & "%" >> >> >> >> rs.Source = "SELECT LName, FName From tClients " & _ >> >> "WHERE [E-Mail] like '" & stEmail & "'" >> >> rs.ActiveConnection = conn >> >> rs.Open >> >> stAns = "" >> >> Do While Not rs.EOF >> >> stAns = stAns & rs(0) & ", " & rs(1) & vbCrLf >> >> rs.MoveNext >> >> Loop >> >> >> >> FetchNameFrmEMailPart = stAns >> >> rs.Close >> >> conn.Close >> >> >> >> End Function >> >> >> >> James Charlton >> >> Charlton Weeks LLP >> >> 1031 W Ave M14, Suite A >> >> Palmdale, CA 93551 >> >> 661-265-0969 >> >> >> >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- Paul Hartland paul.hartland at googlemail.com From wrwehler at gmail.com Wed Aug 9 09:20:40 2017 From: wrwehler at gmail.com (Ryan W) Date: Wed, 9 Aug 2017 09:20:40 -0500 Subject: [AccessD] FW: VBA Function In-Reply-To: References: <031301d31115$39f354b0$add9fe10$@bchacc.com> <598B1353.1070800@gmail.com> Message-ID: Paul since the recordset is using ADO it doesn't go through the JET engine/translation, so '%' is quite appropriate here for wildcards since that's what SQL Server uses. On Wed, Aug 9, 2017 at 9:02 AM, Paul Hartland via AccessD < accessd at databaseadvisors.com> wrote: > not sure about this but does VBA allow the use of % in the like statements, > I thought VBA only used ? (single characte) or * (multiple > characters)....that being said have you tried the following approaches.... > > 1 > stEmail = stEMP > rs.Source = "SELECT LName, FName From tClients " & _ > "WHERE [E-Mail] like %'" & stEmail & "'%" > > 2. > stEmail = stEMP > rs.Source = "SELECT LName, FName From tClients " & _ > "WHERE [E-Mail] like *'" & stEmail & "'*" > > Paul > > utm_source=link&utm_campaign=sig-email&utm_content=webmail> > Virus-free. > www.avg.com > utm_source=link&utm_campaign=sig-email&utm_content=webmail> > <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> > > On 9 August 2017 at 14:51, Fred Hooper wrote: > > > Hi Rocky, > > > > He might try the CHARINDEX (equivalent to InStr, note reversed parameter > > order) approach: > > > > rs.Source = "SELECT LName, FName From tClients "& _ > > > > "WHERE CHARINDEX('"& stEmail& "',[E-Mail])> 0" > > > > Best, > > Fred > > > > Rocky Smolin > >> Wednesday, August 09, 2017 9:41 AM > >> > >> Dear Lists: > >> > >> > >> > >> I don't do much with ADO and less with SQL. The back end here is SQL. > >> > >> > >> > >> He says if he puts the code into the QBE it retrieves all the clients > with > >> the string in their email address. But in the code it only retrieves > one. > >> > >> > >> > >> Does anyone see why the code below doesn't work for him? > >> > >> > >> > >> MTIA > >> > >> > >> > >> > >> > >> Rocky Smolin > >> > >> Beach Access Software > >> > >> 760-683-5777 > >> > >> www.bchacc.com > >> > >> www.e-z-mrp.com > >> > >> Skype: rocky.smolin > >> > >> > >> > >> > >> > >> > >> > >> From: James Charlton [mailto:James at charltonweeks.com] > >> Sent: Monday, August 07, 2017 11:17 AM > >> To: Rocky Smolin > >> Subject: VBA Function > >> > >> > >> > >> I am using the following function to find a client by an email address: > >> > >> It works ONLY IF a client is found that only has one email and this is > it. > >> > >> Some clients have multiple emails listed and there are multiple clients > >> that > >> have the search item in their emails. > >> > >> I want all the clients that have the search item in their email field. > >> > >> How do I fix this? > >> > >> jc > >> > >> > >> > >> > >> > >> Public Function FetchNameFrmEMailPart(ByVal stEMP) As String > >> > >> Dim conn As ADODB.Connection, rs As ADODB.Recordset > >> > >> Dim stAns As String, stEmail As String > >> > >> Set conn = New ADODB.Connection > >> > >> conn.ConnectionString = Bwq > >> > >> conn.Open > >> > >> Set rs = New ADODB.Recordset > >> > >> stEMP = Nz(stEMP, "") > >> > >> stEmail = "%" & stEMP & "%" > >> > >> > >> > >> rs.Source = "SELECT LName, FName From tClients " & _ > >> > >> "WHERE [E-Mail] like '" & stEmail & "'" > >> > >> rs.ActiveConnection = conn > >> > >> rs.Open > >> > >> stAns = "" > >> > >> Do While Not rs.EOF > >> > >> stAns = stAns & rs(0) & ", " & rs(1) & vbCrLf > >> > >> rs.MoveNext > >> > >> Loop > >> > >> > >> > >> FetchNameFrmEMailPart = stAns > >> > >> rs.Close > >> > >> conn.Close > >> > >> > >> > >> End Function > >> > >> > >> > >> James Charlton > >> > >> Charlton Weeks LLP > >> > >> 1031 W Ave M14, Suite A > >> > >> Palmdale, CA 93551 > >> > >> 661-265-0969 > >> > >> > >> > >> > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > > -- > Paul Hartland > paul.hartland at googlemail.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 Aug 9 09:29:31 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 9 Aug 2017 07:29:31 -0700 Subject: [AccessD] FW: VBA Function In-Reply-To: <598B1353.1070800@gmail.com> References: <031301d31115$39f354b0$add9fe10$@bchacc.com> <598B1353.1070800@gmail.com> Message-ID: <032001d3111b$ea763180$bf629480$@bchacc.com> Fred: Will forward to client and report back. I'm not running SQL here so I can't test it. r -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper Sent: Wednesday, August 09, 2017 6:51 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] FW: VBA Function Hi Rocky, He might try the CHARINDEX (equivalent to InStr, note reversed parameter order) approach: rs.Source = "SELECT LName, FName From tClients "& _ "WHERE CHARINDEX('"& stEmail& "',[E-Mail])> 0" Best, Fred > Rocky Smolin Wednesday, August 09, > 2017 9:41 AM Dear Lists: > > > > I don't do much with ADO and less with SQL. The back end here is SQL. > > > > He says if he puts the code into the QBE it retrieves all the clients > with the string in their email address. But in the code it only retrieves one. > > > > Does anyone see why the code below doesn't work for him? > > > > MTIA > > > > > > Rocky Smolin > > Beach Access Software > > 760-683-5777 > > www.bchacc.com > > www.e-z-mrp.com > > Skype: rocky.smolin > > > > > > > > From: James Charlton [mailto:James at charltonweeks.com] > Sent: Monday, August 07, 2017 11:17 AM > To: Rocky Smolin > Subject: VBA Function > > > > I am using the following function to find a client by an email address: > > It works ONLY IF a client is found that only has one email and this is it. > > Some clients have multiple emails listed and there are multiple > clients that have the search item in their emails. > > I want all the clients that have the search item in their email field. > > How do I fix this? > > jc > > > > > > Public Function FetchNameFrmEMailPart(ByVal stEMP) As String > > Dim conn As ADODB.Connection, rs As ADODB.Recordset > > Dim stAns As String, stEmail As String > > Set conn = New ADODB.Connection > > conn.ConnectionString = Bwq > > conn.Open > > Set rs = New ADODB.Recordset > > stEMP = Nz(stEMP, "") > > stEmail = "%" & stEMP & "%" > > > > rs.Source = "SELECT LName, FName From tClients " & _ > > "WHERE [E-Mail] like '" & stEmail & "'" > > rs.ActiveConnection = conn > > rs.Open > > stAns = "" > > Do While Not rs.EOF > > stAns = stAns & rs(0) & ", " & rs(1) & vbCrLf > > rs.MoveNext > > Loop > > > > FetchNameFrmEMailPart = stAns > > rs.Close > > conn.Close > > > > End Function > > > > James Charlton > > Charlton Weeks LLP > > 1031 W Ave M14, Suite A > > Palmdale, CA 93551 > > 661-265-0969 > > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From rockysmolin at bchacc.com Wed Aug 9 09:29:43 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 9 Aug 2017 07:29:43 -0700 Subject: [AccessD] FW: VBA Function In-Reply-To: References: <031301d31115$39f354b0$add9fe10$@bchacc.com> <598B1353.1070800@gmail.com> Message-ID: <032101d3111b$f172d420$d4587c60$@bchacc.com> Paul Will forward to client and report back. I'm not running SQL here so I can't test it. r -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland via AccessD Sent: Wednesday, August 09, 2017 7:03 AM To: Access Developers discussion and problem solving Cc: Paul Hartland Subject: Re: [AccessD] FW: VBA Function not sure about this but does VBA allow the use of % in the like statements, I thought VBA only used ? (single characte) or * (multiple characters)....that being said have you tried the following approaches.... 1 stEmail = stEMP rs.Source = "SELECT LName, FName From tClients " & _ "WHERE [E-Mail] like %'" & stEmail & "'%" 2. stEmail = stEMP rs.Source = "SELECT LName, FName From tClients " & _ "WHERE [E-Mail] like *'" & stEmail & "'*" Paul Virus-free. www.avg.com <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> On 9 August 2017 at 14:51, Fred Hooper wrote: > Hi Rocky, > > He might try the CHARINDEX (equivalent to InStr, note reversed > parameter > order) approach: > > rs.Source = "SELECT LName, FName From tClients "& _ > > "WHERE CHARINDEX('"& stEmail& "',[E-Mail])> 0" > > Best, > Fred > > Rocky Smolin >> Wednesday, August 09, 2017 9:41 AM >> >> Dear Lists: >> >> >> >> I don't do much with ADO and less with SQL. The back end here is SQL. >> >> >> >> He says if he puts the code into the QBE it retrieves all the clients >> with the string in their email address. But in the code it only retrieves one. >> >> >> >> Does anyone see why the code below doesn't work for him? >> >> >> >> MTIA >> >> >> >> >> >> Rocky Smolin >> >> Beach Access Software >> >> 760-683-5777 >> >> www.bchacc.com >> >> www.e-z-mrp.com >> >> Skype: rocky.smolin >> >> >> >> >> >> >> >> From: James Charlton [mailto:James at charltonweeks.com] >> Sent: Monday, August 07, 2017 11:17 AM >> To: Rocky Smolin >> Subject: VBA Function >> >> >> >> I am using the following function to find a client by an email address: >> >> It works ONLY IF a client is found that only has one email and this is it. >> >> Some clients have multiple emails listed and there are multiple >> clients that have the search item in their emails. >> >> I want all the clients that have the search item in their email field. >> >> How do I fix this? >> >> jc >> >> >> >> >> >> Public Function FetchNameFrmEMailPart(ByVal stEMP) As String >> >> Dim conn As ADODB.Connection, rs As ADODB.Recordset >> >> Dim stAns As String, stEmail As String >> >> Set conn = New ADODB.Connection >> >> conn.ConnectionString = Bwq >> >> conn.Open >> >> Set rs = New ADODB.Recordset >> >> stEMP = Nz(stEMP, "") >> >> stEmail = "%" & stEMP & "%" >> >> >> >> rs.Source = "SELECT LName, FName From tClients " & _ >> >> "WHERE [E-Mail] like '" & stEmail & "'" >> >> rs.ActiveConnection = conn >> >> rs.Open >> >> stAns = "" >> >> Do While Not rs.EOF >> >> stAns = stAns & rs(0) & ", " & rs(1) & vbCrLf >> >> rs.MoveNext >> >> Loop >> >> >> >> FetchNameFrmEMailPart = stAns >> >> rs.Close >> >> conn.Close >> >> >> >> End Function >> >> >> >> James Charlton >> >> Charlton Weeks LLP >> >> 1031 W Ave M14, Suite A >> >> Palmdale, CA 93551 >> >> 661-265-0969 >> >> >> >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- Paul Hartland paul.hartland at googlemail.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From newsgrps at dalyn.co.nz Wed Aug 9 18:45:18 2017 From: newsgrps at dalyn.co.nz (David Emerson) Date: Thu, 10 Aug 2017 11:45:18 +1200 Subject: [AccessD] Chart and Data Table Display Message-ID: <004f01d31169$8eca3090$ac5e91b0$@dalyn.co.nz> Hi Listers, Access 2010 accdb I have a chart which plots percentages on a bar graph for staff performance. The record source has two series - Daily percentage and Week To Date percentage. I want to show only the daily percentages on the bar chart and only the Week To Date percentage figures in the Data table below the chart. I can easily hide the Week To Date data from the Chart by setting the Border and Area of the series to None. However my problem is hiding the Daily percentage row in the Data Table. Does anyone know a way to do this? Regards David Emerson Dalyn Software Ltd Wellington, New Zealand From gustav at cactus.dk Fri Aug 11 08:11:55 2017 From: gustav at cactus.dk (Gustav Brock) Date: Fri, 11 Aug 2017 13:11:55 +0000 Subject: [AccessD] OT: Friday easy reading Message-ID: Hi all Currently, I program an Excel workbook, and - as those of you who have tried that know - it will drive you crazy. So, the thoughts are flying, and I decided to do something else for a moment and bring a promotion: I know some of you have or know grandchildren of low age. My niece, a gifted artist working mostly with 2D animations, has published a book at Amazon: Charlie and the White Dragon http://a.co/hiJKec6 I don't buy books of this kind, so I can't judge it compared to similar books, but I love her drawings which have a special "atmosphere" in lack of better words. /gustav From rockysmolin at bchacc.com Fri Aug 11 12:52:21 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Fri, 11 Aug 2017 10:52:21 -0700 Subject: [AccessD] SQL Support Needed Message-ID: <004b01d312ca$950fc9d0$bf2f5d70$@bchacc.com> Dear List(s): The fellow who acquired my manufacturing system has a client who is using SAP (SQL back end) and they need some help finding some data specific in that database to bring into Crystal Reports. If interested, please contact directly: Jeff Weeks Weeks Software Solutions 208-598-3353 TIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin From darryl at whittleconsulting.com.au Fri Aug 11 22:23:58 2017 From: darryl at whittleconsulting.com.au (Darryl Collins) Date: Sat, 12 Aug 2017 03:23:58 +0000 Subject: [AccessD] OT: Friday easy reading In-Reply-To: References: Message-ID: Thanks for the book link Gustav, On a side note, I am mostly an Excel programmer so if you need any help with that, feel free to email me via here or offlist. I would recommend the Excel-L list (which is similar to this setup) if you want 24/7 MVP level help. Cheers Darryl. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 11 August 2017 11:12 PM To: Access Developers discussion and problem solving Subject: [AccessD] OT: Friday easy reading Hi all Currently, I program an Excel workbook, and - as those of you who have tried that know - it will drive you crazy. So, the thoughts are flying, and I decided to do something else for a moment and bring a promotion: I know some of you have or know grandchildren of low age. My niece, a gifted artist working mostly with 2D animations, has published a book at Amazon: Charlie and the White Dragon http://a.co/hiJKec6 I don't buy books of this kind, so I can't judge it compared to similar books, but I love her drawings which have a special "atmosphere" in lack of better words. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Sat Aug 12 03:30:48 2017 From: gustav at cactus.dk (Gustav Brock) Date: Sat, 12 Aug 2017 08:30:48 +0000 Subject: [AccessD] OT: Excel (was: Friday easy reading) In-Reply-To: References: , Message-ID: Hi Darryl Thanks for the tip. I had forgotten about the Excel-L list because I normally stay off Excel, but for this project the client insisted. A major challenge was, that it should operate in Excel Online (of Office 365), thus no VBA could be used; everything had to be formulas. I soon realised that this would be impossible to maintain in a traditional fashion, so I use VBA to create the entire workbook and worksheets from scratch including all formatting and formulas. You soon meet two challenges. First, most code you can look up is - as you probably know - is "half-baked" and mostly user oriented using ActiveSheet and Selection, and the documentation lacks often examples, so you are much on your own. Second, the very bad thing about the formulas is that, when reaching some complexity, they tend to be write-only (a label I have seen put on Perl as well). Further, editing is limited to edit one formula by the time in a small textbox. This means that you need some kind of "generator" to create and maintain such formulas to give you the option to explain and adjust what is going on. ? On top of this, formulas in the user interface are localised, turning debugging into a nightmare. ? Thus, where the formulas were intended to be easy and/or simple, you end up having the formulas as a write-only low-level language which only can be maintained using a higher-level language. The opposite world. ? /gustav ________________________________________ Fra: AccessD p? vegne af Darryl Collins Sendt: 12. august 2017 05:23 Til: Access Developers discussion and problem solving Emne: Re: [AccessD] OT: Friday easy reading Thanks for the book link Gustav, On a side note, I am mostly an Excel programmer so if you need any help with that, feel free to email me via here or offlist. I would recommend the Excel-L list (which is similar to this setup) if you want 24/7 MVP level help. Cheers Darryl. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, 11 August 2017 11:12 PM To: Access Developers discussion and problem solving Subject: [AccessD] OT: Friday easy reading Hi all Currently, I program an Excel workbook, and - as those of you who have tried that know - it will drive you crazy. So, the thoughts are flying, and I decided to do something else for a moment and bring a promotion: I know some of you have or know grandchildren of low age. My niece, a gifted artist working mostly with 2D animations, has published a book at Amazon: ?? Charlie and the White Dragon ??? http://a.co/hiJKec6 I don't buy books of this kind, so I can't judge it compared to similar books, but I love her drawings which have a special "atmosphere" in lack of better words. /gustav From Chester_Kaup at kindermorgan.com Mon Aug 14 11:27:27 2017 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Mon, 14 Aug 2017 16:27:27 +0000 Subject: [AccessD] Using Between in a query Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> I have an interactive query where the user is asked to put in a start date and an end date. The query then uses the criteria of Between start date and end date. I am having a problem of some records not being retrieved. If the user puts in and end date of 7/31/2017 a record with a date of 7/31/2017 1:30PM is not retrieved. Does an end date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may not be fully understanding the use of Between. From wrwehler at gmail.com Mon Aug 14 11:33:47 2017 From: wrwehler at gmail.com (Ryan W) Date: Mon, 14 Aug 2017 11:33:47 -0500 Subject: [AccessD] Using Between in a query In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> Message-ID: When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 (midnight) so it does not account for the full day ahead. They would need to enter 7/31/17 23:59 or 8/1/17 On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < Chester_Kaup at kindermorgan.com> wrote: > I have an interactive query where the user is asked to put in a start date > and an end date. The query then uses the criteria of Between start date and > end date. I am having a problem of some records not being retrieved. If the > user puts in and end date of 7/31/2017 a record with a date of 7/31/2017 > 1:30PM is not retrieved. Does an end date of 7/31/2017 mean ending at 12:00 > PM on 7/30/2017? I guess I may not be fully understanding the use of > Between. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From wrwehler at gmail.com Mon Aug 14 11:35:04 2017 From: wrwehler at gmail.com (Ryan W) Date: Mon, 14 Aug 2017 11:35:04 -0500 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> Message-ID: I should mention your interactive query could be "smart" and do [Enter your end date]+1 to add a full day to the logic. On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 AND > 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 (midnight) > so it does not account for the full day ahead. They would need to enter > 7/31/17 23:59 or 8/1/17 > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > Chester_Kaup at kindermorgan.com> wrote: > >> I have an interactive query where the user is asked to put in a start >> date and an end date. The query then uses the criteria of Between start >> date and end date. I am having a problem of some records not being >> retrieved. If the user puts in and end date of 7/31/2017 a record with a >> date of 7/31/2017 1:30PM is not retrieved. Does an end date of 7/31/2017 >> mean ending at 12:00 PM on 7/30/2017? I guess I may not be fully >> understanding the use of Between. >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > From DMcGillivray at ctc.ca.gov Mon Aug 14 12:04:16 2017 From: DMcGillivray at ctc.ca.gov (McGillivray, Don) Date: Mon, 14 Aug 2017 17:04:16 +0000 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> Message-ID: <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> It's probably better to change the comparison so that the value from the table doesn't include the time, rather than adding a day to the end of the range. Something like : Int(TheDateFromTheTable) between StartDate and EndDate The Int() function removes the time portion from the date, allowing you to use the actual range for the comparison. If you add a day to the end of the range, any records dated at midnight of that additional day will be included in the results - not exactly what you want. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ryan W Sent: Monday, August 14, 2017 9:35 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query I should mention your interactive query could be "smart" and do [Enter your end date]+1 to add a full day to the logic. On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > (midnight) so it does not account for the full day ahead. They would > need to enter > 7/31/17 23:59 or 8/1/17 > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > Chester_Kaup at kindermorgan.com> wrote: > >> I have an interactive query where the user is asked to put in a start >> date and an end date. The query then uses the criteria of Between >> start date and end date. I am having a problem of some records not >> being retrieved. If the user puts in and end date of 7/31/2017 a >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may >> not be fully understanding the use of Between. >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> 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 Mon Aug 14 12:49:20 2017 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Mon, 14 Aug 2017 17:49:20 +0000 Subject: [AccessD] Using Between in a query In-Reply-To: <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Sounds like a good idea but I cannot get the Int function to work. Here is the original SQL statement. Thanks. INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, Status, StatusDate, RecordDate, StatusDate ) SELECT dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, DateSerial(Year(Date()),Month(Date())-1,1) AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of Month] And [Enter Last Day of Month])) GROUP BY dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000","42415351160000"))); -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of McGillivray, Don Sent: Monday, August 14, 2017 12:04 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query [This email message was received from the Internet and came from outside of Kinder Morgan] It's probably better to change the comparison so that the value from the table doesn't include the time, rather than adding a day to the end of the range. Something like : Int(TheDateFromTheTable) between StartDate and EndDate The Int() function removes the time portion from the date, allowing you to use the actual range for the comparison. If you add a day to the end of the range, any records dated at midnight of that additional day will be included in the results - not exactly what you want. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ryan W Sent: Monday, August 14, 2017 9:35 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query I should mention your interactive query could be "smart" and do [Enter your end date]+1 to add a full day to the logic. On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > (midnight) so it does not account for the full day ahead. They would > need to enter > 7/31/17 23:59 or 8/1/17 > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > Chester_Kaup at kindermorgan.com> wrote: > >> I have an interactive query where the user is asked to put in a start >> date and an end date. The query then uses the criteria of Between >> start date and end date. I am having a problem of some records not >> being retrieved. If the user puts in and end date of 7/31/2017 a >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may >> not be fully understanding the use of Between. >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Mon Aug 14 13:00:05 2017 From: gustav at cactus.dk (Gustav Brock) Date: Mon, 14 Aug 2017 18:00:05 +0000 Subject: [AccessD] Using Between in a query In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov>, <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you could also use: WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] And dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of Month]) /gustav ________________________________________ Fra: AccessD p? vegne af Kaup, Chester Sendt: 14. august 2017 19:49:20 Til: Access Developers discussion and problem solving Emne: Re: [AccessD] Using Between in a query Sounds like a good idea but I cannot get the Int function to work. Here is the original SQL statement. Thanks. INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, Status, StatusDate, RecordDate, StatusDate ) SELECT dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, DateSerial(Year(Date()),Month(Date())-1,1) AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of Month] And [Enter Last Day of Month])) GROUP BY dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000","42415351160000"))); -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of McGillivray, Don Sent: Monday, August 14, 2017 12:04 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query [This email message was received from the Internet and came from outside of Kinder Morgan] It's probably better to change the comparison so that the value from the table doesn't include the time, rather than adding a day to the end of the range. Something like : Int(TheDateFromTheTable) between StartDate and EndDate The Int() function removes the time portion from the date, allowing you to use the actual range for the comparison. If you add a day to the end of the range, any records dated at midnight of that additional day will be included in the results - not exactly what you want. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ryan W Sent: Monday, August 14, 2017 9:35 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query I should mention your interactive query could be "smart" and do [Enter your end date]+1 to add a full day to the logic. On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > (midnight) so it does not account for the full day ahead. They would > need to enter > 7/31/17 23:59 or 8/1/17 > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > Chester_Kaup at kindermorgan.com> wrote: > >> I have an interactive query where the user is asked to put in a start >> date and an end date. The query then uses the criteria of Between >> start date and end date. I am having a problem of some records not >> being retrieved. If the user puts in and end date of 7/31/2017 a >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may >> not be fully understanding the use of Between. From wrwehler at gmail.com Mon Aug 14 13:15:21 2017 From: wrwehler at gmail.com (Ryan W) Date: Mon, 14 Aug 2017 13:15:21 -0500 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: This seems to work for me: StatusDate Between [Enter First Day of Month] AND DateAdd('s',-1,[Enter Last day of Month])+1 I couldn't get INT(StatusDate) to work either with user entered strings. On Mon, Aug 14, 2017 at 1:00 PM, Gustav Brock wrote: > To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you > could also use: > > WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] And > dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of Month]) > > /gustav > ________________________________________ > Fra: AccessD p? vegne af Kaup, > Chester > Sendt: 14. august 2017 19:49:20 > Til: Access Developers discussion and problem solving > Emne: Re: [AccessD] Using Between in a query > > Sounds like a good idea but I cannot get the Int function to work. Here is > the original SQL statement. Thanks. > > INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, Status, > StatusDate, RecordDate, StatusDate ) > SELECT dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, > DateSerial(Year(Date()),Month(Date())-1,1) AS Expr1, > dbo_DSS_StatusChanges.StatusDate > FROM dbo_DSS_StatusChanges > > WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of > Month] And [Enter Last Day of Month])) > > GROUP BY dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate > HAVING (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000"," > 42415351160000"))); > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > McGillivray, Don > Sent: Monday, August 14, 2017 12:04 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Using Between in a query > > [This email message was received from the Internet and came from outside > of Kinder Morgan] > > > It's probably better to change the comparison so that the value from the > table doesn't include the time, rather than adding a day to the end of the > range. > > Something like : > > Int(TheDateFromTheTable) between StartDate and EndDate > > The Int() function removes the time portion from the date, allowing you to > use the actual range for the comparison. > > If you add a day to the end of the range, any records dated at midnight of > that additional day will be included in the results - not exactly what you > want. > > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Ryan W > Sent: Monday, August 14, 2017 9:35 AM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: Re: [AccessD] Using Between in a query > > I should mention your interactive query could be "smart" and do [Enter > your end date]+1 to add a full day to the logic. > > On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > > > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > > (midnight) so it does not account for the full day ahead. They would > > need to enter > > 7/31/17 23:59 or 8/1/17 > > > > > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > > Chester_Kaup at kindermorgan.com> wrote: > > > >> I have an interactive query where the user is asked to put in a start > >> date and an end date. The query then uses the criteria of Between > >> start date and end date. I am having a problem of some records not > >> being retrieved. If the user puts in and end date of 7/31/2017 a > >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end > >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may > >> not be fully understanding the use of Between. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From DMcGillivray at ctc.ca.gov Mon Aug 14 13:37:11 2017 From: DMcGillivray at ctc.ca.gov (McGillivray, Don) Date: Mon, 14 Aug 2017 18:37:11 +0000 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov>, <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: Is this a pass-through query? If so, you will have to use a date trimming function that the source database understands. The Int() function is Access-specific. Your table names suggest maybe a SQL server back end. I found this at Stack Overflow as one way to remove the time portion of a date/time in SQL server: DATEADD(dd, DATEDIFF(dd, 0, ), 0) Gustav's suggestion may work too as a pass-through, but beware that DateAdd in SQL server is a different flavor and will require some tweaking. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Monday, August 14, 2017 11:00 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you could also use: WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] And dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of Month]) /gustav ________________________________________ Fra: AccessD p? vegne af Kaup, Chester Sendt: 14. august 2017 19:49:20 Til: Access Developers discussion and problem solving Emne: Re: [AccessD] Using Between in a query Sounds like a good idea but I cannot get the Int function to work. Here is the original SQL statement. Thanks. INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, Status, StatusDate, RecordDate, StatusDate ) SELECT dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, DateSerial(Year(Date()),Month(Date())-1,1) AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of Month] And [Enter Last Day of Month])) GROUP BY dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000","42415351160000"))); -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of McGillivray, Don Sent: Monday, August 14, 2017 12:04 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query [This email message was received from the Internet and came from outside of Kinder Morgan] It's probably better to change the comparison so that the value from the table doesn't include the time, rather than adding a day to the end of the range. Something like : Int(TheDateFromTheTable) between StartDate and EndDate The Int() function removes the time portion from the date, allowing you to use the actual range for the comparison. If you add a day to the end of the range, any records dated at midnight of that additional day will be included in the results - not exactly what you want. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ryan W Sent: Monday, August 14, 2017 9:35 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query I should mention your interactive query could be "smart" and do [Enter your end date]+1 to add a full day to the logic. On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > (midnight) so it does not account for the full day ahead. They would > need to enter > 7/31/17 23:59 or 8/1/17 > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > Chester_Kaup at kindermorgan.com> wrote: > >> I have an interactive query where the user is asked to put in a start >> date and an end date. The query then uses the criteria of Between >> start date and end date. I am having a problem of some records not >> being retrieved. If the user puts in and end date of 7/31/2017 a >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may >> not be fully understanding the use of Between. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From wrwehler at gmail.com Mon Aug 14 13:44:14 2017 From: wrwehler at gmail.com (Ryan W) Date: Mon, 14 Aug 2017 13:44:14 -0500 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: Don, Testing that on my SQL Back end: SELECT DATEADD(dd,DATEDIFF(dd,0,'7/31/17 18:30'),0) Gives me this result: 2017-07-31 00:00:00.000 Which, unfortunately doesn't help.. since that's the same issue Chester is having with dates to start with it seems. On Mon, Aug 14, 2017 at 1:37 PM, McGillivray, Don wrote: > Is this a pass-through query? If so, you will have to use a date trimming > function that the source database understands. The Int() function is > Access-specific. > > Your table names suggest maybe a SQL server back end. I found this at > Stack Overflow as one way to remove the time portion of a date/time in SQL > server: > > DATEADD(dd, DATEDIFF(dd, 0, ), 0) > > Gustav's suggestion may work too as a pass-through, but beware that > DateAdd in SQL server is a different flavor and will require some tweaking. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Gustav Brock > Sent: Monday, August 14, 2017 11:00 AM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: Re: [AccessD] Using Between in a query > > To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you > could also use: > > WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] And > dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of Month]) > > /gustav > ________________________________________ > Fra: AccessD p? vegne af Kaup, > Chester > Sendt: 14. august 2017 19:49:20 > Til: Access Developers discussion and problem solving > Emne: Re: [AccessD] Using Between in a query > > Sounds like a good idea but I cannot get the Int function to work. Here is > the original SQL statement. Thanks. > > INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, Status, > StatusDate, RecordDate, StatusDate ) SELECT dbo_DSS_StatusChanges.PID, > dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, > dbo_DSS_StatusChanges.StatusDate, DateSerial(Year(Date()),Month(Date())-1,1) > AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges > > WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of > Month] And [Enter Last Day of Month])) > > GROUP BY dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING > (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000"," > 42415351160000"))); > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > McGillivray, Don > Sent: Monday, August 14, 2017 12:04 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Using Between in a query > > [This email message was received from the Internet and came from outside > of Kinder Morgan] > > > It's probably better to change the comparison so that the value from the > table doesn't include the time, rather than adding a day to the end of the > range. > > Something like : > > Int(TheDateFromTheTable) between StartDate and EndDate > > The Int() function removes the time portion from the date, allowing you to > use the actual range for the comparison. > > If you add a day to the end of the range, any records dated at midnight of > that additional day will be included in the results - not exactly what you > want. > > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Ryan W > Sent: Monday, August 14, 2017 9:35 AM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: Re: [AccessD] Using Between in a query > > I should mention your interactive query could be "smart" and do [Enter > your end date]+1 to add a full day to the logic. > > On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > > > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > > (midnight) so it does not account for the full day ahead. They would > > need to enter > > 7/31/17 23:59 or 8/1/17 > > > > > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > > Chester_Kaup at kindermorgan.com> wrote: > > > >> I have an interactive query where the user is asked to put in a start > >> date and an end date. The query then uses the criteria of Between > >> start date and end date. I am having a problem of some records not > >> being retrieved. If the user puts in and end date of 7/31/2017 a > >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end > >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may > >> not be fully understanding the use of Between. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Mon Aug 14 13:46:01 2017 From: Chester_Kaup at kindermorgan.com (Kaup, Chester) Date: Mon, 14 Aug 2017 18:46:01 +0000 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov>, <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB43143D70@HOUEX11.kindermorgan.com> Thank you for the ideas. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of McGillivray, Don Sent: Monday, August 14, 2017 1:37 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query [This email message was received from the Internet and came from outside of Kinder Morgan] Is this a pass-through query? If so, you will have to use a date trimming function that the source database understands. The Int() function is Access-specific. Your table names suggest maybe a SQL server back end. I found this at Stack Overflow as one way to remove the time portion of a date/time in SQL server: DATEADD(dd, DATEDIFF(dd, 0, ), 0) Gustav's suggestion may work too as a pass-through, but beware that DateAdd in SQL server is a different flavor and will require some tweaking. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Monday, August 14, 2017 11:00 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you could also use: WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] And dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of Month]) /gustav ________________________________________ Fra: AccessD p? vegne af Kaup, Chester Sendt: 14. august 2017 19:49:20 Til: Access Developers discussion and problem solving Emne: Re: [AccessD] Using Between in a query Sounds like a good idea but I cannot get the Int function to work. Here is the original SQL statement. Thanks. INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, Status, StatusDate, RecordDate, StatusDate ) SELECT dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, DateSerial(Year(Date()),Month(Date())-1,1) AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of Month] And [Enter Last Day of Month])) GROUP BY dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000","42415351160000"))); -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of McGillivray, Don Sent: Monday, August 14, 2017 12:04 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query [This email message was received from the Internet and came from outside of Kinder Morgan] It's probably better to change the comparison so that the value from the table doesn't include the time, rather than adding a day to the end of the range. Something like : Int(TheDateFromTheTable) between StartDate and EndDate The Int() function removes the time portion from the date, allowing you to use the actual range for the comparison. If you add a day to the end of the range, any records dated at midnight of that additional day will be included in the results - not exactly what you want. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ryan W Sent: Monday, August 14, 2017 9:35 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query I should mention your interactive query could be "smart" and do [Enter your end date]+1 to add a full day to the logic. On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > (midnight) so it does not account for the full day ahead. They would > need to enter > 7/31/17 23:59 or 8/1/17 > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > Chester_Kaup at kindermorgan.com> wrote: > >> I have an interactive query where the user is asked to put in a start >> date and an end date. The query then uses the criteria of Between >> start date and end date. I am having a problem of some records not >> being retrieved. If the user puts in and end date of 7/31/2017 a >> record with a date of 7/31/2017 1:30PM is not retrieved. Does an end >> date of 7/31/2017 mean ending at 12:00 PM on 7/30/2017? I guess I may >> not be fully understanding the use of Between. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From DMcGillivray at ctc.ca.gov Mon Aug 14 14:30:43 2017 From: DMcGillivray at ctc.ca.gov (McGillivray, Don) Date: Mon, 14 Aug 2017 19:30:43 +0000 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: Well, my proposal was to apply that conversion to the date in the table. So if the user specifies 8/1/2017 through 8/31/2017, and that range is compared to the date from the database with the time portion stripped off, any record whose date is on 8/31 - regardless of the time - will be included. I think that's what Chester was aimed at. Or maybe I'm missing something . . . -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ryan W Sent: Monday, August 14, 2017 11:44 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Using Between in a query Don, Testing that on my SQL Back end: SELECT DATEADD(dd,DATEDIFF(dd,0,'7/31/17 18:30'),0) Gives me this result: 2017-07-31 00:00:00.000 Which, unfortunately doesn't help.. since that's the same issue Chester is having with dates to start with it seems. On Mon, Aug 14, 2017 at 1:37 PM, McGillivray, Don wrote: > Is this a pass-through query? If so, you will have to use a date > trimming function that the source database understands. The Int() > function is Access-specific. > > Your table names suggest maybe a SQL server back end. I found this at > Stack Overflow as one way to remove the time portion of a date/time in > SQL > server: > > DATEADD(dd, DATEDIFF(dd, 0, ), 0) > > Gustav's suggestion may work too as a pass-through, but beware that > DateAdd in SQL server is a different flavor and will require some tweaking. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Gustav Brock > Sent: Monday, August 14, 2017 11:00 AM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: Re: [AccessD] Using Between in a query > > To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you > could also use: > > WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] > And dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of > Month]) > > /gustav > ________________________________________ > Fra: AccessD p? vegne af Kaup, > Chester > Sendt: 14. august 2017 19:49:20 > Til: Access Developers discussion and problem solving > Emne: Re: [AccessD] Using Between in a query > > Sounds like a good idea but I cannot get the Int function to work. > Here is the original SQL statement. Thanks. > > INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, > Status, StatusDate, RecordDate, StatusDate ) SELECT > dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, > DateSerial(Year(Date()),Month(Date())-1,1) > AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges > > WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of > Month] And [Enter Last Day of Month])) > > GROUP BY dbo_DSS_StatusChanges.PID, > dbo_DSS_StatusChanges.Completion_Name, > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING > (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000"," > 42415351160000"))); > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of McGillivray, Don > Sent: Monday, August 14, 2017 12:04 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Using Between in a query > > [This email message was received from the Internet and came from > outside of Kinder Morgan] > > > It's probably better to change the comparison so that the value from > the table doesn't include the time, rather than adding a day to the > end of the range. > > Something like : > > Int(TheDateFromTheTable) between StartDate and EndDate > > The Int() function removes the time portion from the date, allowing > you to use the actual range for the comparison. > > If you add a day to the end of the range, any records dated at > midnight of that additional day will be included in the results - not > exactly what you want. > > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Ryan W > Sent: Monday, August 14, 2017 9:35 AM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: Re: [AccessD] Using Between in a query > > I should mention your interactive query could be "smart" and do [Enter > your end date]+1 to add a full day to the logic. > > On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > > > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > > (midnight) so it does not account for the full day ahead. They > > would need to enter > > 7/31/17 23:59 or 8/1/17 > > > > > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > > Chester_Kaup at kindermorgan.com> wrote: > > > >> I have an interactive query where the user is asked to put in a > >> start date and an end date. The query then uses the criteria of > >> Between start date and end date. I am having a problem of some > >> records not being retrieved. If the user puts in and end date of > >> 7/31/2017 a record with a date of 7/31/2017 1:30PM is not > >> retrieved. Does an end date of 7/31/2017 mean ending at 12:00 PM on > >> 7/30/2017? I guess I may not be fully understanding the use of Between. > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > 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 Mon Aug 14 14:38:30 2017 From: wrwehler at gmail.com (Ryan W) Date: Mon, 14 Aug 2017 14:38:30 -0500 Subject: [AccessD] Using Between in a query In-Reply-To: References: <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C0F@HOUEX11.kindermorgan.com> <1ccbba1bcc634f8dbf4f20fb0bad751c@ctc.ca.gov> <8E16E03987F1FD4FB0A9BEBF7CC160CB43142C9C@HOUEX11.kindermorgan.com> Message-ID: You're right. I was thinking about the comparison (BETWEEN) and not what was being compared against. On Mon, Aug 14, 2017 at 2:30 PM, McGillivray, Don wrote: > Well, my proposal was to apply that conversion to the date in the table. > So if the user specifies 8/1/2017 through 8/31/2017, and that range is > compared to the date from the database with the time portion stripped off, > any record whose date is on 8/31 - regardless of the time - will be > included. I think that's what Chester was aimed at. Or maybe I'm missing > something . . . > > > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Ryan W > Sent: Monday, August 14, 2017 11:44 AM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: Re: [AccessD] Using Between in a query > > Don, > Testing that on my SQL Back end: > > SELECT DATEADD(dd,DATEDIFF(dd,0,'7/31/17 18:30'),0) > > > Gives me this result: > > 2017-07-31 00:00:00.000 > > > Which, unfortunately doesn't help.. since that's the same issue Chester is > having with dates to start with it seems. > > On Mon, Aug 14, 2017 at 1:37 PM, McGillivray, Don > > wrote: > > > Is this a pass-through query? If so, you will have to use a date > > trimming function that the source database understands. The Int() > > function is Access-specific. > > > > Your table names suggest maybe a SQL server back end. I found this at > > Stack Overflow as one way to remove the time portion of a date/time in > > SQL > > server: > > > > DATEADD(dd, DATEDIFF(dd, 0, ), 0) > > > > Gustav's suggestion may work too as a pass-through, but beware that > > DateAdd in SQL server is a different flavor and will require some > tweaking. > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of Gustav Brock > > Sent: Monday, August 14, 2017 11:00 AM > > To: Access Developers discussion and problem solving < > > accessd at databaseadvisors.com> > > Subject: Re: [AccessD] Using Between in a query > > > > To preserve a use of on index on dbo_DSS_StatusChanges.StatusDate you > > could also use: > > > > WHERE dbo_DSS_StatusChanges.StatusDate >= [Enter First Day of Month] > > And dbo_DSS_StatusChanges.StatusDate < DateAdd("d",[Enter Last Day of > > Month]) > > > > /gustav > > ________________________________________ > > Fra: AccessD p? vegne af Kaup, > > Chester > > Sendt: 14. august 2017 19:49:20 > > Til: Access Developers discussion and problem solving > > Emne: Re: [AccessD] Using Between in a query > > > > Sounds like a good idea but I cannot get the Int function to work. > > Here is the original SQL statement. Thanks. > > > > INSERT INTO [tbl Statuses During Prior Month] ( PID, Well_Number, > > Status, StatusDate, RecordDate, StatusDate ) SELECT > > dbo_DSS_StatusChanges.PID, dbo_DSS_StatusChanges.Completion_Name, > > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate, > > DateSerial(Year(Date()),Month(Date())-1,1) > > AS Expr1, dbo_DSS_StatusChanges.StatusDate FROM dbo_DSS_StatusChanges > > > > WHERE ((dbo_DSS_StatusChanges.StatusDate) Between [Enter First Day of > > Month] And [Enter Last Day of Month])) > > > > GROUP BY dbo_DSS_StatusChanges.PID, > > dbo_DSS_StatusChanges.Completion_Name, > > dbo_DSS_StatusChanges.Status, dbo_DSS_StatusChanges.StatusDate HAVING > > (((dbo_DSS_StatusChanges.PID) Not In ("42415348690000"," > > 42415351160000"))); > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of McGillivray, Don > > Sent: Monday, August 14, 2017 12:04 PM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Using Between in a query > > > > [This email message was received from the Internet and came from > > outside of Kinder Morgan] > > > > > > It's probably better to change the comparison so that the value from > > the table doesn't include the time, rather than adding a day to the > > end of the range. > > > > Something like : > > > > Int(TheDateFromTheTable) between StartDate and EndDate > > > > The Int() function removes the time portion from the date, allowing > > you to use the actual range for the comparison. > > > > If you add a day to the end of the range, any records dated at > > midnight of that additional day will be included in the results - not > > exactly what you want. > > > > > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > > Of Ryan W > > Sent: Monday, August 14, 2017 9:35 AM > > To: Access Developers discussion and problem solving < > > accessd at databaseadvisors.com> > > Subject: Re: [AccessD] Using Between in a query > > > > I should mention your interactive query could be "smart" and do [Enter > > your end date]+1 to add a full day to the logic. > > > > On Mon, Aug 14, 2017 at 11:33 AM, Ryan W wrote: > > > > > When you do not enter a time, 00:00 is assume. So "BETWEEN" 7/30/17 > > > AND 7/31/17" means from 7/30/17 00:00 (midnight) until 7/31/17 00:00 > > > (midnight) so it does not account for the full day ahead. They > > > would need to enter > > > 7/31/17 23:59 or 8/1/17 > > > > > > > > > > > > On Mon, Aug 14, 2017 at 11:27 AM, Kaup, Chester < > > > Chester_Kaup at kindermorgan.com> wrote: > > > > > >> I have an interactive query where the user is asked to put in a > > >> start date and an end date. The query then uses the criteria of > > >> Between start date and end date. I am having a problem of some > > >> records not being retrieved. If the user puts in and end date of > > >> 7/31/2017 a record with a date of 7/31/2017 1:30PM is not > > >> retrieved. Does an end date of 7/31/2017 mean ending at 12:00 PM on > > >> 7/30/2017? I guess I may not be fully understanding the use of > Between. > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From accessd at shaw.ca Tue Aug 29 19:59:09 2017 From: accessd at shaw.ca (Jim Lawrence) Date: Tue, 29 Aug 2017 18:59:09 -0600 (MDT) Subject: [AccessD] OT: Friday easy reading In-Reply-To: References: Message-ID: <360486816.410082966.1504054749679.JavaMail.zimbra@shaw.ca> Wow, I am a little late to this post. The book looks excellent and I will pass it along to family and friends. My daughter in law, her daughter and my oldest daughter have co-illustrated a couple of children's books that they are now selling on iTunes. It should be interesting to note that she is also Danish. I wonder, are the Danish, naturally gifted at writing children's fairy tales? ;-) Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2017 6:11:55 AM Subject: [AccessD] OT: Friday easy reading Hi all Currently, I program an Excel workbook, and - as those of you who have tried that know - it will drive you crazy. So, the thoughts are flying, and I decided to do something else for a moment and bring a promotion: I know some of you have or know grandchildren of low age. My niece, a gifted artist working mostly with 2D animations, has published a book at Amazon: Charlie and the White Dragon http://a.co/hiJKec6 I don't buy books of this kind, so I can't judge it compared to similar books, but I love her drawings which have a special "atmosphere" in lack of better words. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From gustav at cactus.dk Wed Aug 30 02:20:08 2017 From: gustav at cactus.dk (Gustav Brock) Date: Wed, 30 Aug 2017 07:20:08 +0000 Subject: [AccessD] Friday easy reading Message-ID: Hi Jim What are the titles, please? I could pass them along to Clara. I'm not sure Danes are specially gifted in this genre, but we do have a long and standing tradition initiated by Hans Christian Andersen. /gustav -----Oprindelig meddelelse----- Fra: AccessD [mailto:accessd-bounces at databaseadvisors.com] P? vegne af Jim Lawrence Sendt: 30. august 2017 02:59 Til: Access Developers discussion and problem solving Emne: Re: [AccessD] OT: Friday easy reading Wow, I am a little late to this post. The book looks excellent and I will pass it along to family and friends. My daughter in law, her daughter and my oldest daughter have co-illustrated a couple of children's books that they are now selling on iTunes. It should be interesting to note that she is also Danish. I wonder, are the Danish, naturally gifted at writing children's fairy tales? ;-) Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Friday, August 11, 2017 6:11:55 AM Subject: [AccessD] OT: Friday easy reading Hi all Currently, I program an Excel workbook, and - as those of you who have tried that know - it will drive you crazy. So, the thoughts are flying, and I decided to do something else for a moment and bring a promotion: I know some of you have or know grandchildren of low age. My niece, a gifted artist working mostly with 2D animations, has published a book at Amazon: Charlie and the White Dragon http://a.co/hiJKec6 I don't buy books of this kind, so I can't judge it compared to similar books, but I love her drawings which have a special "atmosphere" in lack of better words. /gustav From rockysmolin at bchacc.com Wed Aug 30 13:32:51 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 30 Aug 2017 11:32:51 -0700 Subject: [AccessD] Scroll Bars in 2016 Message-ID: <02b501d321be$63a88e10$2af9aa30$@bchacc.com> I just had a client report a problem in Access 2016 where the vertical slider bar on a form no longer works on forms. The scroll wheel still works, but the slider bar does not slide. It was working on forms until a week or two ago and he thinks it may be due to an update to 2016. The vertical slider works in the VBA Editor. Works as well in Excel. Jas anyone seen or heard of a report like this? MTIA Rocky Smolin Beach Access Software 760-683-5777 www.bchacc.com www.e-z-mrp.com Skype: rocky.smolin From thesmileycoder at gmail.com Wed Aug 30 14:25:32 2017 From: thesmileycoder at gmail.com (The Smiley Coder) Date: Wed, 30 Aug 2017 21:25:32 +0200 Subject: [AccessD] Scroll Bars in 2016 In-Reply-To: <02b501d321be$63a88e10$2af9aa30$@bchacc.com> References: <02b501d321be$63a88e10$2af9aa30$@bchacc.com> Message-ID: Yes, its a recent bug, should be fixed again soon (version 1709 is what I heard) You can read about it here: https://support.office.com/en-us/article/Fixes-or-workarounds-for-recent-issues-in-Access-54962069-14f4-4474-823a-ff7e5974a570?ui=en-US&rs=en-US&ad=US Best regards Anders Ebro // TheSmileyCoder Access MVP 2014-2018 On Wed, Aug 30, 2017 at 8:32 PM, Rocky Smolin wrote: > I just had a client report a problem in Access 2016 where the vertical > slider bar on a form no longer works on forms. The scroll wheel still > works, but the slider bar does not slide. > > > > It was working on forms until a week or two ago and he thinks it may be due > to an update to 2016. > > > > The vertical slider works in the VBA Editor. Works as well in Excel. > > > > Jas anyone seen or heard of a report like this? > > > > 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 rockysmolin at bchacc.com Wed Aug 30 14:49:37 2017 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Wed, 30 Aug 2017 12:49:37 -0700 Subject: [AccessD] Scroll Bars in 2016 In-Reply-To: References: <02b501d321be$63a88e10$2af9aa30$@bchacc.com> Message-ID: <001701d321c9$1ca0ce00$55e26a00$@bchacc.com> Anders: Thanks for the link. This describes a problem with the mouse wheel and scrollbar thumb. In my client's case those word but the vertical slider bar does not. But they may be related. I will forward to them. Best, Rocky -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of The Smiley Coder Sent: Wednesday, August 30, 2017 12:26 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Scroll Bars in 2016 Yes, its a recent bug, should be fixed again soon (version 1709 is what I heard) You can read about it here: https://support.office.com/en-us/article/Fixes-or-workarounds-for-recent-iss ues-in-Access-54962069-14f4-4474-823a-ff7e5974a570?ui=en-US&rs=en-US&ad=US Best regards Anders Ebro // TheSmileyCoder Access MVP 2014-2018 On Wed, Aug 30, 2017 at 8:32 PM, Rocky Smolin wrote: > I just had a client report a problem in Access 2016 where the vertical > slider bar on a form no longer works on forms. The scroll wheel still > works, but the slider bar does not slide. > > > > It was working on forms until a week or two ago and he thinks it may > be due to an update to 2016. > > > > The vertical slider works in the VBA Editor. Works as well in Excel. > > > > Jas anyone seen or heard of a report like this? > > > > 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 bensonforums at gmail.com Thu Aug 31 18:10:05 2017 From: bensonforums at gmail.com (Bill Benson) Date: Thu, 31 Aug 2017 19:10:05 -0400 Subject: [AccessD] OT: Friday easy reading In-Reply-To: References: Message-ID: Well, Amazon/Kindle "tries" to give a preview of several pages but since there is nothing in those pages but title of book (no part of the story, no pictures) - I would be having to judge this book specifically on its cover (And I have been taught not to do that and it is ingrained now!). But it is a nice cover! On Fri, Aug 11, 2017 at 11:23 PM, Darryl Collins < darryl at whittleconsulting.com.au> wrote: > Thanks for the book link Gustav, > > On a side note, I am mostly an Excel programmer so if you need any help > with that, feel free to email me via here or offlist. > > I would recommend the Excel-L list (which is similar to this setup) if you > want 24/7 MVP level help. > > Cheers > Darryl. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Gustav Brock > Sent: Friday, 11 August 2017 11:12 PM > To: Access Developers discussion and problem solving < > accessd at databaseadvisors.com> > Subject: [AccessD] OT: Friday easy reading > > Hi all > > Currently, I program an Excel workbook, and - as those of you who have > tried that know - it will drive you crazy. > So, the thoughts are flying, and I decided to do something else for a > moment and bring a promotion: > > I know some of you have or know grandchildren of low age. > My niece, a gifted artist working mostly with 2D animations, has published > a book at Amazon: > > Charlie and the White Dragon > http://a.co/hiJKec6 > > I don't buy books of this kind, so I can't judge it compared to similar > books, but I love her drawings which have a special "atmosphere" in lack of > better words. > > /gustav > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com >