Skip to main content

AccessTr.neT


Dlokkup Olmadan Alana Veri Çekmede Sorun.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
16
2669

Dlokkup Olmadan Alana Veri Çekmede Sorun.

Çözüldü #1
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.
.rar TeklifMaster.rar (Dosya Boyutu: 37,26 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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
Cevapla
#3
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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
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
Cevapla
#5
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)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
aslınd oraya açılır kutu değiştiğinde değişmesi gereken her alanı yazmalısınız
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da