Recent content by origapizni

The RANK() function Help says the REF argument can be an array. However, I can find no way to make it accept anything except a reference to a worksheet Range. For example, the ARRAY() function causes an error. Has anyone out there been able to make it work with anything other than a Range? TIA...

Thanks SemperFi. I have more questions. First, I need to clarify the requirement a little (sorry...) My user wants connected list boxes like you see in the Access query design window, where there is a line connecting 2 tables visually showing the SQL Joins. To make it harder, the lines, as you...

Something like this works in Access VBA: Dim oXL As Excel.Application Dim oBook As Excel.Workbook Dim oSheet As Excel.Worksheet ' Create a new instance of Excel and make it visible. Set oXL = CreateObject("Excel.Application") ' Add a new workbook...

A user asked me: " would like to visually link items in two list boxes similar to the way the QBE interface in MS Access works. Does anyone have any ideas on how to do this?" In other words, 2 list boxes connected by a line which links a single item in one list with a related item in...

Anybody know if there is any way to capture the pressing of the <alt> key in Excel 2k VBA the way you can in VB using the KeyPreview event? Thanks in advance!

In Access 2k, trying to do an incremental search of an already-populated (and sorted) multiselect list box using a text box for the criteria. want to cause the list box to scroll to the first item that matches the characters in the text box. works when multiselect is set to none, but not when...

OOPS! Again. Good catch. Bummer. I should have read Help: &quot;Before division is performed, the numeric expressions are rounded to Byte, Integer, or Long expressions&quot;

OOPS! You're absolutely right - I thought you were replacing a value in the DateAdd() function. Instead, you were actually eliminating the need for the DateAdd() step entirely. With the Integer Divide operator, your formula works with no function calls at all, just pure math Function...

Not really an answer to your question, but I often use a very good freeware package called PrettyCode.Print located at http://www.vbcity.com/page.asp?p=pcp_index No nag screens, no expiration, very stable, and totally free. It prints in color (a major irritation with the VB Editor) and works...

Can't get Fix((vDate + 5) / 7) * 7 + 1 to give the desired result. but ((vdate + 5) \ 7) * (8 - vdate) works for me. (note the divide is a &quot;\&quot; for the Integer divide operator, not the usual &quot;/&quot; standard divide operator. this is faster than a Fix() function call.) Of course...

OOPS! The Access Query property dialog calls it &quot;ODBC Timeout&quot; (:>(

By default, the Access97/2000 querytimeout property is set to 60 seconds. Is there any way to change the DEFAULT value for ALL new queries? We know how to change it for individual queries thru the properties dialog in design mode, but that is not an acceptable alternative in our environment...

And here's another twist (MUST set &quot;Option Base 1&quot; at top of Module): Option Base 1 Function GetWeekEnding_a(dDate As Date) As Date ''' determines Sundays (Week Ending) date from _ any date entered into the table _ if entered date is already a Sunday, _ keeps the...

Here's another shorter way. Don't know that it's any better, just different. Function GetWeekEnding(dDate As Date) As Date 'determines Sunday's(Week Ending) 'date from any date to enter into the table Dim vdate As Integer 'var to hold result of weekday function Dim sDate As Date...

replace the SendKeys line with SolverSolve UserFinish:=True