TC numaraları çift rakam

[cemşit1]

metin yada sayı veri türü ile biçimlendirilmiş bir alana TC numarası yazılmak isteniyor.TC numaraları çift sayı olduğundan tek sayı girişini kod kullanmadan nasıl engelleyebilirim.selamlar

 

[cemşit1]

mrh

access için bir cevap arıyorum

 

[cemşit1]

mrhb

bir cevap arıyorum

 

[Taruz]

Merhaba..

bu isteğiniz için birçok yol kullanabilirsiniz.. En kolayı da girilen sayıyı Mod fonksiyonu ile kontrol etmek olur sanırım..

Giriş yaptığınız denetimin güncelleştirme öncesine şu düzende bir kod yazarsanız sadece çift sayılara kayıt izni vermiş olursunuz..:

[COLOR=#0600ff]If[/COLOR] [COLOR=#0600ff]Right[/COLOR][COLOR=#000000]([/COLOR][COLOR=#0600ff]Me[/COLOR].metin_kutusu_adi, [COLOR=#7d2252]1[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0600ff]Mod[/COLOR] [COLOR=#7d2252]2[/COLOR]  [COLOR=#0600ff]Then[/COLOR]
MsgBox [COLOR=#fb0000]"TC Kimlik numarası Tek sayı olmaz"[/COLOR], vbCritical
[COLOR=#0600ff]Me[/COLOR].Undo
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]

Bu sadece tek-çift kontrolü yapar.. Eksik hane kontrolünü de eklemek isterseniz Len fonksiyonunu kullanarak kodu genişletebiliriz..

 

[modalı]

Soruyu ilk okuduğumda anlayamadım, bu işlem için Kimlik doğrulama fonksiyonum var. Onu Kullanabilirsiniz.

Public Function dogrula(kimlikNo As String) As String

Dim x, Top1, Top2, H1, H2 As Integer
ReDim A(11) As Variant

If Len(kimlikNo) <> 11 Then
    MsgBox "TC Kimlik No 11 Haneli olmalıdır", vbCritical, "UYARI"
    dogrula = "Yanlış veri"
    Exit Function
End If

For x = 0 To 10
     A(x) = CInt(Mid(kimlikNo, x + 1, 1))
Next x

Top1 = 3 * (A(0) + A(2) + A(4) + A(6) + A(8)) + (A(1) + A(3) + A(5) + A(7))

H1 = 10 - Top1 Mod 10

If H1 = 10 Then H1 = 0

Top2 = (A(0) + A(2) + A(4) + A(6) + A(8)) + 3 * (A(1) + A(3) + A(5) + A(7) + H1)

H2 = 10 - Top2 Mod 10

If H2 = 10 Then H2 = 0

If H1 = A(9) And H2 = A(10) Then
    dogrula = "Doğru TC Kimlik No"
Else
    dogrula = "Yanlış TC Kimlik No"
End If


End Function

İyi çalışmalar

 

[assenucler]

Sayın Taruz,
Sayın Modalı;

Günaydın..

Katkılarınız için teşekkürler..

Selam ve sevgiler..

 

[cemşit1]

mrhb

soru sahibi olarak bende ilgilenen arkadaşlara çok teşekkür ediyorum ve kod kullanmadan çözüm için örnek rica ediyorum

 

[Taruz]

Merhaba..

Giriş yaptığınız metin kutusunun geçerlilik kuralı özelliğini de kullanabilirsiniz ama oraya da kod yazılması gerekli..

Kod kullanmadan nasıl olmasını istiyorsunuz anlamadım? Ya da size zararı nedir?

 

[cemşit1]

mrhb

evet sayın hocam düşündüğüm yöntemde bu yani 'geçerlilik kuralı' hazırlamak yardımınızı rica ederim

 

[erkankamilonas]

Sayın Taruz
Geçerlilik kuralına dogrula([TC Kimlik Numarası])
yazsak fonksiyon çalışır mı?

 

[modalı]

Sayın Taruz
Geçerlilik kuralına dogrula([TC Kimlik Numarası])
yazsak fonksiyon çalışır mı?

Evet çalışır

 

[erkankamilonas]

Şöyle bir uyarı aldım;

 

[modalı]

Genelde TC kimlik numaraları metin olarak keydedilmektedirler. Sizde sayı. Bu yüzden:

dogrula(Cstr(KimlikNo))

olarak deneyin.

İyi çalışmalar

 

[assenucler]

Sayın Modalı ve Taruz;

Günaydın.. Katkılarınız için teşekkürler...

 

[erkankamilonas]

Teşekkürler. Ancak, aynı hatayı yine aldım.