G
Geraldine Hobley
Hello,
I have a problem in Access 2000 runtime that does not
occur in access 2002 or on some pcs using Access 2002
We have a form that allows a user to select a date by
selecting a label representing the day of the month.
On the click event and double click event of the
selected label we have the following:
label event
onclick event =HandleSelected("lbl35")
on double click event
=SelectDate("lbl35")
The following error occurs immediately on clicking the
label and triggering the on-click event
The expression you entered as the event property setting
produced the following error. The function
you entered can't be used tin this expression.
* The expression may not result in the name of a macro,
the name of a user defined function.
* there may be an error evaluating the function event or
macro.
The respective procedure is shown below in the form's code
Private mstrSelected As String
Private Function HandleSelected(strName As String)
HandleIndent strName
End Function
Private Sub HandleIndent(strNewSelect As String)
If Len(mstrSelected) > 0 Then
If mstrSelected <> strNewSelect Then
Me(mstrSelected).SpecialEffect = acNormal
End If
End If
mstrSelected = strNewSelect
Me(mstrSelected).SpecialEffect = acSunken
mintDay = Me(mstrSelected).Caption
Me.Repaint
End Sub
I would be gratefull for any help
Geraldine
I have a problem in Access 2000 runtime that does not
occur in access 2002 or on some pcs using Access 2002
We have a form that allows a user to select a date by
selecting a label representing the day of the month.
On the click event and double click event of the
selected label we have the following:
label event
onclick event =HandleSelected("lbl35")
on double click event
=SelectDate("lbl35")
The following error occurs immediately on clicking the
label and triggering the on-click event
The expression you entered as the event property setting
produced the following error. The function
you entered can't be used tin this expression.
* The expression may not result in the name of a macro,
the name of a user defined function.
* there may be an error evaluating the function event or
macro.
The respective procedure is shown below in the form's code
Private mstrSelected As String
Private Function HandleSelected(strName As String)
HandleIndent strName
End Function
Private Sub HandleIndent(strNewSelect As String)
If Len(mstrSelected) > 0 Then
If mstrSelected <> strNewSelect Then
Me(mstrSelected).SpecialEffect = acNormal
End If
End If
mstrSelected = strNewSelect
Me(mstrSelected).SpecialEffect = acSunken
mintDay = Me(mstrSelected).Caption
Me.Repaint
End Sub
I would be gratefull for any help
Geraldine