Scroll Records!

[Bob Vance]

I want to be able to scroll through my records/invoices. this the open event
of my invoice is it possible that I can scroll from Invoice to
Invoice?..........Regards Bob


Case "ModifyHoldingInvoiceFromMain"

Me.Caption = "Holding Invoice"

cmdAdd.Visible = False
cmdPrint.Visible = False
cmdCalculate.Enabled = False
lbInvoiceID.Visible = False
tbInvoiceID.Visible = False
lbInvoiceDate.Visible = False
tbInvoiceDate.Visible = False
chkByCheque.Visible = False
lbByCheque.Visible = False
subDailyChargeRefChild.Visible = True
bxDailyRef.Visible = True
lblDailyRef.Visible = True
recInvoice_ItMdt.Open "SELECT * FROM tblInvoice_ItMdt WHERE
IntermediateID=" _
& Nz(Form_frmMain.lstModify, 0) & " AND HorseID=" _
& Nz(Form_frmMain.lstModify.Column(1), 0),
CurrentProject.Connection, adOpenDynamic, adLockOptimistic

If recInvoice_ItMdt.EOF = True And recInvoice_ItMdt.BOF = True
Then
MsgBox "Sorry!!! No Record Available.", vbApplicationModal +
vbInformation + vbOKOnly
subBlankForm
Exit Sub
End If

subShowInvoiceItMdtValues
subShowInvoiceModifyItMdtDetailValues

cbHorseName.RowSourceType = "Table/Query"
cbHorseName.RowSource = "qHorseNameSourceModify"
lbOwnerList.Requery
cmdModify_Click

Exit_Command1_Click:
Exit Sub

Err_Command1_Click:
Resume Exit_Command1_Click
End Select

End Sub