Dim zaman As Date
zaman = CDate(Me.Gerçekleşen_Süre)
Me.Performans = CInt((Me.ProsesSüresi / zaman) * 100)

gerçekleşen süre gibi bir alanınız var diye farzederek yaptım bunu. örneği görmediğimiz için umarım bu şekildedir.
yalnız bu kodu anladığım kadarı ile Gerçekleşen_Süre ve ProsesSüresi alanlarının güncelleştirme sonrası olayına yazmalısın diye düşünüyorum.