Skip to main content

AccessTr.neT


Listeden Metin Kutularına Veri Aktarmak

Listeden Metin Kutularına Veri Aktarmak

Çözüldü #1
Merhaba Hocalarım öncelikle Bayramın hepinize sağlık ve mutluluk dolu günler getirmesini dileyerek bayramınız kutluyorum.

Eklediğim uygulamada Satıs Formunda Liste1 tıtladığım zaman Satış başlığı altındaki metin kutularına Liste1  deki verileri aktarsın. 
lst_kisilere tıkladığım zaman Fatura başlığı altındaki metin kutularına lst_kisiler deki verileri aktarsın.

Bu konuda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.
.rar MALZEME SATIŞI-11.rar (Dosya Boyutu: 996,03 KB | İndirme Sayısı: 4)
Cevapla
#2
Merhaba
Yapmak istediğiniz işlem için Liste1 de örnek bir işlem yaptım.
İncelermsiniz
.rar MALZEME SATIŞI-11.rar (Dosya Boyutu: 971,75 KB | İndirme Sayısı: 2)
Cevapla
#3
Hocam Bayramınız Kutlu olsun.

Hocam Liste1e tıkladığım zaman Satış başlığı altındaki metin kutularına Liste1  deki verileri doğru aktarıyor.  

lst_kisilere tıkladığım zaman aşağıdaki hatayı veriyor ve Fatura başlığı altındaki metin kutularına verileri aktarmıyor. 


[Resim: do.php?imgf=152904126667551.png]
Son Düzenleme: 15/06/2018, 08:41, Düzenleyen: m_demir.
Cevapla
#4
Sayın M. Demir
Ramazan bayramınızı en içten dileklerimle kutlar sağlık mutluluk ve huzur dolu günler dilerim.

Hata almanızın nedeni Metin Kutularında denetim kaynağı olması.

Ekli çalışmayı inceleyip olumlu olumsuz bildirimde bulununuz.
.rar MALZEME SATIŞI-11Murat.rar (Dosya Boyutu: 966,02 KB | İndirme Sayısı: 3)
Cevapla
#5
Hocam bütün metin kutularını ilişkisiz yapmışsınız.  Metin kutuları ilişkisiz olduğu için tablolara aktarma yapamıyorum.


Bu kodlarla iki ayrı tabloya aktarma yapıyordum.  Aşağıdaki kodlar ilişkisiz metin kutularına göre düzenlenebilir mi.
Dim rT As New ADODB.Recordset

rT.Open "GeciciSatis", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



rT.AddNew
rT!StokNo = Me.StokNo
rT!SatisTarihi = Me.SatisTarihi
rT!SatisUrunAdi = Me.SatisUrunAdi
rT!SatisAdedi = Me.SatisAdedi
rT!StokAdedi = Me.StokAdedi
rT!SatisFiyati = Me.SatisFiyati
rT!ToplamFiyati = Me.ToplamFiyati
'rT!İade = Me.İade


rT.Update
rT.Close
Son Düzenleme: 16/06/2018, 16:37, Düzenleyen: m_demir.
Cevapla
#6
Merhaba, uygulamanızın son halini ekleyebilir misiniz?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da