Add email VBA to existing code

[Guest]

Text_Network_User is pre filled in using a module to get thier PC Login. How
would I log whats in that text box before they get the pop up that they cant
enter the database? I gave up on the email thing! Sure would have ben nice
though...Thanks!

 

[Douglas J. Steele]

Dim strSQL As String

strSQL = "INSERT INTO LogTable(UserID, EventDtm, Comment) " & _
"VALUES(""" & Me.Text_Network_User & """, " & _
Format(Now(), "\#yyyy\-mm\-dd hh\:nn\:ss\#") & ", " & _
"Unauthorized Database Access" & ")"
CurrentDb.Execute strSQL, dbFailOnError

This assumes you have a table named LogTable with (at least) three fields:
UserID (a text field), EventDtm (a date/time field) and Comment (a text
field)

 

[Guest]

Could I add this to the code we have been working on? If so where in the code
would it go? Thanks!

 

[Douglas J. Steele]

You'd put that code instead of the code you used to have to send the e-mail.