Andrew Hulting
Last Activity: Aug 7 '12, 04:30 PM
Joined: Dec 28 '10
Location:
-
Dynamic crosstab?
I am creating a process to dynamically age receivables. I do have standard aging of 15 day buckets up to 90. The issue is that there are a few processes that need custom aging, IE: 7 day buckets. I have crosstabs to do the aging, with the age in days as column headers, I default anything greater than 90 days to 91. I also separate it to debits and credits by count than sum. Each crosstab had 96 columns, 1-91 for age and 5 for other identifiers.... -
Access and Keyhook? Will it work?
I have been playing with this code for a while and have yet to get it to work, in access. What am I doing wrong? My goal is to "hijack" they keyboard while I am running certian functions, then unhooking the keys at the end of my sub/function.
...Code:Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public Declare Function GetKeyState
-
Thanks for the reply's I did get it to work with a REGex Function, It was very frustrating. It works realativly fast, as I was able to mask the numbers in a few history talbes, with ~300K records each, in only a few mins. Here is what I used. Not to bad for 50 some lines of code, I just passed in my recordset, and the targeted field.
...Code:Public Function fnMaskCCNumbers(Item As String, fld As String) Dim str As String
-
Solved: Masking credit card numbers in a mixed field
I am working on a project to look in a couple of fields for 16 consecutive numbers, I am masking credit card numbers I can get this to work with the following code, for fields where it begins or ends with 16 consecutive numbers. The problem I am having is a field with alpha on either side, or a numeric string longer then 16 digits. I guess what I need is something to look for 16 digits in a field, and replace place 7-12 with *’s. VBA doesn’t... -
How to return the function or sub where the error occured?
I know you can use erl, to return the line number of the error if you have it set, I would like to return the function or sub where the error occured to my error handeling procedure, any thoughts?
Andrew -
I got it to work, I added "MS Access;PWD=" & Pword is valid to line 11.Leave a comment:
-
Access 2003 runtime error 3170, Could not find installable
I am getting an erro on line 11, OpenDatabase(Na me As String, [Options], [ReadOnly], [Connect]) I can leave the Options field blank, and it errors saying that the password is invalid, I am 100% certian that the password is correct, and if I leave it blank it prompts then errors. I have read countless articles, and reregistered the DLL's and even reinstalled office, to no avail. Anyone with any ideas that would be excellent.
...Code:Public
-
The -1 is whatever the value is when it is checked, I am working on an extreamly gimped PC right now, as I am havign major issues with dll's being courupt, and not being able to runa any code.
The premis is that when the condition of the checkbox being selected, than the age text box will use the appropriate formula.
...Code:If Forms![CyclistF]![MtbAge] = -1 Then Forms![CyclistF]![currentage] = Format(DateSerial(Year(Date),
Leave a comment:
-
I would try. I havent tested it, but
Code:chkBox1 = MtbAge - option value = 1 chkBox2 = RoadAge - option value = 2 If Forms![Main]![chkBox1] = true then textbox=Format(DateSerial(Year(Date()),12,31)-[Birthdate],"yy") If Forms![Main]![chkBox2]= true textbox=DateDiff("yyyy",[Birthdate],Now())+Int(Format(Now(),"mmdd")<Format([Birthdate],"mmdd"))Leave a comment:
-
fixed
...Code:Do While Not rst.EOF 'MsgBox (dbFileName) ' test returns database name For Each PagObj In ActiveDocument.Pages If PagObj.Name <> rst!Name Then ElseIf PagObj.Name = rst!Name Then rst.MoveNext End If Next Set PagObj = ThisDocument.Pages.Add PagObj.Name = rst!Name 'dbFileNameLeave a comment:
-
VBA and Visio
I have code in Visio that reads a access table, and creates a new tab for each item in the field. I want to have the code look for existing tabs and move to the next one if the tab exists. I guess it would be a nested loop but cannot seem to get it to work. Any help would be greatly appreciated.
Andrew
...Code:Public Function fnImportText() Dim objAccess As AccessObject Dim Accapp As Access.Application
-
Ok, I got it to work, I Commented out lines 16,17 and moved a 15 to line 19.Leave a comment:
-
Parsing a text file
I have the task of documenting about 80 different databases, I have mapped all the linked tables and host tables, in Visio with reverse engineering. Now I have to parse the code for all imports and exports and such. I have already extracted all the VBA code to .txt files and have condensed them to one file per database. Now I want to loop through the code to retrieve only the lines where, “acExport” is in the string, and hopefully return,...
No activity results to display
Leave a comment: