(11/02/2016, 20:45)ozanakkaya yazdı:

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 

ozanakkaya çok teşekkür ederim.