
örneği ekliyorum.formulde bir sorun yok.kayıtlar arasında değişme olurken hesaplama yapılan alanda değişiklik olmuyor.hep aynı hesaplanmış alan duruyor.sorun orda
Private Sub IsGunu_Hesapla()
Dim GunSay As Integer, Hesapla_Tarih As Date
If Me.Gun = 0 Then Exit Sub
GunSay = 0
Hesapla_Tarih = Me.Girilen_Tarih
While GunSay < Me.Gun
Hesapla_Tarih = Hesapla_Tarih + 1
If Weekday(Hesapla_Tarih) >= 2 And Weekday(Hesapla_Tarih) <= 6 Then
GunSay = GunSay + 1
End If
Wend
Me.Bulunan_Tarih = Hesapla_Tarih
End Sub