Search results

Thanks Gasman. I couldn't get that to work for me (my bad probably) but it did get me on to a work around.

Hi. I have a query named "ClientWrkHrs": SELECT ClientCal.Abbr, ClientCal.Start_Date, ClientCal.StartTime, ClientCal.EndTime, DateDiff("n",[StartTime],[EndTime])/10+1 AS Slots FROM ClientCal WHERE (((ClientCal.Abbr) Like "*" & "jo" & "*")) ORDER BY ClientCal.StartTime; This returns the...

True, but I'll be developing that for further use later. :)

Hi Pat. Thanks again. That worked with a bit of tweeking. I converted the query times to strings and modified the code to: Much obliged.

Hi Gasman. The match would be on 11:10:00 and the result returned would be 10:50:00

Thanks Pat. That's interesting. Perhaps it might be better to convert the time to a string. I'll give that a go

Thanks for the suggestion. I tried that initially, but it didn't return any results.

Hi. I have an unmatched query based on 2 tables. The query results are: I now need to filter this to those records where StartTime matches with any Expr1. Expr1 is calculated from StartTime using dateadd function. For example, in the above, the first 2 records would be ignored because...

It is a very complicated statement. It occurred to me that it might have been because there was no end date (= infinite count). However, I've just ran a test with a new recurring event with an end date but it still only picks up the first occurrence (ie today's date).

Thanks MajP, I'll take a look. I hadn't found that link in my searches.

Hi I want to extract some details from my Outlook calendar (subject and start and end dates). I have this code: Public Function GetEvents() Dim oOutlook As Outlook.Application Set oOutlook = CreateObject("Outlook.Application") Dim oNS As...

Thanks for all that, and for the encouragment. I will stick with it, but perhaps I'll lower my ambitions for now. It just seemed a simple thing to try to inspect an email to find if a particular text exists. Peaceful is the new norm these days - well , at least for sensible people. Our pubs are...

I got the idea for searching for text from https://docs.microsoft.com/en-us/office/vba/word/concepts/customizing-word/finding-and-replacing-text-or-formatting. I know that this was a Word article, but I had hoped it could be modified for Access. Sorry about the On Error thing; it was in some...

Code Tags Added by UG Please use Code Tags when posting VBA Code Please feel free to Remove this Comment https://www.access-programmers.co.uk/forums/threads/please-use-code-tags-when-posting-vba-code.240420/ Option Compare Database Option Explicit Public Function SendEMail() Dim db As...

Hi. Sorry had to be out for a few hours. I've pasted the whole code below (this might clarify a few things). I got the .Content.Find procedure from a MS website (which I attempted to modify for my needs). Code Tags Added by UG Please use Code Tags when posting VBA Code Please feel free to...

Hi Thanks for the suggestions. I tried changing the statement to FALSE, but it still doesn't run correct. I guess that could indicate that the problem is with the .find property. Also, it does compile.

Hi, I have a db that creates an email from templates (the template changes depending on a selection). Each template contains key words that are replaced by data input by a user through the db using an InputBox. It generally works fine but I want to avoid using specific InputBoxes where not...

Perfect. Genius thanks :)

Thanks for teh swift reply. Tried this but get a fail at the if statement (property doesn't support this property or method). Any suggestions?

Hi I'm trying to use this code that I found online: Dim myOutlook As Outlook.Application Dim myInformation As Namespace Dim myContacts As Items Dim myItems As ContactItem Set myOutlook = CreateObject("Outlook.Application") Set myInformation = myOutlook.GetNamespace("MAPI")...