Recent content by Troyston

What't the error? Check tools/references and look down the list for those with missing and remove them. Troy Vinson Trading as IT Supportman http://www.itsupportman.co.uk

Maj Michael Dan, Between the posts I think now that the depth first recursive approach will enable me to step from milesotne to milestone and determine the duration of the step based on the task and peripheral definition criteria. Although I'm not sure how I will do this at the moment. I'll...

set rst = openrecordset (QueryResults) with rst .movelast .movefirst do while not.eof strsql="Update OtherTable " & _ "Set Field = " & !QueryResultsField & " & _ "where Field = " & SomeOtherValue & ";" .movenext loop end with rst.close Troy Vinson Trading as IT...

Try inserting empty spaces into the target fields in the template, even though you don't want them populated, or even a "Character" so that you can see if the blank fields are wiped cos they don't exist in the source. Checkboxes may stay becasue there is a default false value. Troyston Troy...

That release thing is a pain and Roy is right, it's best to close everything you can think of even if it wasn't open in the first place. I use this at the end of most sub just for compelteness really: Set dbs = DBEngine(0)(0) For Each r In dbs.Recordsets r.Close...

Get a table and put the object names in it and run through it exporting the objects one at a time. Sounds too simple? Troy Vinson Trading as IT Supportman http://www.itsupportman.co.uk

There are 2 close me's, not sure if you need the first one. About unidentifiable fatal errors: Try checking that all required references are in place, from memory this can be fatal. Alternatively, the fatal error could be elsewhere? Troyston Troy Vinson Trading as IT Supportman...

MajP, I've got the predecessor/successor thing sorted and I additionaly use milestone tempaltes since there are around 2000 plans fitting into a discrete number of summary templates. Historically the method was iterative hard coded: Do MS1 events, criteria, durations Do MS2 events...

strSQL is a String type variable: Copy and paste this then take a look. Private Sub txtNomSiteToFind_Change() Dim strNomSiteToFind As String Me.Refresh txtNomSiteToFind.SetFocus strNomSiteToFind = txtNomSiteToFind.Text strSQL = "SELECT Site, VCR, RptTag AS Tag " & _...

Check this snippet out, it's very recent: '---The location and file name for the artemis data feed is stored in the SysDefaults table strArtSchLoc = tLookup("SysDefaultValue", "SYS_Defaults", "SysDefaultName='ArtSchLoc'") strArtSchName = tLookup("SysDefaultValue", "SYS_Defaults"...

OK, I get the first milesotne MS1 (no predecessors) then I can get the successors MS1.1...MS1.n When I know the successosr I join the IDs to locate valid steps between the milestones: ID Criteria Step 001-002 Category = GF 10 days 001-002 Category = RT 20 days 001-003 Category...

Try simplifying it by using some ad hoc SQL to define the list box content: strSQL = "SELECT Field1 AS F1, Field2 AS F2 FROM Table WHERE Criteria;" ListBox.RowSource= strSQL If you need a few things that aren't from a table, the a UNION query can offer a facility for that. Look it up on...

No Problem, I always try to answer a few questions when I'm fishing for an answer myself. :) Troy Vinson Trading as IT Supportman http://www.itsupportman.co.uk

Why not, that's where it gets the rows from. put something like: if nz(.recordcount,0) > 0 then do some stuff call the function etc populate the list box else do something else or nothing endif Troyston Troy Vinson Trading as IT Supportman http://www.itsupportman.co.uk

Make up some rows in a table to store the reports definitions, headers, titles, footers, captions etc then use a coding system to identify each report and have a text box in each report containing the code. Instead of using labels use lookups to populate the report header, footer, titles...