ник: osmor
я ничего не понял
конструкция
UPDATE 1 SET 1." & nh & "=" & "'" & fd & "'" & ";"
|
при выполнении заменит значение поля nh на fd во всех записях таблицы 1....
т.е. во всех записях таблицы в этом поле будет ОДИНАКОВОЕ ЗНАЧЕНИЕ
ну в общем, если я правильно понял задачу, то должно быть что-то такое:
dim fld as dao.field
dim rs as dao.recordset
dim sql as string
dim i as integer
dim rpls(1,1) as string ' массив для пар замены
rpls(0,0) = "_" '- что заменяем
rpls(1,0) = "i" '- НА что заменяем
rpls(0,1) = "?" '- что заменяем
rpls(1,1) = "i" '- НА что заменяем
Set rs = CurrentDb.OpenRecordset("select * from 1")
For each fld to rs.Fields
for i = 0 to UBound(rpls, 2)
currentdb.execute "UPDATE 1 SET " & fld.name & " = replace97([" & fld.name & "],'" & rfd(0,i) & "','" & rfd(1,i) & "');"
next i
next
rs.Close
|
Проверить естественно не могу, могут быть опечатки