Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Tc no sorgulama

ensar236
ensar236
Access Cevaplanmış Soruları
4
2142

Tc no sorgulama

Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,21:30
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tc no sorgulama - Yazar: ensar236 - 02/02/2010, 12:47
Cvp: Tc no sorgulama - Yazar: ozanakkaya - 02/02/2010, 13:35
Cvp: Tc no sorgulama - Yazar: ozanakkaya - 02/02/2010, 13:41
Cvp: Tc no sorgulama - Yazar: Puletin - 02/02/2010, 13:44
Cvp: Tc no sorgulama - Yazar: ensar236 - 02/02/2010, 15:33