From gustav at cactus.dk  Wed Feb  3 10:01:37 2016
From: gustav at cactus.dk (Gustav Brock)
Date: Wed, 3 Feb 2016 16:01:37 +0000
Subject: [AccessD] Handling concurrent updates
Message-ID: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>

Hi all

If you ever have struggled with this in VBA, you know it's a daunting task with a lot of error handling.

For a client, I had to find a smarter method. A bit surprisingly, Bing/Google didn't reveal anything useful, so I ended up with two tiny functions to handle edit and update.
With these it takes (net) only one line of additional code. It is all described here:

   http://rdsrc.us/BvX5Gw

including a demo app and the small code module with the two functions.
If you have access to a Northwind database running in an SQL Server instance, you can run the test right away. You can also relink to an Access database, but that is less fun as the updates are so fast that collisions are much fewer.

/gustav

From charlotte.foust at gmail.com  Wed Feb  3 12:37:49 2016
From: charlotte.foust at gmail.com (Charlotte Foust)
Date: Wed, 3 Feb 2016 10:37:49 -0800
Subject: [AccessD] Handling concurrent updates
In-Reply-To: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
Message-ID: <CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>

Nice article, Gustav.  Thanks for the link.

Charlotte Foust
(916) 206-4336

On Wed, Feb 3, 2016 at 8:01 AM, Gustav Brock <gustav at cactus.dk> wrote:

> Hi all
>
> If you ever have struggled with this in VBA, you know it's a daunting task
> with a lot of error handling.
>
> For a client, I had to find a smarter method. A bit surprisingly,
> Bing/Google didn't reveal anything useful, so I ended up with two tiny
> functions to handle edit and update.
> With these it takes (net) only one line of additional code. It is all
> described here:
>
>    http://rdsrc.us/BvX5Gw
>
> including a demo app and the small code module with the two functions.
> If you have access to a Northwind database running in an SQL Server
> instance, you can run the test right away. You can also relink to an Access
> database, but that is less fun as the updates are so fast that collisions
> are much fewer.
>
> /gustav
> --
> 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 Feb  3 19:27:01 2016
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 04 Feb 2016 11:27:01 +1000
Subject: [AccessD] Handling concurrent updates
In-Reply-To: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
Message-ID: <56B2A8E5.27748.1E380C6D@stuart.lexacorp.com.pg>

Now that's a neat solution!   <thumb/>  :)
   

On 3 Feb 2016 at 16:01, Gustav Brock wrote:

> Hi all
> 
> If you ever have struggled with this in VBA, you know it's a daunting
> task with a lot of error handling.
> 
> For a client, I had to find a smarter method. A bit surprisingly,
> Bing/Google didn't reveal anything useful, so I ended up with two tiny
> functions to handle edit and update. With these it takes (net) only
> one line of additional code. It is all described here:
> 
>    http://rdsrc.us/BvX5Gw
> 
> including a demo app and the small code module with the two functions.
> If you have access to a Northwind database running in an SQL Server
> instance, you can run the test right away. You can also relink to an
> Access database, but that is less fun as the updates are so fast that
> collisions are much fewer.
> 
> /gustav
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From gustav at cactus.dk  Thu Feb  4 02:49:58 2016
From: gustav at cactus.dk (Gustav Brock)
Date: Thu, 4 Feb 2016 08:49:58 +0000
Subject: [AccessD] Handling concurrent updates
Message-ID: <VI1PR06MB15848BACC8975002FB82B2E0CAD10@VI1PR06MB1584.eurprd06.prod.outlook.com>

Thanks Stuart - and Charlotte.

/gustav

-----Oprindelig meddelelse-----
Fra: AccessD [mailto:accessd-bounces at databaseadvisors.com] P? vegne af Stuart McLachlan
Sendt: 4. februar 2016 02:27
Til: Access Developers discussion and problem solving <accessd at databaseadvisors.com>
Emne: Re: [AccessD] Handling concurrent updates

Now that's a neat solution!   <thumb/>  :)
   

On 3 Feb 2016 at 16:01, Gustav Brock wrote:

> Hi all
> 
> If you ever have struggled with this in VBA, you know it's a daunting 
> task with a lot of error handling.
> 
> For a client, I had to find a smarter method. A bit surprisingly, 
> Bing/Google didn't reveal anything useful, so I ended up with two tiny 
> functions to handle edit and update. With these it takes (net) only 
> one line of additional code. It is all described here:
> 
>    http://rdsrc.us/BvX5Gw
> 
> including a demo app and the small code module with the two functions.
> If you have access to a Northwind database running in an SQL Server 
> instance, you can run the test right away. You can also relink to an 
> Access database, but that is less fun as the updates are so fast that 
> collisions are much fewer.
> 
> /gustav 


From marksimms at verizon.net  Thu Feb  4 08:25:54 2016
From: marksimms at verizon.net (Mark Simms)
Date: Thu, 04 Feb 2016 09:25:54 -0500
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
Message-ID: <01c901d15f57$f54a3650$dfdea2f0$@net>

http://insights.dice.com/2016/02/01/whats-hot-and-not-in-tech-skills/?CMPID=
EM_RE_UP_JS_AD_DA_CP_&utm_source=Responsys&utm_medium=Email&utm_content=&utm
_campaign=Advisory_DiceAdvisor

Nice visualization of the various IT skills....

Note where Visual Basic sits....versus Java and Javascript.




From df.waters at outlook.com  Thu Feb  4 09:00:19 2016
From: df.waters at outlook.com (Dan Waters)
Date: Thu, 4 Feb 2016 09:00:19 -0600
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <01c901d15f57$f54a3650$dfdea2f0$@net>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
Message-ID: <BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>

I wish they would say VB6 or VB.Net.

I see they list Time Management - I can do that!  ;-)

Dan

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Mark Simms
Sent: Thursday, February 04, 2016 8:26 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Technology skills - supply and demand

http://insights.dice.com/2016/02/01/whats-hot-and-not-in-tech-skills/?CMPID=
EM_RE_UP_JS_AD_DA_CP_&utm_source=Responsys&utm_medium=Email&utm_content=&utm
_campaign=Advisory_DiceAdvisor

Nice visualization of the various IT skills....

Note where Visual Basic sits....versus Java and Javascript.



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


From charlotte.foust at gmail.com  Thu Feb  4 16:04:52 2016
From: charlotte.foust at gmail.com (Charlotte Foust)
Date: Thu, 4 Feb 2016 14:04:52 -0800
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <01c901d15f57$f54a3650$dfdea2f0$@net>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
Message-ID: <CAH+Met9H3TXVFdh_xy9z5qOSegXyacWkjWGKD_t2GnWA3CfwmQ@mail.gmail.com>

That graph is nuts!  They distinguish between .Net and C# and distinguish
both from Visual Studio.  Computer science is high (as well as being vague
and overpopulated) while web design is tepid.  The categories don't make
much sense to me, and none of them appeared to be "Hot".

Charlotte Foust
(916) 206-4336

On Thu, Feb 4, 2016 at 6:25 AM, Mark Simms <marksimms at verizon.net> wrote:

>
> http://insights.dice.com/2016/02/01/whats-hot-and-not-in-tech-skills/?CMPID=
>
> EM_RE_UP_JS_AD_DA_CP_&utm_source=Responsys&utm_medium=Email&utm_content=&utm
> _campaign=Advisory_DiceAdvisor
>
> Nice visualization of the various IT skills....
>
> Note where Visual Basic sits....versus Java and Javascript.
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From charlotte.foust at gmail.com  Thu Feb  4 16:06:26 2016
From: charlotte.foust at gmail.com (Charlotte Foust)
Date: Thu, 4 Feb 2016 14:06:26 -0800
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
Message-ID: <CAH+Met9Tr8OxrGQWcvOAO4k4ySYVDSQVFO7h4Bxri8DJT4wtcQ@mail.gmail.com>

I'm assuming that VB6 is Visual Basic and VB.Net is .Net, since the whole
.Net topic makes no sense when distinguished from Visual Studio.

Charlotte Foust
(916) 206-4336

On Thu, Feb 4, 2016 at 7:00 AM, Dan Waters <df.waters at outlook.com> wrote:

> I wish they would say VB6 or VB.Net.
>
> I see they list Time Management - I can do that!  ;-)
>
> Dan
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From gustav at cactus.dk  Thu Feb  4 16:21:23 2016
From: gustav at cactus.dk (Gustav Brock)
Date: Thu, 4 Feb 2016 22:21:23 +0000
Subject: [AccessD] Technology skills - supply and demand
Message-ID: <VI1PR06MB15844A1A243A7951B277DFADCAD10@VI1PR06MB1584.eurprd06.prod.outlook.com>

Hi Charlotte

True.
Dan, that graph is a mess. I can?t see you can read anything from it. Is car more hot than a wheel or a sparkplug or painting stripes on the road?

/gustav

Fra: Charlotte Foust<mailto:charlotte.foust at gmail.com>
Sendt: 4. februar 2016 23:07
Til: Access Developers discussion and problem solving<mailto:accessd at databaseadvisors.com>
Emne: Re: [AccessD] Technology skills - supply and demand

I'm assuming that VB6 is Visual Basic and VB.Net is .Net, since the whole
.Net topic makes no sense when distinguished from Visual Studio.

Charlotte Foust
(916) 206-4336

On Thu, Feb 4, 2016 at 7:00 AM, Dan Waters <df.waters at outlook.com> wrote:

> I wish they would say VB6 or VB.Net.
>
> I see they list Time Management - I can do that!  ;-)
>
> Dan


From jimdettman at verizon.net  Thu Feb  4 16:33:14 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Thu, 04 Feb 2016 17:33:14 -0500
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
Message-ID: <3921FBC072904666B9DD81E15AA76B63@XPS>

<<Note where Visual Basic sits....versus Java and Javascript.>>

 It's becoming a web world.  I'm hoping to limp along on the desktop for
another ten years or so....think that's a pretty safe bet.

 But sooner or later, the worlds going to move off the desktop for the
majority of things.

<<I wish they would say VB6 or VB.Net.>>

 I think you can assume classic given it's position.  Nothing new being done
(or very limited) and mostly maintenance of old systems.

 .Net is a separate dot.

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan
Waters
Sent: Thursday, February 04, 2016 10:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Technology skills - supply and demand

I wish they would say VB6 or VB.Net.

I see they list Time Management - I can do that!  ;-)

Dan

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Mark Simms
Sent: Thursday, February 04, 2016 8:26 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Technology skills - supply and demand

http://insights.dice.com/2016/02/01/whats-hot-and-not-in-tech-skills/?CMPID=
EM_RE_UP_JS_AD_DA_CP_&utm_source=Responsys&utm_medium=Email&utm_content=&utm
_campaign=Advisory_DiceAdvisor

Nice visualization of the various IT skills....

Note where Visual Basic sits....versus Java and Javascript.



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

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


From jimdettman at verizon.net  Thu Feb  4 16:34:23 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Thu, 04 Feb 2016 17:34:23 -0500
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <CAH+Met9Tr8OxrGQWcvOAO4k4ySYVDSQVFO7h4Bxri8DJT4wtcQ@mail.gmail.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<CAH+Met9Tr8OxrGQWcvOAO4k4ySYVDSQVFO7h4Bxri8DJT4wtcQ@mail.gmail.com>
Message-ID: <F8F5B9FD5CBE4BBE97EAD5C7BFF0F849@XPS>


 Think .Net means knowing the framework; C# is listed separately.

 Hard to say though.   

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, February 04, 2016 05:06 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Technology skills - supply and demand

I'm assuming that VB6 is Visual Basic and VB.Net is .Net, since the whole
.Net topic makes no sense when distinguished from Visual Studio.

Charlotte Foust
(916) 206-4336

On Thu, Feb 4, 2016 at 7:00 AM, Dan Waters <df.waters at outlook.com> wrote:

> I wish they would say VB6 or VB.Net.
>
> I see they list Time Management - I can do that!  ;-)
>
> Dan
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From bradm at blackforestltd.com  Thu Feb  4 16:50:34 2016
From: bradm at blackforestltd.com (Brad Marks)
Date: Thu, 4 Feb 2016 22:50:34 +0000
Subject: [AccessD] Need to Find Access Report that is using a Specific Query
In-Reply-To: <3921FBC072904666B9DD81E15AA76B63@XPS>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<3921FBC072904666B9DD81E15AA76B63@XPS>
Message-ID: <CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>

All,

I am working with a very large Access application that has many reports and many queries.

I would like to find the name of a report that is using a specific query.  

Is there an easy way to do this?

Thanks,
Brad 


From ssharkins at gmail.com  Thu Feb  4 16:56:35 2016
From: ssharkins at gmail.com (Susan Harkins)
Date: Thu, 4 Feb 2016 17:56:35 -0500
Subject: [AccessD] Need to Find Access Report that is using a Specific
	Query
In-Reply-To: <CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>	<01c901d15f57$f54a3650$dfdea2f0$@net>	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
Message-ID: <000901d15f9f$4cfb9550$e6f2bff0$@gmail.com>

Use don't mention the version, but unless it's old, you should be able to
use the Object Dependencies pane. Click the query and then click the
Database Tools tab. In the Relationships group, click Object Dependencies. 

That's 2016, but you should be able to find it out in earlier versions. 

Susan H. 

All,

I am working with a very large Access application that has many reports and
many queries.

I would like to find the name of a report that is using a specific query.  

Is there an easy way to do this?

Thanks,
Brad 

-- 
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 Feb  4 17:03:47 2016
From: df.waters at outlook.com (Dan Waters)
Date: Thu, 4 Feb 2016 17:03:47 -0600
Subject: [AccessD] Technology skills - supply and demand
In-Reply-To: <VI1PR06MB15844A1A243A7951B277DFADCAD10@VI1PR06MB1584.eurprd06.prod.outlook.com>
References: <VI1PR06MB15844A1A243A7951B277DFADCAD10@VI1PR06MB1584.eurprd06.prod.outlook.com>
Message-ID: <BLU176-DS3332A5C5860D1E97294CFF6D10@phx.gbl>

Hi Gustav,

At the top is a dropdown list.  That's how I found Time Management.

Dan

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, February 04, 2016 4:21 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Technology skills - supply and demand

Hi Charlotte

True.
Dan, that graph is a mess. I can?t see you can read anything from it. Is car more hot than a wheel or a sparkplug or painting stripes on the road?

/gustav

Fra: Charlotte Foust<mailto:charlotte.foust at gmail.com>
Sendt: 4. februar 2016 23:07
Til: Access Developers discussion and problem solving<mailto:accessd at databaseadvisors.com>
Emne: Re: [AccessD] Technology skills - supply and demand

I'm assuming that VB6 is Visual Basic and VB.Net is .Net, since the whole .Net topic makes no sense when distinguished from Visual Studio.

Charlotte Foust
(916) 206-4336

On Thu, Feb 4, 2016 at 7:00 AM, Dan Waters <df.waters at outlook.com> wrote:

> I wish they would say VB6 or VB.Net.
>
> I see they list Time Management - I can do that!  ;-)
>
> Dan

--
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 Feb  4 17:09:43 2016
From: df.waters at outlook.com (Dan Waters)
Date: Thu, 4 Feb 2016 17:09:43 -0600
Subject: [AccessD] Need to Find Access Report that is using a Specific
	Query
In-Reply-To: <CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>	<01c901d15f57$f54a3650$dfdea2f0$@net>	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
Message-ID: <BLU176-DS193A1B0D217E58E3FA540F6D10@phx.gbl>

Hi Brad - I think this will work!

Just put this into a module and then run it.

----------------------------------------------------------------

Private Sub ChangeReportProperties()

    Dim aob As AccessObject
    Dim obj As Object
    Dim stgName As String
    Dim rpt As Report

    Set obj = Application.CurrentProject

    ' Search for open AccessObject objects in AllReports collection.
    For Each aob In obj.AllReports
    
        stgName = aob.Name
        DoCmd.OpenReport stgName, acViewDesign
        Set rpt = Reports(stgName)
        
        If rpt.RecordSource = "QueryName" Then
            Stop
        End If
         
        DoCmd.Close acReport, stgName
        DoEvents
        
    Next aob

End Sub

----------------------------------------------------------------

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Brad Marks
Sent: Thursday, February 04, 2016 4:51 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Need to Find Access Report that is using a Specific Query

All,

I am working with a very large Access application that has many reports and
many queries.

I would like to find the name of a report that is using a specific query.  

Is there an easy way to do this?

Thanks,
Brad 

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


From jimdettman at verizon.net  Fri Feb  5 07:42:47 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Fri, 05 Feb 2016 08:42:47 -0500
Subject: [AccessD] Need to Find Access Report that is using a Specific
	Query
In-Reply-To: <CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
Message-ID: <F18683C248ED4F7AAC9FDC006AC4C58D@XPS>


 Stop here, do not pass go:

 Rick Fisher's Find and Replace:

 www.rickworld.com 


Jim.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Brad Marks
Sent: Thursday, February 04, 2016 05:51 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Need to Find Access Report that is using a Specific Query

All,

I am working with a very large Access application that has many reports and
many queries.

I would like to find the name of a report that is using a specific query.  

Is there an easy way to do this?

Thanks,
Brad 

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


From marksimms at verizon.net  Fri Feb  5 11:00:16 2016
From: marksimms at verizon.net (Mark Simms)
Date: Fri, 05 Feb 2016 12:00:16 -0500
Subject: [AccessD] Need to Find Access Report that is using a
	Specific	Query
In-Reply-To: <F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
	<F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
Message-ID: <003301d16036$b060f620$1122e260$@net>

I totally endorse Rick's tool....just incredible.




From jwcolby at gmail.com  Fri Feb  5 23:07:16 2016
From: jwcolby at gmail.com (John Colby)
Date: Sat, 6 Feb 2016 00:07:16 -0500
Subject: [AccessD] =?utf-8?q?Sneaky_Microsoft_renamed_its_data_slurper_bef?=
 =?utf-8?q?ore_sticking_it_back_in_Windows_10_=E2=80=A2_The_Register?=
Message-ID: <56B57F84.1060100@Gmail.com>

http://www.theregister.co.uk/2015/11/26/microsoft_renamed_data_slurper_reinserted_windows_10/

-- 
John W. Colby


From accessd at shaw.ca  Fri Feb  5 23:12:24 2016
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 5 Feb 2016 22:12:24 -0700 (MST)
Subject: [AccessD]
 =?utf-8?q?Sneaky_Microsoft_renamed_its_data_slurper_bef?=
 =?utf-8?q?ore_sticking_it_back_in_Windows_10_=E2=80=A2_The_Register?=
In-Reply-To: <56B57F84.1060100@Gmail.com>
Message-ID: <254336236.8847122.1454735544317.JavaMail.root@shaw.ca>

I for one do not think I should not have to run around a Windows 10 installation and have to set almost a dozen flags to guarantee a basic level of privacy...but what do I know.

Jim 

----- Original Message -----
From: "John Colby" <jwcolby at gmail.com>
To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com>
Sent: Friday, February 5, 2016 9:07:16 PM
Subject: [AccessD] Sneaky Microsoft renamed its data slurper before sticking it back in Windows 10 ? The Register

http://www.theregister.co.uk/2015/11/26/microsoft_renamed_data_slurper_reinserted_windows_10/

-- 
John W. Colby

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


From bensonforums at gmail.com  Fri Feb  5 23:40:03 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 00:40:03 -0500
Subject: [AccessD] Need to Find Access Report that is using a Specific
	Query
In-Reply-To: <F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
	<F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
Message-ID: <CAJLzs_3U=oMTZiDreptvgTpnMH7QbY3Rp2ZcPuVGHWLicB0=3Q@mail.gmail.com>

I am afraid I do have to pass Go, because for example, I might have a base
query named qry_Base. Then in the Report_Open event, code which gets the
querydef with that name (possibly dynamically derived); take the SQL
property, and add some criteria to the WHERE clause, then

    With Me
        Select Case True

            Case bFiscalYearSelected And bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional & " AND
(" & strSQLFiscalYrOfRevConditional & ")"

            Case bFiscalYearSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional

            Case bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrOfRevConditional

            Case Else
                .RecordSource = "tblFYOfRevData"

        End Select
    End With


You get the idea. No way Rick Fisher's tool gonna keep up with this kind of
automation.

And no, this does not help the  OP much either, just adds more anxiety more
than anything.

On Fri, Feb 5, 2016 at 8:42 AM, Jim Dettman <jimdettman at verizon.net> wrote:

>
>  Stop here, do not pass go:
>
>  Rick Fisher's Find and Replace:
>
>  www.rickworld.com
>
>
> Jim.
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Brad Marks
> Sent: Thursday, February 04, 2016 05:51 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Need to Find Access Report that is using a Specific
> Query
>
> All,
>
> I am working with a very large Access application that has many reports and
> many queries.
>
> I would like to find the name of a report that is using a specific query.
>
> Is there an easy way to do this?
>
> Thanks,
> Brad
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From jwcolby at gmail.com  Fri Feb  5 23:49:46 2016
From: jwcolby at gmail.com (John Colby)
Date: Sat, 6 Feb 2016 00:49:46 -0500
Subject: [AccessD] =?utf-8?q?Who_wants_a_quad-core_4=2E2GHz=2C_64GB=2C_5TB?=
 =?utf-8?q?_SSD_RAID_10_=E2=80=A6_laptop=3F_=E2=80=A2_The_Register?=
