Command Button not working on one user station?
Hello,
I can't figure this problem out ...
one user is using runtime MS Access 2000 and have been able to use this form with an OK command button to launch a report before but now she is unable to do so.
I can't duplicate the message as it's still working perfectly for me.
When she clicks on OK, she gets the following message:
"To set this property, open the form or report in Design view"
she is in a form where the OK command button is located.
this is the Click Event for the OK button:
Private Sub Ok_Click()
On Error GoTo errOK
Do While True 'outer control loop
'
If Me.grpReportType = 1 Then
DoCmd.OpenReport "Web", acViewPreview
End If
'
If Me.grpReportType = 2 Then
DoCmd.OpenReport "CallCenter", acViewPreview
End If
'
If Me.grpReportType = 3 Then
DoCmd.OpenReport "Vision", acViewPreview
End If
'
If Me.grpReportType = 4 Then
DoCmd.OpenReport "Therapy", acViewPreview
End If
'
If Me.grpReportType = 5 Then
DoCmd.OpenReport "Cleaning", acViewPreview
End If
Exit Do
Loop 'outer control loop
'Change the caption on the Cancel button
Me.cmdCancel.Caption = "&Close"
Exit Sub
errOK:
DoCmd.Hourglass False
MsgBox Err.Description
Err.Clear
End Sub
Hello,
I can't figure this problem out ...
one user is using runtime MS Access 2000 and have been able to use this form with an OK command button to launch a report before but now she is unable to do so.
I can't duplicate the message as it's still working perfectly for me.
When she clicks on OK, she gets the following message:
"To set this property, open the form or report in Design view"
she is in a form where the OK command button is located.
this is the Click Event for the OK button:
Private Sub Ok_Click()
On Error GoTo errOK
Do While True 'outer control loop
'
If Me.grpReportType = 1 Then
DoCmd.OpenReport "Web", acViewPreview
End If
'
If Me.grpReportType = 2 Then
DoCmd.OpenReport "CallCenter", acViewPreview
End If
'
If Me.grpReportType = 3 Then
DoCmd.OpenReport "Vision", acViewPreview
End If
'
If Me.grpReportType = 4 Then
DoCmd.OpenReport "Therapy", acViewPreview
End If
'
If Me.grpReportType = 5 Then
DoCmd.OpenReport "Cleaning", acViewPreview
End If
Exit Do
Loop 'outer control loop
'Change the caption on the Cancel button
Me.cmdCancel.Caption = "&Close"
Exit Sub
errOK:
DoCmd.Hourglass False
MsgBox Err.Description
Err.Clear
End Sub
Attachments
Last edited: