farklı sayfalardan ilişkili veriyi nasıl alırız?

[Mehmet Şahin]

Tüm arkadaşlara merhabalar,

ekteki dosyada forma çağrılan kaydın sicil no'su ile uyuşan, farklı sayfadaki eş bilgisini nasıl alabilirim. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim, saygılarımla.

 

[Levent Menteşoğlu]

Bul isimli prosedürü aşağıdaki ile değiştirerek deneyin.

Public Sub bul(zz)
Set s1 = Sheets("per")
Set s2 = Sheets("cock")
sat = WorksheetFunction.Match(CDbl(zz), s1.[a:a], 0)
txtad = s1.Cells(sat, "b")
txtsoyad = s1.Cells(sat, "c")
txtadres = s1.Cells(sat, "d")
txtevtel = s1.Cells(sat, "e")
txtceptel = s1.Cells(sat, "f")
ComboBox7 = s1.Cells(sat, "g")
txtilksoy = s1.Cells(sat, "h")
txtanakz = s1.Cells(sat, "I")
For a = 2 To s2.[a65536].End(3).Row
If s2.Cells(a, "a") = CDbl(zz) And s2.Cells(a, "e") = "EŞ" Then
txtesad = s2.Cells(a, "b") & " " & s2.Cells(a, "c")
Exit Sub
End If
Next
MsgBox "Aradığınız isimde bir kayıt bulunamadı Yada Adı Kısmı Şu anda Boş olabilir...", vbInformation
End Sub

 

[Mehmet Şahin]

Teşekkür ederim.

Levent bey çok teşekkür ederim, size çok şey borçluyum. Eğer sizi çok meşgul etmeyecekse forma bir listbox ekledim. Sicil seçilince, o sicile ait çocuk isim ve doğum tarihlerinin de listbox'a gelmesi tüm gereksinimlerimi karşılayacaktır, saygılarımla.

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirerek deneyin.

Public Sub bul(zz)
On Error GoTo 10
Set s1 = Sheets("per")
Set s2 = Sheets("cock")
ListBox1.Clear
sat = WorksheetFunction.Match(CDbl(zz), s1.[a:a], 0)
txtad = s1.Cells(sat, "b")
txtsoyad = s1.Cells(sat, "c")
txtadres = s1.Cells(sat, "d")
txtevtel = s1.Cells(sat, "e")
txtceptel = s1.Cells(sat, "f")
ComboBox7 = s1.Cells(sat, "g")
txtilksoy = s1.Cells(sat, "h")
txtanakz = s1.Cells(sat, "I")
For a = 2 To s2.[a65536].End(3).Row
If s2.Cells(a, "a") <> CDbl(zz) Then GoTo 20
If s2.Cells(a, "e") = "E&#350;" Then
txtesad = s2.Cells(a, "b") & " " & s2.Cells(a, "c")
Else
ListBox1.AddItem s2.Cells(a, "b") & " " & s2.Cells(a, "c") & " " & s2.Cells(a, "d")
End If
20 Next
Exit Sub
10 MsgBox "Arad&#305;&#287;&#305;n&#305;z isimde bir kay&#305;t bulunamad&#305; Yada Ad&#305; K&#305;sm&#305; &#350;u anda Bo&#351; olabilir...", vbInformation
End Sub

 

[Mehmet Şahin]

Levent Bey, tamamdır, herşey için teşekkürler. Saygılarımla...

 

[Mehmet Şahin]

listboxdan seçim.

Bu konu uzadı biliyorum ama, oldukça fazla kod taradım bulamadım. Seçilen sicillere ait çocuk bilgilerini listbox'a iki kolon halinde almam gerek(isim ve doğum tarihi). Ve listbox'dan ilgili çocuğu seçince formdaki, çocuğa ait textbox'lara isim ve doğum tarihlerinin (güncelleme amacıyla) gelmesi gerek. Kaydetme ve güncelleme kodlarını yazabilirim ama bu seçimi bir türlü yapamadım, saygılarımla.

 

[Mehmet Şahin]

sorun çözülmüştür, teşekkürler

Sorun bu kodla çözülmüştür.

ListBox1.ColumnCount = 2
ListBox1.AddItem
ListBox1.List(s, 0) = s2.Cells(a, "b") & " " & s2.Cells(a, "c")
ListBox1.List(s, 1) = s2.Cells(a, "d")
s = s + 1