A Number is Required Here... anyone pls...

[psychofoo]

hi.. here's my code, but when i run my program, an error message "A number is required here ( on the red part). my declaration for NempID is integer...

Dim CrReport As CRAXDRT.Report
Dim appCr As CRAXDRT.Application
Set CrReport = New CRAXDRT.Report
Set appCr = New CRAXDRT.Application
 
Set CrReport = appCr.OpenReport("c:\Documents and Settings\francis\Desktop\PC Inventory System\report\rptEmpMonitoring.rpt")
[COLOR=Red]CrReport.RecordSelectionFormula = "{tEmployee.EmpID}='" & NEmpID & "'"[/COLOR]
CR.ReportSource = CrReport
CR.ViewReport

[brucevde]

Remove the single quotes. Crystal is assuming the value of NempId is a string.

[psychofoo]

hi... thanx so much! it works... + 1