yes/no field properties not replicated in a make table query : microsoft, access, 2003

May 17, 2008 12:12pm pdt

1. capricorn1 1,301,290
2. DatabaseMX 890,113
3. LSMConsu... 482,407
4. boag2000 335,153
5. harfang 313,826
6. peter57r 272,376
7. TextReport 229,085
8. GRayL 209,614
9. ee_rlee 170,073
10. cactus_data 154,536
11. jimhorn 151,903
12. matthews... 147,637
13. JezWalters 137,435
14. jefftwilley 126,171
15. puppydog... 102,935

1. capricorn1 8,958,328
2. nico5038 5,685,831
3. rockiroads 5,398,237
4. peter57r 3,716,871
5. LPurvis 3,361,835
6. shanesue... 3,288,317
7. LSMConsu... 3,217,997
8. harfang 2,930,659
9. stevbe 2,838,604
10. DatabaseMX 2,773,449
11. jimhorn 2,571,495
12. GRayL 2,369,458
13. flavo 2,104,083
14. mbizup 1,976,668
15. jadedata 1,963,977

05.08.2008 at 02:25PM PDT, ID: 23387774

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.7

yes/no field properties not replicated in a make table query

Zones: Microsoft Access Database, Access Coding/Macros

Tags: microsoft, access, 2003

I have a make table query that is based on two tables one of which has a yes/no column it it. This column is in my new table as well. When i run the query the yes/no column loses it's DisplayControl property and all the yes's turn into -1''s and all the No's become 0's. Now i can change the DisplayControl property within the Query Builder to make that column in the new table a yes/no column, and the data stays the same, the problem is, i am running this query through VBA, and whenever i run i get the 0's and -1's. I assume the Query Builder has some built in functions that the VBA doesn't perform. I've looked through the posts on EE and tried to adapt the code i found but haven't had any luck with it so far.

Attached is the VBA for what i have so far which runs the query great, Any help would be greatly appreciate. This whole Property appending and creating is confusing me.

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

           
           
             Function CountofFileExtensionsbyCategories()
Dim SQL As String
Call EnumerateTables
 
SQL = "" & _
"SELECT [_File Extensions with Categories].[File Extension]                                                                                                                         , " & _
"        [_File Extensions with Categories].Description                                                                                                                             , " & _
"        [_File Extensions with Categories].Category                                                                                                                                , " & _
"        COUNT([Format Dated to yyyy/mm/dd].[File Ext])                                                                                                        AS [CountOfFile Ext] , " & _
"        IIF(SUM([Format Dated to yyyy/mm/dd]![Logical Size(Mb)]) IS NOT NULL,CDbl(FormatNumber(SUM([Format Dated to yyyy/mm/dd]![Logical Size(Mb)]),4)),NULL) AS [Logical Size(Mb)], " & _
"        [_File Extensions with Categories].Included " & _
"INTO [FE_ File Extensions by Categories] " & _
"FROM [_File Extensions with Categories] " & _
"        LEFT JOIN [Format Dated to yyyy/mm/dd] " & _
"        ON [_File Extensions with Categories].[File Extension] = [Format Dated to yyyy/mm/dd].[File Ext] " & _
"GROUP BY [_File Extensions with Categories].[File Extension], " & _
"        [_File Extensions with Categories].Description      , " & _
"        [_File Extensions with Categories].Category         , " & _
"        [_File Extensions with Categories].Included " & _
"ORDER BY [_File Extensions with Categories].Category, " & _
"        IIF(SUM([Format Dated to yyyy/mm/dd]![Logical Size(Mb)]) IS NOT NULL,CDbl(FormatNumber(SUM([Format Dated to yyyy/mm/dd]![Logical Size(Mb)]),4)),NULL) DESC;"
DoCmd.RunSQL SQL
 
SetFieldProperty CurrentDb.TableDefs![FE_ File Extensions by Categories], "Description", dbText, "8a. File Extensions with Categories"
 
End Function
 
Public Function SetFieldProperty(obj As Object, strName As String, varFieldType As Variant, varSetting As Variant) As Boolean
    Const conPropNotFound As Integer = 3270
    Dim prp As DAO.Property
    On Error GoTo SetFieldProperty_Error
    obj.Properties(strName) = varSetting
    obj.Properties.Refresh
    SetFieldProperty = True
   
SetFieldProperty_Exit:
    Exit Function
 
SetFieldProperty_Error:
    If Err = conPropNotFound Then
        Set prp = obj.CreateProperty(strName, varFieldType, varSetting)
        obj.Properties.Append prp
        obj.Properties.Refresh
        SetFieldProperty = True
        Resume SetFieldProperty_Exit
    Else
        MsgBox Err & ": " & vbCrLf & Err.Description, , CurrentProject.Name & ": Field Property Error"
        SetFieldProperty = False
        Resume SetFieldProperty_Exit
    End If
