Search results

I've got a work around for colouring the active label. It meant renaming the labels to "lbl" and the field names they're attached to, so the field "Access:" has a label "lblAccess" etc. The string going to the sub "Setindex" has " Desc" attached on the double click, so "Access Desc". That takes...

Thanks Doc_man. The double click speed seems to be ok for textboxes and labels so I don't think that's the problem but it's worth a try to speed it up a bit. The limiting factor might be my old fingers can't move fast enough!

Not a bad idea but I have 13 columns that need to be individually indexed ascending or descending depending on requirements. Any column can be indexed and it controls what happens in the other columns so it's not as simple as a checkbox as I would need one for each column. I'll continue to...

I'll have a look at that, it's a good idea. Funny that the double click works ok on the labels and on text boxes. Thank you. John

I have a series of command buttons, set up with the code below , to index a column ascending with a single click or descending with a double click. Using command buttons allows me to change the colour of the active button and enhance the form's appearance. Problem is the command buttons are...

This was for an Access db but a long time ago. someone from this forum wrote two queries. The first did the count and then was use as a data source for the second. Unfortunately I do not have copies any more. From what I know now, the second query may well have been an append query. John

Hi Mark. Not quite. The entries in error are still part of the table. I have solved the problem by using four queries; The first copies all accession numbers that have a dot point and appends both the double and integer values to a temp table. Next group and count the instances of each integer...

It's a bit complicated and specific to the data with which I am working. In plant collection, each collected specimen has an accession number. eg 123 If more than one specimen is taken from the same plant at the same time they then become 123.1 and 123.2 etc. There can be no duplicated accession...

<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...