Koda iki şey ekledim. Me.Undo yapılanı geri alacak. Değişikliği yani... Setfocus ise odaklanma. Odaklanacağı yeri belirtiyoruz. Siz bunu kendinize göre değiştirin.
Kod:
subeadi = StrConv([subeadi], 1) ''yazılan metini büyük harfe çevirir
Dim S As String
Dim Adim As String
Adim = Me.subeadi
If Len(Adim) <= 0 Then Exit Sub
I = Nz(DCount("subekod", "subetbl", "subeadi='" & subeadi & "'"), 0)
If I > 0 Then
Me.subeadi.BackColor = vbRed
MsgBox "" & [subeadi] & " İsimli Şube Bulunmaktadır. " & Chr(10) & "Lütfen Farklı Bir Şube Adı Yazınız.", 48, " Kullanıcı Adı Hatası"
[color=#FF0000] subeadi.SetFocus
Me.Undo[/color]
Exit Sub
Else
Me.subeadi.BackColor = 16053492
End If