Form freezes

  • Thread starter Thread starter fathi_abuayyash via AccessMonster.com
  • Start date Start date
F

fathi_abuayyash via AccessMonster.com

the logic is like that,
I have 4 queries, each query performs a diffirent calculation from different
tables
each query have been called using the example down.
''q1
sslt_trnsfin = Nz(DLookup("Total_trns_volume", "Q_trnsf_in"), 0)
slt_trnsfin = sslt_trnsfin
''q2
sslt_trnsfin2 = Nz(DLookup("Total_trns_volume2", "Q_trnsf_in2"), 0)
slt_trnsfin2 = sslt_trnsfin2
''q3
sslt_trnsfin3 = Nz(DLookup("Total_trns_volume3", "Q_trnsf_in3"), 0)
slt_trnsfin3= sslt_trnsfin3

and so on

i tried to put some text box within the form to make the form interactive
while user waiting for queries results and displaying the percentage
completed, but the form freezes until it finishes the 4 queries then display
the result of the text box. i tried to write code at the begining of the sub
or beteen the each statment, but it is the same. the form freezes until it
finishes.
 
fathi_abuayyash via AccessMonster.com said:
the logic is like that,
I have 4 queries, each query performs a diffirent calculation from different
tables
each query have been called using the example down.
''q1
sslt_trnsfin = Nz(DLookup("Total_trns_volume", "Q_trnsf_in"), 0)
slt_trnsfin = sslt_trnsfin
''q2
sslt_trnsfin2 = Nz(DLookup("Total_trns_volume2", "Q_trnsf_in2"), 0)
slt_trnsfin2 = sslt_trnsfin2
''q3
sslt_trnsfin3 = Nz(DLookup("Total_trns_volume3", "Q_trnsf_in3"), 0)
slt_trnsfin3= sslt_trnsfin3

and so on

i tried to put some text box within the form to make the form interactive
while user waiting for queries results and displaying the percentage
completed, but the form freezes until it finishes the 4 queries then display
the result of the text box. i tried to write code at the begining of the sub
or beteen the each statment, but it is the same. the form freezes until it
finishes.
Click to expand...

Try using Me.Repaint before each DLookup line.

If that doesn't do it, add a DoEvents statement.
 
Back
Top