Recent content by rich.barry

Here is the code for creating the dependency tree..... It works well for me. If you don't want to use the 'Type', you could replace it with arrays in the Sub instead. Public Type jobListType Position As String Level As Integer ObjectName As String End Type Sub QueryDependencies()...

MarkK - that's a great bit of SQL to have ! I had previously iterated through the QueryDefs and written them to a table, but your SQL presents it in a much a nicer format that shouldn't be too hard to turn into a tree. Thanks for the help.

Is anyone aware of an add in or code to display the entire structure of a query that has multiple levels of dependency, e.g. Query 1 uses Query 2 which uses Queries 3, 4 and 5, each of which use further queries and/or tables ? I want to see the paths from Query 1 through all the source queries...

Hello I just thought up something useful I thought I'd share, given my previous method was rather complicated. When wanting to Subtotal for each change in a field in a Query, e.g. [Field1] = Apples, Apples, Apples, Oranges, Apples, Apples, Bananas having a discrete subtotal for the first...

C&R did not fix anything. What I had were a number of query defs for controls on forms that had been deleted a long time ago. C&R had been carried out multiple times since the form had been deleted, but the query defs that weren't linked to anything still existed. To get rid of the query def...

Unfortunately compact and repair doesn't clean up this rather persistant rubbish. The ~ items include the form listboxes, combo boxes etc with SQL for the RowSource, so most of them are quite relevant. It appears that to get rid of the ones that shouldn't be present, I have to re-create the...

Hello I have a bit of code (below) that writes my QueryDefs to a table so that after any changes to object names, I can search the querydefs to check if there are any places referencing the old object name that I need to update. For C = 0 To CurrentDb.QueryDefs.Count - 1 With...

Just to complete the answer to this, in case someone ends up at this thread via a search in the future, .Axes(2,2) allows you to set the the properties of the secondary Y axis.

Hello I am using an XY MSGraph 8 control where I am setting axis scales via VB using: gphVeneerStock.Object.Application.Chart.Axes(1).MaximumScale = value .Axes(1) works for x axis and .Axes(2) for y axis I can't seem to find out how to address the secondary Y axis. Does anyone out there...

Very good guessing Missinglinq Yes to all of Access 2003, SP3 and tables formatted with >. Removing the formatting didn't help, but the hotfix has sorted the problem out. Thanks for your help. Rich

Hello We've just encountered an odd problem with a database that has worked fine for years. Following the move to a new server, I re-linked the frontend to the new back end location, and now find that the majority of combo boxes refuse to display the contents of the queries on which they are...

A while back I wrote a procedure to carry out sub totals within Access similar to the function available in Excel. I might as well share it here, and others can hack it around to fit their own needs. Here's an example of the sort of thing I'm using it for. A production system writes time...

If the data in your field is to wide to fit the column width in the list box, there is no way that I am aware of to make the row in your list box more than one line deep to contain it. The widths for your columns within the list box are set in the Column Widths field. Seperate them with a semi...

Thanks Guys. I had endlessly messed around with SetFocus, which did set the focus where it was told, but still would not respond to the mouse. However opening the form with as a Dialog box is something that I had overlooked, does work, and is going to enable me to move a certain amount of...

Often I use Labels as buttons due to the fact I can colour them the way I want, and use the on click event to trigger code. The code below however works for a command button, but not a label button. DoCmd.OpenForm "frmdatetime" Do While Forms!frmdatetime!OKFlag.Caption = "False" DoEvents...