Recent content by NimbusSoftware

Use the Format$ function to get the number to look the way you want. Format$(X,"#,##")

My project has a listview with 5 columns. My data will have groups and subgroups like a treeview. I'd like to use space and the Unicode characters ChrW(&H2514), ChrW(&H251c), ChrW(&H2502). Does anyone know some code that can produce something like the attachement? Thanks! :)

I found my problem. I would set the form's recordset property to Snapshot which forced only one user to gain access to the db.

(cough cough) i don't any more (cough cough) That was the offical Micro$suck code.

Different event Try using the OnEnter event.

yep Never tried that. Let's do an experiment. str="abcdefgh" Mid(str,len(str)/2,len(str)/4) The helpless file says: Mid(string, start[, length]) Therefore the above experssion would produce "de" (len(str)/2 for the starting character and len(str)/4 for the number of characters to return) :D

Error explained-edited You will receive an error if you apply Left$, Mid$, Right$ or Trim$ on a field that is null.

Len() question Len() is the length of the string. So if you want the all but 5 characters from the left side of a string but don't know the length of the string you can use: str="abcdefgh" Left(str, len(str)-5) -> "abc" btw, right("abcdefgh",0) yields an empty string because your returning...

You'll also receive an error when: str="asdfgf" Len(str)=6 Left(str,len(str)-9)= ERROR because len(str)-9 is a negative number.

SELECT Max(Table1.NextServiceDate) AS NextServiceDate FROM Table1;

Error explained If you use Left$, Mid$, Right$ or Trim$ as a function in a query you will receive a Data type mismatch error if the a field is null. The $ in the function dictates that a string is returned. If you use Left, Mid, Right or Trim a variant is returned and you won't recieve the error.

The answer to all your questions is in this box... Assumptions: Page1 is named "General", PageIndex 0 Page2 is named "Piping", PageIndex 1 Private Sub cmdPrintModule_Click() Select Case Tab1 ' or Tab1.Value -- It defaults to .Value anyway. Case 0 PrintGeneral Case 1...

Is this a good strategy? Public Function SQL_Action(strSQL As String, Optional fWS As Boolean = False) As Boolean On Error GoTo ErrorHandler Dim db As Database Dim sngStart As Single Dim wrk As Workspace Screen.MousePointer = 11 Try: Set db = CurrentDb If fWS Then Set wrk =...

Ah-HA! Someone had terminated their fe incorrectly. May be they just turned off their computer. In any case there was still a table or query "open". Moving the be to a new directory or disk will clear this. :D

Does anyone know how Access can search a fe .mdb's/.mde's directory for the be .mdb's/.mde's and then automatically link to the be's tables?