End Function

           
         

Start your free trial to view this solution

Question Stats

Zone: Microsoft

Question Asked By: Forensicon

Solution Provided By: harfang

Participating Experts: 2

Solution Grade: A

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
New Net Users
New Users

Software
Digital Music
Gaming World

Home Security
Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Handhelds / PDAs
Displays / Monitors
Components
Networking Hardware

Peripherals
Laptops/Notebooks
Storage
Servers

Desktops
New Users
Misc
Apple

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMWare
Misc
Web Development

OS
CYGWIN
Voice Recognition
Message Queue
Quality Assurance
Security
Firewalls
MultiMedia Applications

Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals

Devices
Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
WebApplications
IDS
Vulnerabilities
Email Clients

File Sharing
Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMWare

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel

Algorithms
Game
Signal Processing
Project Management
Open Source

Database
Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Images

Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration
WebApplications

Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Broadband

Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Community Advisor
Lounge
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles

Community Support

Suggestions
New to EE
New Topics
Community Advisor

CleanUp
Announcements
General

Feedback
Input
EE Bugs

05.08.2008 at 02:27PM PDT, ID: 21528631

Rank: Genius

jimhorn:

>When i run the query the yes/no column loses it's DisplayControl property and all the yes's turn into -1''s and all the No's become 0's.
This is by design. Access Yes/No fields actually have stored values of -1 for Yes/True/On and 0 for No/False/Off.

05.08.2008 at 02:29PM PDT, ID: 21528642

Rank: Genius

jimhorn:

If you reeeealllyyyy want 'Yes' and 'No, then instead of SELECT YourValue, use SELECT Iif(YourValue=-1,'Yes', iif(YourValue=0, 'No', NULL))

05.08.2008 at 02:31PM PDT, ID: 21528651

Forensicon:

Yes, i understand that. But a -1 or a 0 doesn't do my end user very much good, so my question is how can i translate that back into a yes/no or a checkbox?

05.08.2008 at 02:33PM PDT, ID: 21528667

Rank: Genius

jimhorn:

>But a -1 or a 0 doesn't do my end user very much good,
Agreed. Most developers do not let users look at raw table data, instead we connect the data to forms or reports that can have various controls like option groups/buttons and combo boxes that can display Yes or No.

05.09.2008 at 12:09AM PDT, ID: 21530864

Rank: Genius

harfang:

I see you already have the code to manipulate properties. Try this after the table is created:

SetFieldProperty CurrentDb("[FE_ File Extensions by Categories]")("Included"), "DisplayControl", dbInteger, acCheckBox

This will show a check box for the field "Included".

(°v°)

Accepted Solution

05.09.2008 at 08:28AM PDT, ID: 21533856

Forensicon:

Thanks Harfang, that worked great! So I understand, I just need to Call the SetFieldProperty function then tell it which database to use (CurrentDb), which table ("FE_File Extensions by Categories"), which field ("Included"), which property ("DisplayControl"), the value type, and then the value? So that's i how can change any property for a given Field within a table? And if i simply get rid of the Field portion and only reference the database and the table, then i can change the properties of the table? Is that correct?

05.09.2008 at 01:47PM PDT, ID: 21536311

Rank: Genius

harfang:

Yes, that is correct. You already did so to set the Description of your table, it works the same for all other DAO properties. If you need to study a new property or set of properties (let's say you want to define a combo for a field), create one through the interface, and examine the properties that have been created (see the snippet).

As Jim explained, they are all "non-essential", meaning that they are never used in a standard application. For example, your users will not open the table directly, but see the data through a query or a form. However, they are sometimes useful for the developer, especially when creating forms and queries. For example, I like to put more readable column / field names in the Caption property.

Cheers!
(°v°)

                       
                                Sub ListProperties(objDAO As Object)
    Dim prp As DAO.Property
On Error Resume Next
    For Each prp In objDAO.Properties
        Debug.Print prp.Name; Tab(22); prp.Type,
        Debug.Print prp.Value
        If Err Then
            Debug.Print "*Error: " & Err.Description
            Err.Clear
        End If
    Next prp
End Sub

Open in New Window

05.12.2008 at 08:04AM PDT, ID: 21547572

Forensicon:

Harfang, how do i use the code you provided? I pasted it into my module but can't figure out how to run it?

05.12.2008 at 03:11PM PDT, ID: 21550907

Rank: Genius

harfang:

The last sample prints out to the immediate window (Ctrl+G). To run it, type things like this followed by the enter key:

ListProperties CurrentDb("Table1")
ListProperties Forms(0)
ListProperties CurrentDb("Table1")(0)

Thanks and good luck!
(°v°)

20080236-EE-VQP-29 / EE_QW_2_20070628