Skip to main content

AccessTr.neT


Tc no sorgulama

Tc no sorgulama

Çözüldü #1
Merhaba arkadaşlar.
Ekte ki daha önce form üzerinden indirmiş olduğum kimlik doğrulama formuna tc numarasını girince çalıştığım kurumun ağından girince bilgiler gelmekte. Gelen bilgileri ARSİV formuna aktarmak istiyorum. Form üzerinde bir çok uygulama var ancak bir türlü yapamadım. Yardımcı olursanız sevinirim.Teşekkürler.
ensar236, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
butonun tıklandığında olayına aşağıdaki kodu yaz.

Kod:
strSQL = "SELECT * FROM ARSİV "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[TC]=" & Me.Metin1
If Not rstkayit.EOF Then
.Fields("ADI") = Me.Metin3
.Fields("SOYADI") = Me.Metin9
.Fields("BABA") = Me.Metin10
.Fields("ANNE") = Me.Metin11
.Fields("DOĞUM") = Me.Metin14
.Fields("DOĞT") = Me.Metin12
.Fields("İL") = Me.Metin2
.Fields("İLÇE") = Me.Metin8
.Fields("NÜF") = Me.Metin4
.Fields("CİNSİYETİ") = Me.Metin13
.Update
Else
.AddNew
.Find "[TC]=" & Me.Metin1
.Fields("ADI") = Me.Metin3
.Fields("SOYADI") = Me.Metin9
.Fields("BABA") = Me.Metin10
.Fields("ANNE") = Me.Metin11
.Fields("DOĞUM") = Me.Metin14
.Fields("DOĞT") = Me.Metin12
.Fields("İL") = Me.Metin2
.Fields("İLÇE") = Me.Metin8
.Fields("NÜF") = Me.Metin4
.Fields("CİNSİYETİ") = Me.Metin13
.Update
End If
End With


Ayrıca, 1. mesajdaki örnek uygulamayı kaldırdım. Bilgilerinize.
Cevapla
Çözüldü #3
konu açma zamanı = Bugün, 11:47
oturum kapatma zamanı = Bugün, 11:47
Cevapla
Çözüldü #4
Sparişi vermiş nasıl olsa, Hazır olunca bir ara uğrar, alır Img-grin
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #5
Sayın sledgeab ilginiz için teşekkür ederim.
ensar236, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task