Message-ID: <56B5897A.4040104@Gmail.com>

I DO, I DO!!!

http://www.theregister.co.uk/2016/02/05/eurcom_sky_x9w/

-- 
John W. Colby


From bensonforums at gmail.com  Sat Feb  6 00:40:01 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 01:40:01 -0500
Subject: [AccessD]
	=?utf-8?q?Sneaky_Microsoft_renamed_its_data_slurper_bef?=
	=?utf-8?q?ore_sticking_it_back_in_Windows_10_=E2=80=A2_The_Registe?=
	=?utf-8?q?r?=
In-Reply-To: <254336236.8847122.1454735544317.JavaMail.root@shaw.ca>
References: <56B57F84.1060100@Gmail.com>
	<254336236.8847122.1454735544317.JavaMail.root@shaw.ca>
Message-ID: <CAJLzs_0UvSNeRfpZYLQu6437hK2vz0JJDw3TqO33bcUu=S3bHA@mail.gmail.com>

Well spotted John. We all need to be looking out for one another. Seems
like we need to go through the control panel to configure it to the privacy
we prefer.

I read this: "Examples of data we collect include your name, email address,
preferences and interests; browsing, search and file history; phone call
and SMS data; device configuration and sensor data; and application usage."

PHONE CALL and SMS data? Really specific there, eh? Like, just the
correspondents' numbers? Call duration and message lengths? Actual text
(and transcripts)??

Scary business, MS is in bed with the devil I think.

On Sat, Feb 6, 2016 at 12:12 AM, Jim Lawrence <accessd at shaw.ca> wrote:

> I for one do not think I should not have to run around a Windows 10
> installation and have to set almost a dozen flags to guarantee a basic
> level of privacy...but what do I know.
>
> Jim
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at gmail.com>
> To: "Access Developers discussion and problem solving" <
> accessd at databaseadvisors.com>
> Sent: Friday, February 5, 2016 9:07:16 PM
> Subject: [AccessD] Sneaky Microsoft renamed its data slurper before
> sticking it back in Windows 10 ? The Register
>
>
> http://www.theregister.co.uk/2015/11/26/microsoft_renamed_data_slurper_reinserted_windows_10/
>
> --
> John W. Colby
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From bensonforums at gmail.com  Sat Feb  6 00:42:16 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 01:42:16 -0500
Subject: [AccessD]
	=?utf-8?q?Who_wants_a_quad-core_4=2E2GHz=2C_64GB=2C_5TB?=
	=?utf-8?q?_SSD_RAID_10_=E2=80=A6_laptop=3F_=E2=80=A2_The_Register?=
In-Reply-To: <56B5897A.4040104@Gmail.com>
References: <56B5897A.4040104@Gmail.com>
Message-ID: <CAJLzs_1e_JE38O=xaShdzHAP2b0x8bGP3HPj3kqiNX9fUBCz8w@mail.gmail.com>

Is there a battery life or does one just keep it plugged in while in use?
:-D

On Sat, Feb 6, 2016 at 12:49 AM, John Colby <jwcolby at gmail.com> wrote:

> I DO, I DO!!!
>
> http://www.theregister.co.uk/2016/02/05/eurcom_sky_x9w/
>
> --
> John W. Colby
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From bensonforums at gmail.com  Sat Feb  6 00:50:17 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 01:50:17 -0500
Subject: [AccessD] Handling concurrent updates
In-Reply-To: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
Message-ID: <CAJLzs_1f2GxiRTMZw1iHSv3yRKraOPrw3oLUfnBwzgJqeeaA=g@mail.gmail.com>

I thought that the way to handle concurrent edits in code is based on how
you open the recordset, with locks. In your case, were you to not lock all
the records, what happens if another user comes along and deletes the
record(s) through their code, leaving the item you are attempting to edit
uneditable forever, and you then are in an infinite loop?

Am I missing something obvious (such as that this could never occur or
something)?

On Wed, Feb 3, 2016 at 11:01 AM, Gustav Brock <gustav at cactus.dk> wrote:

> Hi all
>
> If you ever have struggled with this in VBA, you know it's a daunting task
> with a lot of error handling.
>
> For a client, I had to find a smarter method. A bit surprisingly,
> Bing/Google didn't reveal anything useful, so I ended up with two tiny
> functions to handle edit and update.
> With these it takes (net) only one line of additional code. It is all
> described here:
>
>    http://rdsrc.us/BvX5Gw
>
> including a demo app and the small code module with the two functions.
> If you have access to a Northwind database running in an SQL Server
> instance, you can run the test right away. You can also relink to an Access
> database, but that is less fun as the updates are so fast that collisions
> are much fewer.
>
> /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 Feb  6 03:52:56 2016
From: gustav at cactus.dk (Gustav Brock)
Date: Sat, 6 Feb 2016 09:52:56 +0000
Subject: [AccessD] Handling concurrent updates
Message-ID: <VI1PR06MB1584B508FE0020344E626B52CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>

Hi Bill

That?s a good question. The function were created for a scenario where records would never get deleted.

However, it has now been updated to version 1.0.2 with extended error handling in SetEdit to prevent an endless loop in case of other errors than a concurrent edit.

Note please, that the test run will still fail in case that a third process deletes the file, but that is no different than if you had not the concurrent edit/update handler running.

/gustav


Fra: Bill Benson<mailto:bensonforums at gmail.com>
Sendt: 6. februar 2016 07:50
Til: Access Developers discussion and problem solving<mailto:accessd at databaseadvisors.com>
Emne: Re: [AccessD] Handling concurrent updates

I thought that the way to handle concurrent edits in code is based on how
you open the recordset, with locks. In your case, were you to not lock all
the records, what happens if another user comes along and deletes the
record(s) through their code, leaving the item you are attempting to edit
uneditable forever, and you then are in an infinite loop?

Am I missing something obvious (such as that this could never occur or
something)?

On Wed, Feb 3, 2016 at 11:01 AM, Gustav Brock <gustav at cactus.dk> wrote:

> Hi all
>
> If you ever have struggled with this in VBA, you know it's a daunting task
> with a lot of error handling.
>
> For a client, I had to find a smarter method. A bit surprisingly,
> Bing/Google didn't reveal anything useful, so I ended up with two tiny
> functions to handle edit and update.
> With these it takes (net) only one line of additional code. It is all
> described here:
>
>    http://rdsrc.us/BvX5Gw
>
> including a demo app and the small code module with the two functions.
> If you have access to a Northwind database running in an SQL Server
> instance, you can run the test right away. You can also relink to an Access
> database, but that is less fun as the updates are so fast that collisions
> are much fewer.
>
> /gustav


From bensonforums at gmail.com  Sat Feb  6 04:09:31 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 05:09:31 -0500
Subject: [AccessD] Handling concurrent updates
In-Reply-To: <VI1PR06MB1584B508FE0020344E626B52CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>
References: <VI1PR06MB1584B508FE0020344E626B52CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>
Message-ID: <CAJLzs_1V7q5TG1Z6YSwrpqCDrO4CAGVn_mEihQh42vXonHiHXg@mail.gmail.com>

Another *possible* improvement on this scheme is to establish a collection
of the records which are not editable (assuming this is possible); and
proceed to edit those which *can* be edited before coming back through the
collection, trying to edit again, if successful, removing their key from
the collection, if not, leaving in the collection. I think this might be
more efficient in situations of many concurrencies in a single system,
because in the same amount of time that a single Edit can be being tried
and retried and retried, many other edits can be applied.

Of course one could argue that "leaving a record alone for a bit" is not
guarantor that it will free up later, but if you start with a relatively
large collection of records that cannot be edited and successively pare
that down as you perform retry loops, eventually you will pick off the
problem records and be left with a single record that cannot be updated ...
at that point you could test whether the collection size >0 continues
unchanged for more than N number of tries, and if so, perhaps it is because
the records have been deleted.

I am not going to test this myself, but I think it could be more efficient
than what you are doing (feel free to rebut and debunk this supposition).
Hard to say because I don't know how often there are real concurrency
issues.

Regards,

Bill

>
>

From bensonforums at gmail.com  Sat Feb  6 04:15:43 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 05:15:43 -0500
Subject: [AccessD] Handling concurrent updates
In-Reply-To: <CAJLzs_1V7q5TG1Z6YSwrpqCDrO4CAGVn_mEihQh42vXonHiHXg@mail.gmail.com>
References: <VI1PR06MB1584B508FE0020344E626B52CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAJLzs_1V7q5TG1Z6YSwrpqCDrO4CAGVn_mEihQh42vXonHiHXg@mail.gmail.com>
Message-ID: <CAJLzs_2i81Z52g+9YjhPK_vRn=gG9VvfYVkn0pgHse5=O-SS3Q@mail.gmail.com>

I did not mean to imply in all cases that you would pare down to just *one*
record before bailing; that was a single use case.

I meant all records that the is not able to force into Edit mode in a
reasonable period.

I think I would probably continue using pessimistic locking in my
professional work, if it seems the same records are at risk of requiring
edit.

On Sat, Feb 6, 2016 at 5:09 AM, Bill Benson <bensonforums at gmail.com> wrote:

> Another *possible* improvement on this scheme is to establish a collection
> of the records which are not editable (assuming this is possible); and
> proceed to edit those which *can* be edited before coming back through the
> collection, trying to edit again, if successful, removing their key from
> the collection, if not, leaving in the collection. I think this might be
> more efficient in situations of many concurrencies in a single system,
> because in the same amount of time that a single Edit can be being tried
> and retried and retried, many other edits can be applied.
>
> Of course one could argue that "leaving a record alone for a bit" is not
> guarantor that it will free up later, but if you start with a relatively
> large collection of records that cannot be edited and successively pare
> that down as you perform retry loops, eventually you will pick off the
> problem records and be left with a single record that cannot be updated ...
> at that point you could test whether the collection size >0 continues
> unchanged for more than N number of tries, and if so, perhaps it is because
> the records have been deleted.
>
> I am not going to test this myself, but I think it could be more efficient
> than what you are doing (feel free to rebut and debunk this supposition).
> Hard to say because I don't know how often there are real concurrency
> issues.
>
> Regards,
>
> Bill
>
>>
>>

From gustav at cactus.dk  Sat Feb  6 05:09:43 2016
From: gustav at cactus.dk (Gustav Brock)
Date: Sat, 6 Feb 2016 11:09:43 +0000
Subject: [AccessD] Handling concurrent updates
Message-ID: <VI1PR06MB15848B7EA565006D13B11F65CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>

Hi Bill

Please have in mind that the functions here are not the magic bullet to solve all concurrency issues.

The main purpose is to take advantage of the fact, that if you try an edit of a record, and that record has been updated by another process in the interval from you read the record until you try to update it, your edit or update will fail. However, at the same time the record - as you read it ? has been refreshed, thus you will now be able to do your edit and update.

Usually, this try-and-error will take one round only until success, as you can see if you run the ready-made test function in the download. Even with three processes running on the same record, I have never seen a count of more than two.

So the task is not to count or collect failed updates, it is to repeat the update until success raising no errors.

Of course, in case the processes update the same fields, you must plan carefully as usual, but in the case of updating different fields (which the functions originally were developed for) the implementation is trivial.

/gustav

Fra: Bill Benson<mailto:bensonforums at gmail.com>
Sendt: 6. februar 2016 11:16
Til: Access Developers discussion and problem solving<mailto:accessd at databaseadvisors.com>
Emne: Re: [AccessD] Handling concurrent updates

I did not mean to imply in all cases that you would pare down to just *one*
record before bailing; that was a single use case.

I meant all records that the is not able to force into Edit mode in a
reasonable period.

I think I would probably continue using pessimistic locking in my
professional work, if it seems the same records are at risk of requiring
edit.

On Sat, Feb 6, 2016 at 5:09 AM, Bill Benson <bensonforums at gmail.com> wrote:

> Another *possible* improvement on this scheme is to establish a collection
> of the records which are not editable (assuming this is possible); and
> proceed to edit those which *can* be edited before coming back through the
> collection, trying to edit again, if successful, removing their key from
> the collection, if not, leaving in the collection. I think this might be
> more efficient in situations of many concurrencies in a single system,
> because in the same amount of time that a single Edit can be being tried
> and retried and retried, many other edits can be applied.
>
> Of course one could argue that "leaving a record alone for a bit" is not
> guarantor that it will free up later, but if you start with a relatively
> large collection of records that cannot be edited and successively pare
> that down as you perform retry loops, eventually you will pick off the
> problem records and be left with a single record that cannot be updated ...
> at that point you could test whether the collection size >0 continues
> unchanged for more than N number of tries, and if so, perhaps it is because
> the records have been deleted.
>
> I am not going to test this myself, but I think it could be more efficient
> than what you are doing (feel free to rebut and debunk this supposition).
> Hard to say because I don't know how often there are real concurrency
> issues.
>
> Regards,
>
> Bill


From bensonforums at gmail.com  Sat Feb  6 07:53:32 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 08:53:32 -0500
Subject: [AccessD] Handling concurrent updates
In-Reply-To: <VI1PR06MB15848B7EA565006D13B11F65CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>
References: <VI1PR06MB15848B7EA565006D13B11F65CAD30@VI1PR06MB1584.eurprd06.prod.outlook.com>
Message-ID: <CAJLzs_2WKPmYLdmLL92bJArpUBq9j3B85T+pGQt+xEPuxmQz8Q@mail.gmail.com>

I am struggling to set up a test of performance using Gustav's process,
which I believe keeps his cursor on each non-editable record until it
becomes editable, versus mine, which puts non-editable records into a
collection and comes back to them after all editable records have been
edited. First off, it is hard to think of a test that will cause the kind
of conflict I want to monitor "in the laboratory."


I thought of letting 1 process have a form bound to a table, and a second
instance with a DAO recordset that is opened containing the same records.
Suppose the user is on record 1, and the 2nd process is looping through a
recordset beginning at record 1.

Using Gustav's method, the recordset using process in instance 2 will find
record 1 uneditable. If the edits to be made to record 2 are made to wait
until the form in process 1 releases record 1, then record 2 will not be
updated at the time the user operating via the form leaves record 1 and
goes to record 2.


Using my proposed method (as yet untested), the process using the recordset
would have put record 1 in a collection for later treatment; wuold have
gone on to record 2, updated data there... and when the user using the Form
in instance 1 navigates to record 2, lo and behold, all the data is as up
to date as it was required to be according to logic that drove instance 2
to make those allowed edits.

Personally I think this is safer.


OMMV.


And as I have said over and over - I have not tested this to see if it
could even work (because I cannot think how to set it up LOL).

From df.waters at outlook.com  Sat Feb  6 14:05:45 2016
From: df.waters at outlook.com (Dan Waters)
Date: Sat, 6 Feb 2016 14:05:45 -0600
Subject: [AccessD] Need to Find Access Report that is using a
	Specific	Query
In-Reply-To: <CAJLzs_3U=oMTZiDreptvgTpnMH7QbY3Rp2ZcPuVGHWLicB0=3Q@mail.gmail.com>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>	<01c901d15f57$f54a3650$dfdea2f0$@net>	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>	<3921FBC072904666B9DD81E15AA76B63@XPS>	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>	<F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
	<CAJLzs_3U=oMTZiDreptvgTpnMH7QbY3Rp2ZcPuVGHWLicB0=3Q@mail.gmail.com>
Message-ID: <BLU176-DS9A86180BBA4DA2BB8C739F6D30@phx.gbl>

Hi Bill,

In order to find the recordsource of a query using some kind of search
mechanism, the report needs a named query.  In the example below, there is a
report named "REPORTNAME" which has a recordsource of a query named
"QUERYNAME".  The name of the query does not change - but you can change the
SQL in the query as needed.

If you can't do this, then use Rick Fisher's Find and Replace to look for
all the queries (using partial match) that use a readily identifiable part
of the recordsource string - like "tblFYOfRevData".  You'll get a report of
all those different reports.

If you are dealing with any large Access application, Rick Fisher's F&R is
really excellent!

HTH!
Dan

----------------------------------------------------------------------------
---------------
        Select Case "A"

            Case "B"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrConditional & " AND (" & strSQLFiscalYrOfRevConditional & ")"

            Case "C"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrConditional

            Case "A"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrOfRevConditional

            Case Else
                CurDB.QueryDefs("QUERYNAME").SQL = "SELECT * FROM
tblFYOfRevData"

        End Select

        CurDB.QueryDefs.Refresh

        DoCmd.OpenReport "REPORTNAME", acViewPreview
----------------------------------------------------------------------------
---------------

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Friday, February 05, 2016 11:40 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Need to Find Access Report that is using a Specific
Query

I am afraid I do have to pass Go, because for example, I might have a base
query named qry_Base. Then in the Report_Open event, code which gets the
querydef with that name (possibly dynamically derived); take the SQL
property, and add some criteria to the WHERE clause, then

    With Me
        Select Case True

            Case bFiscalYearSelected And bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional & " AND
(" & strSQLFiscalYrOfRevConditional & ")"

            Case bFiscalYearSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional

            Case bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrOfRevConditional

            Case Else
                .RecordSource = "tblFYOfRevData"

        End Select
    End With


You get the idea. No way Rick Fisher's tool gonna keep up with this kind of
automation.

And no, this does not help the  OP much either, just adds more anxiety more
than anything.

On Fri, Feb 5, 2016 at 8:42 AM, Jim Dettman <jimdettman at verizon.net> wrote:

>
>  Stop here, do not pass go:
>
>  Rick Fisher's Find and Replace:
>
>  www.rickworld.com
>
>
> Jim.
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
> Of Brad Marks
> Sent: Thursday, February 04, 2016 05:51 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Need to Find Access Report that is using a Specific 
> Query
>
> All,
>
> I am working with a very large Access application that has many 
> reports and many queries.
>
> I would like to find the name of a report that is using a specific query.
>
> Is there an easy way to do this?
>
> Thanks,
> Brad
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From randall.anthony at cox.net  Sat Feb  6 14:59:54 2016
From: randall.anthony at cox.net (Randy Anthony)
Date: Sat, 6 Feb 2016 15:59:54 -0500
Subject: [AccessD] Need to Find Access Report that is using
	a	Specific	Query
In-Reply-To: <F88D1s00N0xgD8Z0188F2F>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>	<01c901d15f57$f54a3650$dfdea2f0$@net>	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>	<3921FBC072904666B9DD81E15AA76B63@XPS>	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>	<F18683C248ED4F7AAC9FDC006AC4C58D@XPS>	<CAJLzs_3U=oMTZiDreptvgTpnMH7QbY3Rp2ZcPuVGHWLicB0=3Q@mail.gmail.com>
	<F88D1s00N0xgD8Z0188F2F>
Message-ID: <00cb01d16121$541c4950$fc54dbf0$@cox.net>

F&R is the bomb.  Years ago I was trying to use it to find something similar
to the OP, couldn't get it to work.  Emailed Rick and asked for advice, he
sent me what to look for using his tool, bang, found every instance.

Regards,

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan
Waters
Sent: Saturday, February 06, 2016 3:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Need to Find Access Report that is using a Specific
Query

Hi Bill,

In order to find the recordsource of a query using some kind of search
mechanism, the report needs a named query.  In the example below, there is a
report named "REPORTNAME" which has a recordsource of a query named
"QUERYNAME".  The name of the query does not change - but you can change the
SQL in the query as needed.

If you can't do this, then use Rick Fisher's Find and Replace to look for
all the queries (using partial match) that use a readily identifiable part
of the recordsource string - like "tblFYOfRevData".  You'll get a report of
all those different reports.

If you are dealing with any large Access application, Rick Fisher's F&R is
really excellent!

HTH!
Dan

----------------------------------------------------------------------------
---------------
        Select Case "A"

            Case "B"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrConditional & " AND (" & strSQLFiscalYrOfRevConditional & ")"

            Case "C"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrConditional

            Case "A"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrOfRevConditional

            Case Else
                CurDB.QueryDefs("QUERYNAME").SQL = "SELECT * FROM
tblFYOfRevData"

        End Select

        CurDB.QueryDefs.Refresh

        DoCmd.OpenReport "REPORTNAME", acViewPreview
----------------------------------------------------------------------------
---------------

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Friday, February 05, 2016 11:40 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Need to Find Access Report that is using a Specific
Query

I am afraid I do have to pass Go, because for example, I might have a base
query named qry_Base. Then in the Report_Open event, code which gets the
querydef with that name (possibly dynamically derived); take the SQL
property, and add some criteria to the WHERE clause, then

    With Me
        Select Case True

            Case bFiscalYearSelected And bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional & " AND
(" & strSQLFiscalYrOfRevConditional & ")"

            Case bFiscalYearSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional

            Case bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrOfRevConditional

            Case Else
                .RecordSource = "tblFYOfRevData"

        End Select
    End With


You get the idea. No way Rick Fisher's tool gonna keep up with this kind of
automation.

