Mükerrer Kayıt Sorunu

[sukruyilmaz1]

Merhabalar Sayın Uzmanlarım,

Bu forumda öğrendiğim ve örnek aldığım dosyalar yardımıyla ekli formu oluşturdum. Fakat söyle bir sorunum mevcut.

1) Yeni kayıt yaparken aynı TC veya Pasaport numarası girildiyse yeni kayıt yapmasın.
2) Uyruk Türkiye Cumhuriyeti seçilirse TC No yazsın, başka bir uyruk seçilirse Pasaport No yazsın.
Şimdiden çok teşekkür ederim.

 

[sukruyilmaz1]

Merhabalar Sayın Uzmanlarım,

Bu forumda öğrendiğim ve örnek aldığım dosyalar yardımıyla ekli formu oluşturdum. Fakat söyle bir sorunum mevcut.

1) Yeni kayıt yaparken aynı TC veya Pasaport numarası girildiyse yeni kayıt yapmasın.
2) Textbox1'in label kısmında : Uyruk Türkiye Cumhuriyeti seçilirse TC No yazsın, başka bir uyruk seçilirse Pasaport No yazsın.
Şimdiden çok teşekkür ederim.

 

[sukruyilmaz1]

1.sorunu aşağıdaki şekilde hallettim. Teşekkürker.

If WorksheetFunction.CountIf(Sheets("Data").Range("C:C" & x), TextBox1.Value) > 0 Then
MsgBox "Bu numara daha önce kaydedilmiş", vbCritical
Exit Sub
End If

 

[ÖmerBey]

2) Textbox1'in label kısmında : Uyruk Türkiye Cumhuriyeti seçilirse TC No yazsın, başka bir uyruk seçilirse Pasaport No yazsın.

Merhaba,
Deneyiniz...

Private Sub ComboBox6_Change()
Label1.Caption = IIf(ComboBox6.Value = "TÜRKİYE CUMHURİYETİ", " TC No", "Pasaport No")
End Sub

 

[sukruyilmaz1]

Merhaba,
Deneyiniz...

Private Sub ComboBox6_Change()
Label1.Caption = IIf(ComboBox6.Value = "TÜRKİYE CUMHURİYETİ", " TC No", "Pasaport No")
End Sub

denedim ama hep pasaport no kaldı sayın ömer bey. TC no olmadı.

 

[ÖmerBey]

Yukarıdaki kodu örnek dosyanıza uyguladığımda aşağıdaki görüntüyü aldım.
Sizin istediğiniz başka bir şey mi?

 

[sukruyilmaz1]

Yukarıdaki kodu örnek dosyanıza uyguladığımda aşağıdaki görüntüyü aldım.
Sizin istediğiniz başka bir şey mi?
Ekli dosyayı görüntüle 223238

Sayın Ömer Bey, bende ilk açıldığında label 1 kalıyor, sonra değiştirdiğimde hep pasaport olarak kalıyor nedense

 

[ÖmerBey]

"TÜRKİYE CUMHURİYETİ" ifadesinin yazımıyla alakalı bir farklılık olabilir. Farkedilmeyen bir boşluk karakteri vs.
Aşağıdaki şekilde kullanırsanız veriyi direk sayfadan aldırabilirsiniz, yazım yanlışı olmaz.

Private Sub ComboBox6_Change()
Label1.Caption = IIf(ComboBox6.Value = Sheets("Data2").Range("F2").Value, " TC No", "Pasaport No")
End Sub

Ya da alternatif olarak değer yerine seçim sırasına göre işlem yaptırabilirsiniz. (Türkiye ilk sırada olduğu için 0 olacak)

Private Sub ComboBox6_Change()
Label1.Caption = IIf(ComboBox6.ListIndex = 0, " TC No", "Pasaport No")
End Sub

 

[sukruyilmaz1]

"TÜRKİYE CUMHURİYETİ" ifadesinin yazımıyla alakalı bir farklılık olabilir. Farkedilmeyen bir boşluk karakteri vs.
Aşağıdaki şekilde kullanırsanız veriyi direk sayfadan aldırabilirsiniz, yazım yanlışı olmaz.

Private Sub ComboBox6_Change()
Label1.Caption = IIf(ComboBox6.Value = Sheets("Data2").Range("F2").Value, " TC No", "Pasaport No")
End Sub

Ya da alternatif olarak değer yerine seçim sırasına göre işlem yaptırabilirsiniz. (Türkiye ilk sırada olduğu için 0 olacak)

Private Sub ComboBox6_Change()
Label1.Caption = IIf(ComboBox6.ListIndex = 0, " TC No", "Pasaport No")
End Sub

Çok teşekkür ederim @ÖmerBey ilginiz için.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...