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