Recent content by Auntiejack56

With the text change, you have to make use of the MouseMove event for the button (to change the text), then the MouseMove event for the Detail section of the form (to change it back). Be careful to leave room around your button. If it is too close to another control or border, the MouseMove...

Hi, Solely for the sake of providing a range of examples, this is a button controlled series of subforms. It is all roll-your-own, and there are problems with that, the main one being that I am stuck with 5 buttons unless I rewrite a heap of stuff. On the plus side, the users wanted the big...

All great ideas for testing. As a former release manager, I note that the OP mentioned 'the moment of release', and confined the question to functional verification. So if I may, I'd add the following: consider running something like Access Detective to compare your new version against Prod...

Thanks, maybe worthwhile to take a closer look at VSTO. My hiccups are to do with deployment and possibly caching - I couldn't get some changes to appear in the pane after repeated rebuilds and restarts. Then I tried repeatedly refreshing and reloading the pane (which was showing the old...

Well, a year and more has gone by, and no-one has risen to this one. I've got the task pane working, and the Excel add-in is starting to do what I want, but there are still hiccups, and I need to know more about how the task panes deploy before I can take this further. Does anybody know of a...

Sorry, bug removal, and I should have been clearer that this includes both start and end dates, and if you want holidays then put 'em into a table. If you want to put date ranges for employee holidays into your holiday table (at the moment there is just a StartDate), there will be a chunk more...

where are all our mathematicians? Version with no explicit loop ... Function myNetWorkDays(dteStart As Date, dteEnd As Date) As Long Dim i As Long, dteSun1 As Date, dteSat1 As Date Dim nCountAllSaturdays As Long, nCountAllSundays As Long i = Weekday(dteStart) If i > 1 Then dteSun1 =...

Ah what a nightmare you are having, and of course in the end it will be something simple. The error you are seeing is often thrown by a query, when the field you are referring to does not exist in the query. The query will be the one your form is based on. Open the query by itself, and check...

I see you have Option Explicit, which is great, but you have to explicitly declare your variable, as follows: Dim gvar_Index Then use that in your filter: "txtIndex = " & gvar_Index txtIndex has to be in the query that the form FRM_test is bound to, otherwise boom. (You can lose the squared...

Post postscript: if you decide to go with using Conditional Formatting on a datasheet, you will find a fun thing - that is, that the same conditional format formula has to be applied to every column individually to make the whole row show the highlight colour. However, if you enter the formula...

Postscript: datasheets can look a bit amateurish because the data is usually bunched up to the left, leaving empty space. To fix this, you can automagically expand the columns to fit - go to the bluebridge website , click the knowledge base menu and select Autosizing Datasheets. The code...

Hiya, I wouldn't use a continuous form. Use a datasheet, and set the extreme left column to a hyperlinked record id which, when clicked, opens the record for editing. For an example of how this looks, go to www.bluebridge.com.au and play the video - at 1:49 you'll see that conditional formatting...

Hmm. The example I gave has 3 jobs (orders), with lines numbered (each starting from 1) in the Item Number column on the extreme right. Seems ok to me. Jack

You could also try something like this: And your SQL in qryItems to produce the ordered item numbers would be this: SELECT t.JobID, t.ItemID, t.ItemName, DCount("*","tblItems","JobID = " & [JobID] & " and ItemID<" & [ItemID])+1 AS ItemNumber FROM tblItems AS t ORDER BY t.JobID, t.ItemID...

I'm unsure about how promotional restrictions work in this forum; I've sent you a message with a few details.