Recent content by Marta

When I save the report on disk and load it as attachment then it works well, but I don't want to save it on disk because it takes too much time if you need to send e-mail to 200 people. And send object method doesn't allow you to send report and files saved on disk, does it?

Hi, I'm trying to send report called "Harmonogram" as attachment in e-mail. I don't want to use send object method because sometimes I need to sent more files as attachment. Here is the code I use: Dim objOutlook As Outlook.Application Dim objEmail As Outlook.MailItem Set objOutlook =...

The problem is that I want to filter field Start based on the date in text box Find. When I use this code: Filter = "Start = Find " it doesn't use the text box it ask me to inset the date into the message box (I don't know how is it called). I want filter to use the date in the text box Find but...

Hi I am trying to set up a date filer. Start is a date field and it is set to short date. Find is a text box and is too set to short date (I use Find.Format = "Short Date"). I want to filter field Start based on the date in text box Find. I tried a few variations but nothing works. These are...

Hi, I have a code that exports data to word document and it uses provider :Microsoft Jet OLE DB 4.0. provider, so in the code it looks like (provider = "Microsoft.Jet.4.0.OLEDB", but in the new office applications there is a new provider called Micrsoft Office 12.0. Access database Engine OLE...

Hi, I run the code and there is the same error message. So I copied the text in immediate window and here is it:; UPDATE Odmeny SET Poznamky1= 5,98

Poznamky1 is a number field and I want to save there a number from text640. When I run the code this statement is highlighted: CurrentDb.Execute strSQL, dbFailOnError

Thank you for answer, but is this code OK? It shows me run-time error 3144, Syntax error in update statement.

1. I use table Odmeny as a recordset. 2. I don't know how to set up an update query and I find this code in a book so I tried it, but it doesn't work good for me. Can you tell me how to set up an update query, but the field text640 is not a part of any table. Thank you very much.

Hi, I am looking for a function which is able to find a special character in my field and delete everything behind it. Or load the characters before that special character. For example I have a name and surname in one field and I want to load just the first name. Thank you.

Hi, I am trying to save data form text640 into my table Odmeny to field Poznamky1. Here is the code I use: Dim recset As Recordset Set recset = CurrentDb.OpenRecordset("Odmeny") Do Until recset.EOF recset.Edit recset![Poznamky1].Value = Me.Text640 recset.Update recset.MoveNext Loop Is works...

Hi, I have a problem with sending emails. I have hyper-link field called email in my database and I would like to send email to email address after I click on the button. Here is the code I use: Dim email As String Dim objOutlook As Outlook.Application Dim objEmail As Outlook.MailItem email =...

Hi I need to convert time to a decimal number after I insert it. I have found a function to do that in a book. Function IndT(T As Date) As Single IndT = T * 24 End Function Sub ConvertTime() MsgBox IndT([fieldname]) End SubIt works but it is not what I really need. I have a number field in a...

Hi, I am trying to set up a conditional formatting for a form. I have a date field (for example 20.4.2011) and I want to be red if the date is bigger then 15. It doesn't matter which month or year is. I tried function date(15) but it doesn't work. Thanks for answers.

But I can't use Nz() function in expression builder. It is possible in a query but I don't want to make the query. I just need a table with 3 columns and one column with sums like in excel.