Skip to main content

AccessTr.neT


Altform'dan Veri Çekme...

Oğuz Türkyılmaz
Oğuz Türkyılmaz
11
1610

Altform'dan Veri Çekme...

#7
Ozan Bey bu kodu Adi.click yordamına yazdım işleyişi anlatabilmek için. Ama sanırım yanlış anlattım. Ben listeden ilgili kişi kaydında enter dediğimde aşağıdaki kodda geçen üç alanada aynı anda verileri çekmek istiyorum. Şu halde sadece adi alanını verisini çekebiliyorum.

[Resim: do.php?img=8779]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#8
Sadece adı alanının verisini çekmenizin sebebi sadece o kodu yazdım, diğer iki alana ait gerekli kodları bir zahmet yazıverin. Form adı, formdaki alan adı belli.
Cevapla
#9
(27/01/2019, 02:01)ozanakkaya yazdı: Sadece adı alanının verisini çekmenizin sebebi sadece o kodu yazdım, diğer iki alana ait gerekli kodları bir zahmet yazıverin. Form adı, formdaki alan adı belli.

Pardon anlayamadım. Yukarda resimde diğer 2 alanında kodlarını yazdığım görülmüyormu. Başka bir yeremi yazmam gerekiyor anlayamadım.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#10
Diğer alanların yordamlarına tek tek yazmam gerekiyor sanırım...
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#11
Benim son eklediğim örnekte, adı metin kutusunun tuşa basıldığında olayındaki koda sadece adı alanının verisinin aktarılması için

Private Sub adi_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
      Case vbKeyReturn
            KeyCode = 0
            Forms![F_006_PortfoyTanimlama]![txtAdiSoyadi] = Me.adi
           
            DoCmd.Close acForm, "F_001_MusteriListesi"
           
   End Select


End Sub

Şeklinde kod eklendi, üstteki kodda sadece adı alanı aktarılıyor, diğer iki alanın aktarılması için ekleme yapmanız gerekiyor. Resmini eklediğiniz kod, adı alanının tıklandığında olayına yazılmış. Adı alanını tıkladığınızda 3 metin kutusundaki veriyi aktarıyor.
Cevapla
#12
(27/01/2019, 02:14)ozanakkaya yazdı: Benim son eklediğim örnekte, adı metin kutusunun tuşa basıldığında olayındaki koda sadece adı alanının verisinin aktarılması için

Private Sub adi_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
      Case vbKeyReturn
            KeyCode = 0
            Forms![F_006_PortfoyTanimlama]![txtAdiSoyadi] = Me.adi
           
            DoCmd.Close acForm, "F_001_MusteriListesi"
           
   End Select


End Sub

Şeklinde kod eklendi, üstteki kodda sadece adı alanı aktarılıyor, diğer iki alanın aktarılması için ekleme yapmanız gerekiyor. Resmini eklediğiniz kod, adı alanının tıklandığında olayına yazılmış. Adı alanını tıkladığınızda 3 metin kutusundaki veriyi aktarıyor.

Özür dilerim gece gece tuşa basıldığı olayı gözümden kaçmış. Ben kendi örneğimdeki olaydan devam ediyoruz diye tuşa basıldığı olayını kaçırmışım.
Allah size sabır versin ne diyim söyleyecek başka bir şey bulamıyorum. Ozur
Teşekkür ederim sonunda halledebildim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da