Option Compare Database
Private Sub Command4_Click()
Text12 = (Text11 - Text15) / 0.02
Text21 = (Text20 - 0.4) / 0.02
End Sub
Private Sub Text11_AfterUpdate()
Text12 = (Text11 - Text15) / 0.02
End Sub
Private Sub Text20_AfterUpdate()
Text21 = (Text20 - 0.4) / 0.02
End Sub