Adding an "INSERT INTO" SQL

[teric2]

Hello again.
I have the following code attached to the onclick event of a command button:

Dim strQry As String
 
   strQry = "INSERT INTO [Inspected by] ([Return No]) VALUES ('" & Me!Text80 & "')"
   DoCmd.RunSQL strQry
 
   DoCmd.GoToRecord , , acNewRec
 
   MsgBox "The return has been entered into the system", , "RETURN ENTERED"
 

When the code is executed a system generated message box appears warning you that "you are about the append a row to a table" and allowing you to cancel if wanted. Is there any way to keep this message from appearing?

Whenever a new record is entered into a certain table I need to have a row added to a related table but don't want to give the user the ability to cancel.
Thanks!

[FishVal]

Hello again.
I have the following code attached to the onclick event of a command button:

Dim strQry As String
 
strQry = "INSERT INTO [Inspected by] ([Return No]) VALUES ('" & Me!Text80 & "')"
DoCmd.RunSQL strQry
 
DoCmd.GoToRecord , , acNewRec
 
MsgBox "The return has been entered into the system", , "RETURN ENTERED"
 

When the code is executed a system generated message box appears warning you that "you are about the append a row to a table" and allowing you to cancel if wanted. Is there any way to keep this message from appearing?

Whenever a new record is entered into a certain table I need to have a row added to a related table but don't want to give the user the ability to cancel.
Thanks!

Hi!

Use
DoCmd.SetWarnings [False/True]
to turn off/on Access warnings.

Good luck

[teric2]

Excellent, Just what I needed!

Thanks for the help!