Herkese merhaba iyi akşamlar. ekte vereceğim database de biraz uğraştığım halde başaramadığım bir konuda yardım isteyeceğim sizden.
frm_fatura formunda müşteri ünvanı adındaki açılır kutuda belirlenen firmanın verileri alttaki metin kutularında görüntülenmesi için ben biraz uğraştım ama tam anlamı ile yapamadım sanırım. yanlış yaptığım bir şeyler var. yardımcı olmanızı rica ediyorum. yanlış yaptığım şey ne acaba
Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi.
"[musteri_unvani]='" & Me.musteri_goster & "'"
Yukarıdaki gibi yerine alttaki gibi değiştirdim."[unvani]='" & Me.musteri_goster.Column(1) & "'"
Private Sub musteri_goster_AfterUpdate()
If Not IsNull(DLookup("[musteri_unvani]", "[t_musteri]", "[musteri_unvani]='" & Me.musteri_goster & "'")) Then
Me.vd_goster = Dlookup ("[vd]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")
Me.vn_goster = Dlookup ("[vn]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")
Me.adres_goster = Dlookup ("[adres]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")
Me.musteri_goster.SetFocus
Else
DoCmd.OpenForm "frm_musteri"
Me.musteri_goster.SetFocus
Me.vn_goster = ""
Me.vd_goster = ""
Me.adres_goster = ""
End If
End Sub
(07/02/2020, 21:51)feraz yazdı:Yukarıdaki gibi yerine alttaki gibi değiştirdim."[musteri_unvani]='" & Me.musteri_goster & "'"
"[unvani]='" & Me.musteri_goster.Column(1) & "'"
Private Sub musteri_goster_AfterUpdate()
If Not IsNull(DLookup("[musteri_unvani]", "[t_musteri]", "[musteri_unvani]='" & Me.musteri_goster & "'")) Then
Me.vd_goster = Dlookup ("[vd]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")
Me.vn_goster = Dlookup ("[vn]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")
Me.adres_goster = Dlookup ("[adres]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")
Me.musteri_goster.SetFocus
Else
DoCmd.OpenForm "frm_musteri"
Me.musteri_goster.SetFocus
Me.vn_goster = ""
Me.vd_goster = ""
Me.adres_goster = ""
End If
End Sub
teşekkür ederim yardımınız için işe yaradı.
Rica ederim.
Durumu anlamnız için yinede açıklayayım.
Combobox 2 sütunlu olduğu için ilk sütununda sayılar yani id var ikincide ise ünvanlar.
ile ikinci alınıyor.
Ve tablodaki sütun adını yanlış girmişsiniz.
Bunlardan dolayı hata oluyordu.
Durumu anlamnız için yinede açıklayayım.
Combobox 2 sütunlu olduğu için ilk sütununda sayılar yani id var ikincide ise ünvanlar.
Kod:
.Column(1)
Ve tablodaki sütun adını yanlış girmişsiniz.
Bunlardan dolayı hata oluyordu.
Konuyu Okuyanlar: 1 Ziyaretçi