Recent content by devnull69

No

Try to use the common control "ListView". It contains the functionality you need. You will have to set a reference to mscomctl.ocx first (i.e. Microsoft Windows Common Controls 6.0).

You will have to search for a form with the correct name in all your loaded forms like this: Dim i As Integer For i = 0 To Forms.Count - 1 If Forms(i).Name = StringFormName Then Forms(i).Show End If Next i For this you have to make SURE that all needed forms are previously...

Try this: Restore Database DataBaseName From File = 'FileName' With Recovery After this the database is online and consistent again although you might have lost some data.

You speak of "Microsoft's Round Function" ... but there is NO single consistent Round Function in different Microsoft VB/VBA products. As I pointed out before, Access97/VBA always gives 1.13 and VB6 or even Access2000 gives 1.12 ... that's a real pity, espacially when you think of...

It's even worse ... you tested the function with Access2000 and it gives 1.12 in either way (query or VBA). So that's consistent to my VB6 Enterprise. But Access97 gives 1.13, so you will have to take good care when upgrading your application from Office97 to Office2000

Hi there, as far as you didn't already know: The use of the function ROUND is essentially different in both VB and VBA. VB's round function performs the rounding mathematically, VBA performs it mercantilistic. Example: VB : Round(1.125,2) = 1.12 !! VB : Round(1.126,2) = 1.13 VB ...

Hi there, as far as you didn't already know: The use of the function ROUND is essentially different in both VB and VBA. VB's round function performs the rounding mathematically, VBA performs it mercantilistic. Example: VB : Round(1.125,2) = 1.12 !! VB : Round(1.126,2) = 1.13 VB ...

1) A sub is a normal procedure 2) A function is a procedure with a result ... like Result = MyFunction(Parameter1, Parameter2) 3) Private and public keywords are used to mark a sub or a function as private to its scope or as public respectively. For example if you put a private function into a...

I think for doing this you need to put the whole SQL-String together manually like this (Access-DAO): Dim SQLString As String Dim qd As QueryDef Dim db As Database Dim rs As Recordset 'First check for multiple values If InStr(Variable, ",") > 0 Then SQLString = "SELECT xyz...