If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Scroll Records!
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 -- Thanks in advance for any help with this......Bob MS Access 2007 accdb Windows XP Home Edition Ver 5.1 Service Pack 3 |
Thread Tools | |
Display Modes | |
|
|