marcel.vreuls at achmea.nl
marcel.vreuls at achmea.nl
Tue May 27 07:56:06 CDT 2003
Hi Bruce,
I have some troubles with the prop.attributes. My access does not
understand this. What reference do I need??. I use W2K and A2K.
And what does the GetPropType section do? this is missing also.
Thanks,
Marcel
"Bruce Bruen" <bbruen at bigpond.com>@databaseadvisors.com op 27-05-2003
14:18:19
Antwoord aub aan accessd at databaseadvisors.com
Verzonden door: accessd-bounces at databaseadvisors.com
Aan: <accessd at databaseadvisors.com>
cc:
Onderwerp: RE: Betreft: RE: [AccessD] Looping through forms
Marcel,
This may get you started....
Bruce
Public Sub enumFormProperties(oForm As Form)
'-----------------------------------------------------------------------
--
'
' Description / Purpose :-
' Lists all the form, section and control properties for the
' supplied form in the debug window
'
' Parameters:-
' PARAMETER TYPE COMMENTS
' oForm MSAccess Form Object
'
' Return Value:-
' None
'
' Notes:-
' The number of properties displayed is large. When running this
' sub you need to set breakpoints so that you can get the
information
' you want.
'
'------------------------------------------------------------
' Version Dated Author Comment
' 1.0 16-May-03 Bruce Original.
'============================================================
Dim Prop As Property
Dim formSection As Integer
Dim formControl As Control
On Error Resume Next
Debug.Print "Processing Form Properties"
For Each Prop In oForm.Properties
Debug.Print " "; Prop.Name;
Debug.Print "=" & Prop.Value;
Debug.Print " (" & GetPropType(Prop.Type) & ")";
Debug.Print , Prop.Attributes;
Debug.Print
Next Prop
Stop
Debug.Print "Processing Form Sections"
For formSection = 0 To 6
Debug.Print " Section " & formSection
For Each Prop In oForm.Section(formSection).Properties
Debug.Print " "; Prop.Name;
Debug.Print "=" & Prop.Value;
Debug.Print " (" & GetPropType(Prop.Type) & ")";
Debug.Print , Prop.Attributes;
Debug.Print
Next Prop
Next formSection
Stop
Debug.Print "Processing Form Controls"
For Each formControl In oForm
Debug.Print "---- Control ----"
For Each Prop In formControl.Properties
Debug.Print Prop.Name;
Debug.Print "=" & Prop.Value;
Debug.Print " (" & GetPropType(Prop.Type) & ")";
Debug.Print , Prop.Attributes;
Debug.Print
Next Prop
Stop
Next formControl
Stop
End Sub
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
marcel.vreuls at achmea.nl
Sent: Tuesday, May 27, 2003 10:00 PM
To: accessd at databaseadvisors.com
Subject: Betreft: RE: [AccessD] Looping through forms
Hi Mark,
You are right then I have the documentation available. But than I have
to manualy compare the two documents on paper. That is something I do
not want because it takes up to much time and I can make mistakes.
Thanks,
marcel
"Mitsules, Mark" <mitsules_ms at nns.com>@databaseadvisors.com op
27-05-2003 13:46:48
Antwoord aub aan accessd at databaseadvisors.com
Verzonden door: accessd-bounces at databaseadvisors.com
Aan: "'accessd at databaseadvisors.com'" <accessd at databaseadvisors.com>
cc:
Onderwerp: RE: [AccessD] Looping through forms
For your purposes, will Tools/Analyze/Documenter work?
Mark
-----Original Message-----
From: marcel.vreuls at achmea.nl [mailto:marcel.vreuls at achmea.nl]
Sent: Tuesday, May 27, 2003 5:43 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Looping through forms
Dear group,
Does anyone know how I can achieve the following.
I want to loop through all the forms and reports available in the
database. Then for each form loop through all the controls and save of
each control the controltype, caption, text, defaultvalue, format,
fieldtype in a table. I want to do this because I have weird things with
controls that suddenly behave strange. That way I can check the current
controls properties with their previous properties.
THanks,
In advance.
Marcel Vreuls
********************* DISCLAIMER *********************
De informatie in dit e-mail bericht is uitsluitend
bestemd voor de geadresseerde. Verstrekking aan
en gebruik door anderen is niet toegestaan.
Door de electronische verzending van het bericht
kunnen er geen rechten worden ontleend aan de
informatie.
************************************************************
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
*****************************************************************
Dit bericht is bij binnenkomst gecontroleerd op de
aanwezigheid van virussen. Er zijn geen (bekende)
virussen gevonden. Active
*****************************************************************
********************* DISCLAIMER *********************
De informatie in dit e-mail bericht is uitsluitend
bestemd voor de geadresseerde. Verstrekking aan
en gebruik door anderen is niet toegestaan.
Door de electronische verzending van het bericht
kunnen er geen rechten worden ontleend aan de
informatie.
************************************************************
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
*****************************************************************
Dit bericht is bij binnenkomst gecontroleerd op de
aanwezigheid van virussen. Er zijn geen (bekende)
virussen gevonden. Active
*****************************************************************
********************* DISCLAIMER *********************
De informatie in dit e-mail bericht is uitsluitend
bestemd voor de geadresseerde. Verstrekking aan
en gebruik door anderen is niet toegestaan.
Door de electronische verzending van het bericht
kunnen er geen rechten worden ontleend aan de
informatie.
************************************************************