Для c = 1 к rs7.Fields.count - 1 '
Если rs7.RecordCount > 0 после этого
strCurrTxt = ""
strCurrTxt = rs7.Fields (c) 'не нужно первое поле не используют b-1
MsgBox «1: » & strCurrTxt
strCurrTxt = заменяет ть (strCurrTxt, «&»,» и «, 1)
MsgBox «2: » & strCurrTxt
'Если InStr, то (1, strCurrTxt, «&") > 0 после этого
'msgbox «instring»
'strCurrTxt = заменяет ть (strCurrTxt, «&»,» и «, 1)
'Закончитесь если
rs8.AddNew
rs8! Экспорт = strCurrTxt
rs8.Update
MsgBox «3: » & rs8! Экспорт
rs8.Bookmark = rs8.LastModified
Еще
strCurrTxt = «НИКАКОЙ ТЕКСТ НАШЛО»
msgbox «пролом и проверка»
Закончитесь если
'rs7.MoveNext
Следующий c
|