AccessTr.neT
Listedeki tüm kayıtları tabloya ekleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listedeki tüm kayıtları tabloya ekleme (/konu-listedeki-tum-kayitlari-tabloya-ekleme.html)



Listedeki tüm kayıtları tabloya ekleme - nightashes - 01/01/2017

Merhaba,

Ekte ki dosyada F_MUSTERIFIYATUL formundan satış fiyatlarını belirlemekteyim. Görüleceği üzere iki farklı buton mevcut birinci buton sadece seçili olan ürünün satış fiyatını üzerindeki metin kutusundaki tutarı atıyor.
Fakat alttaki buton listedeki tüm ürünlere metin kutusu içinde yazan değeri atasın istiyorum. Tek tek değilde istersek tüm ürünlere bir fiyat gireriz gibi. Bunu nasıl yapabilirim. Biraz do loop denedim ama rs. de çok başarılı olamadım.
Teşekkürler.
.rar nightashes.01012017.rar (Dosya Boyutu: 145,45 KB | İndirme Sayısı: 6)



Cvp: Listedeki tüm kayıtları tabloya ekleme - ozanakkaya - 01/01/2017

Merhaba,

Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim rS As New ADODB.Recordset
Dim GSayi As Integer


rS.Open "T_MUSTERIFIYAT", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

   For GSayi = 1 To Me.lst_liste.ListCount - 1
   
       rS.AddNew
       rS!MusteriNo = Me.mno
       rS!UrunNo = Me.lst_liste.Column(0, GSayi)
       rS!SatisFiyati = Me.mtn_satisfiyati
   
   Next GSayi

rS.Update
rS.Close: Set rS = Nothing
MsgBox "Kayıt Tamamlandı"



Cvp: Listedeki tüm kayıtları tabloya ekleme - nightashes - 01/01/2017

Teşekkür ederim gayet başaralı bir şekilde ekleme yapmakta.
Yardım için teşekkür ederim.