Setfocus - efter cancel before update

I din viste kode står der:
Me.Zyl.SetFocus
men navnet på din TextBox er tilsyneladende tbZyl, så:
Me.tbZyl.SetFocus

Tak for din interesse.
Den har jeg stirret mig blind på, og er rettet.
MEN
Når jeg retter, sættes der stadigvæk ikke focus det rette sted.
Jeg har leget lidt. Sætter jeg appestrof (') som kommentar så msgbox ikke effektueres så fungere det. Det handler nok om at focus flyttes når man klikker [OK] til msgbox.

Kan man føre, så focus ikke sker når msgbox lukker, det er ikke en formular hvor jeg kan styre, hvad der skal ske når det lukker.

Du kalder SetFocus i event BeforeUpdate. Se bemærkningen ”Events like Exit, Enter and AfterUpdate prevent you from using setfocus properly I'm afraid” fra jkpeiterse i denne tråd:
https://www.mrexcel.com/board/threads/cant-set-focus-back-to-textbox-after-user-error.1009681

Linjen:
Cancel = True
får i sig selv fokus til at blive i tbZyl. Prøv derfor helt at fjerne linjen:
Me.tbZyl.SetFocus

Det virker i min test. Alternativt kan du tilføje en separat function til at sætte fokus. I givet fald:

Udskift linjen:
Me.tbZyl.SetFocus

med følgende linje:
fncSetFocus_tbZyl

og tilføj følgende function i kodemodulet:

Function fncSetFocus_tbZyl()
    With Me.tbZyl
        .SetFocus
        'marker teksten
        .SelStart = 0
        .SelLength = Len(.Value)
    End With
End Function

--------------
TIP: Du kan forbedre din kode generelt og undgå problemer som det med forkert navn i første omgang, hvis du bruger With/End With, så du kun refererer til kontrolnavnet én gang. F.eks. sådan:

Private Sub tbZyl_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean)

    With Me.tbZyl
        .BackColor = &H80FFFF
        Select Case .Value
            Case "", "0", "00", "000", "0000"
                cancel = True
                .BackColor = &H8080FF
                MsgBox "Zylchrom skal angives i mindst en enhed", , "Fejl i enhedsangivelsen!"
           
                fncSetFocus_tbZyl
                Exit Sub
        End Select
    End With
End Sub