Help with Code

[data808]

I have this going right now but it doesn't seem to be working:



Private Sub txtSumAmtsDue1_LostFocus()

If Me.txtSumAmtsDue1 Is Dirty(txtSumAmtsDue1) Then
Me.txtAmtDue = Nz([txtSumAmtsDue1], 0) + Nz([txtSumAmtsDue2], 0) + Nz([txtSumAmtsDue3], 0) + Nz([txtSumAmtsDue4], 0) _
+ Nz([txtSumAmtsDue5], 0) + Nz([txtSumAmtsDue6], 0) + Nz([txtSumAmtsDue7], 0)
Me.txtChange = Me.txtCHK + Me.txtCHRG + Me.txtCashGiven - Me.txtAmtDue
End If

End Sub

I need for this text box "txtSumAmtsDue1" to only sum up everything if its dirty. Can anyone assist please?

[Missinglinq]

Drop the If...Then...End If construct and place the calculation in the txtSumAmtsDue1_AfterUpdate event. This event will only fire if txtSumAmtsDue1 is dirty, which does away with the need to test for it being dirty.

BTW, pretty sure that Is Dirty() is not a VBA function.

Linq ;0)>

[data808]

Thanks Missinglinq. Works like a charm.

[Missinglinq]

VBA code is kind of like real estate...the important thing is location, location, location!

Linq ;0)>