Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
BOOK: Beginning Access 2003 VBA
This is the forum to discuss the Wrox book Beginning Access 2003 VBA by Denise M. Gosnell; ISBN: 9780764556593
Welcome to the p2p.wrox.com Forums.

You are currently viewing the BOOK: Beginning Access 2003 VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #1 (permalink)  
Old March 1st, 2007, 05:15 PM
Registered User
 
Join Date: Dec 2004
Location: , , .
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default Chapter 12

In the following code, the LoadRecords sub from Chapter 12 appears to be populating the combo boxes, then populating the projects object with values from the recordset. It then moves to the record pointer to the first record in the recordset and populates the projects object from that record. This seems to be redundant or am I missing something?

Code:
Sub LoadRecords()

On Error GoTo HandleError

blnAddMode = False

Set rsProjects = objProjects.RetrieveProjects(blnAllRecords)

If rsProjects.BOF And rsProjects.EOF Then
    Exit Sub
Else
    Call PopulateComboBoxes
    objProjects.PopulatePropertiesFromRecordset rsProjects
    Call MoveToFirstRecord(intCurrProjectRecord, rsProjects, objProjects, blnAddMode)
    Call PopulateProjectsControls
End If

Exit Sub

HandleError:

GeneralErrorHandler Err.Number, Err.Description, PROJECTS_FORM, "LoadRecords"

Exit Sub

End Sub


Similar Threads
Thread Thread Starter Forum Replies Last Post
Generics chapter 12 difficult chapter i found ...? Larryz C# 2005 1 July 4th, 2007 09:40 PM
Chapter 12 .MAttButler BOOK: Professional Web Parts and Custom Controls ASP.NET ISBN: 0-7645-7860-X 5 September 10th, 2006 08:31 PM
Errors on Chapter 12 example(12.8) sonnie ASP.NET 2.0 Professional 2 June 7th, 2006 10:55 AM
Chapter 12 Koga VB.NET 2002/2003 Basics 0 November 2nd, 2004 11:43 PM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.