Listedeki tüm kayıtları tabloya ekleme

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]

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ı"

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