ilk olarak UR_AG_ANAURUN_DURUM_YUZDE metin kutusunun biçim özellğindek @ ifadesini silmeniz gerekiyo
anaurun güncelleştirme sonrası olayı

Private Sub ANAURUN_AfterUpdate()

If Len(Me.ANAURUN & "") = 0 Then Exit Sub

x = DCount("*", "SK_", "YM_DURUM='Tamamlandı' and ANAURUN='" & Me.ANAURUN & "'") / DCount("*", "SK_", "ANAURUN='" & Me.ANAURUN & "'")

Me.UR_AG_ANAURUN_DURUM_YUZDE = x * 100

End Sub

form geçerli olduğunda olayı

Private Sub Form_Current()

If Len(Me.ANAURUN & "") = 0 Then Exit Sub

x = DCount("*", "SK_", "YM_DURUM='Tamamlandı' and ANAURUN='" & Me.ANAURUN & "'") / DCount("*", "SK_", "ANAURUN='" & Me.ANAURUN & "'")

Me.UR_AG_ANAURUN_DURUM_YUZDE = x * 100

End Sub