how can I loop commandbuttons?

M

mark r

CommandButton:
opensquery1offhold
Msgbox to abort
If vbNo
prints report for results of query1offhold
Msgbox to abort
If vbNo
openquery2 onhold,acnorm,acEdit


Now I want to loopback to the top.......how?
 
O

Ofer

How many times do you want to loop back to the top, and why?
=================================================
You can use something like

Dim I As Integer
For I = 1 to 5 ' will loop 5 times
opensquery1offhold
Msgbox to abort
If vbNo
prints report for results of query1offhold
Msgbox to abort
If vbNo
openquery2 onhold,acnorm,acEdit
Next I
 
Top