Predlažem da za svako polje na formi iskoristite događaj AfterUpdate i zatim tu napišete program. Npr.

Private Sub Marza_AfterUpdate()
If Not IsNull(Marza) Then
ProdajnaCena = ProdajnaCena*marza
End If
End Sub

Za polje ProdajnaCena iskoristite prvo događaj OnGotFocus:

Dim dblPrethodnaCena As Double

Private Sub ProdajnaCena_GotFocus()
dblPrethodnaCena = NZ(PrethodnaCena)
End Sub

a zatim i događaj AfterUpdate:

Private Sub ProdajnaCena_AfterUpdate()
If Not IsNull(ProdajnaCena) Then
Marza= dblPrethodnaCena/ProdajnaCena
End If
End Sub

Hvala Branislave na brzom odgovoru,
ali desava se sledece: nakon unosa marze polje prodajna cena dobija vrednost 0. Zatim nakon promene te vrednosti i vracanjem na polje marza, to polje sada dobija vrednost 0. Zatim nakon promene vrednosti u polju marza menja se vrednost prodajne cene, ali kada ponovo promenim prodajnu cenu vrednost u polju marza postaje 0.

Ubacio sam Vas kod u dogadjaje koje ste naveli, ali me buni NZ(PrethodnaCena). Javila mi se greska pa sam stavio NZ(ProdajnaCena).

Mozda je to u pitanju?

Da li ste na ovo mislili?

To je upravo to!

Hvala puno!