Filter Combobox's options

May 17, 2008 05:11am pdt

1. PaulHews 283,395
2. GrahamSkan 217,464
3. RobSampson 156,525
4. matthews... 138,463
5. jpaulino 110,988
6. zorvek 107,092
7. rorya 97,060
8. Idle_Mind 81,760
9. ee_rlee 76,307
10. angelIII 74,870
11. webtubbs 57,322
12. danaseaman 49,735
13. capricorn1 49,600
14. FER_G 48,447
15. EDDYKT 48,128

1. Idle_Mind 1,708,296
2. PaulHews 1,416,334
3. AzraSound 1,400,747
4. GrahamSkan 1,255,319
5. vinnyd79 1,242,790
6. Erick37 1,211,724
7. angelIII 1,171,946
8. EDDYKT 1,130,771
9. emoreau 1,058,294
10. TimCottee 958,241
11. Ark 856,902
12. ryancys 854,007
13. BlueDevi... 777,152
14. Shauli 718,021
15. egl1044 698,871

05.08.2008 at 01:44PM PDT, ID: 23387632

	[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.1

Filter Combobox's options

Zone: Visual Basic Programming

Hi , a VB6 combobox question.

I have 2 comboboxes - Practice and Doctors. At this stage there is a default PRACTICE and it's default DOCTOR is displayed..

Once we've added new PRACTICE and DOCTORS records, I'd like the Doctors.combobox to only contain the Doctors belonging to the PRACTICE that is selected in the practice.combobox. Each practice has a default dr, so the doctors list. index record still needs to be the one marked as default.

DOCTORS.mdb contains fields DRS_ID (index) and DRS_PracID & DRS_Default (descriptors)

Do i just change:
PATDoctor.ItemData(PATDoctor.NewIndex) = .Fields("DRS_DrID") to something like
PATDoctor.ItemData(PATDoctor.NewIndex) = .Fields("DRS_DrID") AND .Fields("DRS_PracID") = Val (PRAC_ID ( current Practice.combobox context ??) (help with syntax please) )

Many thanks

Peter

Here's the code:

'Display Default Practice
Dim DSPractice As Recordset
'
Set DSPractice = CURDB.OpenRecordset("Select * from PRACTICES", dbOpenDynaset)
DoEvents

With DSPractice
Do While Not .EOF
PATPractice.AddItem .Fields("PRAC_PracName")
PATPractice.ItemData(PATPractice.NewIndex) = .Fields("PRAC_PracID")
If .Fields("PRAC_Default").Value = "True" Then
PATPractice.ListIndex = PATPractice.NewIndex ' Set current selection
DefaultPracID = .Fields("PRAC_PracID")
End If

.MoveNext
Loop
End With
PATPractice.Refresh

'Display default doctor
Dim DSDoctors As Recordset
Set DSDoctors = CURDB.OpenRecordset("Select * from doctors order by DRS_Surname", dbOpenDynaset)
DoEvents

With DSDoctors
Do While Not .EOF
PATDoctor.AddItem .Fields("DRS_Surname")
PATDoctor.ItemData(PATDoctor.NewIndex) = .Fields("DRS_DrID")
If .Fields("DRS_Default").Value = "True" Then
PATDoctor.ListIndex = PATDoctor.NewIndex ' Set current selection
DefaultDrID = .Fields("DRS_DrID")
End If

.MoveNext
Loop
End With
' PATDoctor.Refresh
'

Start your free trial to view this solution

Question Stats

Zone: Programming

Question Asked By: peterdarazs

Solution Provided By: bigjokey

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 03:09PM PDT, ID: 21528887

Rank: Genius

emoreau:

too bad you are not in VB.Net but maybe you can get some ideas from http://www.emoreau.com/Entries/Articles/2007/01/Setting-a-master_2fdetail-relationship-between-two-ComboBox.aspx

05.08.2008 at 04:07PM PDT, ID: 21529192

peterdarazs:

Thanks Emoueau

I'm afraid i'm looking for VB6 solutions to the existing code. Keep up the good work on the .net tutorials. I hope to visit them one day when I try learn .net. I have upped the points to keep this question open.

Regards

Peter

05.08.2008 at 04:37PM PDT, ID: 21529373

bigjokey:

It might be worth you storing a copy of the Doctors data in a form level array. In that array, include the associated practice ID for each doctor. When the Practices combo box is changed, clear the combo box, and refill it by looping through the array of doctors and only adding the doctors that have a matching practice ID.

05.08.2008 at 06:01PM PDT, ID: 21529721

peterdarazs:

That sounds like it.
I understand this would involve adding a combo.click function to the routine (which presently runs on FormLoad) . If TRUE, then please remember I'm a newbie and will need to see how to reference this new routine in the existing routine, and also how to write the code for the new function.

I'll up the points for a solution that can more or less be copied and pasted.

Lets name them:
PATPractice (combobox)
PATDoctor (combobox)
Dim DoctorsArray as ARRAY
PRACTICES. PRAC_ID
DOCTORS. DRS _surname, _practiceID, _IsDefault

Many thanks

Peter

05.08.2008 at 10:38PM PDT, ID: 21530572

bigjokey:

Fortunately for you, the recordset object has a conveinent method called getRows(). It returns all the record from the recordset into a variant array. So you will need to do the following:

At the form level, dimension the array:
Dim varDoctorsArray() as Variant

In the form load, where you currently fill the doctors combobox, change the code to be what I have written in the attached snippet under "Form Load: Populate the Doctors Array"
In the Click event of the practice combobox, add the code below titled "Practice Combo Click Event: Populate the Doctors Combo".

You may need to check my syntax, I've been working in vb.net recently, but I'm pretty sure everything is correct.

Try this out, and let me know how things go.

                       
                          
                             
                             
                                '''''''''''''''''''''''''''''''
'  Form Load: Populate the Doctors Array
'''''''''''''''''''''''''''''''
Dim DSDoctors As Recordset
Set DSDoctors = CURDB.OpenRecordset("Select * from doctors order by DRS_Surname", dbOpenDynaset)
varDoctorsArray = DSDoctors.getRows()
 
'''''''''''''''''''''''''''''''
'  Practice Combo Click Event: Populate the Doctors Combo
'''''''''''''''''''''''''''''''
Dim intI as Integer
Dim lngPracticeID as Long
Dim intDefaultIndex as Integer
 
lngPracticeID = PATPractice.ItemData(PATPractice.SelectedIndex)
PATDoctor.Clear()
 
For intI = 0 to UBound(varDoctorsArray, 1)
 
	' Check if the doctor is associated with the selected practice
	If varDoctorsArray(intI, 1) = lngPracticeID Then
		PATDoctor.AddItem varDoctorsArray(intI, 0) ' The doctors Surname
        PATDoctor.ItemData(PATDoctor.NewIndex) = varDoctorsArray(intI, 3) ' The doctors ID
        ' Check if the doctor being added is the default doctor
        If varDoctorsArray(intI, 2) = True Then
        	intDefaultIndex = PATDoctor.NewIndex
        End If
    End If
Next
PATDoctor.SelectedIndex = intDefaultIndex
                             
                          

                    

Open in New Window

Accepted Solution

20080236-EE-VQP-29 / EE_QW_2_20070628