SetFocus Issue

[agroover]

I can't seem to figure out how to get rid of the errors.

I recieve the following error when I leave the Grade.SetFocus in my code...

Microsoft Access can't move the focus to the control Grade

GRADE.SetFocus - Highlighted when I hit debug on the error message

Private Sub C_Click()
GRADE.SetFocus
 
If GRADE.Text = "" Then
            MsgBox "Please select a grade."
            C.Locked = True
        ElseIf GRADE.Text = Not Null Then
        Else
            C.Locked = False
            C.SetFocus
End If
End Sub
 
Private Sub C_Exit(Cancel As Integer)
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"
        C.SetFocus
    End If
MN.SetFocus
End If
End Sub

When I remove Grade.SetFocus from my code, I get...

You can't reference a property or a method for a control unless the control has the focus

If GRADE.Text = "" Then - Highlighted when I hit debug on the error message

Private Sub C_Click()
 
 
If GRADE.Text = "" Then
            MsgBox "Please select a grade."
            C.Locked = True
        ElseIf GRADE.Text = Not Null Then
        Else
            C.Locked = False
            C.SetFocus
End If
End Sub
 
Private Sub C_Exit(Cancel As Integer)
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"
        C.SetFocus
    End If
MN.SetFocus
End If
End Sub

The two Private Subs work fine seperately but I get the errors when I try and run it together.


Any help would be greatly appreciated.

[Denburt]

First is the field Grade disabled or locked?

Second you should reference all your fields as such:

Me!Grade
If you feel you must then you can use the following but it usually isn't necesary.

Me!Grade.text

Adding Me! will be less confusing to MS Access and help speed it up a little. This could also solve the error your having also.

[Dököll]

First is the field Grade disabled or locked?

Second you should reference all your fields as such:

Me!Grade
If you feel you must then you can use the following but it usually isn't necesary.

Me!Grade.text

Adding Me! will be less confusing to MS Access and help speed it up a little. This could also solve the error your having also.

Good point, Denburt...

Also look to see if you did not accidentaly create another instance of Grade, for instance, Grade(0).Text, Grade(1).Text...

[agroover]

Thank you DoKoll and Denburt for your help. I finally got the code to work. Below is what I ended up using.

Once again, thank you for all your help and for replying so quickly.
It's greatly appreciated.

Private Sub C_Exit(Cancel As Integer)
 
Me!GradeID.SetFocus
 
If Me!GradeID.Text = "" Then
            MsgBox "Please select a GRADE."
            C.Locked = True
    ElseIf Me!GradeID.Text = Not Null Then
            C.Locked = False
            C.SetFocus
End If
 
Me!GradeID.SetFocus
C.Locked = False
If Me!GradeID.Text = "1006" Then
   If Me!C.Value < 0.04 Or Me!C.Value > 0.06 Then
        MsgBox "Carbon must be between 0.04 and 0.06"
        Me!C.SetFocus
    ElseIf Me!C.Value > 0.04 And Me!C.Value < 0.06 Then
         MN.SetFocus
    End If
End If
 
End Sub

[Denburt]

Glad it is working, let us know if you have any more issues.

[Dököll]

Thank you DoKoll and Denburt for your help. I finally got the code to work. Below is what I ended up using.

Once again, thank you for all your help and for replying so quickly.
It's greatly appreciated.

Private Sub C_Exit(Cancel As Integer)
 
Me!GradeID.SetFocus
 
If Me!GradeID.Text = "" Then
            MsgBox "Please select a GRADE."
            C.Locked = True
    ElseIf Me!GradeID.Text = Not Null Then
            C.Locked = False
            C.SetFocus
End If
 
Me!GradeID.SetFocus
C.Locked = False
If Me!GradeID.Text = "1006" Then
   If Me!C.Value < 0.04 Or Me!C.Value > 0.06 Then
        MsgBox "Carbon must be between 0.04 and 0.06"
        Me!C.SetFocus
    ElseIf Me!C.Value > 0.04 And Me!C.Value < 0.06 Then
         MN.SetFocus
    End If
End If
 
End Sub

Take care agroover!

It's a wonderful job that you are doing by the way, I'm hinting you teach or at least create the needed software to help educate. Need more people like you around.

In a bit!