Loading "First" Record In form

SoNew

I have a Database form in Single View for users to look-up and/or enter data. When the form loads the combo box is empty, which I like - but the fields in the form are all filled in with what the database sees as the "first" record - which is alphabetically not the first, but is as to the ID field. All that said, I would like the fields to either fill in with the alphabetical first record, or merely blank. I found the code to have it load New - but I don't want a New record because often it is merely opened to look-up data, not enter.
Here is my form load code. Any additional code would be most appreciated.

Expand|Select|Wrap|Line Numbers

 
Private Sub Form_Load()

DoCmd.Maximize
 
' Turn the MouseWheel Off

Dim blRet As Boolean

' Call our MouseHook function in the MouseHook dll.

' Please note the Optional GlobalHook BOOLEAN parameter

' Several developers asked for the MouseHook to be able to work with

' multiple instances of Access. In order to accomodate this request I

' have modified the function to allow the caller to

' specify a thread specific(this current instance of Access only) or

' a global(all applications) MouseWheel Hook.

' Only use the GlobalHook if you will be running multiple instances of Access!

blRet = MouseWheelOFF(False)
 
' Change the Caption on the form

Me.Caption = "Reading Leaders and Student Readers"
 
' Enable the lookup combo

Combo114.Enabled = True
 
' Show the edit button

cmdEdit.Visible = True
 
' Show the New button

New_Button.Visible = True
 
' Show the Exit button

cmdExit.Visible = True
 
' Hide the OK button

cmdOK.Visible = False
 
' Hide the Cancel Button

cmdCancel.Visible = False
 
'Hide the Delete Button

cmdDelete.Visible = False
 
End Sub

Fiddler2

If you want it to be alphabetical, simply add a sort to the underlying query of your form.

Using a bound form like this, you could "clear" everything on startup by setting the default value of your UNBOUND combobox to this:

cboBoxName.itemdata(0)

then, bind your primary field in your recordset (in the underlying querygrid) to the combobox. When the form opens, the combo box will be set to nothing, and so will the form.

To make items show up, put the following code in the "after update" event of the combobox:
me.requery

Loading "First" Record In form

re: Loading "First" Record In form

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about