And no, this does not help the  OP much either, just adds more anxiety more
than anything.

On Fri, Feb 5, 2016 at 8:42 AM, Jim Dettman <jimdettman at verizon.net> wrote:

>
>  Stop here, do not pass go:
>
>  Rick Fisher's Find and Replace:
>
>  www.rickworld.com
>
>
> Jim.
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
> Of Brad Marks
> Sent: Thursday, February 04, 2016 05:51 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Need to Find Access Report that is using a Specific 
> Query
>
> All,
>
> I am working with a very large Access application that has many 
> reports and many queries.
>
> I would like to find the name of a report that is using a specific query.
>
> Is there an easy way to do this?
>
> Thanks,
> Brad
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus


From bensonforums at gmail.com  Sat Feb  6 15:12:55 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 16:12:55 -0500
Subject: [AccessD] Need to Find Access Report that is using a Specific
	Query
In-Reply-To: <BLU176-DS9A86180BBA4DA2BB8C739F6D30@phx.gbl>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
	<F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
	<CAJLzs_3U=oMTZiDreptvgTpnMH7QbY3Rp2ZcPuVGHWLicB0=3Q@mail.gmail.com>
	<BLU176-DS9A86180BBA4DA2BB8C739F6D30@phx.gbl>
Message-ID: <CAJLzs_0FP-7OPOt52LBzuQZqaKy3FsfWbYxb5s5oVVprwyucoQ@mail.gmail.com>

Dan,

Your code and mine are not compatible.

My code was illustrating that the query name was totally irrelevant because
I was building the recordsource for the report on the fly, and there is
nothing F & R was going to find because looking in the record source for
the report, there would not be the name of the query ultimately used, one
would have to read the VBA very closely to know that the report relied on
the query (and only relied on it when the Open event was triggered in
fact). And depending on how the VBA dynamically compounded text to form the
string argument that resolved to the name of the queryDef you wanted to use
as a starting point for the recordsource for the report,  F & R might not
find it at all. A dumbass case where this were so is
   Querydefs (replacestr ("q u e r y n a m e", chr (32), "")).SQL

You might make the argument then that the report does not really "depend"
on queryname.  But it doesn't change the fact that my note was one of
caution.

From jimdettman at verizon.net  Sat Feb  6 15:20:30 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Sat, 06 Feb 2016 16:20:30 -0500
Subject: [AccessD] Need to Find Access Report that is
	using	a	Specific	Query
In-Reply-To: <00cb01d16121$541c4950$fc54dbf0$@cox.net>
References: <VI1PR06MB15842B3EB0880A5711BE5154CAD00@VI1PR06MB1584.eurprd06.prod.outlook.com>
	<CAH+Met-W_L=ctCT2qb8MCW18wY9UqhrQ23W1rnjfTwVP+R-L5w@mail.gmail.com>
	<01c901d15f57$f54a3650$dfdea2f0$@net>
	<BLU176-DS1361F49CDC10885C5AF708F6D10@phx.gbl>
	<3921FBC072904666B9DD81E15AA76B63@XPS>
	<CY1PR05MB1900BE2976A8AFDB5BC5CFA1CFD10@CY1PR05MB1900.namprd05.prod.outlook.com>
	<F18683C248ED4F7AAC9FDC006AC4C58D@XPS>
	<CAJLzs_3U=oMTZiDreptvgTpnMH7QbY3Rp2ZcPuVGHWLicB0=3Q@mail.gmail.com>
	<F88D1s00N0xgD8Z0188F2F> <00cb01d16121$541c4950$fc54dbf0$@cox.net>
Message-ID: <EB5FAE4913914411856153B0FE462CE0@XPS>


 What's really useful in there is the cross reference utility.

 A lot don't even know it's there.  With it, you can list every object in
the DB not being used.

 Takes a couple of passes to drill down and get everything, but when I take
on an old DB, within a few hours I can have all the junk ditched.

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Randy Anthony
Sent: Saturday, February 06, 2016 04:00 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Need to Find Access Report that is using a Specific
Query

F&R is the bomb.  Years ago I was trying to use it to find something similar
to the OP, couldn't get it to work.  Emailed Rick and asked for advice, he
sent me what to look for using his tool, bang, found every instance.

Regards,

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan
Waters
Sent: Saturday, February 06, 2016 3:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Need to Find Access Report that is using a Specific
Query

Hi Bill,

In order to find the recordsource of a query using some kind of search
mechanism, the report needs a named query.  In the example below, there is a
report named "REPORTNAME" which has a recordsource of a query named
"QUERYNAME".  The name of the query does not change - but you can change the
SQL in the query as needed.

If you can't do this, then use Rick Fisher's Find and Replace to look for
all the queries (using partial match) that use a readily identifiable part
of the recordsource string - like "tblFYOfRevData".  You'll get a report of
all those different reports.

If you are dealing with any large Access application, Rick Fisher's F&R is
really excellent!

HTH!
Dan

----------------------------------------------------------------------------
---------------
        Select Case "A"

            Case "B"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrConditional & " AND (" & strSQLFiscalYrOfRevConditional & ")"

            Case "C"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrConditional

            Case "A"
                CurDB.QueryDefs("QUERYNAME").SQL = strSQL &
strSQLFiscalYrOfRevConditional

            Case Else
                CurDB.QueryDefs("QUERYNAME").SQL = "SELECT * FROM
tblFYOfRevData"

        End Select

        CurDB.QueryDefs.Refresh

        DoCmd.OpenReport "REPORTNAME", acViewPreview
----------------------------------------------------------------------------
---------------

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Friday, February 05, 2016 11:40 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Need to Find Access Report that is using a Specific
Query

I am afraid I do have to pass Go, because for example, I might have a base
query named qry_Base. Then in the Report_Open event, code which gets the
querydef with that name (possibly dynamically derived); take the SQL
property, and add some criteria to the WHERE clause, then

    With Me
        Select Case True

            Case bFiscalYearSelected And bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional & " AND
(" & strSQLFiscalYrOfRevConditional & ")"

            Case bFiscalYearSelected
                .RecordSource = strSQL & strSQLFiscalYrConditional

            Case bFiscalYrOfRevSelected
                .RecordSource = strSQL & strSQLFiscalYrOfRevConditional

            Case Else
                .RecordSource = "tblFYOfRevData"

        End Select
    End With


You get the idea. No way Rick Fisher's tool gonna keep up with this kind of
automation.

And no, this does not help the  OP much either, just adds more anxiety more
than anything.

On Fri, Feb 5, 2016 at 8:42 AM, Jim Dettman <jimdettman at verizon.net> wrote:

>
>  Stop here, do not pass go:
>
>  Rick Fisher's Find and Replace:
>
>  www.rickworld.com
>
>
> Jim.
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
> Of Brad Marks
> Sent: Thursday, February 04, 2016 05:51 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Need to Find Access Report that is using a Specific 
> Query
>
> All,
>
> I am working with a very large Access application that has many 
> reports and many queries.
>
> I would like to find the name of a report that is using a specific query.
>
> Is there an easy way to do this?
>
> Thanks,
> Brad
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

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


From bensonforums at gmail.com  Sat Feb  6 18:23:08 2016
From: bensonforums at gmail.com (Bill Benson)
Date: Sat, 6 Feb 2016 19:23:08 -0500
Subject: [AccessD] Rick Fisher F and R a panacea?
In-Reply-To: <CAJLzs_0DOj45YyYUw0o372TfmyHuLdAbYEH__HtN2kUgMXKPmA@mail.gmail.com>
References: <CAJLzs_0DOj45YyYUw0o372TfmyHuLdAbYEH__HtN2kUgMXKPmA@mail.gmail.com>
Message-ID: <CAJLzs_3vMthPZZViizDi8T5Z6YZgqh6p6kyZnnr_-UHCJimkKw@mail.gmail.com>

Getting a little off topic from the previous thread to do a deeper delve on
F&R.

I am probably going to be labeled the most skeptical person ever - if not
an outright PITA, gadfly, and public nuissance, but ...

Any time a tool is touted and I see pitfalls with it, I am going to
challenge, Jim, and it is not personal. If you feel they are baseless or do
wish to comment, feel free, but this is just one programmers opinion and
caution.

I agree that tool is useful, but no panacea. The developer must check
everything he or she possibly can to be sure the tool did it's job
correctly as well as think hard about what the tool may have missed. It's
probably a good starting point but I would keep backups. Using it on an
inherited DB which I did not explore personally every nook and cranny of
before letting *some tool* make global changes to its innards, would leave
me anxious about future problems.  Perhaps not unmanageable, but problems
neverthelrss. Lots of things in my DBs seem to be not used but they will
be, some how. Although to be truthful I do try to test for their presence
and create them on the fly, if missing. One of the things I cannot recreate
with VBA are attachment fields, so I would be very careful deleting tables
you think are not in use, if they contain multi-value fields,  since
doubtless the program is not creating them on the fly.

I assume by used, Jim means no other object depends on them at design time.
I often re-purpose objects in VBA which otherwise seem unused, such as
subforms bound to empty forms having their recordsource changed to other
forms through VBA at runtime.

I am sure the tool has great value, but I would be extremely careful with
it.  Particularly where VBA code is involved, such as when an sql string
written

  StrSQL = "SELECT * FROM SomeQuery" must become  strSQL = "SELECT * FROM
[Some Query]".

Another concern I might have: There are many properties in Excel that are
read write but when you start writing them, you run into limitations you
did not expect (or a novice wouldn't expect) like formulaarray having 255
character limit. So one cannot read a formulaarray property, change a
defined name that array formula looks up in,  from "Small" to
"NotVerySmallAtAll", and expect to be able to put back the same array
formula into the FormulaArray property of a cell. Might there not be
similar issues for F & R I cannot help but wonder, with respect to Access
limitations. Access might be the same way. Would F & R forward tests it's
ability to change all dependent properties before beginning the changes, or
just fail and bail mid - change without rollback?

On Feb 7, 2016 5:18 AM, "Jim Dettman" <jimdettman at verizon.net> wrote:
>
>
>  What's really useful in there is the cross reference utility.
>
>  A lot don't even know it's there.  With it, you can list every object in
> the DB not being used.
>
>  Takes a couple of passes to drill down and get everything, but when I
take
> on an old DB, within a few hours I can have all the junk ditched.
>
> Jim.
>
> -----Original Message-----
>

From jimdettman at verizon.net  Sun Feb  7 14:29:29 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Sun, 07 Feb 2016 15:29:29 -0500
Subject: [AccessD] Rick Fisher F and R a panacea?
In-Reply-To: <CAJLzs_3vMthPZZViizDi8T5Z6YZgqh6p6kyZnnr_-UHCJimkKw@mail.gmail.com>
References: <CAJLzs_0DOj45YyYUw0o372TfmyHuLdAbYEH__HtN2kUgMXKPmA@mail.gmail.com>
	<CAJLzs_3vMthPZZViizDi8T5Z6YZgqh6p6kyZnnr_-UHCJimkKw@mail.gmail.com>
Message-ID: <787F5586221C4000944C564CEECABCBE@XPS>

Bill,

<<I am probably going to be labeled the most skeptical person ever - if not
an outright PITA, gadfly, and public nuissance, but ...>>

 Not at all.

<<Any time a tool is touted and I see pitfalls with it,>>

 The touting is that for $30, it's amazing what you get.  Even at 10x that
price, it would be worth it and every Access developer that doesn't own it
should.  To try and re-create what's there would probably be in the hundreds
of hours in development and testing.

 It's an absolute god send when your trying to clean-up an old DB, and is
more than helpful in developing your own.  Like I said, if you don't have
it, you should, and if you don't, download the trail edition and give it a
spin.

<<I agree that tool is useful, but no panacea. >>

 Absolutely and it's just that, a tool.  It's meant to be used, not do all
the work for you.

 Doing backups, deciding what needs to be changed, using the tool, checking
what was changed, etc. all are givens and go without saying.

 If your not doing any of that, then your not doing your job as a developer.

Jim.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Saturday, February 06, 2016 07:23 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Rick Fisher F and R a panacea?

Getting a little off topic from the previous thread to do a deeper delve on
F&R.

<<snip>>


From df.waters at outlook.com  Sun Feb  7 15:37:18 2016
From: df.waters at outlook.com (Dan Waters)
Date: Sun, 7 Feb 2016 15:37:18 -0600
Subject: [AccessD] Rick Fisher F and R a panacea?
In-Reply-To: <787F5586221C4000944C564CEECABCBE@XPS>
References: <CAJLzs_0DOj45YyYUw0o372TfmyHuLdAbYEH__HtN2kUgMXKPmA@mail.gmail.com>	<CAJLzs_3vMthPZZViizDi8T5Z6YZgqh6p6kyZnnr_-UHCJimkKw@mail.gmail.com>
	<787F5586221C4000944C564CEECABCBE@XPS>
Message-ID: <BLU176-DS20260FF01C58ECF2ABCC24F6D40@phx.gbl>

Definition: Panacea: 'a solution or remedy for all difficulties or
diseases.'

Well OK it's not a panacea.  

Definition:  Almost a Panacea:  'See Rick Fisher's Find and Replace Tool for
MS Access.'

Dan  :-)

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim
Dettman
Sent: Sunday, February 07, 2016 2:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Rick Fisher F and R a panacea?

Bill,

<<I am probably going to be labeled the most skeptical person ever - if not
an outright PITA, gadfly, and public nuissance, but ...>>

 Not at all.

<<Any time a tool is touted and I see pitfalls with it,>>

 The touting is that for $30, it's amazing what you get.  Even at 10x that
price, it would be worth it and every Access developer that doesn't own it
should.  To try and re-create what's there would probably be in the hundreds
of hours in development and testing.

 It's an absolute god send when your trying to clean-up an old DB, and is
more than helpful in developing your own.  Like I said, if you don't have
it, you should, and if you don't, download the trail edition and give it a
spin.

<<I agree that tool is useful, but no panacea. >>

 Absolutely and it's just that, a tool.  It's meant to be used, not do all
the work for you.

 Doing backups, deciding what needs to be changed, using the tool, checking
what was changed, etc. all are givens and go without saying.

 If your not doing any of that, then your not doing your job as a developer.

Jim.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Saturday, February 06, 2016 07:23 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Rick Fisher F and R a panacea?

Getting a little off topic from the previous thread to do a deeper delve on
F&R.

<<snip>>

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


From ssharkins at gmail.com  Tue Feb  9 13:40:47 2016
From: ssharkins at gmail.com (Susan Harkins)
Date: Tue, 9 Feb 2016 14:40:47 -0500
Subject: [AccessD] Access Web App
Message-ID: <003601d16371$c68e8be0$53aba3a0$@gmail.com>

I can't figure out how to access the new Office and SharePoint Add-ins from
Access 2016 or Access Web Apps. I'm guessing it's just not available and I'm
not finding anything conclusive online. Does anyone know if this feature is
available in Access and if so, where the interface option is? 

 

Susan H. 


From charlotte.foust at gmail.com  Tue Feb  9 15:50:58 2016
From: charlotte.foust at gmail.com (Charlotte Foust)
Date: Tue, 9 Feb 2016 13:50:58 -0800
Subject: [AccessD] Access Web App
In-Reply-To: <003601d16371$c68e8be0$53aba3a0$@gmail.com>
References: <003601d16371$c68e8be0$53aba3a0$@gmail.com>
Message-ID: <CAH+Met8G4EfWzWB9mz08AnFx=yNLcAh9zKBL4JTUEU8fZhdZpA@mail.gmail.com>

I believe it's still there but deprecated in 2016, sort of the way they
handled the workgroup security in earlier versions.  They want us to use
Access Web Services instead.

Charlotte Foust
(916) 206-4336
On Feb 9, 2016 11:42 AM, "Susan Harkins" <ssharkins at gmail.com> wrote:

> I can't figure out how to access the new Office and SharePoint Add-ins from
> Access 2016 or Access Web Apps. I'm guessing it's just not available and
> I'm
> not finding anything conclusive online. Does anyone know if this feature is
> available in Access and if so, where the interface option is?
>
>
>
> Susan H.
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From jwcolby at gmail.com  Tue Feb  9 17:23:43 2016
From: jwcolby at gmail.com (John Colby)
Date: Tue, 9 Feb 2016 18:23:43 -0500
Subject: [AccessD] Access Web App
In-Reply-To: <CAH+Met8G4EfWzWB9mz08AnFx=yNLcAh9zKBL4JTUEU8fZhdZpA@mail.gmail.com>
References: <003601d16371$c68e8be0$53aba3a0$@gmail.com>
	<CAH+Met8G4EfWzWB9mz08AnFx=yNLcAh9zKBL4JTUEU8fZhdZpA@mail.gmail.com>
Message-ID: <56BA74FF.9060405@Gmail.com>

 >They want us to use Access Web Services instead.

This year.  :(

On 2/9/2016 4:50 PM, Charlotte Foust wrote:
> I believe it's still there but deprecated in 2016, sort of the way they
> handled the workgroup security in earlier versions.  They want us to use
> Access Web Services instead.
>
> Charlotte Foust
> (916) 206-4336
> On Feb 9, 2016 11:42 AM, "Susan Harkins" <ssharkins at gmail.com> wrote:
>
>> I can't figure out how to access the new Office and SharePoint Add-ins from
>> Access 2016 or Access Web Apps. I'm guessing it's just not available and
>> I'm
>> not finding anything conclusive online. Does anyone know if this feature is
>> available in Access and if so, where the interface option is?
>>
>>
>>
>> Susan H.
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>

-- 
John W. Colby


From jimdettman at verizon.net  Tue Feb  9 18:09:35 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Tue, 09 Feb 2016 19:09:35 -0500
Subject: [AccessD] Access Web App
In-Reply-To: <003601d16371$c68e8be0$53aba3a0$@gmail.com>
References: <003601d16371$c68e8be0$53aba3a0$@gmail.com>
Message-ID: <09451AC3FB584104B66CF507F5988F60@XPS>


Their only available in an Access Web App.

1. Open the Access Web App
2. On the SharePoint tab, chose the gear icon.  From the menu, choose Office
Add-ins.  A dialog box will come up.

Choose you add-in from there.

Jim.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Susan Harkins
Sent: Tuesday, February 09, 2016 02:41 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Access Web App

I can't figure out how to access the new Office and SharePoint Add-ins from
Access 2016 or Access Web Apps. I'm guessing it's just not available and I'm
not finding anything conclusive online. Does anyone know if this feature is
available in Access and if so, where the interface option is? 

 

Susan H. 

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


From davidmcafee at gmail.com  Tue Feb  9 18:33:04 2016
From: davidmcafee at gmail.com (David McAfee)
Date: Tue, 9 Feb 2016 16:33:04 -0800
Subject: [AccessD] VBA7?
Message-ID: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>

So we're trying to consolidate the over 3000 dbs and spread sheets we have
throughout the company. I made up a little split db that allows users to
enter a project/task name, select usage occurrence from a drop down then
browse to the access file and/or excel workbook.

The  FE then takes said file and lists all of its tables, queries, macros,
modules, forms, View, stored procedures (for ADPS)  and worksheets (for
Excel files). All of these objects get stored in a table, and are displayed
on the main form in a list box. They can double click an object in the list
box to "move" it into the "selected" list box to mark it as an object that
is used.

Is there a programmatic way that you can loop through queries to get a list
of the tables (or sub-queries) that are used, so I can also add them to the
list? Kind of like how the built in dependencies can be checked by right
clicking on an object.

I'm trying to figure out what is really being used, what isn't, what is
stale...

I've found tables that are linked to older DBs that aren't being updated as
well as local (stale) tables that are also not being updated.

I'm trying to figure out what it used most, in order to prioritize which
reference table to work on first. I want everyone pulling from the same
place.

Thanks,
David

From mcp2004 at mail.ru  Wed Feb 10 01:56:08 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 10:56:08 +0300
Subject: [AccessD] =?utf-8?q?VBA7=3F?=
In-Reply-To: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
Message-ID: <1455090968.244070752@f420.i.mail.ru>

 Hi Dan --

Here is how you can list querydefs' source tables and fields:

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim qdfIndex As Integer
Set dbs = Access.Application.CurrentDb
qdfIndex = 1
For Each qdf In dbs.QueryDefs
Debug.Print qdfIndex & ". Query: " & qdf.Name
Dim fld As DAO.Field
For Each fld In qdf.Fields
Debug.Print " " & (fld.OrdinalPosition + 1) & _
". " & fld.SourceTable & "." & fld.SourceField
Next fld
Debug.Print ""
Next qdf HTH.

-- Shamil


>Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee <davidmcafee at gmail.com>:
>
>So we're trying to consolidate the over 3000 dbs and spread sheets we have
>throughout the company. I made up a little split db that allows users to
>enter a project/task name, select usage occurrence from a drop down then
>browse to the access file and/or excel workbook.
>
>The  FE then takes said file and lists all of its tables, queries, macros,
>modules, forms, View, stored procedures (for ADPS)  and worksheets (for
>Excel files). All of these objects get stored in a table, and are displayed
>on the main form in a list box. They can double click an object in the list
>box to "move" it into the "selected" list box to mark it as an object that
>is used.
>
>Is there a programmatic way that you can loop through queries to get a list
>of the tables (or sub-queries) that are used, so I can also add them to the
>list? Kind of like how the built in dependencies can be checked by right
>clicking on an object.
>
>I'm trying to figure out what is really being used, what isn't, what is
>stale...
>
>I've found tables that are linked to older DBs that aren't being updated as
>well as local (stale) tables that are also not being updated.
>
>I'm trying to figure out what it used most, in order to prioritize which
>reference table to work on first. I want everyone pulling from the same
>place.
>
>Thanks,
>David
>-- 
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website:  http://www.databaseadvisors.com


From Lambert.Heenan at aig.com  Wed Feb 10 08:12:42 2016
From: Lambert.Heenan at aig.com (Heenan, Lambert)
Date: Wed, 10 Feb 2016 14:12:42 +0000
Subject: [AccessD] VBA7?
In-Reply-To: <1455090968.244070752@f420.i.mail.ru>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455090968.244070752@f420.i.mail.ru>
Message-ID: <D2D5A45EB26EC34F8199762DC40FFAA8629D0A5C@PWGSMSLIVMBS09.mail.aig.net>

Does this only work in Access 2016 or something? Just ran it in Access 2010 and the qdf.Fields collection always shows up with a count of zero.

Just curious.

Lambert

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
Sent: Wednesday, February 10, 2016 2:56 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] VBA7?

 Hi Dan --

