problem in bound text 2

[mai19ea]

hi all,

in my form i have a unbound text calculating different fields and i put a code in the form to transfer to the bound text as follows;

me.text0 = me.text

my problem is when the unbound text calculate the field the bound text is not changing/updating. its only changing/updating if you go to design view and go back to a form view and its working.

but the code is useless if everytime i calculate a field i go always to design view and go back again to form view just only to update my bound text.

 

[ZmrAbdulla]

Try the code OnChange/AfterUpdate events of the fields that are bieng used for calculation

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.

 

[mai19ea]

hello zameer,

is not working with me, only working in

Form_On Current

Me.text0=Me.text1

but still i do the same procedure (i go to design view and return to form view)to update the bound test.

please response if there still possibility.


thanks

 

[ZmrAbdulla]

See an example here. I am using it well & updating to Amount field.

Private Sub ItemName_Change()
    Rate_Change
End Sub
'========================================
Private Sub Quantity_Change()
    Call Rate_Change
End Sub
'========================================
Private Sub Rate_Change()
    If Rate <> "" And Quantity <> "" Then
        Amount = Format(Val(Rate * Quantity), "###,##0.00")
    Else
        Amount = "0.00"
    End If
End Sub
'========================================

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.

 

[mai19ea]

thanks for the reply

but still not working with me.

the fields tha i used for calculation is working which unbound text, what i need is i want to copy from that unbound text to the bound text in order me to update the related table.

i hope you can give me more tips.

many thanks

 

[ZmrAbdulla]

It is as simple as below.
You have 3 fields

Field1
Field2
Total
you will add code like this.

Private Sub field1_AfterUpdate()
    Me.Total = Me.field1 * Me.Field2
End Sub
'=============================
Private Sub Field2_AfterUpdate()
    Me.Total = Me.field1 * Me.Field2
End Sub

here Total is bound textboxt to field "Total"

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.

 

[mai19ea]

mr. zameer, thank a lot.. now this is better and it works.

 

[mai19ea]

this code will work also if you have more that 2 fields to calculate for example i have 4 fields.

many thanks

 

[ZmrAbdulla]

It can be as many as you need. change the calculation to a sub like

Sub CalculatedResult()
Dim rslt as Double
rslt=(Me.field1 * Me.Field2)/Me.Field2 '(what ever calc)
Me.TextBoxResult=rslt
end if

Then

Private Sub field1_AfterUpdate()
    CalculatedResult
End Sub
'============================
Private Sub field2_AfterUpdate()
    CalculatedResult
End Sub
'==================
Private Sub field3_AfterUpdate()
    CalculatedResult
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.

 

[mai19ea]

mr. zameer, thanks for your time!

 

[mai19ea]

hello all,

i want to apply the code last 11 Dec 05 9:53 but its not working with me, is there somebody could help me, below are the sample:

Value1 Value2 Balance
F1 F5 F9 = (F1-F5)
F2 F6 F10 =(F2-F6)
F3 F7 F11 =(F3-F7)
F4(Total Value1) F8(Total Value2) F12(Total Bal)

many thanks

 

[PHV]

The CalculatedResult procedure must be in the Form's code module if it use Me.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mai19ea]

thanks for the reply PHV
yes i am in the form's code.

thanks

 

[PHV]

So, what is the problem ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mai19ea]

thanks for your time reading my post, now finally i did it..

thanks again