Execute Query with VBA

Question

Hi all,
I want to do the following in my workbook.
For a = 1 to 3
   select case a
      case 1:
          Callback "ZMSPMSM01_5011'
      case 2:
          Callback "ZMSPMSM01_5012'
      case 3:
          Callback "ZMSPMSM01_5013'
   end select
   zFormat
Next a
I have custom code zFormat that applies custom formatting to the queries. That works.
The only problem is that I want to run query 1, apply the formatting, print. Then run query 2, apply the formatting, print, and so forth.
It currently works when I use the buttons, but I want to iterate through my queries without the necessity of buttons.
Please help.
Regards,
Johann
Ps. Points will definitely be awarded.

Answer 1

Hi Kame,
Execute_Query not work with non database block. To do this Make a cursor and then assign values to non database block's items programmatically, see following example,
DECLARE
BEGIN
     FOR i IN (SELECT col1, col2 FROM Table) LOOP
            :block.item1 := i.col1;
            :block.item2 := i.col2;
            NEXT_RECORD;
     END LOOP;
END;
Please mark if it help you or correct
Regards,
Danish