Günaydın.

Ekte ki programda, gelen evraklar F_ANA formundan giriliyor.Önceki sistemde gelen günlük giriliyor ve YANITTARİHİ eklenerek çıktı alınıyor ve bu işlem sonrasında bir sonraki yanıttarihi hesaplanıyordu.(+3 AY, +6AY gibi).

Yeni planlanan sistemde gelen evraklar yıne girilecek ancak çıktı sonrakıyanıttarihine göre toplu alınacak(01.01.2012- 10.02.2013 ARASI sonrakıyanıttarıhı gelenleri yaz) F_RAPOR.

Sorun burada; toplu çıktı alınınca öyle bir sistem yapmalıyız ki, çıkarttığı her evrağa o günün tarihini attığı gibi, T_VERİ tablosuna gönderilen tarihi yazmalı ve bu tarihe göre sonrakıyanıttarıhını hesaplamalı.Tarih Güncelleme olayı 2 konuyu inceledim ama benim konuya yardımcı olacak nitelikte örnek bulamadım.

Yeni fikirler doğrultusunda, Veri girerken(F_ANA) VEYA çıktı alırken (F_rapor) program şekillendirilebilinir.

Umarım anlatabilmişimdir.

Çalışmanızı çok inceleyemedim ama yazdırılan raporun "ayrıntı" bölümündeki olaylarda "yazdırıldığında" olayı var. Kodlarınızı oraya yerleştirmeyi deneyebilirsiniz. Bu arada tabii ki bu raporu açan formunuzdaki seçim aralığını da geçici bir tabloya aktarmak gerekebilir.

Anladım ağbi,yazdırıldığında olayını deneyip kendimce bir kod yazıp denemiştim ama olmamıştı.Kodda hata yaptığım gibi, tam olarak nasıl bir mantık ve takip sistemi yapmam gereken noktasında netleşemedim.

çünki, dönemi-yanıttarihi ve sonrakıyanıttarıhı birbiriyle ilişkili..Bu 3 ilişkinin sonunda sonrakıyanıttarıhı hesaplanıyor ki, bu programın püf noktası bu hesaplama.Tşk.

---

Ust yazı raporunun sol ust köşesindeki yanıtTarıhı metin kutusunu Now() ile değiştirdim.Raporda yazdırıldığı tarihi gösteriyor.

Konu sıcak.

Eklediğiniz örnekte birçok kod çalışmadığı için sürekli hata vermekte.

Benzeri ugulamada kullandığım kod aşağıdaki gibidir.

Yazdır butonunu tıkladığımda formdaki sonrakiyanittarihi alanındaki veriyi tablodaki yanittarihi alanına aktarıyor, tablodaki sonrakiyanittarihi alanına da dateadd ile dönemini ay olarak ekliyor.

DoCmd.OpenReport "rpr_daimiarama", acViewPreview, , kriter

DoCmd.PrintOut acPrintAll, , , acHigh, 2

 

strSQL = "SELECT * FROM tbl_daimiarama "

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[id]=" & Me.id

If Not rstkayit.EOF Then

.Fields("yanittarihi") = Me.mtn_sonrakiyanittarihi

.Fields("sonrakiyanittarihi") = DateAdd("m", Me.acl_donemi, mtn_sonrakiyanittarihi)

.Update

End If

End With

sn yorum70, kodun bir faydası oldu mu acaba ?