AccessTr.neT
Access Tablodaki Alanı Toplayıp Tarih Vermek. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Access Tablodaki Alanı Toplayıp Tarih Vermek. (/konu-access-tablodaki-alani-toplayip-tarih-vermek.html)

Sayfalar: 1 2


Access Tablodaki Alanı Toplayıp Tarih Vermek. - isouysal - 06/04/2021

Yine takıldım yardımınıza ihtiyacım var.
Örnek tabloda Posa Miktarının toplamı 500 kg aştığında tarihin bir artırılmasını istiyorum.
Şöyleki ilk 500 kg tarihi bugün ikinci 500 kg tarihi yarın (6.04.2021 ve 7.04.2021 gibi)
Yardımlarınız için teşekkür ederim.


RE: Access Tablodaki Alanı Toplayıp Tarih Vermek. - berduş - 06/04/2021

tam olarak anlamadım
1- rs(11) neyi ifade ediyor tablonuzda topu topu 6 alan var en fazla rs(5) olur
2 - diyelim 800 kilo var 2 kayıt mı eklenecek biri bir gün sonraya diğeri 2 gün sonraya mı


RE: Access Tablodaki Alanı Toplayıp Tarih Vermek. - isouysal - 06/04/2021

Sayın berduş bey;size Excel örnegini göderiyorum.İncelerseniz sevinirim.
rs(11) gelince tabloda fazla sutun vardı silmiştim.kod bölümünde silmeyi unutmuşum. özürümü maruz görün.


RE: Access Tablodaki Alanı Toplayıp Tarih Vermek. - berduş - 06/04/2021

Peki rs(11) Access tablosundaki hangi alana denk geliyor


RE: Access Tablodaki Alanı Toplayıp Tarih Vermek. - isouysal - 06/04/2021

Hocam rs(11)diye bir alan yok.O kodları silmeyi unutmuştum.Ben bu tabloya göre yeni kodla yazılmasını istiyorum.Çok uğraştım yapamadım.O kodları dikkate almayın. Orası posa bölmeyle ilgiliydi.


RE: Access Tablodaki Alanı Toplayıp Tarih Vermek. - berduş - 06/04/2021

gönderdiğiniz Excel dosyasında posa sütununda hiç bir değer 500kgma yaklaşmıyor bile en fazla 70 var
Kota Ton olarak alayım dedim onda da miktar ile eklenmesi gereken gün arasında ilişki yok
mesela 212103-11 AHMET ALTINBAŞ 05-Nis-21 50 2300 07-Nis-21 kaydı için
posa=50
kota ton=2300
tarih=7 nisan
bu 7 nisan tarihi neye göre bulunmuş anlamadım ama dilerim aşağıdaki kod işinize yarar
Set rs = CurrentDb.OpenRecordset("Posa Kartları", dbOpenDynaset)
With rs
Do Until rs.EOF
TrhHesap = Fix((rs(3) - 1) / Me.Metin36) + CLng(Me.Metin33)
.Edit
rs(5) = TrhHesap
.Update
.MoveNext
Loop
End With
MsgBox "Posa Bölme İşlemi Tamamlanmıştır."
rs.Close