Skip to main content

AccessTr.neT


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.

Çözüldü #1
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
.rar Database2.rar (Dosya Boyutu: 96,34 KB | İndirme Sayısı: 4)
Cevapla
#2
Visual Basic Code
"[musteri_unvani]='" & Me.musteri_goster & "'"
Yukarıdaki gibi yerine alttaki gibi değiştirdim.

Visual Basic Code
"[unvani]='" & Me.musteri_goster.Column(1) & "'"



Visual Basic Code
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
Son Düzenleme: 07/02/2020, 21:57, Düzenleyen: feraz.
Cevapla
#3
(07/02/2020 21:51)feraz Adlı Kullanıcıdan Alıntı:
Visual Basic Code
"[musteri_unvani]='" & Me.musteri_goster & "'"
Yukarıdaki gibi yerine alttaki gibi değiştirdim.

Visual Basic Code
"[unvani]='" & Me.musteri_goster.Column(1) & "'"



Visual Basic Code
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ı.
Cevapla
#4
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da