For Each Nsn In Controls döngüsünde iki nesneyi muaf tutmak

[hsayar]

For Each Nsn In Controls
If TypeName(Nsn) = "TextBox" Or TypeName(Nsn) = "ComboBox" Then ' NESNENIN ADI YAZILACAK
    If Nsn.Value = "" Then
        If (Not Nsn.Name = "Textbox13") Or (Not Nsn.Name = "Combobox5") Then MsgBox Nsn.Name & "Boş Bırakılamaz": Nsn.SetFocus: Exit Sub
    End If
End If
Next Nsn

arkadaşlar denedim Textbox13 ü kurtaryorum, combobox5 yakalanıyor.. halbuki muaf olması lazım yardımcı olabilirseniz sevinirim.

 

[veyselemre]

Control isimlerindeki büyük küçük harflere de dikkat edin.

If (Not Nsn.Name = "TextBox13") And (Not Nsn.Name = "ComboBox5") Then MsgBox Nsn.Name & "Boş Bırakılamaz": Nsn.SetFocus: Exit Sub

veya

For Each Nsn In Controls
    If Nsn.Value = "" And Nsn.Name <> "TextBox13" And Nsn.Name <> "ComboBox5" Then
        MsgBox Nsn.Name & " Boş Bırakılamaz": Nsn.SetFocus: Exit Sub
    End If
End If

 

[hsayar]

büyük küçkük harfe duyarlımıydı bunlar hiç farkında değilim teşekkürler