str_=me.recordsourse
if instr(str_, "where")<>0 then
str_sql=mid (str_, 1,instr(str_, "where")+5) & " " & Me.Filter & " and " & mid (str_, instr(str_, "where")+5))
else
if instr(str_, "order")<>0 then
str_sql=mid (str_, 1,instr(str_, "order")-1) & " where " & Me.Filter & " " & mid (str_, instr(str_, "order")))
else
str_sql=str_ & " where " & Me.Filter
end if
end if
|