To build debugging and profiling into your code, add this to the endof code lines: ‘Code line Add this line (n should be replaced’by a unique number)i = j +
I speed up the debugging of applications with queries that return large record sets by using Access 95 to temporarily set the TopValues within the query stored in the MDB.
A VB3 form that has a fixed double border does not show the form’s icon in the upper left-hand corner if you have the control box set to True. Here’s
Use this code to find the binary representation of the currently checked check boxes: Function WhichCheck(ctrl As Object) As _ Integer’ This function returns the binary value ‘ of an
Use this code to find the index of the currently selected control in an array of option buttons: Function WhichOption(Options As _ Object) As Integer’ This function returns the index
The GetRows method retrieves multiple rows of a Recordset (JET) or rdoResultset (RDO) into an array. Ioften use this feature to transfer data between an OLE Server and client applications.
This function returns the difference between two dates on Years, Months, and Days: Function GetAge(dtDOB As Date, _ Optional dtDateTo As Date = 0) _ As String ‘is dtDateto passed
I often have several programming irons in the fire at one time. Jumping back and forth from project toproject, I sometimes lose track of where I left off within each
For consistency’s sake, use this routine wherever your version numbers appear in code: Public Function GetMyVersion() As String ‘ Turn version info into something ‘ like “1.02.0001” Static strMyVer As