Search results

Hi folks, I recently had a requirement to send many reports via email with sensitive customer data. The only thing that IT would allow was a strong password-protected winzip file. I will include a little of the code here - the remainder you should be able to glean from other posts. I read...

No Problem Tatiana - I hope it works out for you. Checoturco - change your syntax to the following: .Attachments.Add ("C:\test.pdf") J.

...if you did this and then looked at the query in SQL view... You would have ended up with the same conclusion. It saves you trying to work out the correct syntax, because it does it for you.

Neil, I agree with you... Now() is certainly the best option, and I'm surprised that I completely forgot it?! The other option also works - and for the purposes of seeing them on a form they look exactly the same. I have never put time on any of my forms... never had a need to. Unless you...

Check out this thread... http://www.access-programmers.co.uk/forums/showthread.php?t=97854&highlight=outlook+security

Tatiana, Pleased to hear that it is working. I'm afraid that my usefulness has come to an end. The company that I work for is still using Access 97 and Windows NT. I think that the problem that you are experiencing is a new security feature of the windows software. I am pretty sure that...

try unlocking the form... dumping the text... and then relocking the form in your code. syntax as follows: txtbox.Locked = False J.

So just to be sure. Go to modules and paste the big code above in a new module. Delete the line that says "with dbs". Change all instances of PersonsName, PersonsEmail and TableName with the values that you are using in your db. Then go to Debug menu, Compile and save all modules. This should...

Sorry Tatiana, I doctored some old code. If you delete that line that says "With dbs". This isn't necessary. J.

Most people on this website have been really helpful... I'm just paying back for the time that they have given me. Try compacting the db before you zip it. Remember that loads of ppl get to see this site, so don't include any customer/client data.

Yep. If you add it to the on click event of a command button, and the function in your module is called SendEmail. You would put the following: Private Sub EmailMessage_Click() SendEmail End Sub The best way to check this code while it runs is to step through it. You do this by opening...

madrav72, A wee tip... create the query in design view. You can double click the line that joins the 2 tables (to change the join properties). This allows you to create an inner join, right join or left join... Once you have done this you can then click on SQL view to see the new syntax. J.

Sorry Tatiana, I should have mentioned. Paste the code into a vb window, either as a module that you call from a command button, or the class module of the form. Whilst viewing the vb code goto the tools menu, references, and tick the reference for microsoft Outlook. J.

Katie, It isn't as difficult to post a db as you might think. Create a new db. Open your existing db. Split them on your screen, so you can see both. Drag and drop each item that you need (form, report, any reliant queries and table structures) from your existing to your new. (It won't mess...

Create a form with a combo box. Include the L&D field (poor naming), and description in the combo. Use the selection from the combo as the basis for opening your report. strDepartment = forms![FormName].[ComboName] strWhereClause = "Department = '" & strDepartment & "'" DoCmd.OpenReport...

Yep, you are pretty much on track. You are creating a recordset where you will extract name and email and loop through them one at a time. The table that you use is specified in the select statement below. Change PersonsName, PersonsEmail and Tablename to those used in your database. You...

Don't know about the web page stuff... but if you want to just update a given record then put in some criteria in the criteria section of the update query.

Have you tried my exact syntax?! Cos it works for me. J.

Something like the following. Public Function SendEmail() PROC_DECLARATIONS: Dim olApp As Outlook.Application Dim olnamespace As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim dbs As Database Dim rstEmailDets As Recordset Dim strSender As String Dim...

instead of a label, put in a text box and in the control source section type... =Date() & " " & Time()