VB in MS Access - Using < and > ...Please help

[agroover]

I know the following code is probably way off, but I really need some help with this. I keep trying different things, but nothing seems to work. I'm just getting really frustrated. Below is what I have so far.

If Grade.text = 1006, then I don't want the user to be able to put certain values into the C textbox. The value needs to be >= 0.04 and <= 0.06. If they enter any other value, I want a message box to appear saying that the value is not valid.

Private Sub C_Enter()
 
GRADE.SetFocus
C.Locked = False
 
If Trim(GRADE.Text) = "1006" Then
    ElseIf C.Value >= 0.04 Then
        MsgBox "Value must be between 0.04 and 0.06"
    ElseIf C.Value <= 0.06 Then
        MsgBox "Value must be between 0.04 and 0.06"
    Else
 
End If

Any help at all would be greatly appreciated. I've searched everywhere trying to find out what I need to do and what is wrong. I'm not sure if I should use the DMin and DMax functions or not.

I'd really appreciate any sugguestions someone might have.

Thanks

[Tig201]

Try
code

If Val(C.Text) >= 0.4 And Val(C.Text) <= 0.6 Then
MsgBox ("enter a value between 0.4 and 0.6")

you may also want to add error checking to validate C.Text isnumeric

[Killer42]

Actually agroover, your code looks as though it's very close to doing what you want. You've just got the syntax of your nested IF statements a little jumbled.

Try this slight modification...

Private Sub C_Enter()
 
GRADE.SetFocus
C.Locked = False
 
If Trim(GRADE.Text) = "1006" Then
    If C.Value >= 0.04 Then
        MsgBox "Value must be between 0.04 and 0.06"
    ElseIf C.Value <= 0.06 Then
        MsgBox "Value must be between 0.04 and 0.06"
    End If
End If

Oh, and you probably should just use "<" and ">" rather than ">=" and "<=". After all, if you are telling the user the value must be 0.04 to 0.06, it seems a bit unfriendly to complain when they enter 0.04 or 0.06, doesn't it.

[agroover]

Thank you both for your help. I'm going to try it out and let you know if they work out. Thanks again for the suggestions and the help. It's greatly appreciated.

[Killer42]

Thank you both for your help. I'm going to try it out and let you know if they work out. Thanks again for the suggestions and the help. It's greatly appreciated.

I just realised, we had our "less than" and "greater than" backwards. You'll need to swap them around.

[agroover]

Thank you Killer42 andTig201 for all of your help. I was able to get the code to work.

Below is the code I ended up using.

Private Sub C_LostFocus()
GRADE.SetFocus
C.Locked = False
 
If Trim(GRADE.Text) = "1006" Then
    If C.Value < 0.04 Or C.Value > 0.06 Then
        MsgBox "Value must be between 0.04 and 0.06"
    End If
End If
 
End Sub

Thanks again.

[Killer42]

Excellent! Glad we could help. :)