Here is how you can list querydefs' source tables and fields:

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim qdfIndex As Integer
Set dbs = Access.Application.CurrentDb
qdfIndex = 1
For Each qdf In dbs.QueryDefs
Debug.Print qdfIndex & ". Query: " & qdf.Name Dim fld As DAO.Field For Each fld In qdf.Fields Debug.Print " " & (fld.OrdinalPosition + 1) & _ ". " & fld.SourceTable & "." & fld.SourceField Next fld Debug.Print ""
Next qdf HTH.

-- Shamil


>Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee <davidmcafee at gmail.com>:
>
>So we're trying to consolidate the over 3000 dbs and spread sheets we 
>have throughout the company. I made up a little split db that allows 
>users to enter a project/task name, select usage occurrence from a drop 
>down then browse to the access file and/or excel workbook.
>
>The  FE then takes said file and lists all of its tables, queries, 
>macros, modules, forms, View, stored procedures (for ADPS)  and 
>worksheets (for Excel files). All of these objects get stored in a 
>table, and are displayed on the main form in a list box. They can 
>double click an object in the list box to "move" it into the "selected" 
>list box to mark it as an object that is used.
>
>Is there a programmatic way that you can loop through queries to get a 
>list of the tables (or sub-queries) that are used, so I can also add 
>them to the list? Kind of like how the built in dependencies can be 
>checked by right clicking on an object.
>
>I'm trying to figure out what is really being used, what isn't, what is 
>stale...
>
>I've found tables that are linked to older DBs that aren't being 
>updated as well as local (stale) tables that are also not being updated.
>
>I'm trying to figure out what it used most, in order to prioritize 
>which reference table to work on first. I want everyone pulling from 
>the same place.
>
>Thanks,
>David
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website:  http://www.databaseadvisors.com

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


From mcp2004 at mail.ru  Wed Feb 10 08:40:18 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 17:40:18 +0300
Subject: [AccessD] =?utf-8?q?VBA7=3F?=
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0A5C@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455090968.244070752@f420.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0A5C@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <1455115218.796013581@f395.i.mail.ru>

 Hi Lambert --

AFAIKR it should work starting MS Access 2.0 and up (.mdb/.mde; .accdb/.accde(starting MS Access 2007(?))) not sure about .adp.

-- Shamil

P.S. David, sorry for my confusion with your name, I have written in my reply:"Hi Dan" - it was early morning here...

>Wednesday, February 10, 2016 2:12 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Does this only work in Access 2016 or something? Just ran it in Access 2010 and the qdf.Fields collection always shows up with a count of zero.
>
>Just curious.
>
>Lambert
>
>-----Original Message-----
>From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
>Sent: Wednesday, February 10, 2016 2:56 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] VBA7?
>
>?Hi Dan --
>
>Here is how you can list querydefs' source tables and fields:
>
>Dim dbs As DAO.Database
>Dim qdf As DAO.QueryDef
>Dim qdfIndex As Integer
>Set dbs = Access.Application.CurrentDb
>qdfIndex = 1
>For Each qdf In dbs.QueryDefs
>Debug.Print qdfIndex & ". Query: " & qdf.Name Dim fld As DAO.Field For Each fld In qdf.Fields Debug.Print " " & (fld.OrdinalPosition + 1) & _ ". " & fld.SourceTable & "." & fld.SourceField Next fld Debug.Print ""
>Next qdf HTH.
>
>-- Shamil
>
>
>>Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee < davidmcafee at gmail.com >:
>>
>>So we're trying to consolidate the over 3000 dbs and spread sheets we 
>>have throughout the company. I made up a little split db that allows 
>>users to enter a project/task name, select usage occurrence from a drop 
>>down then browse to the access file and/or excel workbook.
<<< skipped >>>
>

From df.waters at outlook.com  Wed Feb 10 08:43:25 2016
From: df.waters at outlook.com (Dan Waters)
Date: Wed, 10 Feb 2016 08:43:25 -0600
Subject: [AccessD] VBA7?
In-Reply-To: <1455115218.796013581@f395.i.mail.ru>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>	<1455090968.244070752@f420.i.mail.ru>	<D2D5A45EB26EC34F8199762DC40FFAA8629D0A5C@PWGSMSLIVMBS09.mail.aig.net>
	<1455115218.796013581@f395.i.mail.ru>
Message-ID: <BLU176-DS6408DFAC94B46C8B28DEEF6D70@phx.gbl>

I understood!  Hope you've had a good cup of coffee by now ... !  :-)

Dan

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
Sent: Wednesday, February 10, 2016 8:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] VBA7?

 Hi Lambert --

AFAIKR it should work starting MS Access 2.0 and up (.mdb/.mde; .accdb/.accde(starting MS Access 2007(?))) not sure about .adp.

-- Shamil

P.S. David, sorry for my confusion with your name, I have written in my reply:"Hi Dan" - it was early morning here...

>Wednesday, February 10, 2016 2:12 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Does this only work in Access 2016 or something? Just ran it in Access 2010 and the qdf.Fields collection always shows up with a count of zero.
>
>Just curious.
>
>Lambert
>
>-----Original Message-----
>From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
>Of Salakhetdinov Shamil
>Sent: Wednesday, February 10, 2016 2:56 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] VBA7?
>
> Hi Dan --
>
>Here is how you can list querydefs' source tables and fields:
>
>Dim dbs As DAO.Database
>Dim qdf As DAO.QueryDef
>Dim qdfIndex As Integer
>Set dbs = Access.Application.CurrentDb
>qdfIndex = 1
>For Each qdf In dbs.QueryDefs
>Debug.Print qdfIndex & ". Query: " & qdf.Name Dim fld As DAO.Field For Each fld In qdf.Fields Debug.Print " " & (fld.OrdinalPosition + 1) & _ ". " & fld.SourceTable & "." & fld.SourceField Next fld Debug.Print ""
>Next qdf HTH.
>
>-- Shamil
>
>
>>Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee < davidmcafee at gmail.com >:
>>
>>So we're trying to consolidate the over 3000 dbs and spread sheets we 
>>have throughout the company. I made up a little split db that allows 
>>users to enter a project/task name, select usage occurrence from a 
>>drop down then browse to the access file and/or excel workbook.
<<< skipped >>>
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Lambert.Heenan at aig.com  Wed Feb 10 09:00:18 2016
From: Lambert.Heenan at aig.com (Heenan, Lambert)
Date: Wed, 10 Feb 2016 15:00:18 +0000
Subject: [AccessD] VBA7?
In-Reply-To: <1455115218.796013581@f395.i.mail.ru>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455090968.244070752@f420.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0A5C@PWGSMSLIVMBS09.mail.aig.net>
	<1455115218.796013581@f395.i.mail.ru>
Message-ID: <D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>

Curious. Certainly not working with Access 2010 accdb files.

At least not on my end. 

Lambert



-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
Sent: Wednesday, February 10, 2016 9:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] VBA7?

 Hi Lambert --

AFAIKR it should work starting MS Access 2.0 and up (.mdb/.mde; .accdb/.accde(starting MS Access 2007(?))) not sure about .adp.

-- Shamil

P.S. David, sorry for my confusion with your name, I have written in my reply:"Hi Dan" - it was early morning here...

>Wednesday, February 10, 2016 2:12 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Does this only work in Access 2016 or something? Just ran it in Access 2010 and the qdf.Fields collection always shows up with a count of zero.
>
>Just curious.
>
>Lambert
>
>-----Original Message-----
>From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
>Of Salakhetdinov Shamil
>Sent: Wednesday, February 10, 2016 2:56 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] VBA7?
>
>?Hi Dan --
>
>Here is how you can list querydefs' source tables and fields:
>
>Dim dbs As DAO.Database
>Dim qdf As DAO.QueryDef
>Dim qdfIndex As Integer
>Set dbs = Access.Application.CurrentDb
>qdfIndex = 1
>For Each qdf In dbs.QueryDefs
>Debug.Print qdfIndex & ". Query: " & qdf.Name Dim fld As DAO.Field For Each fld In qdf.Fields Debug.Print " " & (fld.OrdinalPosition + 1) & _ ". " & fld.SourceTable & "." & fld.SourceField Next fld Debug.Print ""
>Next qdf HTH.
>
>-- Shamil
>
>
>>Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee < davidmcafee at gmail.com >:
>>
>>So we're trying to consolidate the over 3000 dbs and spread sheets we 
>>have throughout the company. I made up a little split db that allows 
>>users to enter a project/task name, select usage occurrence from a 
>>drop down then browse to the access file and/or excel workbook.
<<< skipped >>>
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jbodin at sbor.com  Wed Feb 10 09:21:49 2016
From: jbodin at sbor.com (John Bodin)
Date: Wed, 10 Feb 2016 15:21:49 +0000
Subject: [AccessD] VBA7?
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455090968.244070752@f420.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0A5C@PWGSMSLIVMBS09.mail.aig.net>
	<1455115218.796013581@f395.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <CY1PR0401MB1020D3202780E6C0151AD5F9BDD70@CY1PR0401MB1020.namprd04.prod.outlook.com>

Worked for me in 2010 and 2000.  Very nice Shamil.

I have for References in my 2000 app VB for Apps, Access 9.0 obj lib, DAO 3.6, OLE Automation and ActiveX Data Objects 2.1. 

John

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, February 10, 2016 10:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA7?

Curious. Certainly not working with Access 2010 accdb files.

At least not on my end. 

Lambert



-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
Sent: Wednesday, February 10, 2016 9:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] VBA7?

 Hi Lambert --

AFAIKR it should work starting MS Access 2.0 and up (.mdb/.mde; .accdb/.accde(starting MS Access 2007(?))) not sure about .adp.

-- Shamil

P.S. David, sorry for my confusion with your name, I have written in my reply:"Hi Dan" - it was early morning here...

>Wednesday, February 10, 2016 2:12 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Does this only work in Access 2016 or something? Just ran it in Access 2010 and the qdf.Fields collection always shows up with a count of zero.
>
>Just curious.
>
>Lambert
>
>-----Original Message-----
>From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
>Of Salakhetdinov Shamil
>Sent: Wednesday, February 10, 2016 2:56 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] VBA7?
>
>?Hi Dan --
>
>Here is how you can list querydefs' source tables and fields:
>
>Dim dbs As DAO.Database
>Dim qdf As DAO.QueryDef
>Dim qdfIndex As Integer
>Set dbs = Access.Application.CurrentDb
>qdfIndex = 1
>For Each qdf In dbs.QueryDefs
>Debug.Print qdfIndex & ". Query: " & qdf.Name Dim fld As DAO.Field For Each fld In qdf.Fields Debug.Print " " & (fld.OrdinalPosition + 1) & _ ". " & fld.SourceTable & "." & fld.SourceField Next fld Debug.Print ""
>Next qdf HTH.
>
>-- Shamil
>
>
>>Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee < davidmcafee at gmail.com >:
>>
>>So we're trying to consolidate the over 3000 dbs and spread sheets we 
>>have throughout the company. I made up a little split db that allows 
>>users to enter a project/task name, select usage occurrence from a 
>>drop down then browse to the access file and/or excel workbook.
<<< skipped >>>
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From mcp2004 at mail.ru  Wed Feb 10 10:03:34 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 19:03:34 +0300
Subject: [AccessD] =?utf-8?q?VBA7=3F?=
In-Reply-To: <CY1PR0401MB1020D3202780E6C0151AD5F9BDD70@CY1PR0401MB1020.namprd04.prod.outlook.com>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
	<CY1PR0401MB1020D3202780E6C0151AD5F9BDD70@CY1PR0401MB1020.namprd04.prod.outlook.com>
Message-ID: <1455120214.829786624@f344.i.mail.ru>

 Hi John --

Thank you.?It should work.
I have been doing quite a few of this MS Access VBA meta-data programming stuff starting MS Access 2.0 till MS Access 2007 (when .accdb were introduced).
I have just checked ?- the sample code works for MS Access 2013, which I have running here with sample database .accdb format for MS Access 2007.
As a proof of concept I will post a zipped & uuencoded sample database + C# code to decode & unzip it in another thread here.

Thank you.

-- Shamil

>Wednesday, February 10, 2016 3:21 PM UTC from John Bodin <jbodin at sbor.com>:
>
>Worked for me in 2010 and 2000.  Very nice Shamil.
>
>I have for References in my 2000 app VB for Apps, Access 9.0 obj lib, DAO 3.6, OLE Automation and ActiveX Data Objects 2.1. 
>
>John
>
>-----Original Message-----
>From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
>Sent: Wednesday, February 10, 2016 10:00 AM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] VBA7?
>
>Curious. Certainly not working with Access 2010 accdb files.
>
>At least not on my end. 
>
>Lambert
>
><<< skipped >>>>

From mcp2004 at mail.ru  Wed Feb 10 10:17:12 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 19:17:12 +0300
Subject: [AccessD] =?utf-8?q?Sample_=2Eaccdb_-_three_posts_=28Part_3=29_-_?=
 =?utf-8?b?UmVbMl06ICBWQkE3Pw==?=
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455115218.796013581@f395.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <1455121032.483526855@f335.i.mail.ru>

 Hi Lambert --

Here is the sample C# code to decode and unzip sample .accdb - the code can be run using e.g. LINQPad ( http://www.linqpad.net/ ) - free.

// uncomment if using within VS
//using System;
//using System.IO;
//using System.Text;
//using System.IO.Compression;
//using System.Linq;
void Main()
{
// the folowing commented two code lines were used to prepare the sample .accdb 
// ?zipped & base64 encoded
// string accdbFullPath = @"s:\projects\databases\QdfTestDBs.accdb";
// CompressEncodeToBase64AndSave(accdbFullPath); 

// combine two parts of posted base64 file and use the folowing two code lines to restore it into .accdb
string b64FileFullPath = @"s:\projects\databases\QdfTestDBs.b64.txt"; ?// type you fullpath here
DecodeFromBase64DecompressAndSave(b64FileFullPath); 
}
public void CompressEncodeToBase64AndSave(string sourceFileFullPath, string suffix = "")
{
var sourceFileBytes = System.IO.File.ReadAllBytes(sourceFileFullPath); 
var sourceFileBytesZipped = Compress(sourceFileBytes);
var sourceFileBytesZippedAndBase64Encoded =
System.Convert.ToBase64String(sourceFileBytesZipped, 0, sourceFileBytesZipped.Length); 
var lines = new List<string>();
const int B64_LINE_LENGTH = 64;
for (int i = 0; i < sourceFileBytesZippedAndBase64Encoded.Length; i+= B64_LINE_LENGTH)
{
lines.Add (sourceFileBytesZippedAndBase64Encoded.Substring(i, 
Math.Min(B64_LINE_LENGTH, sourceFileBytesZippedAndBase64Encoded.Length-i) )); 
}
System.IO.File.WriteAllLines(MakeFullPath(sourceFileFullPath, ".b64.txt", suffix), lines); 
}
public string MakeFullPath(string sourceFileFullPath, string newFileExtensionWithLeadingDot, string suffix = "_V2")
{
var folder = System.IO.Path.GetDirectoryName(sourceFileFullPath);
var fileNameNoExt = System.IO.Path.GetFileNameWithoutExtension(sourceFileFullPath);
return System.IO.Path.Combine(folder, fileNameNoExt + suffix + newFileExtensionWithLeadingDot);

}
public void DecodeFromBase64DecompressAndSave(string sourceFileFullPath)
{
var lines = System.IO.File.ReadAllLines(sourceFileFullPath); 
var sourceFileBytesZippedAndBase64Encoded = 
new StringBuilder(string.Join("", 
lines.Where(x => !x.StartsWith("---") && !string.IsNullOrWhiteSpace(x))
.ToArray())); 
var sourceFileBytesZipped = System.Convert.FromBase64String(sourceFileBytesZippedAndBase64Encoded.ToString()); 
var sourceFileBytes = Decompress(sourceFileBytesZipped); 
System.IO.File.WriteAllBytes(MakeFullPath(sourceFileFullPath, ".accdb"), sourceFileBytes); 
}
public byte[] Compress(byte[] raw)
{
using (MemoryStream memory = new MemoryStream())
{
using (System.IO.Compression.GZipStream gzip =
new System.IO.Compression.GZipStream(memory, System.IO.Compression.CompressionMode.Compress, true))
{
gzip.Write(raw, 0, raw.Length);
}
return memory.ToArray();
}
}
public byte[] Decompress(byte[] gzip)
{
using (System.IO.Compression.GZipStream stream =
new System.IO.Compression.GZipStream(new MemoryStream(gzip), 
System.IO.Compression.CompressionMode.Decompress))
{
const int size = 4096;
byte[] buffer = new byte[size];
using (MemoryStream memory = new MemoryStream())
{
int count = 0;
do
{
count = stream.Read(buffer, 0, size);
if (count > 0)
{
memory.Write(buffer, 0, count);
}
}
while (count > 0);
return memory.ToArray();
}
}
}

Thank you.

-- Shamil

>Wednesday, February 10, 2016 3:00 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Curious. Certainly not working with Access 2010 accdb files.
>
>At least not on my end. 
>
>Lambert
>
>

From mcp2004 at mail.ru  Wed Feb 10 10:07:35 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 19:07:35 +0300
Subject: [AccessD] =?utf-8?q?Sample_=2Eaccdb_-_three_posts_=28Part_1=29_-_?=
 =?utf-8?b?IFJlWzJdOiAgVkJBNz8=?=
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455115218.796013581@f395.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <1455120455.537935748@f344.i.mail.ru>

 Hi Lambert --

I'm posting here zipped and uuencoded sample .accdb - as postings cannot be larger than 20KB my post is split into three parts:

