как правильно оформить запрос

[D_e_n_n]

sql = "select t.ndog_pl, t.name_pok, o.num_sf||sk.post_num_sf as num_sf, o.vid_real," _
& "substr(sg_pech_debet.doc_name(o.ko d_dog,0,0),0,50)||' № '||t.ndog_pl||' от '||to_char(t.datdog_pl,'dd.MM.yyyy' )||'г.' as dog," _
& "t.adr_pok, t.inn_pl, t.kpp_pl, o.opl," _
& "nvl((select nal from sr_opl_nal n where n.kod_opl=o.kod_opl),0) as nal," _
& "decode(op.tax, 0, to_char(null), substr(sg_pech_debet.get_tax_for_sf _opl(o.kod_opl,null,0),0,30)) as nds," _
& "o.dat_opl,o.num_opl,substr(sg_pech _sf.get_name_t_opl(0,o.kod_opl,to_n umber(null)),0,240)as name_t" _
& "from sr_opl_text t, sr_opl o, sk_vid_real sk, sk_vid_real_opl op, sr_opl_bank ban, kr_dogovor dog" _
& "where o.kod_opl = t.kod_opl" _
& "and o.ym=2010.09" _
& "and o.num_sf is not null" _
& "and o.vid_real=sk.vid_real" _
& "and o.vid_real=op.vid_real" _
& "AND o.kod_link=ban.kod_link" _
& "AND ban.kodp=dog.kodp" _
& "and o.vid_real=2" _
& "and t.dep=15235"

соединяюсь с помощью vba с ораклом, но выдает ошибку после открытия запроса

[shanemac51]

не люблю строк -продолжений  и строк шире экрана
dim s1
s1=""
s1=s1 & "select t.ndog_pl"
s1=s1 & " t.name_pok"
s1=s1 & " o.num_sf||sk.post_num_sf as num_sf"
s1=s1 & " o.vid_real," 
s1=s1 & " substr(sg_pech_debet.doc_name(o.ko d_dog,0,0),0,50)||' ? '||t.ndog_pl||' io '||to_char(t.datdog_pl,'dd.MM.yyyy' )||'a.' as dog," 
s1=s1 & " t.adr_pok"
s1=s1 & " t.inn_pl"
s1=s1 & " t.kpp_pl"
s1=s1 & " o.opl," 
s1=s1 & " nvl((select nal from sr_opl_nal n where n.kod_opl=o.kod_opl),0) as nal," 
s1=s1 & " decode(
s1=s1 & " op.tax, 0, to_char(null)"
s1=s1 & " substr(sg_pech_debet.get_tax_for_sf opl(o.kod_opl,null,0),0,30)) as nds," 
s1=s1 & " o.dat_opl"
s1=s1 & " o.num_opl"
s1=s1 & " substr(sg_pech sf.get_name_t_opl(0,o.kod_opl,to_n umber(null)),0,240)as name_t" 
'''''''''''''''''''''''''''''
s1=s1 & " from sr_opl_text t"
s1=s1 & "      sr_opl o"
s1=s1 & "      sk_vid_real sk"
s1=s1 & "      sk_vid_real_opl op"
s1=s1 & "      sr_opl_bank ban"
s1=s1 & "      kr_dogovor dog" 
'''''''''''''''''''''''''''''
s1=s1 & " where o.kod_opl = t.kod_opl" 
s1=s1 & " and o.ym=2010.09" 
s1=s1 & " and o.num_sf is not null" 
s1=s1 & " and o.vid_real=sk.vid_real" 
s1=s1 & " and o.vid_real=op.vid_real" 
s1=s1 & " AND o.kod_link=ban.kod_link" 
s1=s1 & " AND ban.kodp=dog.kodp" 
s1=s1 & " and o.vid_real=2" 
s1=s1 & " and t.dep=15235" 

некоторые используют схему с запятой вначале....дело вкуса
главное --пробел не забыть, чтобы не слились строки
dim s1
s1=""
s1=s1 & "select t.ndog_pl"
s1=s1 & " ,t.name_pok"
s1=s1 & " ,o.num_sf||sk.post_num_sf as num_sf"

имею постоянный запрос ZZ для поиска ошибок
а2003-а2007
currentdb.querydefs("zz").sql=s1

при ошибке вызываю его отдельно для поиска ошибки

[D_e_n_n]

имею постоянный запрос ZZ для поиска ошибок
а2003-а2007
currentdb.querydefs("zz").sql=s1

при ошибке вызываю его отдельно для поиска ошибки


это как?

а так код и не проходит, выдает ошибку

[D_e_n_n]

sql monitor помог