ник: debilder
Я в таблице в каждом поле делаю автозамену некоторых символов. Как мне учесть в моём случае, то что в таблице может быть несколько записей. т.е. делать автозамену в одной строке а потом перейти в другую? Заранее благодарен.
Set rs = CurrentDb.OpenRecordset("select * from 1;")
If rs.RecordCount = 0 Then GoTo EX3
rs.MoveLast
rs.MoveFirst
For j = 0 To rs.RecordCount - 1
For i = 0 To rs.Fields.Count - 1
If IsNull(rs.Fields(i)) = True Then
Else
nh = rs.Fields(i).NAME
fd = Replace97(rs.Fields(i), "_", "i")
ss = "UPDATE 1 SET 1." & nh & "=" & "'" & fd & "'" & ";"
CurrentDb.Execute ss
fd = Replace97(rs.Fields(i), "?", "i")
ss = "UPDATE 1 SET1." & nh & "=" & "'" & fd & "'" & ";"
CurrentDb.Execute ss
End If
Next i
rs.MoveNext
Next j
EX3:
rs.Close