Search results

Hi - You need to be using an immediate if (iif). Here's an example from the debug (immediate) window: x = "john" ? iif(x ="john", 8,9) 8 x = "joe" ? iif(x ="john", 8,9) 9 HTH - Bob

Hi - This may simply be a typo, but in your explanation you list: ...but in your code it's: Note it's CQStartDate vs. CQdatestart and CQEndDate vs. CQdateend. Hope that may help - Bob

Hi - Here's a function that will recreate a short-name, regardless of the number of middle names: '************************************************ Examples: Best wishes - Bob

Hi - This can be done using a full-name field. Try playing with this: Here's a version of the instrrev() function: If, perchance, names are stored as LastName, FirstName MiddleName (a common practice in some environments) you can do this: Best wishes - Bob

Hi - Try playing with this: Best wishes - Bob

Hi - If Postcodes are similar to your example, and you are seeking to extract the portion to the left of the space, try playing with this: HTH - Bob

Hi - Try something like: x = now() ? format(x, "mmm") Feb HTH - Bob

Hi - Assuming you are working with Sunday = 1 thru Saturday = 7 HTH - Bob

Hi - Try this (example from the debug/immediate window): -or- HTH - Bob

Hi - Check-out the nz function in the help file. It should give you what you need. Best Wishes - Bob

Hi - Try copying the following to a module, then call as shown: Function SaveNumer2(ByVal pStr As String) As Long '******************************************* 'Purpose: Removes alpha and non-numeric characters from ' a string 'Coded by: raskew 'Calls: Function IsNumeric()...

Hi - You might try playing with this (from the debug window): '************************* x = "thisisatest.com" y = "thisisatest.abc" ? left(x, instr(1, x, ".com")-1) thisisatest ? left(y, instr(1, y, ".abc")-1) thisisatest '************************* HTH - Bob

Hi - Here's another function you may want to check out. It will remove specified characters, as well as spaces. Function despace(ByVal pstr As String, pItem As String) As String '******************************************* 'Purpose: Removes characters from a string 'Coded by: raskew...

Hi - I posted this ages ago. You might give it a try to see if it's close to what you're after. Best wishes - Bob

Hi - Thanks much for that! I also answered my own question when I found where I'd used the OpenModule method of the Microsoft Access DoCmd object For example, this line of code: docmd.OpenModule "Utility Functions", "DeleteTableTest3" would display the DeleteTableTest3 sub in the Utility...

Hi - Looking for the capability to go to (from a highlighted treeview control) specified module and display specified function/sub. All suggestions appreciated. Best wishes - Bob

Hi - Give this a try against the Northwind database. It works for me. Best wishes - Bob Function MedianF(pTable As String, pfield As String) As Single '******************************************* 'Purpose: Return median value from a recordset 'Coded by: raskew 'Inputs: ...

Hi - Try a Google on Anytime Organizer. I've used it for years and I suspect you'll find it provides what you're after. Best wishes - Bob

Hi - Here are some examples returning text or digits from a string, depending if your number is actually digits or text: ********************* 'Convert number to text x = 234568 ? cstr(left(x,2)) 23 ? cstr(mid(x, 3,2)) 45 'Extracting part of number x = 12345 ? left(x, 2) 12 ? mid(x,3,2) 34...

Hi - Here's another you can try: Public Function GetWeekDays(pmoyr As String, pDays As String) As Integer '************************************************ 'Purpose: Compute number of weekdays ' in the specified mm/yyyy ' where 1 = Sunday thru 7 = Saturday 'Coded by...