code not working

  • Thread starter Thread starter octet
  • Start date Start date
O

octet

Iam trying to run this code but i get an error after CASE 1 and then after
case 2 i am new to programing can anyone help with this?

Thanks Octet

Option Compare Database
Option Explicit

Private Sub grpEmployees_AfterUpdate()
Dim strSQL As String

'Open rptEmployeeList or rptemployeesByDept
' base on critreia enterd int form by user

strSQL = "Teminated =" & chkTerm

Select Case grpEmployees
Case 1
DoCmd.OpenReport "rptEmployeesList", acViewPreview, , strSQL
Case 2
DoCmd.OpenReport "rptEmployeesByDept", acViewPreview, , strSQL
End Select
grpEmployees = Null

End Sub
 
Select Case grpEmployees
Case 1
DoCmd.OpenReport "rptEmployeesList", acViewPreview, , strSQL
Case 2
DoCmd.OpenReport "rptEmployeesByDept", acViewPreview, , strSQL
End Select
grpEmployees = Null
Click to expand...

if grpEmployees is a control, you need to use the Me keyword...

Select Case Me.grpEmployees
Case 1
DoCmd.OpenReport...
Case 2
DoCmd.OpenReport
End Select


Me.grpEmployees should read the value, but that is actually the way to refer
to the control itself as an object rather than the data in it. To be
concise, you may want to use Me.grpEmployees.Value

hth

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)
 
Thanks that worked

Jack Leach said:
if grpEmployees is a control, you need to use the Me keyword...

Select Case Me.grpEmployees
Case 1
DoCmd.OpenReport...
Case 2
DoCmd.OpenReport
End Select


Me.grpEmployees should read the value, but that is actually the way to refer
to the control itself as an object rather than the data in it. To be
concise, you may want to use Me.grpEmployees.Value

hth

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)
Click to expand...
 
Back
Top