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

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
 
D

Dirk Goldgar

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.


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.
 
F

fredg

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.

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

(without the = sign)?
 
D

Damon Heron

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

Damon
 
D

Damon Heron

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top