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.

Visual Basic Code
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ı"
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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