I have made a rather comprehensive VBA routine that documents the content of Access databases, especially tables and queries. I find the number of records in a table by:
For Each aTabDef In CurrentDb.TableDefs
aRecordCount = aTabDef.RecordCount
Next aTabDef
However, I have recognized that...
Thanks to
'Remou'
on http://www.tek-tips.com
and
Allen Browne - Microsoft MVP, Perth, Western Australia, http://allenbrowne.com/ser-60.html
on microsoft.public.access
and
Roger Carlson - MS Access MVP, http://www.rogersaccesslibrary.com
on...
I have some VBA that loops through a list of tables, empties them, and then fills them again by running append queries.
For each table I get messages like "You are about to delete 123 row(s) from the specified table" and "You are about to append 456 row(s)". These messages I can suppress by...
To avoid too much cluttering I normally do not check 'Show Windows in Taskbar'.
I had hoped for a registry change like:
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Window Title"="HVL"
which changes the IE6 title bar to:
<HTML page title> - HVL
By the way: I'm using Excel...
The taskbar shows the text from the title bars of all windows.
If several documents are open in Word, the taskbar shows:
Document1.doc - Microsoft Word
Document2.doc - Microsoft Word
etc.
With an auto-hidden taskbar positioned to the left it is easy to choose the correct document...
The following registry extension will add the item "Dir /S" to the folder context menu.
By selecting this item the command file (DOS batch file) "C:\BAT\_DirS.cmd" is executed.
[HKEY_CLASSES_ROOT\Directory\shell\CMD1]
@="Dir /S"
[HKEY_CLASSES_ROOT\Directory\shell\CMD1\Command]...
My VBA worksheet (array) function only changes the cells from which it is called. In my example '[My Book.xls]aSheet'!C13:Q13 is changed. The values of '[My Book.xls]aSheet'!C11:Q11 and '[My Book.xls]aSheet'!C12:Q12 are read.
Helge
________________________
Helge Larsen
I have a function HVL_Sort that sorts the values in InputRange according to the values in SortByRange. This function is used as an array worksheetfunction at several places in my workbook.
Inspired by CautionMP in an earlier post to this thread I use the following that gives the range from...
I have a VBA function that is called from many cells in several worksheets in my workbook. The function performs some error trapping (data checking) and gives a message if an error is found.
However, I need to retrieve information on from where the erroneous call of the function is placed...
When I save a web page to my harddisk I always use the "Web Archive, single file (*.mht)" option. But the default is "Web Page, complete (*.htm,*.html)" that produces an HTM-file and a subfolder with several files referenced by the HTM-file.
How do I change the default file type to Web Archive...
Thanks to Cmmrfrds for pointing to Thread 705-903662 with some good VBA (although an "On Error Resume Next" is missing in Function FixUpRefs after the reference has been added).
________________________
Helge Larsen
I am developing Excel and Access applications that are meant to be used by several (many?) other persons.
In the development I am using Office-2000 and Office-XP, but end-users will use Office-97, Office-2000 and Office-XP.
I am opening an Excel object from Access and vice versa an Access...
I am developing Excel and Access applications that are meant to be used by several (many?) other persons.
In the development I am using Office-2000 and Office-XP, but end-users will use Office-97, Office-2000 and Office-XP.
I am opening an Excel object from Access and vice versa an Access...
I would like to declare a variable representing a userform. If I simply declare it as OBJECT, things function.
But if I declare it as USERFORM, I get an error when showing the userform.
Run-time error '438': "Object doesn't support this property or method".
Do I really have to declare it as a...
I have a database table in MS Access with many records.
I use some VBA in Excel to delete some of these records.
But when I try to delete many records I get the error :
File sharing lock count exceeded.
Increase MaxLocksPerFile registry entry.
My VBA looks like this :
' Select...
In Excel I am writing some VBA code with calls to ADO. When I need help on some ADO statement I place the cursor on the word in question, eg. Execute, and press F1. Then I get a choice between "Office" and "ADODB". But if I select ADODB nothing happens. It is as if the system does not at all...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.