Search results

Here is a UDF that removes everything but alphnumerics: Public Function strclean(strDirty As String) As String Dim intCode As Integer Dim intNameLen As Integer Dim intCheck As Integer strclean = "" intNameLen = Len(strDirty) intCode = 1 Do Until intCode = intNameLen + 1 intCheck =...

=iif([due date] is null,"Lost",IIf([Due Date]>Now(),"OK","OUT OF CALIBRATION"))

This function should do it: Public Function HexChar(intHex) Dim hexNum hexNum = "&H" & intHex HexChar = Chr(CInt(hexNum)) End Function

You have to loop through the string: Public Function strCount(str As String, strFind As String) As Integer Dim intLength As Integer Dim strHold As String Dim intFind As Integer intLength = Len(strFind) strHold = str intFind = InStr(strHold, strFind) Do Until intFind = 0 strHold = Mid(strHold...

You have to enter the LastName field twice in the Grouping/Sorting dialog box. Once with a group header - sorted ascending. And once for just sorting.

NEW END DATE: Format(DateAdd("m",+[payment schedule],[PAID THROUGH]),"mmm d, yyyy")

These numbers are just to appear on the report, right? Just to number each record? If so, all you have to do is use a global variable to count each record. Define a global variable by inserting a dim statement at the module level of your report module. That would be right after the Option...