Recent content by chaver

Hi Galaxiom By golly I think you have solved it! I have changed the top of the function to read as follows: Public Function findWKNo(ByVal Dat1 As Variant) As Integer Dim xs As Variant Dim Dat As Date If IsNull(Dat1) Then findWKNo = -1 Exit Function End If...

Hi Here is the findWKNo function Public Function findWKNo(Dat As Date) As Integer Dim xs As Variant If IsNull(Dat) Then findWKNo = -1 Exit Function End If xs = Int((Dat - Weekday(Dat, vbMonday) + 11 - DateValue("jan 01," & Year(Dat + 4 - Weekday(Dat...

I have already put a trap in the function to check for a Null Date - there are none. I have also used the first query as the input to a second query with <53 and that fails. Mystified.

I have an SQL query that brings up the error message. I am an experienced programmer but this one has me mystified. Here is a simple copy of the SQL statement that works OK: SELECT SalesOrderLineItems.Despatched, findWKNo([Despatched]) AS WK FROM SalesOrderLineItems WHERE...

I am trying to link to an Outlook folder to bring the data across into an Access table. At first I could not run the Link Exchange/Outlook Wizard using External Data, More and Outlook Folder - it just came up with the message "Object or class does not support the set of events". After scanning...

Hi Paul Tx for responding - I think you are probably right - the current declarations are: Public Sub SendMessage(DisplayMsg As Boolean, emailaddr As String, Subject As String, MSG As String, Optional AttachmentPath) Dim objOutlook As Outlook.Application Dim objOutlookMsg As...

I have an application written in Access 2007 that automatically sends emails with attachments through Microsoft Outlook. I have installed this onto a users system using the Access 2007 runtime. This user has Office 2010 (not Access). Access 2007 fails when trying to create emails in MS...