Ispravka polja marza i prodajna cena istovremeno

Imam jedan problem koji ne mogu da resim, a to je azuriranje polja marza ili prodajna cena.

Naime, kada je kurzor na polju marza i kada korisnik upise neku vrednost, vrednost u polju prodajna cena treba da se promeni. Nakon toga kada korisnik predje na polje prodajna cena, ako zeli da moze da promeni tu vrednost, nakon cega bi trebalo da se automatski azurira vrednost u polju marza.

Hvala unapred!

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

Potpis

Pozdrav,
Branislav

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?

Potpis

http://zoraneremija.wix.com/eremijacv