Solved

ComboBox Value Lists Slow to Load

Posted on 2004-04-16
12
872 Views
Last Modified: 2012-06-27

I'm using Access 2002 with ADO and am using unbound forms and unbound comboboxes based on static lookup tables.  I'm designing it for frontend/backend use to later migrate to an .adp with perhaps SQL Server.  On the Form_Load event, I populate the combo boxes based on static lookup lists by setting their RowSource properties to a string with the semicolon delimited value list.  This works fine, except when the number of rows becomes somewhat large, and then it takes one to two seconds for that particular combobox to load.  It's also slow to scroll.  Rather annoying.  

As an example, I have a Countries lookup table with three fields (RecordID, CountryName, and TelCode) with 238 rows.  The code fundamentally looks something like this snippet (though the string is built differently from the simple example below):

strRows = "1;Afghanistan;930;2;Albania;355;"      ' string goes on for all countries
cboCntry.ColumnCount = 3
cboCntry.ColumnWidths = "0;2000;0"
cboCntry.BoundColumn = 0
cboCntry.LimitToList = True
cboCntry.AutoExpand = False
cboCntry.AutoExpand = False
cboCntry.RowSourceType = "Value List"
cboCntry.RowSource = strRows

1)  Is the slowness in loading and scrolling long value lists in fact typical behavior for a combobox using a RowSourceType = "Value List"?

2)  If yes, then a thought I've had is to set the RowSourceType = "Table/Query" and set the RowSources  to respective local tables or queries in a separate front-end mdb holding nothing but static lookup tables.   Does that make sense?  If so, how would I create a separate ADO connection to it for the comboboxes' RowSource property?

Thanks,
Wyatt
0
Comment
Question by:WyattRidesAgain
12 Comments
 
LVL 1

Expert Comment

by:Lou Dufresne
ID: 10845776
Hi Wyatt,
    This is a wild guess. Add an index(s) to the table or combo box list. This may make it run faster.

Lou
0
 
LVL 39

Expert Comment

by:stevbe
ID: 10845862
go with your second thought, store the data in a local table.

You can use the currentproject.connection as the connection object for the recordset you are using for the combobox
0
 

Author Comment

by:WyattRidesAgain
ID: 10845934
Hi Stevbe,

Can I use a recordset as the combo box rowsource?  I don't mean by looping through its records to either build the rowsource string or to use .AddItems one record at at time, which I understand.  Rather, I mean can you directly set the rowsource equal to the recordset, like you would with a table or query source?  I tried doing that (setting the recordset) and I got a 'type mismatch' error.

Wyatt
0
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 
LVL 39

Expert Comment

by:stevbe
ID: 10845989
I don't have my reference material here with me but ... yes, you can set the source of a combobox to be a recordset. I think that you can only do this with an ADO recordset, what object library are you using to build your recordset with?

Steve
0
 
LVL 39

Accepted Solution

by:
stevbe earned 250 total points
ID: 10846032
yup ... just set it up and tested fine.

Steve

Option Compare Database
Option Explicit


Dim mrst As ADODB.Recordset

Private Sub Form_Open(Cancel As Integer)
    Set mrst = New ADODB.Recordset
    mrst.Open Source:="SELECT * FROM tblContact", _
              ActiveConnection:=CurrentProject.Connection, _
              CursorType:=adOpenKeyset, _
              LockType:=adLockOptimistic
    Set Me.cboADO.Recordset = mrst
End Sub
0
 

Author Comment

by:WyattRidesAgain
ID: 10846035

That's encouraging.  I'm using ADO 2.7 library.  Can you send a quick n dirty code snippet to illustrate?  I'm guessing I have the wrong combinations of combo box properties that rejects the recordset.

Wyatt
0
 

Author Comment

by:WyattRidesAgain
ID: 10846044

Ooops.  I replied before I saw the code.  Sorry.  Lemme give it a try.

Wyatt
0
 
LVL 39

Expert Comment

by:stevbe
ID: 10846096
not that it will make much of a difference but you can set the locktype to readonly which will speed things up a hair.

  LockType:=adLockReadOnly


the real key is the cursortype being set to keyset which is also what you need to do when binding a form's recordset to an in memory recordset.

Steve
0
 

Author Comment

by:WyattRidesAgain
ID: 10846173

Steve,

It works great!!!!  Fast and clean.  Perfect.

I didn't know to look for the recordset property for the combo box object.  Learned something good today.

Many thanks!  Points are coming.
Wyatt
0
 
LVL 39

Expert Comment

by:stevbe
ID: 10846262
You are welcome, glad I could help.

Steve
0
 

Expert Comment

by:JonoB
ID: 11201314
Well, this is exactly what I have been trying to do for a while, but I am still struggling.

Any idea of what ADO library you need for this to work?

I am using A2000, with the Microsoft ADO 2.6 library and I get a "Method or data member not found" error on the me.cboADO.Recordset line.

Any suggestions?

Thanks for the help.
0
 
LVL 39

Expert Comment

by:stevbe
ID: 11205500
This is a closed question, you should open your own. The method we used to solve this question will not work in Access 2000.

Steve
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…

775 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question