For Each te Textbox1 boşsa hata raporu label1.caption bol olamaz diye dönsün

[hsayar]

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

arkadşalar kod bu şekilde olunca textbox1 boş bıraklıamaz diye dönüyor
ama eğer mümkünse

MsgBox NsnLabel.caption & "Boş Bırakılamaz": Nsn.SetFocus: Exit Sub şeklinde olsun ve nesneText e dönsün.

ortak olasn yanları sadece sonraki nolarıdır.
textbox1.value boşsa label1.caption
textbox2.value boşsa label2.caption gibi

 

[hsayar]

kalabalık etmesin... sonu aşağıdadır.

 

[hsayar]

KONU ÇÖZÜLMÜŞTÜR (Alternetiflere açağım)

Private Sub CommandButton2_Click()
For Each nsn In Controls
If TypeName(nsn) = "TextBox" Then  ' NESNENIN ADI YAZILACAK
    If nsn.Value = "" Then
 [B]       aa = Replace(nsn.Name, "TextBox", "Label")
        MsgBox Controls(aa).Caption & " Textboxu Boş Bırakılamaz!"[/B]        
        nsn.SetFocus: Exit Sub
    End If
End If
Next nsn

For a = TextBox3.Value To TextBox4.Value
MkDir (TextBox1.Value & "\" & TextBox2.Value & Format(a, "000"))
Next
Unload Me
End Sub