Recent content by sshinshaw

Ok I don't think I'm following. My code current looks like this If Mid(myAction, Len(myAction) - 4, 1) = 1 Then eTo = "email" eCC = "email" eSubject = "Counterfeit Item" Ebody = "Please blah blah. " & _ "According to blah blah." & Chr(13) & Chr(13) & _ "Date: " & Date & Chr(13) & _ "Accounting...

How do I add an action to the outlook send button in access? Can you give me an example in vba?

That would be fine too. If I could determine if the email was sent, then I should be able to tell if it wasn't.

I have a database that is set up to send emails to certain people if such and such is meet. However I was wondering, is there anyway to know if they didn't send the email? If they closed out instead of hitting send.

That should not be an issue for this data but good to know for the future. Thanks again.

Thanks so much! Worked great.

Ok that fixed that error; but, now it is giving me data type mismatch in criteria expression. The table that the txtbox is pulling from has a data type of Text and the tbl column I am trying to update has a data type of text. Is there something else I'm missing?

When I tried it this way CurrentDb.Execute "update [tbl Assets - Prior] set [Location ID] = " & Me.txtBranchCenterID & "where [Location ID] = " & Me.cboAtmCenterID It gives me this error Syntax error (missing operator) in query expression '209101where [Location ID] = 101300'...

This is what I entered... UPDATE [tbl Assets - Prior] SET [tbl Assets - Prior].[Location ID] = [forms]![frmUpdateDepartmentLocation]![txtBranchCenterID] WHERE ((([tbl Assets - Prior].[Location ID])=[Forms]![frmUpdateDepartmentLocation]![cboAtmCenterID])); It is pulling the correct...

I am a newbie so go easy on me. I want to use the selection made in the combo box to Update a table. Currently the after they select the ID number in the combo box and it then fills in a few text boxes with info about the ID number. I want to have an update button that can be clicked and it...