How to monitoring append query progress?

[Tintin via AccessMonster.com]

Hi All,

I am trying to show the append query progress of approx 50,000 data's into
T_3x3 at F_Progress.
I already put a lable call LbProgress at F_Progress.

For your info I am using code bellow to execute the append query, but it
dosn't work.

Function AppendQ_3x3()
Dim db As Database
Set db = CurrentDb()
Dim prm As Parameter
Dim qdf As QueryDef
Set qdf = db.QueryDefs("Q_3x3")
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)

Forms!F_Progress!LbProgress.Caption = dcount("ID","T_Progress","ID")
DoEvents

Next
qdf.Execute dbFailOnError
End Function

I am really desperate to solve this problem, please help me.

Thanks,
Tintin

 

[Douglas J. Steele]

What does "doesn't work" mean? Are you getting an error message? If so,
what's the error. If you're not getting an error, what's the symptom you're
seeing?

 

[Tintin via AccessMonster.com]

What does "doesn't work" mean? Are you getting an error message? If so,
what's the error. If you're not getting an error, what's the symptom you're
seeing?

Hi All,

[quoted text clipped - 26 lines]

Thanks,
Tintin

Dear Douglas J. Steele,

Thanks for your response.
There is no error message, it seems that the code was skipped or like there
is no code to show the progress that I want. Weird thogh......

Tintin

 

[Douglas J. Steele]

What does "doesn't work" mean? Are you getting an error message? If so,
what's the error. If you're not getting an error, what's the symptom
you're
seeing?

Hi All,

[quoted text clipped - 26 lines]

Thanks,
Tintin

Dear Douglas J. Steele,

Thanks for your response.
There is no error message, it seems that the code was skipped or like
there
is no code to show the progress that I want. Weird thogh......

I'm not really sure what you're expecting to see. All your code does is mark
the progress of setting the parameters of your query, something that should
happen almost instantaneously. As well, the caption pf LbProgress is being
set to the same thing in each iteration, so even if it didn't happen too
fast to see, it wouldn't be changing!

 

[Tintin via AccessMonster.com]

[quoted text clipped - 13 lines]

there
is no code to show the progress that I want. Weird thogh......

I'm not really sure what you're expecting to see. All your code does is mark
the progress of setting the parameters of your query, something that should
happen almost instantaneously. As well, the caption pf LbProgress is being
set to the same thing in each iteration, so even if it didn't happen too
fast to see, it wouldn't be changing!

Dear Douglas J. Steele,

I meant that LbProgress show nothing (blank). Do you have another idea how to
show progress of appendquery row by row?

Regards,
Tintin

 

[Douglas J. Steele]

What does "doesn't work" mean? Are you getting an error message? If so,
what's the error. If you're not getting an error, what's the symptom

[quoted text clipped - 13 lines]

there
is no code to show the progress that I want. Weird thogh......

I'm not really sure what you're expecting to see. All your code does is
mark
the progress of setting the parameters of your query, something that
should
happen almost instantaneously. As well, the caption pf LbProgress is being
set to the same thing in each iteration, so even if it didn't happen too
fast to see, it wouldn't be changing!

Dear Douglas J. Steele,

I meant that LbProgress show nothing (blank). Do you have another idea how
to
show progress of appendquery row by row?

You can't. No events are raised by the query, therefore there's no way to
display progress.

 

[Tintin via AccessMonster.com]

[quoted text clipped - 15 lines]

to
show progress of appendquery row by row?

You can't. No events are raised by the query, therefore there's no way to
display progress.

Dear Douglas J. Steele,

Thanks for your confirmation about monitoring appendquery progress.

Regards,
Tintin