başka tablodan değerleri forma alma

başka tablodan değerleri forma alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: başka tablodan değerleri forma alma (/konu-baska-tablodan-degerleri-forma-alma.html)

başka tablodan değerleri forma alma - siyahbere - 11/02/2016

merhaba arkadaşlar;
ekteki veritabanında 2 tane kullandığım form var.
1-danışan kayıt
2- ogrenci ust formu

Danışan kayıt formunda tc alanının yanına bir buton (bul) koyarak danışan kayıta girilen tc no öğrenci_tablo_ustte kayıtlı var ise buradaki eşleşen alanların adisoyadi, dtarihi, telefon vs gibi danışan kayıtta forma otomatik çekilmesini yapmak istiyorum.
dlookup ile denedim adisoyadi = Dlookup ("adisoyadi", "tbl_ogrenci_gorusme_ust", "tc = '" & [tc] & "'")
ancak başarılı olamadım

Nasıl yapacağım konusunda yardımcı olabilir misiniz?

teşekkürler

Cvp: başka tablodan değerleri forma alma - ozanakkaya - 11/02/2016

Koda [tc] yazmışsınız, ancak formdaki denetimin adı tckimlikS. Kodun aşağıdaki gibi olması gerekli

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

Cvp: başka tablodan değerleri forma alma - siyahbere - 11/02/2016

(11/02/2016, 20:01)ozanakkaya yazdı: Koda [tc] yazmışsınız, ancak formdaki denetimin adı tckimlikS. Kodun aşağıdaki gibi olması gerekli
DLookup("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

Cvp: başka tablodan değerleri forma alma - ozanakkaya - 11/02/2016

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

Cvp: başka tablodan değerleri forma alma - siyahbere - 16/02/2016

(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.