[internetadami]

Sub veriyükle() ' Listeden seçilen kaydın diğer bilgilerini gösteren alt program
Dim kri As String
On Error GoTo son
kri = ListView1.SelectedItem.Text 'Kayıt Arama Kriteri: Adı Soyadı
kri = "[Adısoyadı]='" & kri & "'"
küme.FindFirst kri 'Adı soyadı=kri olan kaydı bul
Form1.Text4 = küme![Adısoyadı] 'Ayrıntılar formunda bulunan kaydın adı soyadını görüntüle
Form1.Caption = küme![Adısoyadı] 'ayrıntılar formunun başlığını bulunan kaydın adı soyadı yap
'ayrıntılar formundaki etiketin başlığını belirle
Form1.Label14.Caption = "'" & Form1.Caption & "'" & " Hakkındaki Kişisel Bilgileri Bu Kısma Girin"
Form1.Combo1.AddItem ""
Form1.Combo1.AddItem "Bayan"
Form1.Combo1.AddItem "Erkek"
'bulunan kaydın diğer ayrıntılarını form1(ayrıntı formu) 'de bulunan text'lerde görüntüle
If Not IsNull(küme![cins]) Then
Select Case küme![cins]
Case "Erkek": Form1.Combo1.ListIndex = 2
Case "Bayan": Form1.Combo1.ListIndex = 1
Case "n": Form1.Combo1.ListIndex = 0
End Select
End If

If Not IsNull(küme![fax]) Then Form1.Text2(2) = küme![fax]
If Not IsNull(küme![dogumtarihi]) Then Form1.Text3(0) = küme![dogumtarihi]
If Not IsNull(küme![evtelefonu2]) Then Form1.Text1(2) = küme![evtelefonu2]
If Not IsNull(küme![emailadresi]) Then Form1.Text3(1) = küme![emailadresi]
If Not IsNull(küme![evtelefonu1]) Then Form1.Text1(1) = küme![evtelefonu1]
If Not IsNull(küme![evadresi]) Then Form1.Text1(0) = küme![evadresi]
If Not IsNull(küme![postakodu]) Then Form1.Text1(3) = küme![postakodu]
If Not IsNull(küme![semt]) Then Form1.Text1(4) = küme![semt]
If Not IsNull(küme![İl]) Then Form1.Text1(5) = küme![İl]
If Not IsNull(küme![İlce]) Then Form1.Text1(6) = küme![İlce]
If Not IsNull(küme![işsemt]) Then Form1.Text2(4) = küme![işsemt]
If Not IsNull(küme![İştelefonu2]) Then Form1.Text2(1) = küme![İştelefonu2] 'bölümü
If Not IsNull(küme![İşAdresi]) Then Form1.Text2(3) = küme![İşAdresi]
If Not IsNull(küme![işil]) Then Form1.Text2(5) = küme![işil]
If Not IsNull(küme![işilce]) Then Form1.Text2(6) = küme![işilce]
If Not IsNull(küme![İştelefonu1]) Then Form1.Text2(0) = küme![İştelefonu1]
If Not IsNull(küme![Not]) Then Form1.Text3(2) = küme![Not]
Form1.Show 1 'Ayrıntılar formunu göster
Exit Sub
son: 'hata İşyeyici
MsgBox ("Hata:" & Err.Description), 16, "Hata"
End Sub