Private Sub Detail_Paint()
'On Error Resume Next
If mlngSplitID <> Me.SplitID Then
Me.tbSplitAmount = Me.SplitAmount.Value
Me.tbOfficeCode = Me.OfficeCode.Value
mlngSplitID = Me.SplitID
If Me.SplitError = -1 Then
Me.tbSplitAmount.BackColor = vbRed
Else
Me.tbSplitAmount.BackColor = vbWhite
End If
End If
End Sub
|