Textbox ve Combobox .. Yardım lütfen ..

[sleeper]

İçerisinde 5 adet textbox ve 2 adet combobox bulunan userformda kaydet butonuna bastığım zaman ilgili satırlarda alt alta kayıtları gerçekleştirmek istiyorum. Bunu bir nebze başardım fakat bunların dışında T.C. Kimlik Numarasında mükerrer kayıt girildiğinde hata verip kaydetmemesini, ayrıca comboboxlara el ile giriş yapmayı engelleyip sadece atanmış değerlerden seçilebilmesini istiyorum. Son olarakta veri girilmeyen textbox ve comboboxlar var ise kaydet butonuna bastığında hata vermesini istiyorum. 3 gündür araştırıyorum, uğraşıyorum ancak bu kadarını becerebildim.

Yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Kaydet butonuna aşağıdaki kodları en üste ilave ediniz.
Mükerrer TC ve boş geçmeyi engelleyecektir. Deneyiniz.

[COLOR="Green"]' BOŞ GEÇEMEYİ ENGELLE[/COLOR]
For i = 1 To 5
    If Controls("Textbox" & i) = "" Then
    Controls("Textbox" & i).SetFocus
    MsgBox " Boş Geçemezsiniz ", vbCritical
    Exit Sub
    End If

    If i = 1 Or i = 2 Then
        If Controls("ComboBox" & i) = "" Then
        Controls("ComboBox" & i).SetFocus
        MsgBox " Boş Geçemezsiniz ", vbCritical
        Exit Sub
        End If
    End If
Next i

[COLOR="Green"]' TC NO KONTROL ET[/COLOR]
If WorksheetFunction.CountIf(Range("D:D"), TextBox2.Text) > 0 Then
MsgBox " Bu TC No ile kayıt var", vbCritical
TextBox2.SetFocus
Exit Sub
End If

. . .

 

[sleeper]

Çok teşekkür ederim Hüseyin Bey. Demek bu kadar basitmiş.

Bu arada comboboxlara el ile girişi engelleyen kodlarda halen sorun yaşamaktayım.

 

[Emir Hüseyin Çoban]

. . .

Uyruğu comboboxında bunu engellemişsiniz zaten.

. . .

 

[sleeper]

Her iki comboboxta da el ile girip kaydet tuşuna bastığımda kaydediyor ama hala.

 

[Emir Hüseyin Çoban]

. . .

Önceki engelleme kodlarını silin. Aşağıdaki kodları yazın.

Private Sub UserForm_Initialize()
ComboBox1.MatchRequired = True
ComboBox2.MatchRequired = True
End Sub

. . .