Skip to main content

AccessTr.neT


Listedeki tüm kayıtları tabloya ekleme

Listedeki tüm kayıtları tabloya ekleme

#1
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)
Alıntı:Her şey bir fikirle başlar.
Cevapla
#2
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ı"
Cevapla
#3
Teşekkür ederim gayet başaralı bir şekilde ekleme yapmakta.
Yardım için teşekkür ederim.
Alıntı:Her şey bir fikirle başlar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da