[VBA] Kayıt çoğaltma

alperalper · 04-11-2022, 08:08

(04-11-2022, 01:28)benuva demiş ki: Değerli hocalarım ayni konu özelinde bir desteğinizi daha rica edeceğim.

Artılar tablosundaki Adeti Kod sutununa göre Dağılım tablosundaki DAdet alanına dağıtmak istiyorum.

Buradaki amaç Artılar tablosunda ayni kod'lu birden fazla kayıt var ama depo kodları farklıdır. Kayıtları adeti kadar azalarak dağıtmak istiyorum. Dağıtırkende Artılar tablosunda DepoKodu alanınında dağıtılan alandaki DDepoKodu alanına yazdırılmasını istiyorum.

Umarım ne istediğimi anlatabilmişimdir.

Değerli desteklerinizi rica ederim.

Teşekkürler

Sayın benuva tablo yapınızı inceledim yapmak istediğiniz şeyi de anladığımı sanıyorum ancak artılar ve dağılım tablolarınızdaki alanlarda mantık hatası var. Mesela artıları dağıtacağım ancak kod, birleşim ve depo kodları hem kendi bulunduğu tabloda hemde diğer tabloda birden fazla. Verileri neye göre ayırt edip dağıtacağız?

benuva · **Kayıt Tarihi:** 28.08.2016

Sn. @alperalper

Adresleme sisteminin olduğu bir depo düşünün. Adreste; sistemsel olması gereken miktarla, fiili olması gereken miktar arasında fark bulunmaktadır.

Adresleri sistemsel adetli haline getirmemiz gerekiyor. Yani eksik olan adresleri, fazla olan adreslerden tamamlamamız gerekiyor.

Özetle; fazla olan kalemde birden fazla, eksik olan kalemde birden fazla. Böyle olunca konu biraz karışıyor sanıırm.

Döngüyle Artılar tablosundaki ilk kayıttan başlayarak, Eksiler tablosundaki eşleşen ilk kayıttan dağıtamaz mıyız?

Umarım ne istediğimi bu sefer anlatabilmişimdir.

alperalper · 04-11-2022, 19:13

Tam olarak sorun bu zaten. Eşleşme neye göre yapılacak? Oraya yazdığınız rakamlar hep mükerrer. Ayrıca sayınuerleri metin olarak ayarlamışsınız.

benuva · 04-11-2022, 19:53

Merhaba,

Ek'e bir görsel daha ekledim. Ne yapmak istediğimi tekrar anlatmaya çalıştım.

dsezgin · 04-11-2022, 20:32

Visual Basic
Private Sub Komut3_Click()
Dim Kyt, ArKyt As Recordset, Sayac As Long
Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM Artýlar Order By Kod, DepoKodu")
Kyt.MoveFirst
Do Until Kyt.EOF
For Sayac = 1 To Kyt!Adet
Set ArKyt = CurrentDb.OpenRecordset("SELECT * FROM Daðýlým WHERE (((Kod)='" & Kyt!Kod & "') And ((DAdet) Is Null))  Order By Kod, Birleþim")
If ArKyt.RecordCount = 0 Then Exit For
    ArKyt.Edit
    ArKyt!DDepoKodu = Kyt!DepoKodu
    ArKyt!DAdet = 1
    ArKyt.Update
Next Sayac
Kyt.MoveNext
Sayac = 0: ArKyt.Close
Loop
Kyt.Close: Set Kyt = Nothing: Set ArKyt = Nothing
End Sub

yapılabilir.

benuva · 04-11-2022, 21:06

@dsezgin hocam,

Elinize emeğinize sağlık. Çok teşekkür ederim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi	programmer67	6	305	21-07-2023, 10:40 Son Mesaj: onur_can
	[MAKRO] Kayıt çoğaltma	ÜmitSamlı	8	310	08-02-2023, 15:50 Son Mesaj: dsezgin
	[FORM] Puantaj Kayıt Formlarında Kayıt Hataları	M_Kemal_Askeri	11	989	26-02-2021, 15:27 Son Mesaj: M_Kemal_Askeri
	[VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma	Ahmet51	6	1.087	10-02-2020, 16:24 Son Mesaj: Ahmet51
	[VBA] Kayıt Butonuna Tıklamadan Kayıt Etme Sorunu	mkmugla	2	646	20-01-2020, 08:27 Son Mesaj: mkmugla
	Araç çubuğu çoğaltma	husem	4	630	27-10-2019, 22:07 Son Mesaj: husem
	[FORM] Alt_Form Satır Çoğaltma	sadikkavakli	2	849	29-09-2018, 08:48 Son Mesaj: sadikkavakli
	[FORM] Yeni kayıt butonu liste kutusunu güncellemiyor ve yeni kayıt yapmıyor.	Orion	2	1.033	25-08-2018, 21:07 Son Mesaj: Orion

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL