Msg: You are about to append.....

  • Thread starter Thread starter Damon Heron
  • Start date Start date
D

Damon Heron

Access 2007 - - I have a tblLog that at the opening and closing of the main
form gets written to with the date and time. I have set warnings unchecked
in Access Options. All is well UNTIL I convert it to an MDE, then I get the
message about appending when I open or close the main form, and ONLY the
main form. No other table writes trigger the warning msg. Any ideas? Here
is the code in the form's load event:

'DoCmd.SetWarnings = False (I tried adding this and it triggered an error
msg)
strsql = "INSERT INTO tblLog (LogonTime) values( Now() )"
DoCmd.RunSQL (strsql)
DoCmd.OpenForm "hfrmCloseAccess", , , , , acHidden
ChangeProperty "AllowBypassKey", DB_Boolean, False


And here is the quit button:

Private Sub cmdQuit_Click()
On Error GoTo Err_cmdQuit_Click
Dim strsql As String
'DoCmd.SetWarnings = False (again, commented out because of error msg)
strsql = "INSERT INTO tblLog (LogoutTime) values( Now() )"
DoCmd.RunSQL (strsql)
CloseAllOpenForms
Application.Quit acQuitSaveAll

Exit_cmdQuit_Click:
Exit Sub

Err_cmdQuit_Click:
MsgBox Err.Description
Resume Exit_cmdQuit_Click

End Sub

Any help is appreciated. I am baffled why it only occurs in the MDE
compilation.

Damon
 
Damon Heron said:
Access 2007 - - I have a tblLog that at the opening and closing of the
main form gets written to with the date and time. I have set warnings
unchecked in Access Options. All is well UNTIL I convert it to an MDE,
then I get the message about appending when I open or close the main form,
and ONLY the main form. No other table writes trigger the warning msg.
Any ideas? Here is the code in the form's load event:

'DoCmd.SetWarnings = False (I tried adding this and it triggered an error
msg)
strsql = "INSERT INTO tblLog (LogonTime) values( Now() )"
DoCmd.RunSQL (strsql)
DoCmd.OpenForm "hfrmCloseAccess", , , , , acHidden
ChangeProperty "AllowBypassKey", DB_Boolean, False


And here is the quit button:

Private Sub cmdQuit_Click()
On Error GoTo Err_cmdQuit_Click
Dim strsql As String
'DoCmd.SetWarnings = False (again, commented out because of error msg)
strsql = "INSERT INTO tblLog (LogoutTime) values( Now() )"
DoCmd.RunSQL (strsql)
CloseAllOpenForms
Application.Quit acQuitSaveAll

Exit_cmdQuit_Click:
Exit Sub

Err_cmdQuit_Click:
MsgBox Err.Description
Resume Exit_cmdQuit_Click

End Sub

Any help is appreciated. I am baffled why it only occurs in the MDE
compilation.
Click to expand...


You don't say what error message you get, but I would suggest you bypass the
whole question and use CurrentDb.Execute rather then RunSQL:

CurrentDb.Execute strsql, dbFailOnError

That won't generate any warning, though it will raise an error if the SQL
statement fails.
 
You don't say what error message you get, but I would suggest you bypass the
whole question and use CurrentDb.Execute rather then RunSQL:

CurrentDb.Execute strsql, dbFailOnError

That won't generate any warning, though it will raise an error if the SQL
statement fails.
Click to expand...

Shouldn't the SetWarnings commands have been written
DoCmd.SetWarnings False
DoCmd.SetWarnings True

(without the = sign)?
 
Yes,
but I tried it both ways (still got an error msg) and the code below was
remarked out

Damon
 
Yes,
but as a test, I tried it both ways (still got an error msg) and the code
below was
remarked out to show I had tried setting warnings off....

Damon
 
Back
Top