Can you help??

[The Member]

Is it possible to split a Access VBA programme to run 2 sets of codes in the same time. so that one will be the worker (display information) and one be the manager - ish ( constantly acknowedge the user's input and pass it to the Worker).

think of the following situation...

I have an interface (Form) and have some controls on it. Every time the user press something the code will run and do a disirable action, say run a report.

It seems okay if the user only want to do one thing, but say if the user want to do more then one thing, say 2 reports, he/she would have to wait the first one open and then go back to the interface and do the second. If a user is to have a few task with the DB he/she would have to sit down for quite a long time for it to load one by one...

If the above mentioned paralell code can be created, we can then have the user continously input the info, go away for a coffee and then 5 minutes later the "worker" get all the info displaied on screen.

I know that one can create a code to do check box and then a list of action but my question remain the same it is that if we can have code such that one part of it serve as information recieve / sorting and another serve as the "wroker"... the two part go paralell in code.

and if it is, would "step into" have 2 page... each F8 will make 2 actions?

thanks for your insight.

JL

 

[DJN]

You could put the reports in a list box and make the multi select property simple.

 

[The Member]

Dude, that was not what I asked, as indicated I know that option.... I need to know if, well, Access VBA codes can be splited to handle multi-tasking. and if so how. thanks nonetheless.

 

[Fornatian]

I'd do it something like this, if I'm reading your question right..

''COLLECT RESPONSES HERE''
Dim blnRep1 as Boolean
Dim blnRep2 as Boolean
etc...

If Msgbox("Open Rep1",vbYesNo) = vbYes then
blnRep1 = True
End If

If Msgbox("Open Rep2",vbYesNo) = vbYes then
blnRep2 = True
End If

etc... etc...

''Open the associated reports here''

If blnRep1 = True Then
Docmd.OpenReport "Rep1"
End If

If blnRep2 = True Then
Docmd.OpenReport "Rep2"
End If

etc.. etc...

Does that help?, DUDE

Ian