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...
TomTom,
Scrap the common dialog control and go with the API from Dev Asish Access Web on <http://www.MVPS.org/access>
It's simple, standard and requires no controls, you can slip it into a module and call it from wherever passing headers, file types, etc etc...
Troyston
Troy Vinson
Trading...
Hi,
I'm trying to use access to plan project activities using the theory of predecessors and successors I have the following tables:
Milestones
Predecessors
Successors
SuccessorSteps
SuccessorSteps provides a mechanism to store the criteria used to step from a milestone to it's successor and...
As a rough guide 10 used to be a realistic number of users, however, feelings may have changed.
Troy Vinson
Trading as IT Supportman
http://www.itsupportman.co.uk
I had a demo from 3M in Bristol, UK the system was called a Howie and the screen contans the complete PC system so it's really slick to use at the point os sale. The screen was running in 30 mins from arrival and there were no special requirements at all it just worked exactly as it was...
Try closing the form with the AcSaveNo or AcSaveYes option and see how that changes things.
Sometimes this can happen when the form is based on a multi table query and the recordset type needs to be set to Dynaset(inconsistent updates).
Give it a whirl
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.