(11/02/2016, 20:01)ozanakkaya yazdı: Koda [tc] yazmışsınız, ancak formdaki denetimin adı tckimlikS. Kodun aşağıdaki gibi olması gerekliDLookup("adisoyadi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tckimlikS] & "'")
ozanakkaya dikkatsizlik yapmışım çok teşekkür ederim.
İlave olarak buna eğer bul butonuna bastığımda kayıt bulamazsa böyle bir kayıt bulunamadı mesajı verdirmek istersem eğer şartımı nasıl yazabilirim.
Ben komutu şöyle yazdım ama olmadı:
Private Sub Komut47_Click()
On Error GoTo Err_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] & "'")
Exit_Komut47_Click:
Exit Sub
Err_Komut47_Click:
MsgBox ("Böyle bir kayıt bulunamadı")
Resume Komut47_Click
End Sub