The below VBA are on two forms. All the lines in blue works correct. The one in red, errors. I am missing something obvious.
__________________________________________________ _________________________________
Private Sub T002_Click()
If (Me.T001) = 1 Then
Me!CmbEnt_ID02b = Me!CmbEnt_ID02c
End If
End Sub
__________________________________________________ _________________________________
Private Sub T003_Click()
If (Me.T001) = 2 Then
Me!CmbEnt_ID02b = Me!CmbEnt_ID02a
Me!DocumentNumber02a = "PIN" & Me!PchInvID
End If
End Sub
__________________________________________________ ____________________________
Private Sub DiscountRate02_AfterUpdate()
Me!Discount02 = Me!Unitprice02 * Me!Quantity02 * Me!DiscountRate02
Me!ExclVatDr02b = (Me!Unitprice02 * Me!Quantity02) - Me!Discount02
Me.Requery
End Sub
__________________________________________________ ____________________________