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" <damon_188327@hotmail.com> wrote in message 
news:ulQ1hAr0KHA.4168@TK2MSFTNGP02.phx.gbl...
> 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.

-- 
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

Thanks, Dirk.  That solved the problem with the warning.

Damon

"Dirk Goldgar" <dg@NOdataSPAMgnostics.com.invalid> wrote in message 
news:elt7$Mr0KHA.3652@TK2MSFTNGP04.phx.gbl...
> "Damon Heron" <damon_188327@hotmail.com> wrote in message 
> news:ulQ1hAr0KHA.4168@TK2MSFTNGP02.phx.gbl...
>> 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.
>
> -- 
> Dirk Goldgar, MS Access MVP
> Access tips: www.datagnostics.com/tips.html
>
> (please reply to the newsgroup)
> 

On Fri, 2 Apr 2010 18:24:17 -0400, Dirk Goldgar wrote:

> "Damon Heron" <damon_188327@hotmail.com> wrote in message 
> news:ulQ1hAr0KHA.4168@TK2MSFTNGP02.phx.gbl...
>> 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.

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

(without the = sign)?

-- 
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

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

Damon

"fredg" <fgutkind@example.invalid> wrote in message 
news:yyzvakhy7gsw.15gydx49p99bi.dlg@40tude.net...
> On Fri, 2 Apr 2010 18:24:17 -0400, Dirk Goldgar wrote:
>
>> "Damon Heron" <damon_188327@hotmail.com> wrote in message
>> news:ulQ1hAr0KHA.4168@TK2MSFTNGP02.phx.gbl...
>>> 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.
>
> Shouldn't the SetWarnings commands have been written
> DoCmd.SetWarnings False
> DoCmd.SetWarnings True
>
> (without the = sign)?
>
> -- 
> Fred
> Please respond only to this newsgroup.
> I do not reply to personal e-mail 

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




"fredg" <fgutkind@example.invalid> wrote in message 
news:yyzvakhy7gsw.15gydx49p99bi.dlg@40tude.net...
> On Fri, 2 Apr 2010 18:24:17 -0400, Dirk Goldgar wrote:
>
>> "Damon Heron" <damon_188327@hotmail.com> wrote in message
>> news:ulQ1hAr0KHA.4168@TK2MSFTNGP02.phx.gbl...
>>> 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.
>
> Shouldn't the SetWarnings commands have been written
> DoCmd.SetWarnings False
> DoCmd.SetWarnings True
>
> (without the = sign)?
>
> -- 
> Fred
> Please respond only to this newsgroup.
> I do not reply to personal e-mail