Soru Tüm nesneler boş ise kayıt yapmasın

[sirkülasyon]

Değerli Ustalar
userform üzerinde textboxlar ve comboboxlar boş ise ya da boş kalanlar var ise kayıt yapmayarak "eksik veri girişi var" uyarısı verecek bir ön kontrol için yardımcı olabilir misiniz?

 

[dEdE]

Dener misiniz?

Private Sub CommandButton1_Click()
Dim Nesne As Control
    For Each Nesne In Controls
        Select Case TypeName(Nesne)
            Case "TextBox", "ComboBox"
            If Nesne = "" Then
                MsgBox "Eksik veri girişi var", vbCritical, "D İ K K A T !!!"
                Exit Sub
            End If
        End Select
    Next
End Sub

 

[sirkülasyon]

Allah Razı Olsun
Eline emeğine sağlık. Hakkınızı Helal Edin