I try using this code to add ON not inl ist event but i was prompt but it is not added to the table that this combo table but the data entry table instead and could not reflect for new records. Please advise when i go wrong.
' Dim 3rdParty As Integer
New3rdParty = MsgBox("3rd Party Not Found! Do You Want to Add This 3rd Party?", 36, "New 3rd Party"
If New3rdParty = 6 Then 'New3rdParty is YES
' Continue without displaying default error message.
Me![3rd_party].RowSource = "SELECT '" & NewData & "' FROM [3rd_party] UNION SELECT DISTINCTROW [3rd_party] FROM [Database]"
Response = DATA_ERRADDED
Else
Response = DATA_ERRCONTINUE
End If
' Dim 3rdParty As Integer
New3rdParty = MsgBox("3rd Party Not Found! Do You Want to Add This 3rd Party?", 36, "New 3rd Party"
If New3rdParty = 6 Then 'New3rdParty is YES
' Continue without displaying default error message.
Me![3rd_party].RowSource = "SELECT '" & NewData & "' FROM [3rd_party] UNION SELECT DISTINCTROW [3rd_party] FROM [Database]"
Response = DATA_ERRADDED
Else
Response = DATA_ERRCONTINUE
End If