Private Sub Komut47_Click()





adisoyadi = Dlookup ("adisoyadi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

dtarihi = Dlookup ("dtarihi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

dyeri = Dlookup ("dyeri", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

okulu = Dlookup ("okuladi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

sinifi = Dlookup ("sinifi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

subesi = Dlookup ("subesi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

adres = Dlookup ("adres", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")

telefon = Dlookup ("telefon", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")



if isnull(adisoyadi) or me.adisoyadi="" then

msgbox ("Böyle bir kayıt bulunamadı")

end if

end sub