Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi.

Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi. - 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ığı: Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi. (/konu-acilan-kutudaki-veriye-gore-belirlenen-metin-kutularinda-veri-goruntulenmesi.html)

Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi. - Ups Tamiri - 07/02/2020

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

Cvp: Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi. - feraz - 07/02/2020

"[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

Cvp: Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi. - Ups Tamiri - 07/02/2020

(07/02/2020, 21:51)feraz yazdı:

"[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

teşekkür ederim yardımınız için işe yaradı.

Cvp: Açılan Kutudaki Veriye Göre Belirlenen Metin Kutularında Veri Görüntülenmesi. - feraz - 07/02/2020

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.

Kod:

.Column(1)

ile ikinci alınıyor.
Ve tablodaki sütun adını yanlış girmişsiniz.
Bunlardan dolayı hata oluyordu.