--- start of part 1 ---
H4sIAAAAAAAEAO2dC2AcV3nvvzM72qd2V1Ic23H8WD8SO3YsVrIsP7CN3rZlybIs
W5YTE1vSruy1ntFKttUQLJJASQI0Lb2F9NIEkqYUaNOUxoECKeFRkktLSSEBSoG0
PG7pbYDc3rZQSqP7nTNzZp962FYsx/7/RrvzzXl855szZ2Z1nkOCqG2kcyDWORyL
VNfWR+pqyCCicwOurmO+zx/8548cH656E33grQ8/MPH23y37y7FP/ST6mZf++ve6
/+6HX3i44b/u+8zem297edPP//EDv+z7rzX/+8+vue/Yq2V3VB795kt/+t3Wa2rj
/j/d8NAXx27dXPSWtY/+w1se9C57/3+X7XnrzRX339Nz9H/84vl7V739+JeWra77
2k+/Gv/JhOfZhg+dmV/4k39e3/XCATdRRWmUAAAAAAAAAADMDj7hF4Ttqt2EiIWF
XRYM+nT4VHhOiyMAAAAAAAAAAACmoojGJy4AQ3wvIKMvMokOu4nW2OpElvq2YgpQ
sRoaID/EQYXb8lqTFkzLhVKXj1ws+lhziRNAeXiVjkwPr/QwVbrS4xrl6OegyqMg
y6OEPUzp4XFUWR6LWIdfevhZyEzjVaFiWKRiyFQD0iPIyrKtUh5FrCyvR5hPMa9H
iM1L9zj7JrKsMpzEU1b5pIfbOcHyTHNFlrmmNrdQXoOsxJWqAOdWdhou6eHKykR5
GUJUS4M0wFucummEz7WOOnnfSV38SbLrPNslziGH+duSU64HaYhituynBupj+TjH
nM/yoIqR4OMB2svu/Xxk0m4Ob1ITneLU5Xc9neHYw+xfpI6bOV6MRllTnM9Suuxj
30FOx+to8VMLnVZWD3OsfewqUxpgPVL7fNrPoaQ8QD0cs0md43FamOXeRieUjSOs
+QCNcQpxutsjM10YJCYmKO9fkSp3Fm9T33erw0kj8F+xKvaS8TdZcfTFVRdY3orq
6ppC+zmk/OwCIM9wYc4565zxkSlvGOs2k1ddFW2vvB9VWQ7JgqsKb6H0UaXVL4uN
VabkubllogQAAAAAAAC4wjDER0Jy3yKsWseY7Z5T/5dVczNVYeGKr/BZXrrOb1oV
3Mw6pqyuinyVT6ln0vq4L7Pmm6oSu6maq6HNXP1pUJW4E6oCmLArrLLCWMQVwy46
aVdnZcXIzdW83VxdTa+kVU1MPJFbSTN8pKr6kneq76kqYrkpodIEAAAAAAAAAOAy
xRD/EpT7oGFVdvXwf13/f8eud/w8KESgzcvVcm+q/h/gfcAKoqMY+burhdXnX5A1
GKArTuSyer7NjBgFZOiu/UwPj+7aTzUlWKpOJF4Vfmv4QOa4grKlU/T5+/L1x/eM
vCpKqJrr8yOqXaGLRu3ubtlJPaQ6XJO8JVSHstfp7s7uyPY73bFlaXJ5njYD2ZE9
zHvZjmG3UOje550TE9+fmHh6YuJNExNbJyZOT0y8YgZkJy3RM/f9y7pUN7JDVjfy
ipzUcs+Ms5t1ugLo8gUAAAAAAACAKxpD/JWsT9J6l1WVNGz3nP5/L9cUvaoOLz8U
5CBBW0W6ujzypOMC7PHt2eMCbI/c0ep29b8gZ/aAU/0X+T08eeYC+K22h+wZCraH
RaZHiGvR3Vzv7+Oacz/X/v1c7x/merQcfRDi73S/IkrSr6mh9Zku6fXxVcplPx/1
qNq/HMrdzd+xjHiTh0rXtdgJ1aeG4lvtE0k6wdLQDIanG0E5DNziLvUt45hTxnEF
U20/qTjuKeOYQTluIj3OJMPgHT9nxkkeP4eckRkzz+uZ5yLaRwAAAAAAAACva4T4
Nz3inau6cv2/svDLoQ+HukJLQt8Kvje4N+gLfrHwbOHWwn8PPBHoDdwYmEtrAQAA
AAAAuHRk94ldCOOzoCMdY/ogl0jJZcN43eWiBIAZUTR9kElxbt4LUmKKx3yT3v5e
oir5XaQeW4KlKjVtX3mOW0kKFYYoom0xHaOELXi1cRF7b9rPwSLr43VcpO4iK5Fx
W6+tWa+eBs6Ps/wxzh6LtQze1rpZXpDiRWd/Q7q3NPY3NjY3t/b29jQebO1VXiUp
r6bGXttRWI5tscQxy+Eay8HSaTnNs5wSrbc19h+OdfUeOtxjeRjaoyeW6LecrrWc
epsTh3tsp/m206le1qBcFlgubIdOgqSLONu2ztW6uWpb5Y62Xbtqmhp2tLVs29VS
WdnW0NZYta2pZmvjtqp1LnkCKtL1VqRjrNk6197+WIJPV3kuTve0UylIuTXHjvXc
1jraHLtt8FiX5evN8e0/1dO6ztXY39/YfOhYa1e/ClY8SbCW1ubDxxqtEwxPEubg
4OEWFSA0SYDDra2tLbFBzhcVLDhFsN7DXQftYIWTBLst1nVQBQhMEqD3EF84FcI/
SYh+FlSAokkCDHb1Hj7Y1drSdKrfMsaXCtjVeKz1WGOPcl6S7nx7T2NX68FEbLCn
ubG/9WAscdi+Qkvzh7I8l+X37I/Fmm5tbbZLWyQnkOV7uMXyX57yT49mppxPDLY6
9rhTzrnF35Pu2RsbTOhytsLykIpOWbflyjSXrcplleWi7gErzA3SxVDqWpqUi8ty
6R08dqwxcepwV1tMOS+0nAd7WxMtrW2HOfOV83XS2TVFDufP1RvzR8sJnZHNR2b7
SQYAAAAAAGYDU3yycLL6v2F6iyJV4yRmIlxSq8FMOWvtuGpPqkGGa++kWmW4zk5q
LgdXyEk1wHA1nOTsCln7JvWGB65HkFrqnmsOpFpgihdJwafqK6QWS+RqCqnlILia
QGpxgiN0dtxKwpSCS1Wrx60k3FIoUDWjcTW3guvULCxQtUIWrlMVTRauV3VSFpao
2isLy1Rtl4XlqnbMwkpVj2bhBlX7ZGG1qn2zcJOq/LNQqir6LFSqGiYL21Qlclw1
L3GFkYV6VSlkoVHV/lhoVlU0FvbrWpfQTRCGbhJxqeaNB6zsdb1Glw8AAAAAAAAA
Zg0hlug53Fyjscb/z6U9AAAAAAAAAADAZYQ5u+pmo/e86oKUmOIl32Sdl+fV//8a
CheRKVc9dv9/uyMILRhacNlDA9oLtODWgkcLXnvUQLtPC34tBLRQaA8oaC/WQokW
rtHCPHusQbsedNA+XwsLtLDQHobQfp0WFmnhei0stkcotK+yRyi032CPUGi/UQur
tbDGHrPQoQcvdFyvhcX2KIaOJVpYqoVl9riGjpVa0CMdOm6wRzp06CEPHau1sMYe
+9AR0kJYC0X2aIj2N2ghag+L6CjWQokWrrEHSnTM08K1WphvD51oL9NCuRY22IMp
2pu00KyFvfbwivYGLezUwi57wEV7rRbqtFBvD8For9JCtRZq7EEZ7du1sEMLb7KH
abRv1cIbtbDNHrjRvkkLm7WwxR7K0b5bC41a2GMP7miv0MJGLVTawz3ab9LCWi2s
sweAtN+shfVaKLWHhLS32EIHaUHYg0Q6DC24tGDaw0Y6CrTg1oLHHkjS4dWCTwt+
e2hJR0ALhVoI2oNNOhZoYaEWrrOHn3REtLBcCyvsASntS7SwVAvLtBCxx6q0m/ZY
lfagFkJaCGuhyB7G0r5cCyu0sJIAAAAAAMCVhBC/odd958pFav2/ubQJAAAAAAAA
AMBVzsUsk3c5M4eLeJriR4WTDmaIyL7IcZXvhrUSIIl8juCyRXV0nyW7H1/1Lbfa
jiLD0bAcXRmOLsuxIMPRtBzdGY4FaY6GdnSnObq0oyfN0dSOXstxIkOnMtCfZbzP
csw0PmA5ZhpfaDlmGh+0HDOND1mOmak7r8UAAAAAAAAAgCsC9P8DAAAAAAAAALj8
uGzewFk1G0pSzEof+gUpMcXTwYIpA1y4bjD3nO/Lvm7NjTH1e75uxZsfAAAAAAAA
AOD1gCl+PEX9X9DstLmAuSL/i9Lz1PJRqQcAAAAAAACAKxpT/NNU/f/GLC1OAOaI
Kfr/J+vuRwMAAAAAAAAAAFyBCPGAU8NfTefCsXAg/GToaKgo9OngLcH/LLyncEnh
JwM7A9/w3+53+z/ki/q+7r3Pu937iudRT4fn5+5H3AfdzxUcL/iaucx8q+srRo8R
ND4qdopX6OUqKpZvSxt3EYW99M4vbPxkx7kfVum9TLCZ2miMkrSXOukU7ePvAYrT
ThqmQRqlIapllxF2Oc7Hw5RgKTltnCS75tsiFBBHiE3aT2pMQ1jQV/7jn5ZIU779
ng3LtUkHWGEX9bHKMjr32M+8VEW3WLmzVW2lGdvNUi1NyDP185lKtQX0wNPfu0Gq
a/iZtZeRW9m2ONs4RuWsdplBVa5Dltq3sCwOW3LDFEmIYvnCOjuJdV958yqp+qZV
t63KTUJavt5FVUZaEjSzJJqdzFm/c526TusesvZ+Mp2836+uhMzvYepW8rnHtlHu
ttVSLHO90VH8f97XXCkVRh6y9v5JC0ILX4mTvO/mQrCb6lQyjZS77UolU+8k0/P3
L6mL+9n/tfGTUyeTKjsHeJ+eqEywIm3GUPP+clpE0qGE9nCYOMdp4jjdrKmP5qsw
bvXtJ+GXTWcH6LfVdiBj258qNlWOwW940TL4mfMweDYMvEdtdRlbTcrAbY6Bv/gb
y8B7vzBzA/PdwRdv8u+orT1jO5AyudIx+fFvbY5IU3/0PWufbXI/J9fM+6FZMOqM
2jZnbJUpo0odoz798HdVPv7fx6x9ulHVnIR1RyXZZUTlWifnXpwNrKPcrSZV9G9y
Evjbw9Yte6pvnf2o9Y/30FG+OcpoI22gKFXwc2ALb5WsYLM6qmP3Lfwd5a2B3RrY
FBm2hsOUs7yBj46yv7ycnWzMEOVuAyljvJx3/LMy7hnv++kfl0oj9N567g9SjMuH
fsxGKXcrTSnzWMrCgfGyt1pFUO+lsoOcVfK5V8ffPVzEZAGMsdLNlLtVppS6HaW/
PG0p03uptI2t6+etUz1Qd7PSHrb53GP3yffs2o9V6wpMesELrPIUdtGBz1iK9d5K
QD9I+1htKeVuN6dsNR1VS56yVOi9papb3VtD9hNrmtx0Ocr+6U8sJXovle1XZV0W
uxkpM6a0LP06z0CZcJQ98RFLid5bv1zSqn6l6GbK3damFNGUWa8Lcfq9ts++y6Ty
KsrddqSUr3buszveN1/9guk9kWtc38i1bG0/56Q89TP8dBhjOc53UDUnLRPvphPq
6TPARwfybjLBz8oEb8hJ8C3nkeABdTzCP5L5NieRlReVSJ36wUyoG6aPn6z5Niep
5U5Sdb95/hm4k294+c/ANOezLCeR+t+ceSK7+Vkptzr1M2b9PzjNVVoyKwm2qQfY
8ZkkeP1FJSh/zWRC02TjdReVSBsXcutRku/ftsZUMgsuKpmDfCZJzrjj9rO/hn3k
Px0deTcn0ZKcROucRGmSROVRn/ptkEnm+0WuSyVQ4CQw/93WT73epydg/QbIR1JC
XZMkZ1pC/W/35Ien+ck3Z5SArhhY/309+eFpfhhdM1JazVlRr9SVU+4WzfiFmIG6
zP+6p7WRKZI/3oaj9NPbT34yW2kdKz332D1cEzJvs36yp6nDyZqq9buRz9apLtQ0
tR9jSsX6B6mLP0n7IlVQ7lae8VM5hcJUJVaqmvKfC0PUBWXOPMkmHnanRvzr/t+F
Rd2L5X5vATsVqMKhVnK/hoNcYwVJ7yrOJ/sPu7WTz1TvKWd+OPqqMKWHqcJJjwXK
o5BdTMsS7WGnoz1cWR5e7WFkebAzzcu4ZfX//CVZt7X8QblxkudLdi10hQo3oP51
kP9yjarfvFSWyzDz+b8Vq6hkut/tUSc8MUH5/t4yMTHPYNPnse0TzP3qLGQcVyrO
RG5MF8e5Vsbhz31OHGPSdOSfyXHmk7W8gxUn/eqrdFQWmo6fvJGNSfwcUn5KzRo+
65j92Jw6xxbbIfPnm9/2lbKVAAAAAAAAAACA8wPr/wMAAAAAAAAAuPyomg0lkdlQ
UjQbSjSRuVNiigWhkkn8MPP/9c/ZcdWjf3Cu7QAAAAAAAAAAMLeg/n9lI+v/zaj/
AwAAAAAAAMBVD+r/Vzay/n8T6v8AAAAAAAAAcNVjiN+SCwlSD2Wu5Jb9/re9ItNx
IR/xx8hc28/lxPZTu1rlTS49iRXbAAAAAAAAAACAuUWIWFjLhlr/by6tAQAAAAAA
AAAAwGvBhfb/L+Ij/rjy9/8b6P8HAAAAAAAAAAAuI9D/DwAAAAAAAAAAXPlcaP//
Yj7ij5m//99E/z8AAAAAAAAAAHAZgf5/AAAAAAAAAADgyme6/v+tR6x9dv//Uj7i
jxv9/wAAAAAAAAAAwOUP+v8BAAAAAAAAAIArnwud/x/hI/548vf/e9H/DwAAAAAA
AAAAXEag/x8AAAAAAAAAALjyudD+/xV8xJ9w/v7/IvT/AwAAAAAAAAAAlxHo/wcA
AAAAAAAAAK58zmP9f5He/7+Kg/CnKBWnhKjGUNJfxH3o/wcAAAAAAAAAAC4j0P8P
AAAAAAAAAABc+ZzH/P+M/v8bOQh//Jnz/w1bflWg/x8AAAAAAAAAALh8QP8/AAAA
AAAAAABw5WOI94XkvlNM0//vJpPS/NdwEP4EZByXWvdf9f8XaX9TehRwHPvFAMrD
y8dqxIA1lCA9xqvCKz3MrBgyjophqLEFaTEaXhWFWYMPlEeR+jRQgvooTnXUSSP8
KXFcGvi7k45TMi3UXnbp5/0ix+UA76VLm4rdT0NpoQ/QGB/HKeS4HKT91MSZYHKO
FKxR2crfLv5g6AMAAAAAAAAAgMsCIXaFtOxW/f9l4ZdDHw51haaKBQAAAAAAAAAA
gNcThni2UO7LXNP0/3vJTV7V0S8/tJaDrJ1ZEma6Xk7RK7/Hf2ZagweyhwLcu9yO
kerx10MB7MEDrqyhAMUdzuABV0YMUw8eKMgaoPDQcnvwgNsZbmB5LC+2E/dwHAu3
qdL4BSdOR53xBHMzwmAVNXP4Mda8n92SNEijNEzdSk7ZdrdHXcCJiV9MTBRPTCyf
mHgoS3bzlVun8qH4F+9UZ2nHcclo+eN4OM7Ndpx7nTieKdPxcpz1GXEyisLEhDU8
wjQdP6GLXh4/edWNTD8VNP26rKLdFKMznG97aB/njczjTt6Pcb51qwUp5FEqH2s5
D2Xeyzw+wzH2cPwB1iCPBBlsv2utKib8XbAW4zkAAAAAAAAAr2OESAa17Mvo/18S
+lbwvcGp4gIAAAAAAAAAmCUis6GkaPog0+OdDSXg8sMUkdBNc20EAAAAAAAAAAAA
XlNQ/wcAAAAAAAAAAK58UP8HAAAAAAAAAACufAzRrub4P2JYi6wtZjlGqfX/hDDv
cn82etdeD8nNWf/vDez1Biv4YjvoZLI36zV92tnySFv/z/HIWv9PRzdzXjfonIY/
8+WBjoew30NYkOVhWmm4le5Mj3n2YnJxqqVh/rbklOtBGuIcsmRTLTdnUhOdYrP1
In9FtE8tMxenAQ4lQ3idJf3konmGXDSvc2KCJiaK1Hef+h5T3yGTs3WDNOUg7U8t
tFdAQkXjEKPqO66+69R3ZwHHqSC5PN03J96WHseUcSzWTkysU6GD6pvcHGejupzC
jjPJ4nxC+53n4nx2fsrzn5eTI/KzMMdV56CLDLbO9QYsuAcAAAAAAAAAs4UQwnnT
nydr/b+5tAsAAAAAAAAAwNwQmQ0ll89ShMb0QabHPX2Q6cl+0d4lViLEPk+pLS+m
R8NV4e+GHgl1h1aFfhR8PDgYjAS/W/jRwtsL1xT+KHBXYHvAHfi6f8w/z/9J3yHf
973v9jZ6/9HzO57ZOAcAAADgasdD8SUL6zrO/bBK7+WYvFsEVRnlVoh9tJ9aqJHq
qZYOUDFZ/9JspgqK0gqaTyXkZxcPnc1V1c0BFxGN68SaB2OjffEyaqZBitGoehdq
WZ5ETlO/k1A7++ylbZkJ/bwoM6EuDvhXBlUJ2+YYJWiYI1gqonQzrcm2NVtFJwdc
FaAqslUc5ZRrqJr3mbZppTW0g7ZmK/2cP1PpMQ74fTcrtc6S1eyhXRy1g3ay4kba
TYc4iRpqYOUH+TSbOYGDdAv7tPKRPPVbeNvjJNpFt/FxVqJtry5QiX1gpZXoUQ5Y
mJbrIu1Tbb/DN2mfnX6brddOYC8n3UClmQksPPSfFVKx3q/hgOG0BCQFPiPK+VPD
mS3fhjtIQ45ut617N59kNedEhu5H/u2PS6VOvV/NARdm6TZLcguMi9XLa5ydyH51
ClszE+n7aWYiN3DAYFYizv/p2eavsj138um9id4wteZVqri57dyO8D+6CzlCKspp
D/122ZNL08tIiSrk8mIU29FWqYhZ0X62NDNasRPNMvgkZ003G+y1lZTzVVybreR/
bv6HJTKy3stq0vzs3C7Sryyuo668eR2wc2QfNXFp3pyZI788/ZJSrfdhdeX7+dqf
YbVDysqkUx6tWzPLyi/cbkXVe9k9WMtXP8mpy5co71QnPMrKUooq1QlPoyio7ts+
jtwl7xB1Ejfy7bR0uoiFytTAVJdVB9VZKwPrDOviT1Ldd+d13v40FfLG1bfuPvXS
73R129TzeBp1PpWN/XwjdanBsKno0pZVk0XXjxWvU+B0tLzlNDtVWWOTb8SWb8ge
4lOZYar6WSNvpfS7f4bR9b5APRLinPIgWzDj1PVejixuUFH706KuUWeeFfVdvVaU
8YR1n7ry3FpGQt5fUjjJXz8wcx82Yqpbqz1uJaH3hsob615NLx9t6j4ZtkvJUT6u
5Uyo5t+WWlZq2GdhJZF1Flq1PgsxwyTkL2QLJ6CzSP6K1GQqFyLka2qvbiIVZKmP
AAAAAACuasR8/rfpFRbm8T+OL/D+OWHNcFvKxwMFdiD+LHxg31Hp47IjPsWyyJgr
Z03CuzAzZIVQapYJehxdMgWvfXSGZtCnZSXfXJ9ujP62jH3JPi50kpiYMLnyqmVK
c39tWaMyVmyz7LEkryNZHYnGNm2TEAtVBiwyOuz9GsPaVxips5fhnmEpULLCSJ0R
Ubqce8kswsrnHpXLkXtWOfE7dKQPDlUt4Z1sxIjcc6PjfyYt/5dwLUP6H7tnreNv
pM1wjNxT7rg/kRHPq+JJ9yqVB7kFKV8eTuaeHSY7D2YWg166mE7UV78sZMvKuDdV
bMd9jiUr3uZVzTWqr5fDyH1RmrwwTY5ImcPLFps1tizdq9Lcd9mybAg6lhb3nWlh
HlByEVeSiP7Qdpd1/V+kyV6RkheybL7Nsn+N0OVrM0tfWWxd99+ZZ53Ym+lfzSp7
f8zej/P+J2y7m5bTzcZyKjVKaZVBhUU37+j9I77Cq4nLCPvfaLzK36s4RNR4L/3u
g5Jb6e/Yba3xFPmoNNI6Gh8e2xrh3JShl5NbFNM36IydzvtljrJPudIj/StZzx29
C3fW9f4Bl0fZ+CL1PcVpRlS45bTZkBYEuNwVs7vBaRTbPluNYhWylLTLNkOmdkfv
E4/f2avTec7ONUsvsb+FPp/n7ONBzrPn7Sv+HOn7Tpz8U6oeGRlOdI2OUDzSXnN0
b2c/C9sjK5oHYySbqlcE/S00NJIYHIjUDlL/UOdwPFLHVfXOrs5kPOinoH/faFdf
opsibaNdkZF4kkbW3BT01yX6KRLrSkaqk5FoXXVLqecWEb09ZvQURFUm1hXGe1xd
tHD3QCxunBFLdg+MxI/Hq4aD/rb4iNG4nSLV3d3xZLJ0TfXQEA10iveU1tLo8HB8
YKSuywz63du2R8o4+YbB4Uh9Z/eJRyI0P7J7QFSXFvQZSeqPd40eL90XHU4MjIjl
rtEbI94VpRGjZGtkRWTRjaKwVNzj2tvTF/vc229pSMT7Yu8sE8Fbx8toY6kRLIyu
uOvGNWK8pLRlOJYY6Iz07RtMJowPr4t8seym8YqjnOr2t20RoqRtcHS4O37ggc6u
vvh4cEXp/YHPmTv2xs+MRMbn3x8PrRh/4a7C8fqgv37AiL3ty0G/EI+Srv+76Dtm
sfGJ87uR54bdddtX3LE5Wlu7cUNF2fqKjfUV6ys2l9Ws31JZtmV9Q+WmTVs2NtQ2
1DVsvpPLitXBsd3u5wj6uTzFt6+o67TKSzmH2BXvG6od5Mt9ZkRqjrJTe3w4yQWs
dpCL10iCc3ND+fYVG7ZsKC8vj0ZlgNrmndtXlG8pr6ndUFZWuyn9w751+2q2r9hY
vjFas7lsQ320rML6sM/O2u0rNtVs2rKlrKK6pqaiRn4qKtgj6L9112ByJFJ/ZiTO
JXCYi07P4JuD/ht3RS3Ktt+xYfOG8rrKiuj62oYt0fWcVsP6zfUVG9ZHo9XR2i1l
ZdHoxuo739heU/9GJ1ZUaT40ONybHOrsjr9Z50fZ9vLKmyPys3nTFhY2brw5cgsX
iGc/Pi5Uc5ig6FrDeMBHQ/Pcu1x0l0GxH5gmP3MWk867uvICivKj1pjnPmf4txt+
jzEk5nndJYbPKLn1T852+Kmx0GjcZvjnkxhOVo3EBvviO4zrkkQjFOMHQF8VxfkZ
dIJuuE2Qa+2RnXewwc+URys2RNeT1zRDteQ3QqIkGq2opDtXlpdGV0ZXUu3WI4cS
A7FBOp080jaWPNRSdKiy4ogrXl46Qn1dK1ua6iPVNDoy2M9XbrBhgB/5Yj65xo06
b3XLDqOxjqrpZAtV/wX5nxwXorqCqmu31JfVVa+PbKyprls/7t60njZX1m9YX17R
QBW1dbX1tdXlRZvvXNldUL1veJCOD3f2RxoSfRRPRtac2Vx50/gRLif9gwMuHx1p
TnQPDyYHqWck0naCn0wUO9LS0LC7tr6qbOOR6tr68brSorqmppWekpaeHkp0xyNl
G0uj+tkSMWL3fCkSHzieGOBnXkvXyXj3CEWaEl3DncNj1/Ajlc9EvNhesztSV7+D
f4e87TReQ7upjupp8FNPj3v+bFy8bVNVazkt69p0a8fG0g21HX+yqX1NTfWRZ6iS
RH3leH3HgdKWpprnNlF7Ijna2Repoc5kojvSMzg8HuEnGz84P3+CklY5TFKiK9GX
GBmLLKhaXrV+nMI1HxZ0TfXnxcIHriNPVUEzWaVpJzWEhOuZ9/IT+vO/XVZEi2jx
M2bLnl1U07HzaOPuQ9VU01B/cG/zgYN0S2Pr3vb9t9xStKecNld7aQ8Zu6oard63
+xqrmg6N31NDDc80O51vazhOlbu1ytVO397/jHHLM4XVC6gqNF70ApV9/umRZ44u
rTE+Z6642Vi77+hy4aJ1BTWiqEb8def71D9L15nWGh8/MFPjpAT/M23Qq7SWjnC6
--- end of part 1 ---
-- Shamil

