Listedeki tüm kayıtları tabloya ekleme

01/01/2017, 01:36

nightashes

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.[attachment=26255]
01/01/2017, 02:11

ozanakkaya

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ı"
01/01/2017, 11:54

nightashes

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