Form freezes

[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.

 

[Marshall Barton]

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.

Try using Me.Repaint before each DLookup line.

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