>Wednesday, February 10, 2016 3:00 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Curious. Certainly not working with Access 2010 accdb files.
>
>At least not on my end. 
>
>Lambert
>
><<< skipped >>>

From mcp2004 at mail.ru  Wed Feb 10 10:09:19 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 19:09:19 +0300
Subject: [AccessD] =?utf-8?q?Sample_=2Eaccdb_-_three_posts_=28Part_2=29_-_?=
 =?utf-8?b?IFJlWzJdOiAgVkJBNz8=?=
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455115218.796013581@f395.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <1455120559.386033616@f344.i.mail.ru>

 Hi Lambert --

Here is part 2 of uuencoded sample .accdb:

--- start of part 2 ---
d3Aplls5fyo4Jxtove0SzZBqc9zStwrO4DtpJe9LWdNK2sKfWtrKKVidlTtVe+9b
2e8Iu7fwqTXz9152KWOXZr6KtSpcm+1itevr/SbWql3r1VEdNfG2kl0SlKRR6qQ+
/oWtUd0aCeJfP7uVPMKxh3jrU66ySTvB7gMcKp2lQucF3w8cs4Gt2cKSPNuNfLSF
t/VsQZQ/NSzJMDKvrLyoViGjtIFdo+qzSeXFFrYzyvtoWl7IxvXjqpm6X9mYsPsQ
Ivz/2xnazLl4k8qPhOqgGGQfvpvY6gjnTQ9vCdXgfSTjiH8mVZw2tqOWt1L2bWI7
V+bVk95oHlFxpZVSf5fTZRfh+Ak+HlbdMmMZefWZvOVmQ1ZpOd9yU56TV4fYggH1
oDzNlh6xm/wPsZ2HOE4FuyT1g5StlvH5Acg2r1RnX6/OdNTun0td93ROZFx1ecXr
OT/kE1Jedaszer3tt4kleXXq+UzXc2oVqgTUcoha1Q1fzW6b1Zl0X/BVr1W29is7
00PlLw9t/MthrSATU+VBltrdyhqrPFQrWZ5NS9r9Ml3JSi8RmSUlltV1GFFr1xxX
Vyl+HuWnR2SXH8viTRdVfqTNGy55rmc+pSqdJ5QsJx388J76Tpz82dUzzbMrojqv
R9QVSKqcTqhQI5zXETsv0pELTbn5vwmiQkNQiPdF/ClheR5/5hvp9V+uu6h/Xqar
PeerHacf5RuXu/ABwfl+oWNO5qnn70bWsIlzqJM/cd4mJpYaoawBPBMTsklKIauo
IwXaNCEixqVryHk9QFdhfvzOoyWPPt7WUPex09fcXVJc8FHpJsjKh2Oku8iXisXk
EtvWWKXIbVr/pLrM9prqn38/SgUm/x9eVvkbRba4ofxFLVZWNBRHyWU2d3b/2cej
ZMoolX+80pY2Pc6Sz3TqYPOa5PicpKofvPdYVA5uqW556C7WRfy/bl199USUPKZd
celixT46Wn+qs2+0cyS+8O+kUq7lj1R8TKbINfxn75LC7bGee5+Lkpes2n28595X
+Eg6yxr+mX+vkYNHrH94ZUVh4LG1Um+trtG3LZCHOm5y+4DUyfXz77xHmqWq6L/a
IM1WYnLTR6IUJqt6rmrnUuWXt8g07Eq5rJOf+vWUg4oX/XKUDHlTHiBdCK1n0UJD
tg26VWvfIsPF34sNk7+XGXLmgRXSO4OC66aQevqV5K1Im2JVsDSvD19w01sUqRon
kV+YJBa4nDg7rjoookrg0hIVUnCxYEiBa0VRlxT41yFqSsHNQoEUPCy4peBlwSMF
HwteKfhZ8EkhwIJfCoUsBKQQZKFQClzookEphFkISYELTDQshWIWiqTARTJaLIVV
LJRI4QYWrpHCahbmSYEfPdFrpcA/ZtH5UjjGwgIpdLKwUApdLFwnhW4WFkkhxsL1
lySDAQAAAAAAAOB1gineXzhZ/b+Kq2wmiZnvLqnlYCao+n9GI0BmA4DIaAUQGU0B
IqM9QGQ0CoiMlgGR0TwgMtoIREZDgchoGxAZDQRGRhuFO6NhwJ3RKODOaBnwZjQq
eDMaCwIZrROBjHaIwowGi+KMFonijOaEYqdNQQXKaIUoyWiKKMloj1jltGnM2gUF
AAAAAAAAgAvEFE8HJqv/y/qdV02k8cpKk6Gm4IzLoyr1EjuSfl41A0fNthqXAaos
zyrpOm5NwhmfpUUbwflj1bKbj7U0NSZ61RondhW9ebC3P3bsYCI22GO52xXylsb+
xsbm5tbe3p7Gg62Wly/l1dTYazva1fm2WOKY5WC3IBw+1jra29PabDmGLMdjsZbB
2+yIdmvCsd5TvVZCbEiC01rnSsRi/dY6LFaQnkSsRyaq3OzmikRrTyzRb2myWyl6
mxOHe2wnu3Hi9iYrksdqV8iTFkdq7G8+pELZ7Q2V6sBubmg5nFBJM+Met5x5qZse
MqyyGyAapW5O1HGfb7mzEwe/tbXZOq8iqxHCSshukciTkN060XRbrEmFtNsn0jVd
n+GUPKYc7bYKffJWi8bZdS52WOdKj203VXDS6vA66zB25FDT6MF1rlsPJxub2loH
u471D5659UTX7YkzZ46ogAusRo2MHEDTBgAAAAAAAK8XDPEr9Z6/X5H1Hne5zIz8
ZPfl7y2gAipIHW/iIPwJp94ZL2fY6rU8isi0XhgvbA8dyiS/9bZ4IyvGXRSwkndl
eZClylRT0lMe8thLO+mgmvtsvWXe67w/PuRIzbwfYp8DNKaWOXWRsclSizfLAwAA
AAAAAAC4ehBiSVjLLvp0+FS4LDxVeAAAAAAAAAAA4KojOBtKLuYtGhevRIjHQ3L9
/0994q7rBf1FaDaMAQAAAAAAAAAAZh81Y5Y/O+zjo+//2A9OPNvT+MQH//n+Uw+e
/pJ0a6zbsLzj3A+rdBw5LD144IbkAfUuF+t9GUSVtu+LO99Y9bXSBxrecfqzE1+v
O/o9Tx6tcjR6x++VCDn6nGirHXP5owsX3b/uM833n4w/XFrf35Mvpt+O2cDpxlS6
OvYLVfM/9obnn9rzSPP7/jD646fGpo9dnhb7LV97dt5P3/Xw3l8PHP/blluLfzl9
bPl+FCFWhvV5u+jp8K+FN6H/HwAAAAAAAAAAsCigh77yYuD5vs/tfPCru7/23I+/
8zk5b72VRimuXvYqK+aNMuAbiWTXumykqKAoraL5VEIGx19WQP1t1X+eeOZEzRMv
/MeH7lv9rS8bGSpky8AO2VCxdQoV2RV8GT6zUUOp2GypELkq0P8PAAAAAAAAAOD1
wUz6/7/9ntz+/5dd2VXl8+3/l1xY/7/kwvv/U7EvpP8/Fdvq/38knKr/fxx9/wAA
AAAAAAAAwGXD7LV5GGKR6vP/nsi//n9VUf9iud/rIbkZ2ms777engkv8+d4FEA29
KrLeBWB5XHOtaa3sn3oXgBU9eo39koDsdwG4Xbaq7HcB7Kq2VVlvKEh5lJXZHm6l
O+XR2W9SITVQgvNhRI238Ks2kU46TsmctwkU0T4aZPcEh02wNEARamN3mYfdKn6M
WjhPT9rHsk0o9caBuz3qZYkTE6T+/kYLqT+DM/JNbNUXb7lx3r3KPivD7OsmTZZX
USiJUrlM8iUG1msMTFMFd1Mpn0uNfQZ4wwEAAAAAAAAAAA3W/wcAAAAAAAAAAKZh
fDaUVM2pEiFuD2+zZRf9ffip8NtR/wcAAAAAAAAAAGYbj/2xxtHX0iglaYQGqV8d
y4HuS2kRb/PJT241WN5Dt1kRDEq9+K+EQrz50wK1W4FE2idPIFMUhLZRfgzT+xqd
NLhUnB1Xl36HEgy5HKQUuGjtmJX3TgIAAAAAAAAAeJ1giFBQ7v+PYc0slysEyo/I
CmfP/5ftEariWM1Bqq2gzvx/+yMx860FoGbu51sLwPHIXgvglbpJ1gIgmmQtAEdV
9loAjkf2WgDSI332/1LaScM0SKM0RLXsJuf3H+dj+U4GObM/e3WAFRlz/yPOvP9I
mp6inPUBctcUkOsECHudgPHcRQLkOgHVsoHIYlx9Z60tkOfPxXHq7DiptQX0Cg9q
RYF6mm5tASeebkjKXnfAuna6RPHXtpROa02Cuhnmazs1Uxu7JFX+nuJc6uS8iU8a
N8FScto4SayFAAAAAAAAALjqEeIbzjv/THv+/8t4CyAAAAAAAAAAgCuFotlQMivj
483pg7x2SoSgUJUt++nr4T8Ij4WbwsvC/xr6y9D7Qy2hFWgLAAAAAAAAAICrBGvQ
txwxLAd364G/8lhOStdTyt1qOvnp1Ex2H2XOZk8fDh2hMkeRHCNcSeVUSmvTFJ1N
zXD3Uqqe7Z4qVYPSZ9NbL8mbMrCb9DjzGQQusD8Sc7rAJqVq5FPmlEGZr9szpguc
PmtbTBbYpNRQbZ3PkwQ2xZeCVZNcecP0FkWqxkkYs9JEAeYAe/5/jZ7/XyO0YGjB
pQVTCwVacGvBY68aUOPVgm+uzggAAAAAAAAAwIWA+v+VTf76v0vX/01d/y/Q9X+3
rv97dP3fq+v/Pl3/96P+DwAAAAAAAACvNwwxoNb/u89e/0+tpkepAQlVRf2L5d5e
/0+OVVBDEBo4SAM5Q0Mk6YMeLnr9vyyP1Pp/bsfDn3/9P3thwBmv/zeStf5fKG2g
ilyXzsvf3WqFvuyV/853Vb+T6ntEfRep76Rc1Y+zcRdZa/mNK4uk5JJxsjBSq/px
nN12yNSqfg4XunKfzOMqclbuy84J6/wPzGC1velCHOB9et5hfT4AAAAAAAAAeK3B
+n8AAAAAAAAAAK5sZuX959mvybsQxmdBxwUrEaIyXG/LprP+32xYBAAAAAAAAAAA
XJmkVumTyFH0+yl94b2StIX3BlMrJUq8VoTxKQN709Lx2lX+aTXbCzdOFtgUvwrq
+n82cv7/xeYJmFvsaf87Xfa0/52kBcOe279zNtqwAAAAAAAAAABc5qD+f2WTUe33
yNq+rvYb9pJ+O11TawAAAAAAAAAAcCVgiP1qtP8fkLUW3CLbXXcK19N+OkJttNdl
r8Fns4eD7Jlknb8KvThfzjp/G+/Kv85fUq3jl7m6npcO0BgNsYS14QAAAAAAAAAA
gItDiJgz299Q6//NpTUAAAAAAAAAAMCVTGTOlPjEK+Gm9uomKQui52fDEAAAAAAA
AADIpnl/OX3UkGuTLaVq2ktttJsrMa00SnEapjGWm2mQYny0hg7QCd7LccExdm9g
92E+ilCtesv2iHqzdB8laRFr6uYtznKS2pWmpP0u7kjW+6hl7E6OG6fjSt8Y7WAb
TrB82gmbYL9O523ekbS4bfzdybG6OUaEapQ8jw5yanG2u47PRVsfcbTW8Xc3n588
D2n1AY7VxTH8HH+U0+jj8KVs1Qn1Xuxe9h9m9wGWLTtjbJWM3cBh4yp0km5My5sI
7VdnLt+yPaxyIeKMpw6x7TKXTtq5Uqm0d6p0UqEinH+jnNagytlh3qw3dEf4fAao
h92irEfG73GuwXRxl9IuDpGkFo7Tw1YnVA428T6p3v29OM916VPvUZdnvCjH9xDH
jHHME7R22iuasm5pTth2lYun1dUby+PfpnSM2P7fUGXWGu5eqN50bzqyYFkOdS8h
8ht8NaO0ha/jRt4XkjBdTkhhmnZIHwmjQEosCLccKS/1eNj3vaYV0muHZHeXn+V3
2RoCadoKbdnPYYJkcLmQrqG0EGGWv2nLxWnuJbZ2Q/wiqByNzHfIZy8Kt7eAIxSo
4fpqyP5eDrJ38lu7JKVLavLYsjMvQJI2L4BeFfa8AD1hwJ0Zw5U1YUDGUB6mmpSQ
8uhkDy/fZ7IUdPL1qKczqjwMOE+ByecZ3K3MFBMTNDERU9+d6tv6O8nfBp9yi23A
vSpBGceQcUwdri4tZg1/uzjOPg5ZyaXoXhUzPZ85kDW9wTQdP6HzP+WnDhud8zqq
tJXxcb36yKM62kwVvNVSuZI38HcDH8tSWMF3ZiXva9hdhtpk5wJmVgAAAAAAAADA
1YIQ3whp2VTj/8vCL4emigEAAAAAAAAAALyumI33no3Pgo45xRSRUPNcGwEAAAAA
AAAAAIDXFNT/AQAAAAAAAACAKx8h7gqathym74e/GP6D8DvDt4VvCv9r6NOhe0I9
oV2htaHC0PeDjwfn1FAAAAAAAAAAuKrwypXext1cVSugz/Ox8KcNQZ949UBnV1+8
rHTtaipWW5BMOm7FKUjFsRYd7KM4ldEStVkhw1ZIVypkcZqenZavEFP5TuSP67F8
aVLNPuusqJ5NIjKD+c6qoS+2YW3miWVGc00WrXzKaMZk0cqmjCYC+aLtrluTG6mA
jupIU+S9z8p7HTJPDnHeT+E7kUolK+99tqX54hriaTXb/41imvX/5EJ7Zmppujbe
t2UGMVPx5Xp8edb8E9ZCfbZuewU/ueafkc9DrvnnyvKQy9bV8W3QoBa/LHOkckfa
kLGMX/4/gy0/YJs35ZJ8Kt15auHMBPWrJT7HaA9fvTEsnQcAAAAAAAAA4PWEEEvC
WnbZ6//NpT0AAAAAAAAAAMDlSNFcG3CRyPn/++faCAAAAAAAAAAAALymCPHVcImW
6SX0/QMAAAAAAAAAAK8/Cmg1f9/EH7nIv5zOXkedNMKfRVTCx8uE6CGXHXgf/SR8
Ktwd3hfeHl4b/rPQB0PvDv1ayBV6Jfjd4JeDnwhWBdcHFwUfLXyg8M7Ck4X/L/AP
ga8EPhWoDUQDSwL+wM/94/5+/y3+nf7nfU/7Pup7ny/iC/p+6b3bO+R9s/d/e77u
ecaz21Pp+az7j9wPule4w+5fFby9YLjgaMGPzRfNz5t7zM3mDebjrv/peqer2PWq
8S/GiNFp7DW+Kb4o/lRsFavFvNl4Y+MMMKmS5JoOYTr3WCH5OZs8Ji0guRIA0ZPZ
Tm76xNkvPHLPL39r47l7F/xXcu8WY7z1P79x+vadL1z/UPC+v/2tt978/z6+7O9v
/94PvrrrXT97+NEvLf6rP/If/JvA6B++PLaw7X989/dv6t/zzYrfffYz759X/Klv
3PcZ/9KvDr/72do119W88pvvdn/7Y5/+raP//uFr3UX/NZSeLHGyacbdkGvcDXNj
3A25xl2Xa9x1c2PcdbnGXZ9r3PVzY9z1ucYtyTVuydwYtyTXuGW5xi2bG+OW5Rq3
PNe45XNj3PJc41bmGrdyboxbmWvc6lzjVs+NcatzjSvJNa5kbowryTVO/oweuPSW
uHItKZU/XxPh9GzSTpfYOJ1smnE32b+t2rhwyulSGpeW7LmUJV65kFKmvdrpEuec
TjbtGnrUOk4i3cmd68QUhS59MbSSpXyWpGUm/wcXzrr42ukSX3yd7LlMS14lNu6D
jlOBvgq5TmkRC+agiKQbl7LEzLXXzLXXnBt7zVx7Xbn2unLtdc2Nva689oYncbr0
xoVFzg9Qdvk1cvPXyM1fY27y18jNX5Frr8i1V8yNvSLXXkOump95FSj3FCj3FGhu
ToGyT0GIef6m9uomq95Lz58K7y5c659pTRkAAAB4LWneX06V8ueX5tN+ilM3DdIw
xaiJ993US0l2b6E6qqFaroLLpVrj7DNKIzSPmqmTzmTEStKirOM4hzxAYzTEUiE1
sIY+domzb4j1yjBSruEQJVnHLTSg0pYLxMZZHlHN6wnWPMBx9/KRtEXaMMTh6lju
YXlU6W9XcU5zVW8nHVQL2y7MSFvqlmfYyektypOu9ith2wdVyn18LvtZPs3/ktRx
mCb6kco/a3VbHwlDdQLwL79LLrq7TTm5pJOPPdyWIAyP7WL45Nq8C0n4/FRED33l
xcDzfZ/b+eBXd3/tuR9/53M+tQiyHbeQBf4iIVcVlvQRBUJsnP+vQwfl8dH3f+wH
J57taXzig/98/6kHT39Jun37PRuWd5z7YZW+zOmrI+eHU5DVnjzFY78qHouomo7z
Nsw6jqtLEXcubCqbr8RCNPtFR7bdCFrM3/PllcE9iHsQ9+Dc3oPOlSl1VjsvVPU2
Uy1a/hGRWdAMXdBcTkEr0IXFqwuaTxe0gC5oggtaf1v1nyeeOVHzxAv/8aH7Vn/r
y7p8qbhBXdBCdkGLCgqEaY24uIL24s43Vn2t9IGGd5z+7MTX645+z5NHkyw6Fssf
Xbjo/nWfab7/ZPzh0vr+nnyh9TLxFi9Uzf/YG55/as8jze/7w+iPnxqbPEa5HeMt
X3t23k/f9fDeXw8c/9uWW4t/OXmMDed9s0RJ3ix+VcxHVD4U8o0ji/oJVZxDfAsM
cqEb4nwa4CLTTqmLu0heVi44ujO/iz+y8CutfkFrqI21yCIri2OEj2Th6uQb7IS6
RWLsPsDaT8n1/zy6//8mulf1/78c+rvQl0ItoW2hm0IfDz4cfFfw2qAR/FnhmcJ4
4f7Cvw88FzgX2BFYF1gY+JD/Pf47/Kb///q+5zvuO+Cr9n3Z+wnv73vXexd5Pd4H
PHd6ck4dAAAAuNox5b8H2b28hXPQM2AnKzuP0noyArnGBebGuECucXLRovSe5DSn
S2ycTjbNOPUurEzjtNMlNk4nm2acL9c439wY58s1rjn3sjbPzWVtzr2s8h/5rOFH
ltMlH21hVSlC6caZucaZc2OcVSfM6BQ1co2TTnMwXMrINa6RHf4t07jGuTGuMde4
+lzj6ufGuPpc46pyjauaG+Oqco3blmvctrkxbluucXqE+ZO5TpfUOCH+w+n/N+ie
oDcwi//fAAAAAAAAcJny4IN/80cfTUO7f8RN1GZ3kE3YPMhutxmpuNdbPfqqR0/2
9z3Dnw/YftN3p4OrHZQ9MFcI8d9uXf93UbGn+NniZ+faJgCuSuSwoI/KWVG0lKpp
L7XRbopQK42qcWNjLDfToBpFtoYf7nIojxyTFmP3BjVkqJ+lWjVibYSPBtV4Mjka
r5u3OMtJaleakva4toga13aK9qkhRnEV2xqvd1zpG6MdaiCRHJGmwybsMX1aQypu
G393cqxujhGhGiXPo4NqYFIz1fG5aOsjjtY6Ne5vVJ3HgBq7J3+ykuTn+KNq8FKM
StmqE2qUXy/7D7P7AMuWnTG2SsZuUCPw+tQYwBvT8iaixgcm1RjCYZULEWcsX4ht
l7l00s6VSqW9U6WTChWxB2UNqpwdVqMau/k4wuczQD3sFmU9Mn6Pcw2mi7uUdqkB
Wy0cp4etTqgcbOJ9kn2TtDjPdeljDUl1xotyfA9xzJgaOLZ22iuasm5pTlg9jjGi
xijm+rcpHSO2/zdUmbUGpOlRiFoWpKbLyWnyfoOvZpS28HXcyPtCEqbLCSlM0w6Z
NjhRqFGwcoCh6WHf95pWSK8dkt1dfpbfZWsIpGkrtGU/hwmSweVCuobSQoRZ/qYt
F6e5l9ja5T3YJ2eq8lVoV8PmZN6mSvx+NeYzPonvAfY5w0eTjSQ9/zGp5z+AeTN/
ZEkaUkP+xpwQSaXPGhgoS+I+tiih7GtTQxDjeUeiXtiY1oVcwhPKb69KO3V/Fqkn
g3UvW6mXOC6WbTGVu6l7uMF+osn7LabydzPfV9qiAbt8p7TqeLXqCShLbCrmiilj
WvasmiJMysIaZ/BlUqUoh1XuVNc85tzRyWms2ZxHh/Ukj08Tc77tKp99A2n3f6Z7
6voszHC3rk1MlU6rPCX57KTtQxkl1XqeSQtD6jmS8i1xSnq1Otvj7DbVuO95VM+h
h5Rf0vn9mWc/na2SrMNKW0ftp6V80o9xqapVJbtE5cCQeqY2q1zr5dDZ90OnOs84
lzSp/Xb1OzKsnpxLlbV9qlzfovJlkHXLVI6r3Fucdedk/paG1C9YvfMrttQ+brPv
csvauOO/iu/HAdbXbR/r4byZeWAYqaeoM2ZbDrJWD0M5sNo9zcDqxjoMrNbIcewe
PY7dy0UgW6meUaGGr/vt5//UsyhYdlu/IM/VSDmcks0ie+S9lItTsrskLfw1aeHn
pYW/1paTJKvwcs61qUq5/H2bnwrnWpBm5UI9WH+xFKSWJXZIWXaWaceIHUXnQnYB
eFwlKZfr8JK+lDps9uWfgTlCrNTCKpl7csrBDfzr269K9I16psFqFlwy0BoZaOZn
kWttuWNtdtG7HK3d4FibXezn3lohbg7p28iga8M7QpPcbwAAAAAAAAAArmK8RMXW
+ANJM7XRGCWzug12quazURpin+lCyObnFuqik3ZHyYXESPnJxpTpbdrNNfTn6Iv0
CP026wlRAU2c32ll9rAkVOvexWdFctIUxmZ0Yvmskqf6HfoW/T69gyV1qkI0hPRw
EoPWhzveMwfFCAAAAAAAAADA65ZitWaLfCOBlz7wjy8tkQNUvv5P1l76vzaV6nOP
VagXoljIoXyLSDqU0B41vGrIXmhSDhGar8JYA2/8sl+d678H6JNqO5OxnaIIn81E
FZ9UoXNS+mT8P535SV1Ic8bFn9JTajuVsY3oUxLi33yNtvJF9GL4ifDbw3vD14af
C90bagq5Qp8K3hncGvzvwicLf7OwtPDngb8O3B1oChQEnvM/6D/jP+SvxLsCAAAA
AACuAlxq0cP0geays2w+/1Pq5n85XeRxqYUHUzPXytVY7YwAvowAZbkB5AJ8+v/l
7FlcSZXgKv4v1gneSJP9A57+D7XsOrMil1NpKnL9pJGn+t9cqtlGm1Nqqmagxop2
M61JRds2g2j5KkRS0Q7amlJUmaUoNW1IBo3Q4lTQ0rSg6TME29R8NTkP7ji75Jgq
35nZQ0c5w8poI22gKFVQA23hrZJqOCvkUR27b+HvKG8N7NbACciwNRymnOUNfHTU
mfoik+hQq7LZScg3X1pzKEbtwuUZl0PZ56WCrE4zXk+r6FMTUvQkkqOczojSL6cj
6umFORl2wwwU6ZkuOYVm5Qwi16nCklDTaPqUCplHjorlM1Ch53XlpL9sBpF385WS
W50qRtbdmpMLS85DUZua23Q8v6LrZ6CoSU17OZ57OtfNIHKbvTi+dTUquIA50RfM
ILqckJO0pyvJCUFy2tqIfSI1fCqOspJJlaXPo7LuwFJam4pYkPXQ6kub/CcneSXy
PwHMtGj6oZi6xzNuXFfGjVvLl8QKtIifnk4gIy1Q7jMrTZ8QsUI9/59tf97a3lI4
u78XAAAAAABzD5ZawVIrWGpl7pdawT2IexD34Nzdg/8fqrwdLwDwBQA=
---- end of file ------ -- Shamil

