Search results

Search the forum for CDO, this allows you to send email directly without using an external app.

I take it you can't create the pdf form as an access report, populate it and print it out as a pdf, or use the Stephen Lebans code to create the pdf from the report?

The problem is that if 2 or more people are looking at the same data when one books it you need to make sure no one else can. In one project the user queried the data to look for availability but when they went to book I opened a recordset with the options dbDenyWrite, which locked the table so...

http://support.microsoft.com/kb/210085

Office 2003 does work with windows 7. Serves you right for going to PC world:eek:

Searching the forum brings up lots of posts. This one might give you a start. http://www.access-programmers.co.uk/forums/showthread.php?t=116258&highlight=xml

I had the same problem try removing Set oapp = CreateObject("Excel.Application") then modify to read Set xlWkb = Excel.Application.Workbooks.Open("C:\temp\TReport.xls") HTH

You need in investigate Terminal Services to allow multiple sessions using remote desktop. You need the correct edition of Windows Server, have it configured for terminal services, and purchase enough TS licences.

Try importing the data manually and looking at the Data Types in the table. Access tries to guess what type it should be, and it could be set to a number data type instead of text. HTH

This may help http://www.access-programmers.co.uk/forums/showthread.php?p=908669#post908669

And for Windows 7 follow the instructions in the previous post Also delete the line for the following file: AGENTSVR.EXE And its happy days for windows 7 :)

You could modify this function Public Function FilterIt(InChr As String) As String '-- Strip all but alphanumeric characters Select Case InChr Case "a" To "z" FilterIt = InChr '-- Valid character Case "A" To "Z" FilterIt = InChr '-- Valid character...

With a remote desktop connection your users are are logging in to another PC and are not able to use the remote desktop users email program. Your options are: 1: If the PCs are connected via a vpn then create the pdf and copy it to the users workstation, they can then exit the remote desktop...

I've just been doing something similar attaching a spreadsheet. Access decides what type of field to use based on the data in the first few rows. Microsoft have documented a work around by selecting the relavent cells and running the following macro Sub ConvertToText() ' Dim cell As Object...

I use this to check for the filename so would this work Not tested but I think it should work

Try... s7Zip = "C:\Program Files\7-Zip\Command_Line\7z.exe" 'or location of 7z.exe Shell (s7Zip & " a -tzip " & sZipFile & " " & sFileToZip), vbhide

Sorted. It didn't like be building the string in the SQL statement for some reason. By changing the SQL to bring each field through seperately, then building the text a recordset level and putting it directly in to the text box instead of in to x it works fine.

I have the following code Public Sub MergeNotes() Dim db As Database Dim rs As Recordset Dim strSQL As String Dim x As String strSQL = "SELECT Note.NoteID, [noteTime] & ' - ' & [Reason] & ' - ' & [Result] & ' - ' & [NoteContact] & ' - ' & [NoteText] AS NoteDetail " _ & "FROM ([Note] INNER JOIN...

Here's a function written by someone called David McAfee, so I guess it drove him wild!! Anyway it works really well, you just call it on the after update of the txt control preceeded by an On Error Resume Next to allow for null Function fProperCase(AnyText As String) As String 'Convert passed...

I have created the following function Public Sub NextInvoiceNo() On Error Resume Next If IsNull(DMax("InvoiceNo", "Invoice")) Then Forms!F_Invoice!InvoiceNo = 1 Else Forms!F_Invoice!InvoiceNo = DMax("InvoiceNo", "Invoice") + 1 End If Forms!F_Invoice.Refresh If Err = 3022 Then...