[AccessD] VBA7?

Dan Waters df.waters at outlook.com
Wed Feb 10 08:43:25 CST 2016


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




More information about the AccessD mailing list