>Wednesday, February 10, 2016 3:00 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Curious. Certainly not working with Access 2010 accdb files.
>
>At least not on my end. 
>
>Lambert
>
><<< skipped >>>>

From Lambert.Heenan at aig.com  Wed Feb 10 10:39:44 2016
From: Lambert.Heenan at aig.com (Heenan, Lambert)
Date: Wed, 10 Feb 2016 16:39:44 +0000
Subject: [AccessD] Sample .accdb - three posts (Part 3) - Re[2]:  VBA7?
In-Reply-To: <1455121032.483526855@f335.i.mail.ru>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455115218.796013581@f395.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
	<1455121032.483526855@f335.i.mail.ru>
Message-ID: <D2D5A45EB26EC34F8199762DC40FFAA8629D0E0D@PWGSMSLIVMBS09.mail.aig.net>

Thanks Shamil,

I found that the code produced results in another accdb file, not sure what the deal was with the first one I tried.

It's a handy peice of code, but I found is that it does not quite report on all fields.

If it is looking at a query that groups by some columns and Sums others it does not report all.  For instance this query

SELECT Table1.T1PKID, Table1.ID_WavesBatch AS Batch, Sum(Table1.cPaymentAmt) AS Amount, Table2.sCoverage
FROM (Table1 INNER JOIN Table2 ON Table1.Payment_Type_ID = Table2.ID_Payment_Type) INNER JOIN SubQuery ON Table1.T1PKID = [SubQuery].T1PKID
WHERE (((Table1.Payment_Type_ID)=30 Or (Table1.Payment_Type_ID)=31))
GROUP BY Table1.T1PKID, Table1.ID_WavesBatch, Table2.sCoverage
HAVING (((Table1.ID_WavesBatch) Is Not Null));

The code will report that Table1.T1PKID and Table1.ID_WavesBatch are fields 1 and 2, but the third field, with the Sum, will be shown as simply a period and then the fourth field will be shown as Table2.sCoverage. The sub query ' SubQuery' is not mentioned at all, nor the column used in the Where clause, Table1.Payment_Type_ID.

Lambert

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
Sent: Wednesday, February 10, 2016 11:17 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Sample .accdb - three posts (Part 3) - Re[2]: VBA7?

 Hi Lambert --

Here is the sample C# code to decode and unzip sample .accdb - the code can be run using e.g. LINQPad ( http://www.linqpad.net/ ) - free.
<snip>
</end snip>
Thank you.

-- Shamil

>Wednesday, February 10, 2016 3:00 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Curious. Certainly not working with Access 2010 accdb files.
>
>At least not on my end. 
>
>Lambert
> 

From mcp2004 at mail.ru  Wed Feb 10 10:42:48 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 19:42:48 +0300
Subject: [AccessD]
 =?utf-8?q?Sample_=2Eaccdb_-_three_posts_=28Part_3=29_-_?=
 =?utf-8?b?UmVbMl06ICBWQkE3Pw==?=
In-Reply-To: <1455121032.483526855@f335.i.mail.ru>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0B23@PWGSMSLIVMBS09.mail.aig.net>
	<1455121032.483526855@f335.i.mail.ru>
Message-ID: <1455122568.166574705@f349.i.mail.ru>

 Hi Lambert & All --

Zipped and uuencoded sample .accdb can't get through AccessD mail server (for safety/length reasons) - here is its download link ( http://tinyurl.com/ha77dcj ? ) - one base64 txt file shared from my google drive (22264 bytes)? (if/when you'll get it downloaded your web browsers may warn you ?- it's nothing but plain text in this published form - and inside (when based64 decoded) this is a zip archive, and inside zip archive is a sample .accdb with one table (Table1) , two queries (Query1, Query2) and one standard VBA module (Module1))

You can use posted previously C# code or any base64/uuencode and zip utilities to restore the sample?QdfTestDBs.accdb

Thank you.

-- Shamil

>Wednesday, February 10, 2016 7:17 PM +03:00 from Salakhetdinov Shamil <mcp2004 at mail.ru>:
>
>Hi Lambert --
>
>Here is the sample C# code to decode and unzip sample .accdb - the code can be run using e.g. LINQPad (  http://www.linqpad.net/ ) - free.
>
>// uncomment if using within VS
>//using System;
>//using System.IO;
>//using System.Text;
>//using System.IO.Compression;
>//using System.Linq;
>void Main()
>{
>// the folowing commented two code lines were used to prepare the sample .accdb 
>// ?zipped & base64 encoded
>// string accdbFullPath = @"s:\projects\databases\QdfTestDBs.accdb";
>// CompressEncodeToBase64AndSave(accdbFullPath); 
<<< skipped >>>
>

From mcp2004 at mail.ru  Wed Feb 10 11:00:19 2016
From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=)
Date: Wed, 10 Feb 2016 20:00:19 +0300
Subject: [AccessD]
 =?utf-8?q?Sample_=2Eaccdb_-_three_posts_=28Part_3=29_-_?=
 =?utf-8?b?UmVbMl06ICBWQkE3Pw==?=
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0E0D@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455121032.483526855@f335.i.mail.ru>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0E0D@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <1455123619.392192821@f211.i.mail.ru>

 Hi Lambert --

Try "concealed weapon" - .SaveAsText e.g.

Access.Application.SaveAsText acQuery, "Query1", "S:\Projects\Databases\Query1.qdf.txt"

The result .text file has to be parsed but it's obvious what information about query it keeps: together with QueryDef's properties available via VBA/DAO this text file has all information about a query design and the parts/objects of the source .mdb/.accdb it depends on/relates to.

HTH,

-- Shamil

>Wednesday, February 10, 2016 4:39 PM UTC from "Heenan, Lambert" <Lambert.Heenan at aig.com>:
>
>Thanks Shamil,
>
>I found that the code produced results in another accdb file, not sure what the deal was with the first one I tried.
>
>It's a handy peice of code, but I found is that it does not quite report on all fields.
>
>If it is looking at a query that groups by some columns and Sums others it does not report all.  For instance this query
>
>SELECT Table1.T1PKID, Table1.ID_WavesBatch AS Batch, Sum(Table1.cPaymentAmt) AS Amount, Table2.sCoverage
>FROM (Table1 INNER JOIN Table2 ON Table1.Payment_Type_ID = Table2.ID_Payment_Type) INNER JOIN SubQuery ON Table1.T1PKID = [SubQuery].T1PKID
>WHERE (((Table1.Payment_Type_ID)=30 Or (Table1.Payment_Type_ID)=31))
>GROUP BY Table1.T1PKID, Table1.ID_WavesBatch, Table2.sCoverage
>HAVING (((Table1.ID_WavesBatch) Is Not Null));
>
>The code will report that Table1.T1PKID and Table1.ID_WavesBatch are fields 1 and 2, but the third field, with the Sum, will be shown as simply a period and then the fourth field will be shown as Table2.sCoverage. The sub query ' SubQuery' is not mentioned at all, nor the column used in the Where clause, Table1.Payment_Type_ID.
>
>Lambert
>
>-----Original Message-----
>From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Salakhetdinov Shamil
>Sent: Wednesday, February 10, 2016 11:17 AM
>To: Access Developers discussion and problem solving
>Subject: [AccessD] Sample .accdb - three posts (Part 3) - Re[2]: VBA7?
>
>?Hi Lambert --
>
>Here is the sample C# code to decode and unzip sample .accdb - the code can be run using e.g. LINQPad (  http://www.linqpad.net/ ) - free.
><snip>
></end snip>
>Thank you.
>
>-- Shamil
>
>>Wednesday, February 10, 2016 3:00 PM UTC from "Heenan, Lambert" < Lambert.Heenan at aig.com >:
>>
>>Curious. Certainly not working with Access 2010 accdb files.
>>
>>At least not on my end. 
>>
>>Lambert
>> 
>-- 
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website:  http://www.databaseadvisors.com


From davidmcafee at gmail.com  Wed Feb 10 11:29:31 2016
From: davidmcafee at gmail.com (David McAfee)
Date: Wed, 10 Feb 2016 09:29:31 -0800
Subject: [AccessD] VBA7?
In-Reply-To: <1455090968.244070752@f420.i.mail.ru>
References: <CAMhYZWbA0=sKutu7GQqRj7GGyWbqrATUFNM+-TSifG2=Wd6Ezg@mail.gmail.com>
	<1455090968.244070752@f420.i.mail.ru>
Message-ID: <CAMhYZWZXztT7+dm46AjV65=vxB08RjADhs4OP3+sSM-qqAC91w@mail.gmail.com>

Thank you Shamil.

I will play with it today.

On Tue, Feb 9, 2016 at 11:56 PM, Salakhetdinov Shamil <mcp2004 at mail.ru>
wrote:

>  Hi Dan --
>
> Here is how you can list querydefs' source tables and fields:
>
> Dim dbs As DAO.Database
> Dim qdf As DAO.QueryDef
> Dim qdfIndex As Integer
> Set dbs = Access.Application.CurrentDb
> qdfIndex = 1
> For Each qdf In dbs.QueryDefs
> Debug.Print qdfIndex & ". Query: " & qdf.Name
> Dim fld As DAO.Field
> For Each fld In qdf.Fields
> Debug.Print " " & (fld.OrdinalPosition + 1) & _
> ". " & fld.SourceTable & "." & fld.SourceField
> Next fld
> Debug.Print ""
> Next qdf HTH.
>
> -- Shamil
>
>
> >Tuesday, February  9, 2016 4:33 PM -08:00 from David McAfee <
> davidmcafee at gmail.com>:
> >
> >So we're trying to consolidate the over 3000 dbs and spread sheets we have
> >throughout the company. I made up a little split db that allows users to
> >enter a project/task name, select usage occurrence from a drop down then
> >browse to the access file and/or excel workbook.
> >
> >The  FE then takes said file and lists all of its tables, queries, macros,
> >modules, forms, View, stored procedures (for ADPS)  and worksheets (for
> >Excel files). All of these objects get stored in a table, and are
> displayed
> >on the main form in a list box. They can double click an object in the
> list
> >box to "move" it into the "selected" list box to mark it as an object that
> >is used.
> >
> >Is there a programmatic way that you can loop through queries to get a
> list
> >of the tables (or sub-queries) that are used, so I can also add them to
> the
> >list? Kind of like how the built in dependencies can be checked by right
> >clicking on an object.
> >
> >I'm trying to figure out what is really being used, what isn't, what is
> >stale...
> >
> >I've found tables that are linked to older DBs that aren't being updated
> as
> >well as local (stale) tables that are also not being updated.
> >
> >I'm trying to figure out what it used most, in order to prioritize which
> >reference table to work on first. I want everyone pulling from the same
> >place.
> >
> >Thanks,
> >David
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website:  http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From davidmcafee at gmail.com  Wed Feb 10 11:45:02 2016
From: davidmcafee at gmail.com (David McAfee)
Date: Wed, 10 Feb 2016 09:45:02 -0800
Subject: [AccessD] VBA 7 32/64 calls
Message-ID: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created
except for one person in Accounting. She has Office/Access 2010 64bit
edition installed. Apparently everyone in that dept does, but she's the
only one messing with Access.

She or IT was under the impression that the 64 bit edition was needed for
Excel Power Pivot. I told them that there was a 32 bit installer for Power
Pivot available, that the only thing that I knew of that was better in
Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32
bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and
selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32
bit, and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these
things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their
appropriate place inside the IF statement. Or do I (god forbid) make a
custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future
projects. :/

D

From jimdettman at verizon.net  Wed Feb 10 12:09:17 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Wed, 10 Feb 2016 13:09:17 -0500
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
Message-ID: <1039BDF83E65434D8F1A24AF0F280362@XPS>


  It will work.  Read this for all the info.

http://rdsrc.us/ZVseHE

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
David McAfee
Sent: Wednesday, February 10, 2016 12:45 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] VBA 7 32/64 calls

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created
except for one person in Accounting. She has Office/Access 2010 64bit
edition installed. Apparently everyone in that dept does, but she's the
only one messing with Access.

She or IT was under the impression that the 64 bit edition was needed for
Excel Power Pivot. I told them that there was a 32 bit installer for Power
Pivot available, that the only thing that I knew of that was better in
Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32
bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and
selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32
bit, and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these
things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their
appropriate place inside the IF statement. Or do I (god forbid) make a
custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future
projects. :/

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


From Lambert.Heenan at aig.com  Wed Feb 10 12:09:52 2016
From: Lambert.Heenan at aig.com (Heenan, Lambert)
Date: Wed, 10 Feb 2016 18:09:52 +0000
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <1039BDF83E65434D8F1A24AF0F280362@XPS>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
Message-ID: <D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>

Stuck behind a Corporate firewall, which claims that your URL is possible Phishing site.

Lambert ;-(

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Wednesday, February 10, 2016 1:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


  It will work.  Read this for all the info.

http://rdsrc.us/ZVseHE

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Wednesday, February 10, 2016 12:45 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] VBA 7 32/64 calls

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created except for one person in Accounting. She has Office/Access 2010 64bit edition installed. Apparently everyone in that dept does, but she's the only one messing with Access.

She or IT was under the impression that the 64 bit edition was needed for Excel Power Pivot. I told them that there was a 32 bit installer for Power Pivot available, that the only thing that I knew of that was better in Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32 bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32 bit, and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their appropriate place inside the IF statement. Or do I (god forbid) make a custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future projects. :/

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

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


From jimdettman at verizon.net  Wed Feb 10 12:25:21 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Wed, 10 Feb 2016 13:25:21 -0500
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <7AC24415EC6749C984E0DFE101EFDF58@XPS>


 Interesting....it's a link to EE.  Didn't want to take the time re-post it
all here, but I guess I will:

<<I have created an mdb file, put alot of work into it and now when I put
iton to a 64bit PC I ma getting the following error:
Any quick ways of getting around this without writing all my code again. >>



