ник: час
чтение происходит так...
Private Sub chtenie(strFile As String)
Dim StrTec As String, k
StrTec = " "
Open strFile For Binary Access Read As #1
For k = 1 To Val(Me.Поле7)
Get #1, k, StrTec
Me.Поле5 = Me.Поле5 & StrTec
StrTec = " "
Next k
Close #1
End Sub
|
но почему вместо русских символов Me.Поле5 =абра кадабра
href="Р?ммунология.files/style.css
|
приходится каждую страницу вновь открывать и сохранять в другой кодировке.
тада все нормальна.
дурдомммммммм.