Sub calcField(Event As Object)
REM Bound to 'Text Modified' event of Base & Height controls.
On Error Goto HandleError
Dim v1 As Double
Dim v2 As Double
Dim Form As Object
Form=Event.Source.Model.Parent
REM calc value of controls Base & Height, and store in Area--bound to table fields with same name
v1=Form.getByName("Base").BoundField.getDouble()
v2=Form.getByname("Height").BoundField.getDouble()
Form.getByName("Area").BoundField.updateDouble(v1*v2)
HandleError:
If err<>0 Then Exit Sub
End Sub
SELECT "Track0", "Track1", "Track2" ,"Track0" + "Track1" + "Track2" AS "SUM" FROM .....
SELECT "Track0", "Track1", "Track2" , ( "Track0" + "Track1" + "Track2" ) AS "SUM" FROM .....
SELECT ("Track0"), ("Track1"), "Track2" , ( "Track0" + "Track1" ) + "Track2" AS "SUM" FROM .....
Form.getByName("fmtFieldA").BoundField.getDouble()
Sub calcField(Event As Object)
REM Bound to 'Text Modified' event of Base & Height controls.
On Error Goto HandleError
Dim v1 As Double
Dim v2 As Double
Dim Form As Object
FormattedField = Event.Source.Model
FormattedField.commit 'This does the "Enter" for you.
Form = FormattedField.Parent
REM calc value of controls fmtFieldA and fmtFieldB, and store total in fmtFieldC--bound to table fields with same name
v1=Form.getByName("fmtFieldA").BoundField.getDouble()
v2=Form.getByname("fmtFieldB").BoundField.getDouble()
Form.getByName("fmtFieldC").BoundField.updateDouble(v1+v2)
HandleError:
If err<>0 Then Exit Sub
End Sub
kraftwerk wrote:Can you help?
Users browsing this forum: No registered users and 3 guests