Perry L Harold
pharold at proftesting.com
Tue Mar 13 14:24:31 CDT 2007
LOL! Much better than most of the Friday humor. Perry Harold -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at Beach Access Software Sent: Monday, March 12, 2007 11:09 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] FW: Combo Box Not Showing All Records Hey good solution Rocky. You're a peach. Thanks. Rocky -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at Beach Access Software Sent: Monday, March 12, 2007 7:12 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] FW: Combo Box Not Showing All Records OK I'll just talk to myself - nothing new. Hey. Here's your problem Rocky. You accidentally changed the number of columns on the combo box from 7 to 8. The underlying queries have only seven fields. When you tested it in A2K3 you didn't see the problem but when you sent it to your client who is using A2K they did have the problem. Why it works in A2K3 and not in A2K I don't know. But now you have the fix. HTH Rocky -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at Beach Access Software Sent: Monday, March 12, 2007 3:37 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] FW: Combo Box Not Showing All Records Further to my post below. The problem is in the code where I change the row source of the combo box. Because if I change it on the property sheet it works OK. Here's the code: Select Case fraFindOrderBy Case 1 cboAgreements.RowSource = "qryAgreementsByOrderNumber" Me.RecordSource = "qryRentalAgreementHeaderByOrderNumber" Me.cboAgreements.ColumnWidths = "0"";0.75"";2"";1"";1.5"";0.75"";0.5""" Case 2 cboAgreements.RowSource = "qryAgreementsByCustomer" Me.RecordSource = "qryRentalAgreementByCustomer" Me.cboAgreements.ColumnWidths = "0"";2"";0.75"";1"";1.5"";0.75"";0.5""" Case 3 cboAgreements.RowSource = "qryAgreementsByDateOut" Me.RecordSource = "qryRentalAgreementByDateOut" Me.cboAgreements.ColumnWidths = "0"";1"";2"";0.75"";1.5"";0.75"";0.5""" Case 4 cboAgreements.RowSource = "qryAgreementsByPurchaseOrder" Me.RecordSource = "qryRentalAGreementByPurchaseOrder" Me.cboAgreements.ColumnWidths = "0"";1.5"";0.75"";2"";1"";0.75"";0.5""" Case 5 cboAgreements.RowSource = "qryAgreementsByFirstUseDate" Me.RecordSource = "qryRentalAGreementByFirstUseDate" Me.cboAgreements.ColumnWidths = "0"";1"";1.5"";0.75"";2"";0.75"";0.5""" End Select cboAgreements.Requery Me.Requery TIA Rocky _____ From: Rocky Smolin at Beach Access Software [mailto:rockysmolin at bchacc.com] Sent: Monday, March 12, 2007 3:28 PM To: 'Access Developers discussion and problem solving' Subject: Combo Box Not Showing All Records Dear List: I have a combo box on a form with seven fields. There is an option frame on the form to let the user select how the data in the combo box is to be sorted. The options are Order Number, Customer, P.O., Date Out, and First Use Date. In the after update event of the option frame I set the row source of the combo box, adjust the widths of the columns, and requery the box. I have five separate queries. Problem is that not all the records show up in the box although they all show up in the query. Order Number works correctly. By Customer the query selects 19488 records but the combo box only displays 18242. Sort by Date Out the query selects 19301 records but the combo box only shows 139. First Use date - the query selects 19733 but the combo box only shows 15385. Purchase Order - the query selects 13060 but the combo box only goes down to 13055 (so close!) This is an A2K data base running on SP-3. But the A2K format mdb all works correctly in A2K3! Any ideas what's going on here? MTIA Rocky -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.8/718 - Release Date: 3/11/2007 9:27 AM -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.10/720 - Release Date: 3/12/2007 7:19 PM -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com