Forms Problem

[drunkenneo]

Hi I am trying to display a table records on the form with this code:

Private Sub Form_Load()


Dim rs As DAO.Recordset
Dim str As String

On Error GoTo Err_cmd_vimport_Click
'defining the form recordset
Me.Form.RecordSource = "SELECT Payment_Log.Ecard, Payment_Log.Ereference, Payment_Log.[Upload Amount], Payment_Log.[Card Fee], Payment_Log.[Service Tax], Payment_Log.[Total Amount], Payment_Log.Paid FROM Payment_Log WHERE ((Payment_Log.EmailResponse_Date is not Null) AND (Payment_Log.Payment_Mail = False))"
On Error Resume Next
With Me.RecordsetClone
.MoveFirst
.MoveNext
Tcount.Caption = .RecordCount
End With

Exit_cmd_vimport_Click:
Exit Sub

Err_cmd_vimport_Click:
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume Exit_cmd_vimport_Click
End Sub

however i could not be able get any results in the form as if the debuging is not showing anr error, Pleas help

[pbaldy]

You wouldn't get an error with

On Error Resume Next

this may be of interest:

http://www.baldyweb.com/RecordCounts.htm