Search results

<I tested your code for 100 times instead of 10 million and deleted the round function to see the exact time.> There was no "Round" function, timeGetTime records in milliseconds and I rounded it. <And who writes a code to call a form for a thousand times and how much 0 and 0.007 seconds makes a...

But I wanted to know and running the test a handful of times showed no result.

1) I need to isolate numbers where the integer value is different to the double value, I.e. 123 <> 123.1. 2) store the integer values in a table. 3) delete any numbers that occur more than once. I.e 123.1, 123.2,123.3 stored as 123, 123, 123 would be deleted. 4) The final table will be used in a...

<You have a bit of an apples and oranges comparison. Why not keep it the same in both tests?> If you run two test with the same data / procedure one would surely expect to get the same result, making the second test somewhat redundant. The whole purpose of the test was to see the difference in...

I've been a bit curious about the time taken for various ways of calling a sub / function where a particular form is involved. I've tested this over 10000000 iterations with the results below. In the first test I passed the form name as "Me" Private Sub timeTest() Dim nNum As Long...

Thanks for the suggestion Mark. It works a treat. John

Makes a lot of sense. I'll give it a try. Thank you.

I have code, below, on a single form that resizes a control if the text is longer than the control width, when the control has focus. Is it possible to do the same thing on a continuous form? All I can do so far is highlight the entire column. Public Sub newSize(str As String) Dim cTop...

With the exception of "0" which signifies no data entry even though we have an image of the specimen, all other txtaccno numbers are unique. The table behind this form is built from data extracted from 12,000 odd raw files and a similar number of jpg images for the express purpose of...

Hi MajP. I am unable to open your db as Microsoft has blocked it for some ridiculous reason about macro's and with no way of letting the file run.. You have, however, made me realise that it is doing exactly what it was meant to do, highlight a row where txtaccno is 0.

I'm not quite sure but I think yes and no but not necessarily in that order. The backcolor is a light grey, rgb(231,230,230)and the controls are rgb(255,255,255) Here is the form and a section of the table. Much of the functionality of the form relies on code in modules but you will get the...

I made this form some years ago and have no idea how I set the condition. When I selected the first two columns there was a condition thatt I removed and that fixed column2. There is no code on the form to do this. The conditions on the other columns are set using conditional formatting and I...

In the form below, I have manage to set the format of a row where the accession number is 0 to this yukky green. How do I undo this. I have tried highlighting the columns with "Ctrl" in the layout view and was able to fix the "JPG Image" column but can't go any further. There are separate...

That was it. Thank you. John

Once again I thank you for your response. I had the statements all there, just didn't think to put them in a function and call that from a query. John

try these.

Yes, but how does that happen? There are no controls on the form and the screen shots are from design to open with nothing in between.

I have a very simple little form with two buttons. The little button is the home of the progress bar. The trouble is the size of this form seems to be controlled by the size of the frame in design view. Regardless of the size I make the form. it displays as the size of the design frame. See the...

I have a continuous form where the field "Notes" is reliant on the results of a few tests done on other fields. All of the test need to be done on each record as the form loads. These tests include checking for no data in a field, dcount a list for duplicate entries and comparing the entries in...

My original code was missing the "HAVING" clause and this was causing it not to run but was also creating no error message. My original code. Public Function getCollSearch() As String sQry = "SELECT herbarium_collection.Collector " & _ "FROM Herbarium_Collection " & _...