sn atoz112
öncelikle teşekkür ederim.
yazdıklarınızı bundan sonraki projelerimde dikkate alırım.
yalnız yine bir yerde takıldım.
1bu proje haftalık hesaplama yapıyor
2bir önceki tarihin ilk değerini bir sonraki tarihin son değerine getiriyor
3yeni tarih bir önceki tarihten 7 gün sonraydı şimdi hiç tarih gelmiyor.
ne yaptımsa olmadı.değerler geliyor tarih gelmiyor.
yardımcı olursanız sevinirim.
güncelleme sonrasındaki olay yordamında

Private Sub ÜNİTE_1_SON_AfterUpdate()
Dim Isle As Long, Trh As Date
Isle = Me.ÜNİTE_1_SON: Trh = Me.TARİH
DoCmd.RunCommand acCmdRecordsGoToNext
If Me.NewRecord Then Me.TARİH = DateAdd("d", 7, Trh): Me.Ay = Month(Trh)
Me.ÜNİTE_1 = Isle
End Sub

Private Sub ÜNİTE_1_AfterUpdate()
Call Hesaplama(Me.ActiveControl.Name, Me.Ay, Me.ActiveControl)
End Sub

Private Sub TARİH_AfterUpdate()
If (Month(Me.TARİH) - DMax("[Ay]", "UniteSaatleri")) > 1 Then MsgBox "Hatali AY girdiniz": Me.TARİH = DateSerial(Year(Me.TARİH), DMax("[Ay]", "UniteSaatleri") + 7, Day(Me.TARİH))
End Sub

saygılar