[RESOLVED] Moving control to previous record field

[KidJavelin]

I hope this is the right forum for this...

I have an Access 2000 sub-form with a bit of VB programming behind it. The fields are layed out like this -

Field1 Field2 Field3

Fields 2 and 3 have some error checking that works fine. Problem I have is that when Field3 finishes it's error checking it creates a new record and goes to Field1 of the new record, leaving a null value in Field3 of the previous record.

Can I somehow do the error checking in Field3 and then have the focus stay there?

Thanks all!
John

[Static]

post the code u are using for error check...

[KidJavelin]

Here it is. But the error checking works fine. What they're asking for is to have the focus stay in Field3(the last one). right now, it goes through and whether or not it fails the check it cycles through to a new record.

**Code Start**
Lng = CInt(Left(Me![Longitude], 3))
Min = CInt(Mid(Me![Longitude], 5, 2))

If Lng < 181 Then
If Lng = 180 And Min > 0 Then
MsgBox "Minutes must be between 00 and 59", vbOKOnly, "Incorrect Entry"
Me![Longitude] = Null
Me![Longitude] = Null
Me.Controls("Longitude").SetFocus
Exit Sub
End If
Else:
MsgBox "Degrees must be between 000 and 180", vbOKOnly, "Incorrect Entry"
Me![Longitude] = Null
Me![Longitude] = Null
Me.Controls("Longitude").SetFocus
Exit Sub
End If

If Min < 60 Then
Else:
MsgBox "Minutes must be between 00 and 59", vbOKOnly, "Incorrect Entry"
Me![Longitude] = Null
Me![Longitude] = Null
Me.Controls("Longitude").SetFocus
Exit Sub
End If


If Right(Me![Longitude], 1) <> "E" Then
If Right(Me![Longitude], 1) <> "W" Then
MsgBox "This is not a valid Longitude", vbOKOnly, "Invalid Entry"
Me![Longitude] = Null
Me.Controls("Longitude").SetFocus
Exit Sub
End If
End If
Me![Longitude] = UCase(Me![Longitude])

Check1 = Mid(Me![Longitude], 1, 1)
Check2 = Mid(Me![Longitude], 2, 1)
Check3 = Mid(Me![Longitude], 3, 1)
Check4 = Mid(Me![Longitude], 5, 1)
Check5 = Mid(Me![Longitude], 6, 1)

Sum2 = Right((Check1 + Check2 + Check3 + Check4 + Check5), 1)
Me![CheckLong] = Sum2

**End of Code**

Data can fail the check at a few spots, and it works beautifully. I've even made it return focus to Fields 1 and 2 using a On_Enter action in the next field over, for example -

If the checks fail in Field1, it will produce a null value and move to Field2.
After entering Field2, if a null value is present in Field1, it returns focus to Field1.

There is a simalar action in the On_Enter action in Field3 looking for a null value in Field2. I just ran out of controls to set up the On_Enter action in.

[Static]

on exit event? lost focus?

[KidJavelin]

I'm an idiot. Lost_Focus worked like a charm. I'm going to go ahead and set up the rest like that as well...

Thanks a buch!
John