I have searched all over the net an found results of problems similar to this but not exactly what i want. My Scenario is... I have 4 check boxes that i use to order a form bound to a table. The problem is every time i try to check the value of the check box i get

"Runtime Error 2427"
"You entered an expression that has no value"

The code on the GotFocus of the check boxes is...

If Me.chkAscend.Value = True Then 'Error occurs here
     Me.OrderByOn = True
     Me.OrderBy = "fldDateIn Asc"
Else
     Me.OrderByOn = True
     Me.OrderBy = "fldDateIn Desc"
End If

Please help coz this is giving me unwanted headaches

LION OF JUDDAH!

__________________
LION OF JUDDAH!

Try removing the .Value like this:

If Me.chkAscend = True



Boyd
"Hi Tech Coach"
Access Based Accounting/Business Solutions developer.
http://www.officeprogramming.com

I tried all that.. en still not working. Funny thing is i have tried the same operation with a toggle button en its working fine plus the expression tglButton.Value.

Am still hoping to get an answer thank you.

LION OF JUDDAH!

Well, you can simplify your code like this

Me.OrderByOn = True

If Me.chkAscend Then
    Me.OrderBy = "fldDateIn Asc"
Else
    Me.OrderBy = "fldDateIn Desc"
End If

Because an IF statement resolves to true or false and a checkbox is either true or false...

EXCEPT if you have a triple state property set to yes. In that case, it can be NULL and it could be the source of your error. Make sure the triple state property is set to no and your checkbox has a default value of either true or false.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Actually the problem was alittle tricky than that. I figured out that Access has changed the way it handles optiongroups drastically over the past version. Initially option boxes within a frame could be handled independently and codes like the one I was having problems with would have worked.

Now, Optiongroup members have optionvalue which is set to the value of the frame holding the option boxes. That’s why my code was not working. So I eventually changed my code to.

‘Note: Option1.Optionvalue = 1
‘Note: Option2.Optionvalue = 2

Select Case fraOrderBy.Value
Case 1
If Me.chkAscend.Value = True Then
     Me.OrderByOn = True
     Me.OrderBy = "fldDateIn Asc"
Else
     Me.OrderByOn = True
     Me.OrderBy = "fldDateIn Desc"
End If
Case 2
If Me.chkAscend.Value = True Then Me.OrderByOn = True
         Me.OrderBy = "fldDateOut Asc"
Else
     Me.OrderByOn = True
     Me.OrderBy = "fldDateOut Desc"
End if
End Select
Another mistake I created was including the chkAscend control in the same optiongroup as other option boxes when it wasn’t.

Thanks to all those who tried helping


LION OF JUDDAH!