İnsan acemi olunca malesef böyle hatalar oluyor herhalde.

Aşağıdaki gibi yaptım fakat bu seferde resimdeki hatayı veriyor.[/code]

[Option Compare Database

Private Sub PlanedDate_AfterUpdate()
Dim A, B, C As Integer
A = Me.PlanedDate
B = Me.ToolCame
C = Nz(B - A)
Me.DelayofToolCame = C
Me.DelayofToolCame.Requery
End Sub

Private Sub PlanedDate_AfterUpdate()
Me.Week = DatePart("ww", [PlanedDate], 0)
End Sub]

Bir form üzerinde aynı metin kutusuna ait iki adet AfterUpdate olayı yazamazsınız.
Kodunuz şu şekilde olacak.

bilginize ve emeğinize sağlık. Bu sorunumda sayenizde çözülmüş oldu. Allah razı olsun.

Estağfirullah.
Herşey onun rızasını kazanmak için değil midir zahir?
Gönlünüzce olsun dilekleriniz...