İ
İhsan Tank
Misafir
İhsan bey,
İlginiz için teşekkür ederim.Bu sabah deneme fırsatımoldu.Gayet güzel oldu.Elinize sağlık teşekkür ederim..
rica ederim
iyi çalışmalar :mutlu:
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
İhsan bey,
İlginiz için teşekkür ederim.Bu sabah deneme fırsatımoldu.Gayet güzel oldu.Elinize sağlık teşekkür ederim..
Tekrar Merhaba,
İhasan bey, şunu fark ettim ..Useri açtığımda hiçbirşey yazmadığım zaman kaydet dediğim de, Böyle Bir kayıt var diye soruyor.Yani boş hücreyi > özelliği ile tanıyor..Buna bir çare bulmamız gerek..
'TC yazmadıysa
If TextBox70.Value = "" Then
Soru = MsgBox("TC Nosunu Yazmadınız.Devam edeyimmi", vbYesNo, "Soru Başlığı")
If Soru = vbYes Then GoTo devam
If Soru = vbNo Then Exit Sub
End If
Anladım..Textlerde
Kod:'TC yazmadıysa If TextBox70.Value = "" Then Soru = MsgBox("TC Nosunu Yazmadınız.Devam edeyimmi", vbYesNo, "Soru Başlığı") If Soru = vbYes Then GoTo devam If Soru = vbNo Then Exit Sub End If
engeli var ama değiştireyim en iyisi..Olmazsa olmaz mesajı versin.
Tşk..