<<It's not that you put it on a 64 bit PC, it's that you are running it with
a 64 bit edition of Office.

The quick simple way, dpending on the client is to install 32 bit Office
instead of 64 bit.  Then no changes are required.   Even Microsoft still
recommends this.  Only thing 64 bit Office gains you is extremely large
spreadsheets in Excel.

 Beyond that, it may or may not be easy.   You can try adding the PtrSafe
attribute to all your API calls and that might be enough.   Depending on the
calls however, some may need to be modified.

 Last, if you don't want to maintain two versions of the app, then you'll
need to add compiler directives for the different calls.>>



<<BTW, here is some helpful info:

This will help you determine what might need to be changed:

Microsoft Office Code Compatibility Inspector user's guide
http://technet.microsoft.com/en-us/library/ee833946.aspx

also read:

 Compatibility Between the 32-bit and 64-bit Versions of Office 2010
http://msdn.microsoft.com/en-us/library/ee691831(office.14).aspx

and the section "Introducing the VBA 7 Code Base" for the general overview.

All the new 64 bit calls are here:
http://www.microsoft.com/download/en/confirmation.aspx?displaylang=en&id=997
0

a list of all the calls that were modified for 64 bit:
http://msdn.microsoft.com/en-us/library/aa383663(VS.85).aspx>>

Jim.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Heenan, Lambert
Sent: Wednesday, February 10, 2016 01:10 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls

Stuck behind a Corporate firewall, which claims that your URL is possible
Phishing site.

Lambert ;-(

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim
Dettman
Sent: Wednesday, February 10, 2016 1:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


  It will work.  Read this for all the info.

http://rdsrc.us/ZVseHE

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
David McAfee
Sent: Wednesday, February 10, 2016 12:45 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] VBA 7 32/64 calls

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created except
for one person in Accounting. She has Office/Access 2010 64bit edition
installed. Apparently everyone in that dept does, but she's the only one
messing with Access.

She or IT was under the impression that the 64 bit edition was needed for
Excel Power Pivot. I told them that there was a 32 bit installer for Power
Pivot available, that the only thing that I knew of that was better in
Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32
bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and
selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32 bit,
and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these
things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their
appropriate place inside the IF statement. Or do I (god forbid) make a
custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future
projects. :/

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

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

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


From jimdettman at verizon.net  Wed Feb 10 12:25:52 2016
From: jimdettman at verizon.net (Jim Dettman)
Date: Wed, 10 Feb 2016 13:25:52 -0500
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
Message-ID: <EC845AC83FB24E7BBCC6714CF73B0F9D@XPS>


BTW, do you know what firewall your using?

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Heenan, Lambert
Sent: Wednesday, February 10, 2016 01:10 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls

Stuck behind a Corporate firewall, which claims that your URL is possible
Phishing site.

Lambert ;-(

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim
Dettman
Sent: Wednesday, February 10, 2016 1:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


  It will work.  Read this for all the info.

http://rdsrc.us/ZVseHE

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
David McAfee
Sent: Wednesday, February 10, 2016 12:45 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] VBA 7 32/64 calls

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created except
for one person in Accounting. She has Office/Access 2010 64bit edition
installed. Apparently everyone in that dept does, but she's the only one
messing with Access.

She or IT was under the impression that the 64 bit edition was needed for
Excel Power Pivot. I told them that there was a 32 bit installer for Power
Pivot available, that the only thing that I knew of that was better in
Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32
bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and
selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32 bit,
and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these
things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their
appropriate place inside the IF statement. Or do I (god forbid) make a
custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future
projects. :/

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

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

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


From Lambert.Heenan at aig.com  Wed Feb 10 12:25:42 2016
From: Lambert.Heenan at aig.com (Heenan, Lambert)
Date: Wed, 10 Feb 2016 18:25:42 +0000
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <7AC24415EC6749C984E0DFE101EFDF58@XPS>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
	<7AC24415EC6749C984E0DFE101EFDF58@XPS>
Message-ID: <D2D5A45EB26EC34F8199762DC40FFAA8629D102E@PWGSMSLIVMBS09.mail.aig.net>

Thanks Jim,

I can reach EE, so it must be the URL shortening site that my firewall does not like.


Lambert

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Wednesday, February 10, 2016 1:25 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


 Interesting....it's a link to EE.  Didn't want to take the time re-post it all here, but I guess I will:

<<I have created an mdb file, put alot of work into it and now when I put iton to a 64bit PC I ma getting the following error:
Any quick ways of getting around this without writing all my code again. >>



<<It's not that you put it on a 64 bit PC, it's that you are running it with a 64 bit edition of Office.

The quick simple way, dpending on the client is to install 32 bit Office
instead of 64 bit.  Then no changes are required.   Even Microsoft still
recommends this.  Only thing 64 bit Office gains you is extremely large spreadsheets in Excel.

 Beyond that, it may or may not be easy.   You can try adding the PtrSafe
attribute to all your API calls and that might be enough.   Depending on the
calls however, some may need to be modified.

 Last, if you don't want to maintain two versions of the app, then you'll need to add compiler directives for the different calls.>>



<<BTW, here is some helpful info:

This will help you determine what might need to be changed:

Microsoft Office Code Compatibility Inspector user's guide http://technet.microsoft.com/en-us/library/ee833946.aspx

also read:

 Compatibility Between the 32-bit and 64-bit Versions of Office 2010 http://msdn.microsoft.com/en-us/library/ee691831(office.14).aspx

and the section "Introducing the VBA 7 Code Base" for the general overview.

All the new 64 bit calls are here:
http://www.microsoft.com/download/en/confirmation.aspx?displaylang=en&id=997
0

a list of all the calls that were modified for 64 bit:
http://msdn.microsoft.com/en-us/library/aa383663(VS.85).aspx>>

Jim.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, February 10, 2016 01:10 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls

Stuck behind a Corporate firewall, which claims that your URL is possible Phishing site.

Lambert ;-(

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Wednesday, February 10, 2016 1:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


  It will work.  Read this for all the info.

http://rdsrc.us/ZVseHE

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Wednesday, February 10, 2016 12:45 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] VBA 7 32/64 calls

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created except for one person in Accounting. She has Office/Access 2010 64bit edition installed. Apparently everyone in that dept does, but she's the only one messing with Access.

She or IT was under the impression that the 64 bit edition was needed for Excel Power Pivot. I told them that there was a 32 bit installer for Power Pivot available, that the only thing that I knew of that was better in Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32 bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32 bit, and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their appropriate place inside the IF statement. Or do I (god forbid) make a custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future projects. :/

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

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

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

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


From carbonnb at gmail.com  Wed Feb 10 12:26:33 2016
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 10 Feb 2016 12:26:33 -0600
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <7AC24415EC6749C984E0DFE101EFDF58@XPS>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
	<7AC24415EC6749C984E0DFE101EFDF58@XPS>
Message-ID: <CAAZtbWGLYgSqX7ecMjy35LKqw94Ft0uHLmL47NDTG5DYfrx_EA@mail.gmail.com>

On Wed, Feb 10, 2016 at 12:25 PM, Jim Dettman <jimdettman at verizon.net> wrote:
>
>  Interesting....it's a link to EE.  Didn't want to take the time re-post it
> all here, but I guess I will:

I suspect the problem is with the link shortener.
You posted:

http://rdsrc.us/ZVseHE

but the full link is:
http://www.experts-exchange.com/questions/28263917/MS-Access-on-32-64-Bit.html?sharedLinkId=AC8Jg7mLNRo%3D&cid=2035&cid=2035


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

From davidmcafee at gmail.com  Wed Feb 10 12:27:53 2016
From: davidmcafee at gmail.com (David McAfee)
Date: Wed, 10 Feb 2016 10:27:53 -0800
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <1039BDF83E65434D8F1A24AF0F280362@XPS>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
Message-ID: <CAMhYZWZ9fhDXio0PuLz9V9pKh45q6V-y_CUwQxsXk93WffS79A@mail.gmail.com>

Thanks Jim!

I have some reading to do!

On Wed, Feb 10, 2016 at 10:09 AM, Jim Dettman <jimdettman at verizon.net>
wrote:

>
>   It will work.  Read this for all the info.
>
> http://rdsrc.us/ZVseHE
>
> Jim.
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> David McAfee
> Sent: Wednesday, February 10, 2016 12:45 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] VBA 7 32/64 calls
>
> I just realized my previous request had the wrong subject line.
>
> The VBA 7 subject line was for this question / problem:
>
> Everyone is able to use my little database mapping app that I created
> except for one person in Accounting. She has Office/Access 2010 64bit
> edition installed. Apparently everyone in that dept does, but she's the
> only one messing with Access.
>
> She or IT was under the impression that the 64 bit edition was needed for
> Excel Power Pivot. I told them that there was a 32 bit installer for Power
> Pivot available, that the only thing that I knew of that was better in
> Office 64 bit was Excel's ability to handle 2gb files.
>
> Any, the problem that I am dealing with now is that the app does several 32
> bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and
> selecting files.
>
> I looked for VBA 7 equivalents and found one, but it returned "admin"
> instead of "dmcafee".
>
> It looks like I have to figure out which of the global constants are 32
> bit, and use a  64 bit version instead. What a PITA for one user.
>
> What really sucks is that I don't have the version, so I can't test these
> things before hand, and she is located at a different location.
>
> I tested this on my (32bit) box:
>
>  #If VBA7 Then
>     MsgBox "VBA 7"
>  #Else
>      MsgBox "Not VBA 7"
>  #End If
>
> And it works, so I'm wondering if I could put the declarations in their
> appropriate place inside the IF statement. Or do I (god forbid) make a
> custom version for that user?
>
> Looks like I'm going to be getting back into Web FE with SQL BE for future
> projects. :/
>
> D
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From Lambert.Heenan at aig.com  Wed Feb 10 12:27:24 2016
From: Lambert.Heenan at aig.com (Heenan, Lambert)
Date: Wed, 10 Feb 2016 18:27:24 +0000
Subject: [AccessD] VBA 7 32/64 calls
In-Reply-To: <EC845AC83FB24E7BBCC6714CF73B0F9D@XPS>
References: <CAMhYZWYvY0O-ThkgSUGpMsedj=fmSBsiRUssYSVK94OaMLNFfg@mail.gmail.com>
	<1039BDF83E65434D8F1A24AF0F280362@XPS>
	<D2D5A45EB26EC34F8199762DC40FFAA8629D0FC4@PWGSMSLIVMBS09.mail.aig.net>
	<EC845AC83FB24E7BBCC6714CF73B0F9D@XPS>
Message-ID: <D2D5A45EB26EC34F8199762DC40FFAA8629D1068@PWGSMSLIVMBS09.mail.aig.net>

Not a clue. :-)



-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Wednesday, February 10, 2016 1:26 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


BTW, do you know what firewall your using?

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, February 10, 2016 01:10 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls

Stuck behind a Corporate firewall, which claims that your URL is possible Phishing site.

Lambert ;-(

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Wednesday, February 10, 2016 1:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA 7 32/64 calls


  It will work.  Read this for all the info.

http://rdsrc.us/ZVseHE

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Wednesday, February 10, 2016 12:45 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] VBA 7 32/64 calls

I just realized my previous request had the wrong subject line.

The VBA 7 subject line was for this question / problem:

Everyone is able to use my little database mapping app that I created except for one person in Accounting. She has Office/Access 2010 64bit edition installed. Apparently everyone in that dept does, but she's the only one messing with Access.

She or IT was under the impression that the 64 bit edition was needed for Excel Power Pivot. I told them that there was a 32 bit installer for Power Pivot available, that the only thing that I knew of that was better in Office 64 bit was Excel's ability to handle 2gb files.

Any, the problem that I am dealing with now is that the app does several 32 bit calls such as fosUsername and ahtCommonFileOpenSave for browsing and selecting files.

I looked for VBA 7 equivalents and found one, but it returned "admin"
instead of "dmcafee".

It looks like I have to figure out which of the global constants are 32 bit, and use a  64 bit version instead. What a PITA for one user.

What really sucks is that I don't have the version, so I can't test these things before hand, and she is located at a different location.

I tested this on my (32bit) box:

 #If VBA7 Then
    MsgBox "VBA 7"
 #Else
     MsgBox "Not VBA 7"
 #End If

And it works, so I'm wondering if I could put the declarations in their appropriate place inside the IF statement. Or do I (god forbid) make a custom version for that user?

Looks like I'm going to be getting back into Web FE with SQL BE for future projects. :/

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

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

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

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


From davidmcafee at gmail.com  Thu Feb 25 17:27:21 2016
From: davidmcafee at gmail.com (David McAfee)
Date: Thu, 25 Feb 2016 15:27:21 -0800
Subject: [AccessD] Would a crosstab Query work instead?
Message-ID: <CAMhYZWZeUCw0fTi8E9y9fTDuDiL2YX0jdG4Qr894q+2fP1GbdA@mail.gmail.com>

Experiencing a bit of cerebal Falttulence...

I created the following query, which works, and gives the expected results,
but I'm thinking to myself "there must be an easier way to do this..."

I was looking at cross tabs, but they all want to sum/count/average the
data, I just want to display it.


SELECT qrySchedules.FirstName,

DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
[FirstName] & "'") AS SatStart,

DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
[FirstName] & "'") AS SatEnd,

DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
[FirstName] & "'") AS SunStart,

DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
[FirstName] & "'") AS SunEnd,

DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
[FirstName] & "'") AS MonStart,

DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
[FirstName] & "'") AS MonEnd,

DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
[FirstName] & "'") AS TueStart,

DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
[FirstName] & "'") AS TueEnd,

DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
[FirstName] & "'") AS WedStart,

DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
[FirstName] & "'") AS WedEnd,

DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
[FirstName] & "'") AS ThuStart,

DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
[FirstName] & "'") AS ThuEnd,

DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
[FirstName] & "'") AS FriStart,

DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
[FirstName] & "'") AS FriEnd

FROM qrySchedules

GROUP BY

qrySchedules.FirstName,

DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
[FirstName] & "'"),

DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" & [FirstName]
& "'");

From charlotte.foust at gmail.com  Thu Feb 25 17:42:26 2016
From: charlotte.foust at gmail.com (Charlotte Foust)
Date: Thu, 25 Feb 2016 15:42:26 -0800
Subject: [AccessD] Would a crosstab Query work instead?
In-Reply-To: <CAMhYZWZeUCw0fTi8E9y9fTDuDiL2YX0jdG4Qr894q+2fP1GbdA@mail.gmail.com>
References: <CAMhYZWZeUCw0fTi8E9y9fTDuDiL2YX0jdG4Qr894q+2fP1GbdA@mail.gmail.com>
Message-ID: <CAH+Met-VuC6i4gVsQgT=Q4+x2_CnhaXhBDPUpLY2YT3W2-RUYQ@mail.gmail.com>

What is it that you're accomplishing with this?  Is it to produce some kind
of schedule for each person?  Those dlookups have to be awfully slow, and
you might be better off designing a report and using grouping to partition
the data.?

Charlotte Foust
(916) 206-4336

On Thu, Feb 25, 2016 at 3:27 PM, David McAfee <davidmcafee at gmail.com> wrote:

> Experiencing a bit of cerebal Falttulence...
>
> I created the following query, which works, and gives the expected results,
> but I'm thinking to myself "there must be an easier way to do this..."
>
> I was looking at cross tabs, but they all want to sum/count/average the
> data, I just want to display it.
>
>
> SELECT qrySchedules.FirstName,
>
> DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'") AS SatStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'") AS SatEnd,
>
> DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'") AS SunStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'") AS SunEnd,
>
> DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'") AS MonStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'") AS MonEnd,
>
> DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'") AS TueStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'") AS TueEnd,
>
> DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'") AS WedStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'") AS WedEnd,
>
> DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'") AS ThuStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'") AS ThuEnd,
>
> DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'") AS FriStart,
>
> DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'") AS FriEnd
>
> FROM qrySchedules
>
> GROUP BY
>
> qrySchedules.FirstName,
>
> DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'"),
>
> DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName]
> & "'");
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From davidmcafee at gmail.com  Thu Feb 25 18:27:31 2016
From: davidmcafee at gmail.com (David McAfee)
Date: Thu, 25 Feb 2016 16:27:31 -0800
Subject: [AccessD] Would a crosstab Query work instead?
In-Reply-To: <CAH+Met-VuC6i4gVsQgT=Q4+x2_CnhaXhBDPUpLY2YT3W2-RUYQ@mail.gmail.com>
References: <CAMhYZWZeUCw0fTi8E9y9fTDuDiL2YX0jdG4Qr894q+2fP1GbdA@mail.gmail.com>
	<CAH+Met-VuC6i4gVsQgT=Q4+x2_CnhaXhBDPUpLY2YT3W2-RUYQ@mail.gmail.com>
Message-ID: <CAMhYZWahB2eQfU_kRjqU5k2ZPwMSvxkMuYc+e4ku+LpPb21C_g@mail.gmail.com>

That's what I'm trying to do, eliminate the dlookups.

It's actually pretty fast right now, probably because there isn't a lot of
data.
I was thinking the query and the dlookups are all based on the same sub
query, so the sub query should be cached.
The base query also returns very little data, so I was thinking the
dlookups might not be that slow, but it is doing it this way with my "poor
man's" pivot table. :)

I'm making a time and attendance little scheduler.
I'm trying to show different versions/displays (grid, Gantt chart...) of
the same data that can be viewed by clicking on different tab pages.

Thanks,
David






On Thu, Feb 25, 2016 at 3:42 PM, Charlotte Foust <charlotte.foust at gmail.com>
wrote:

> What is it that you're accomplishing with this?  Is it to produce some kind
> of schedule for each person?  Those dlookups have to be awfully slow, and
> you might be better off designing a report and using grouping to partition
> the data.?
>
> Charlotte Foust
> (916) 206-4336
>
> On Thu, Feb 25, 2016 at 3:27 PM, David McAfee <davidmcafee at gmail.com>
> wrote:
>
> > Experiencing a bit of cerebal Falttulence...
> >
> > I created the following query, which works, and gives the expected
> results,
> > but I'm thinking to myself "there must be an easier way to do this..."
> >
> > I was looking at cross tabs, but they all want to sum/count/average the
> > data, I just want to display it.
> >
> >
> > SELECT qrySchedules.FirstName,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> > [FirstName] & "'") AS SatStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> > [FirstName] & "'") AS SatEnd,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> > [FirstName] & "'") AS SunStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> > [FirstName] & "'") AS SunEnd,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> > [FirstName] & "'") AS MonStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> > [FirstName] & "'") AS MonEnd,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> > [FirstName] & "'") AS TueStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> > [FirstName] & "'") AS TueEnd,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> > [FirstName] & "'") AS WedStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> > [FirstName] & "'") AS WedEnd,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> > [FirstName] & "'") AS ThuStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> > [FirstName] & "'") AS ThuEnd,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> > [FirstName] & "'") AS FriStart,
> >
> > DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> > [FirstName] & "'") AS FriEnd
> >
> > FROM qrySchedules
> >
> > GROUP BY
> >
> > qrySchedules.FirstName,
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> > [FirstName] & "'"),
> >
> > DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> > [FirstName]
> > & "'");
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > 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 Feb 25 19:32:15 2016
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 26 Feb 2016 11:32:15 +1000
Subject: [AccessD] Would a crosstab Query work instead?
In-Reply-To: <CAMhYZWZeUCw0fTi8E9y9fTDuDiL2YX0jdG4Qr894q+2fP1GbdA@mail.gmail.com>
References: <CAMhYZWZeUCw0fTi8E9y9fTDuDiL2YX0jdG4Qr894q+2fP1GbdA@mail.gmail.com>
Message-ID: <56CFAB1F.27253.F5E4FE4@stuart.lexacorp.com.pg>

In a crosstab, I sometimes use  First  for the aggregate function if row/column values are 
unique.   That should work in this case   :)

On 25 Feb 2016 at 15:27, David McAfee wrote:

> Experiencing a bit of cerebal Falttulence...
> 
> I created the following query, which works, and gives the expected
> results, but I'm thinking to myself "there must be an easier way to do
> this..."
> 
> I was looking at cross tabs, but they all want to sum/count/average
> the data, I just want to display it.
> 
> 
> SELECT qrySchedules.FirstName,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'") AS SatStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'") AS SatEnd,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'") AS SunStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'") AS SunEnd,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'") AS MonStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'") AS MonEnd,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'") AS TueStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'") AS TueEnd,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'") AS WedStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'") AS WedEnd,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'") AS ThuStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'") AS ThuEnd,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'") AS FriStart,
> 
> DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'") AS FriEnd
> 
> FROM qrySchedules
> 
> GROUP BY
> 
> qrySchedules.FirstName,
> 
> DLookUp("Start","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =1 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("Start","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =2 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("Start","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =3 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("Start","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =4 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("Start","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =5 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("Start","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =6 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("Start","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'"),
> 
> DLookUp("End","qrySchedules","WeekdayNo =7 And [FirstName] ='" &
> [FirstName] & "'"); -- AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd Website:
> http://www.databaseadvisors.com
>