MyTetra Share
Делитесь знаниями!
064. Открытие бинарного файла.
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - leadersoft.ru

Этот пример покажет Вам как управлять бинарными файлами из Access, метод нужен для обращения к файлам отличным от Access

Все примеры Microsoft Access
'==============================================================
' Создаем бинарный файл
Private Sub butWrite_Click()
Dim intFile As Integer
Dim myRec As AppRecord
    
    
'    Open Me.strPath For Binary Access Write As #intFile
'    Open Me.strPath For Random As #intFile Len = Len(myRec)
    intFile = FreeFile()
    Open Me.strPath For Binary As #intFile
    With myRec ' Создание записи
        .ID = 125
        .Name1 = "Мой телефон"
        .Phone1 = 92345678
        .Date1 = Date
    End With
    Put #intFile, 1, myRec ' Сохранение в файле
    ' Закрываем файл
    Close #intFile
    ' Отображение кнопки
    Form_Load
    ' Сообщение
    MsgBox "Бинарный файл " & Me.strPath & " создан!", vbExclamation, "www.leadersoft.ru"
End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования