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.
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
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.
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
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)
aslınd oraya açılır kutu değiştiğinde değişmesi gereken her alanı yazmalısınız