powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Присоединение фокс про - непонятная кодировка
1 сообщений из 26, страница 2 из 2
Присоединение фокс про - непонятная кодировка
    #32471297
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо IgorM за совет dbf ломается прекрасно вот что вышло
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
модуль mdb

Type Swop 'нужен Put и  Get (или Чук и Гек)
    Delta As String * 29
    MyStr As Byte
End Type


событие кнопки

Dim MyRecord As Swop
Dim Fref As Long
Dim MyFile As String
Fref = FreeFile
On Error GoTo no_file
MyFile = Nz(P_File, " ") ' P_File - поле с именем файла
If Len(Dir(MyFile)) >  0  Then
Open MyFile For Random As Fref Len = Len(MyRecord)
Get Fref,  1 , MyRecord
  If (MyRecord.MyStr <>  101 ) Then
   MyRecord.MyStr =  101 
   Put Fref,  1 , MyRecord
  End If
Get Fref,  1 , MyRecord
If (MyRecord.MyStr <>  101 ) Then MsgBox ( "облом" )
Close Fref
                 Else
                 MsgBox ( "А файлик тютю" )
End If
Exit Sub
no_file:         MsgBox ( "А файлик тютю" )
End Sub
...
Рейтинг: 0 / 0
1 сообщений из 26, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Присоединение фокс про - непонятная кодировка
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]