Dlokkup Olmadan Alana Veri Çekmede Sorun.

1 2 3
08/12/2018, 13:21

Oğuz Türkyılmaz

Merhabalar. Sn.Mehmet Demiralın konusu olan Dlookup olmadan Açılırkutudan seçtiğimiz veri ile ilgili alanları forma çekmek ile ilgili yaptığım düzenleme Normalde çalışmadı gözüktü  fakat kayıtdan çıkıp tekrar girince alanlara ilgili verilerin geldiğini gördüm tablodaki ilk kayıtlarda bunları görebilirsiniz. Firma ünvanı açılır kutusundan ilgili firmayı çağırdığımda ( aslında burda firma kodunda açılır kutudan arama yapmak istiyorum ama aramayı koda göre değil isme göre yapmam lazım bunu beceremediğim için mecburen firma ünvanında açılan kutuda arama yaptırıyorum. Asıl amacım firma kodu açılan kutusunda iki değeri kod ve firma ünvanını getirip ünvana göre seçme yapmak ve alt alanlara ( ünvan,ilgili kişi,telefon cep e-mail bilgileri alanlarını tablodan çekmek) yardımcı olmanızı rica ederim.
08/12/2018, 14:02

berduş

ilk durum için yani açılır kutu değiştiğinde verilerin hemen ekrana gelmesi için

Private Sub txtFirmaUnvan_AfterUpdate()   'açılır kutu güncellendikten sonra olayını tanımlıyor
Dim kytno As Integer '
kytno = Me.CurrentRecord 'aktif kaydın sırasını belirlemek için
Me.Requery ' tazeler ve ilk kayda gider
DoCmd.GoToRecord acDataForm, "F_01_TeklifGirisFormu", acGoTo, kytno ' son çalıştığımız aktif kayda gider
End Sub

yapmayı denediniz mi
08/12/2018, 14:52

Oğuz Türkyılmaz

Halil Bey Bilgileri tazaledi ama e_mail adres alanına telefon no-telefon no alanına cep no'yu getiriyor cep no alanını boş bırakıyor kaydet dediğimdede bu getirdiği bilgileri tabloya kaydetmiyor.
08/12/2018, 15:00

berduş

Private Sub txtFirmaUnvan_AfterUpdate()   'açılır kutu güncellendikten sonra olayını tanımlıyor
Me.txtFirmaKodu = txtFirmaUnvan.Column(1)
Me.txtYetkiliKisi = txtFirmaUnvan.Column(3)
Me.txtE_Mail = txtFirmaUnvan.Column(4)
Me.txtTelefonNo = txtFirmaUnvan.Column(5)
Me.txtCepNo = txtFirmaUnvan.Column(6)
End Sub
yukardaki kodu dener misiniz
08/12/2018, 15:00

Oğuz Türkyılmaz

Kod satırını şu şekilde yazmışım

Private Sub FirmaUnvan_AfterUpdate()

Me.txtFirmaKodu = txtFirmaUnvan.Column(1)
Me.txtYetkiliKisi = txtFirmaUnvan.Column(3)
Me.txtE_Mail = txtFirmaUnvan.Column(4)
Me.txtTelefonNo = txtFirmaUnvan.Column(5)
Me.txtCepNo = txtFirmaUnvan.Column(6)
08/12/2018, 15:00

berduş

aslınd oraya açılır kutu değiştiğinde değişmesi gereken her alanı yazmalısınız
1 2 3