Transferring Data

[Kundan]

In the attached DB I want the data of the control named "difference to be transferred to the yellow control immediately on change. I have written a code on the "change " event but it is not working. Please guide me.

[davegri]

Add the red line for frm_NTransac

Private Sub Form_Current()
    Text31 = Text29
    'MsgBox "Current"
    'Text27 = Text29
    If Me.Text29.Value = 0 Then
        Me.Text29.BackColor = vbWhite
    Else
        Me.Text29.BackColor = vbRed
    End If
End Sub

[June7]

Why not use Conditional Formatting rules to dynamically set backcolor?

Text29 is a calculated value, its Change event will not trigger as a change must be by typed input, not calculation.

Consider:

Private Sub Frm_NIssued_Exit(Cancel As Integer)
Me.Text31 = Me.Text29
End Sub

Private Sub Frm_NReceived_Exit(Cancel As Integer)
Me.Text31 = Me.Text29
End Sub

Saving this calculated value is not necessary. It can be calculated when needed.

Might want to fix or remove non-functional code in the subforms.

[Kundan]

Why not use Conditional Formatting rules to dynamically set backcolor?

Text29 is a calculated value, its Change event will not trigger as a change must be by typed input, not calculation.

Consider:

Private Sub Frm_NIssued_Exit(Cancel As Integer)
Me.Text31 = Me.Text29
End Sub

Private Sub Frm_NReceived_Exit(Cancel As Integer)
Me.Text31 = Me.Text29
End Sub

Saving this calculated value is not necessary. It can be calculated when needed.

Might want to fix or remove non-functional code in the subforms.

Thanks for your advice "Saving this calculated value is not necessary. It can be calculated when needed." I am working on it.