...Big Dilema

[HeSaidJoe]

What is the code in the dblist click event.

[Lethal]

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