Sætte focus i felt ved LostFocus

Feltet checkes for om værdien er større end 0, samt om den er forskellig fra NULL. Hvis betingelserne er opfyldt, skal der ikke ske noget, men hvis de ikke er opfyldte, skal focus sættes i feltet igen. Det sker dog bare ikke; hvis tabulatoren bruges, springer til næste felt i den fortløbende formular; hvis musen bruges, springes der til det sted hvor der klikkes.

Private Sub PartiklAntalKrt_LostFocus()
    Me.PartiklAntalKrt.BackStyle = 0
    If Me.PartiklAntalKrt <= 0 Or IsNull(Me.PartiklAntalKrt) Then
      MsgBox "Du skal indtaste et antal kartoner større end 0"
      Me.PartiklAntalKrt.SetFocus
    End If
End Sub