pepok4 Ahojte,
... prve cislo vydelit druhym od ktoreho odratam cislo 3?
... Vie mi niekto poradit kde robim chybu? ...
Private Sub vypocitaj()
Me.text3 = (Me.text1)/(Me.text2) - 3
End Sub
Treba mať na zreteli 2 veci:
1| matematické: treba ošetriť delenie nulou a správne ozátvorkovať. Zo zadania nie je jasné či 3 sa má odčítať až od výsledku delenia,
2| Access VBA špecifické: ak je hodnota ktoréhokoľvek poľa nevyplnená (a explicitne nepriradená) má hodnotu NULL. Vo výpočtoch ju treba ošetriť cez funkciu NZ (t.j. prevod NULL na 0).
Code:
Private Sub Text1_AfterUpdate()
Call vypocitaj
End Sub
Private Sub Text2_AfterUpdate()
Call vypocitaj
End Sub
Private Sub vypocitaj()
If Nz(Me.Text2) <> 0 Then
Me.Text3 = Nz(Me.Text1) / Nz(Me.Text2) - 3
Else
Me.Text3 = 0
End If
End Sub