tc kimlik numarasını sorgulayıp kişisel bilgileri otomatik olarak forma getirme

[nova55]

A -Kişisel Bilgiler Tablosu
Tc Kimlik 12345678910
Adsoyad Ahmet Mehmetoğlu
Telefon No 532 532 0 532
Adresi Karşıyaka Mah Samsun


1-Form
Tc Kimlik 12345678910
Adsoyad Ahmet Mehmetoğlu
Telefon No 532 532 0 532
Adresi Karşıyaka Mah Samsun
Kozmetik Parfün
Market süt
Eczane aspirin
Manav elma

C ) Ana veri Tablosu
Tckimlik Adsoyad Telefon Adresi Kozmetik Market Eczane Manav
12345678910 Ahmet Mehmetoğlu 532 532 0 532 Karşıyaka Mah Samsun Parfün süt aspirin Elma
12345678910 Ahmet Mehmetoğlu 532 532 0 532 Karşıyaka Mah Samsun Jöle yoğurt Gripin Armut


A tablosunda bulunan sabit bilgileri her seferinde takrar tekrar girmek istemiyorum formu tıkladığımda tc kimlik numarasını sorgulayıp kişisel bilgileri otomatik olarak forma getirmesini ve Formda bilgileri tamamlayarak C) kısmındaki ana veri tabanına yazmak

Not: tc kimlik numarası C ana veri tabanında birden fazla olabilecek

 

[simendifer]

verileri aktarma

sevgili kardeşim kimlik bilgileri aktarmak için aşagıdaki ado kodlarını form üzerine koyacagınız butonun tıklandıgında olay yordamına yazmanız gerekir ve taplo1 adlı bir taplonuza aktarımı saglayabilirsiniz

Private Sub Komut206_Click()
Dim rs As New ADODB.Recordset
rs.Open "TABLO1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("ADI") = Metin159.Value
rs("SOYADI") = Metin161.Value
rs("TCKİMLİKNO") = Metin147.Value
rs("İL") = Metin148.Value
rs("İLÇE") = Metin149.Value
rs("MAH/KÖY") = Metin163.Value
rs("CİLT") = Metin167.Value
rs("AİLESIRANO") = Metin175.Value
rs("SIRANO") = Metin171.Value
rs("BABAADI") = Metin165.Value
rs("ANAADI") = Metin169.Value
rs("DOĞUMYILI") = Metin173.Value
rs("CİNSİYETİ") = Metin177.Value
rs.Update
Set rs = Nothing
Set conn = Nothing
MsgBox ("Aktarım Tamamlandı")

End Sub

 

[modalı]

Yine excel etkili yalnış yönlendirme var.

Mademki tcKimlik numarası ile bir tabloda kişisel bilgiler var, o zaman aynı bilgileri diğer tabloya kaydetmemiz gerekmiyor. Alan ilişkisi kurup sadece tcKimlik numarasını kaydetmek yeterli.

İyi çalışmalar