AccessTr.neT
Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. (/konu-metin-kutularina-girdigim-sayi-kadar-kayit-ekleme.html)

Sayfalar: 1 2


Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - Acemi54 - 04/10/2023

Hayırlı akşamlar. Benim projede sütunlara bilgileri giriyorum ve ardından Ocak, Şubat, Mart, ...... 
ayların olduğu kutular var ve her ayın olduğu kutuya veri girdiğim zaman kutudaki sayı kadar satır eklemesini istiyorum. 
Ocak ayının sütununa girdiğim sayı kadar satır ekliyor ama şubat ayı sütununa için sayı girdiğimde satır eklemiyor. ben tün aylara sayı girip o aylardaki sayı karar satır artmasını istiyorum. Yardımcı olursanız memnun olurum. Teşekkürler. Örnek proje ektedir.


RE: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - berduş - 05/10/2023

diyelim ki STOK =4521 için;
ocak ayına 5 girdiniz mayıs ayına 3, bu durumda kodun mantığı gereği önce tabloda STOK =4521'den kaç tane olduğuna bakıyor sonrada eklenmek istenen kayıt miktarına
ocak ayında 5 tane girildiği için mart ayına 3 girildiğinden yeni girişin hatalı olduğunu varsayıp işlem yapmıyor.
eğer tablonuzda hangi aya ait olduğuna dair bir alan varsa DCount fonksiyonuna aya ait kriter de eklenmeli
tablonuzda verilerin hangi aya ait olduğu PLAN_AY sütununda mı kayıtlı


RE: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - berduş - 05/10/2023

xSay = DCount("STOK", "T_VERİ", "STOK='" & Me.STOK & "'") + 1
kodu yerine aşağıdaki kodu dener misiniz?
işlem ay ay kontrol edilerek yapılıyor
xSay = DCount("STOK", "T_VERİ", "STOK='" & Me.STOK & "' and PLAN_AY =" & Me.AY) + 1



RE: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - Acemi54 - 05/10/2023

(05/10/2023, 09:08)berduş yazdı:
xSay = DCount("STOK", "T_VERİ", "STOK='" & Me.STOK & "'") + 1
kodu yerine aşağıdaki kodu dener misiniz?
işlem ay ay kontrol edilerek yapılıyor
xSay = DCount("STOK", "T_VERİ", "STOK='" & Me.STOK & "' and PLAN_AY =" & Me.AY) + 1

Hayırlı akşamlar hocam eline sağlık. Allah zihin açıklığı versin.
Bir sorun var 1. ayda çoğaltıyor. Sonraki aylarda çoğaltırken kayıtların ilkini 1. ayın kaydının izerine yazıyor.
PLAN AY             KAÇ SATIR OLACAK
2                       4
1                       3
1                       3
2                       4
2                       4
2                       4
Yukarıda 2. AYA 4 satır yapıyor ama 1. ayın 3 satırının 1 inin üzerine yazıyor. 
Toplam 7 satır olması gerekirken 6 satır oluyor.


RE: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - berduş - 05/10/2023

3 aya ait verileri elle girerek sonucun nasil olması gerektiğini gösterir misiniz?
Ocak 4
Şubat 3
Mayis 6
Olacak şekilde


RE: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - Acemi54 - 05/10/2023

(05/10/2023, 20:21)berduş yazdı: 3 aya ait verileri elle girerek sonucun nasil olması gerektiğini gösterir misiniz?
Ocak 4
Şubat 3
Mayis 6
Olacak şekilde

STOK          YILLIK PLAN     PLAN AYI     
XXXXXX       10                   1
XXXXXX       10                   1
XXXXXX       10                   1
XXXXXX       10                   2
XXXXXX       10                   2
XXXXXX       10                   2
XXXXXX       10                   2
XXXXXX       10                   3
XXXXXX       10                   3
XXXXXX       10                   3

SARI ALANA GİRDİĞİM SAYI KADAR O AY İÇİN SATIR EKLİYOR
ÖRNEK EKTEDİR. İLGİN İÇİN TEŞEKKÜR EDERİM.