Formular skal skifter record ved fejl.

I en formular med 4 felter har jeg lavet et tjek, om det som bliver tastet ind fylder præcist 6 karakter. Hvis det som er indtastet ikke fylder 6 karakter kommer der en msgbox som oplyser at det indtastede ikke fylder 6 karakter. Hvis der er indtastet 6 karakter skal den gå ned til næste felt og det virker fint. Men hvis der er fejl i det indtastede, kommer der godt nok en msgbox men den skifter til næste record i formularen, er der nogen som kan hjælpe med at få den til at blive i den oprindelige record. Koden til det ovenstående er som følger:

Private Sub F_kode_LostFocus()
If (Len(F_kode) < 6) Or (Len(F_kode) > 6) Then
            MsgBox "Koden er ikke på 6 karakter!"
            F_kode.SetFocus
    Else
        F_neddep.SetFocus
       
    End If
End Sub