Hi guys,

I am trying to do my first macro in Access. I would like to perform one SQL statement using for ... next statement several times. Please help me to convert SQL statement to VB. I was reading the mailings to RunSQL theme, but I was not successful in converting my SQL.

Thanks, Boris

SELECT [311 uhradené neuhradené FA_table].SUMA, [311 uhradené neuhradené FA_table].ROZD, [311 uhradené neuhradené FA_table].IDMD, [311 uhradené neuhradené FA_table].SKRATKA, [311 uhradené neuhradené FA_table].FIRMA, [311 uhradené neuhradené FA_table].VYST, [311 uhradené neuhradené FA_table].SPLAT, [311 uhradené neuhradené FA_table].UHRADA, DATUM_Od.DATUM AS od, DATUM_Do.DATUM AS do, IIf([UHRADA]<=[do],[UHRADA]-[SPLAT],[do]-[SPLAT]) AS DNI, IIf([DNI]>=0 And [DNI]<=15,0,0)+IIf([DNI]>=16 And [DNI]<=30,1,0)+IIf([DNI]>=31 And [DNI]<=60,2,0)+IIf([DNI]>=61 And [DNI]<=90,3,0)+IIf([DNI]>=91 And [DNI]<=180,4,0)+IIf([DNI]>=181 And [DNI]<=365,5,0)+IIf([DNI]>=366,6,0)+IIf([DNI]>=-15 And [DNI]<=-1,-1,0)+IIf([DNI]>=-30 And [DNI]<=-16,-2,0)+IIf([DNI]>=-60 And [DNI]<=-31,-3,0)+IIf([DNI]>=-90 And [DNI]<=-61,-4,0)+IIf([DNI]>=-180 And [DNI]<=-91,-5,0)+IIf([DNI]>=-365 And [DNI]<=-181,-6,0)+IIf([DNI]<=-366,-7,0) AS KOD, IIf([ROZD] Is Null And [UHRADA]<=[do],"ANO","NIE") AS [UHR?], IIf([DNI]<=0,"ANO","NIE") AS [DOLEH?], [311 uhradené neuhradené FA_table].TYP, [311 uhradené neuhradené FA_table].vyst_w, [311 uhradené neuhradené FA_table].vyst_m, [311 uhradené neuhradené FA_table].vyst_y, [311 uhradené neuhradené FA_table].uhr_w, [311 uhradené neuhradené FA_table].uhr_m, [311 uhradené neuhradené FA_table].uhr_y
FROM [311 uhradené neuhradené FA_table], DATUM_Od, DATUM_Do
WHERE ((([311 uhradené neuhradené FA_table].VYST)>=datum_od.datum And ([311 uhradené neuhradené FA_table].VYST)<=datum_do.datum));