Hi everybody, I couldn't identify what is the error...here is my code :
Code:
Public Sub cmdSelRO_Click()
On Error GoTo Err_cmdSelRO_Click
Dim dbs As Database
Dim rst As DAO.Recordset
Dim SQL As String
SQL = "SELECT * FROM tblSolicitorMonthlyReport WHERE RO = '" & cmbRO.Value & "' ORDER BY RO"
Set dbs = CurrentDb("tblSolicitorMonthlyReport")
Set rst = dbs.OpenRecordset(SQL, dbOpenTable)
rst.MoveLast
Exit_cmdSelRO_Click:
Exit Sub
Err_cmdSelRO_Click:
MsgBox Err.Description
Resume Exit_cmdSelRO_Click
End Sub
Comment