What is the code in the dblist click event.
Printable View
What is the code in the dblist click event.
here's what i got..
***************************************************
Private Sub DataList1_Click()
txtFields(1).Text = DataList1.Text
txtFields(3).Text = adInvoices.Recordset!ImagePath
ImgEdit1.Image = txtFields(3).Text
ImgEdit1.Display
ImgEdit1.Refresh
Exit Sub
End Sub
****************************************************
the rest of my code
Private Sub cmdNext_Click()
On Error GoTo HandleErrors:
ImgEdit1.Zoom = 25
adInvoices.Recordset.MoveNext
ImgEdit1.Image = txtFields(3).Text
ImgEdit1.Display
ImgEdit1.Refresh
Exit Sub
HandleErrors:
ImgEdit1.DisplayBlankImage 1400, 1140, 600, 400, 1
Label1.Visible = True
'Adodc1.Recordset.Delete
adInvoices.Recordset.MoveNext
End Sub
Private Sub cmdPrior_Click()
On Error GoTo HandleErrors:
ImgEdit1.Zoom = 25
adInvoices.Recordset.MovePrevious
ImgEdit1.Image = txtFields(3).Text
ImgEdit1.Display
ImgEdit1.Refresh
Exit Sub
HandleErrors:
ImgEdit1.DisplayBlankImage 1400, 1140, 600, 400, 1
Label1.Visible = True
'Adodc1.Recordset.Delete
adInvoices.Recordset.MoveNext
End Sub
Private Sub Form_Load()
adInvoices.Recordset.MoveFirst
ImgEdit1.Image = txtFields(3).Text
ImgEdit1.Display
fraInvoice.Caption = "Invoice Numbers: " & adInvoices.Recordset.RecordCount & " Records found"
End Sub
Private Sub ImgEdit1_SelectionRectDrawn(ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long)
ImgEdit1.ZoomToSelection
End Sub
10-30-2000 12:12 PM