Файлы произвольного доступа

Public f As String
Private Type worker
code As String * 10
author As String * 10
named As String * 10
year As Integer
numberBookStand As Byte
numberBookShelf As Byte
End Type
 
 
Public Sub add()
Dim worker1 As worker
Dim m As Integer, putnomer As Byte
On Error GoTo Cancel
m = vbYes
Open f For Random As #1 Len = Len(worker1)
 Do While m = vbYes
       With worker1
        .code = InputBox("введите шифр", "шифр")
        .author = InputBox("введите автора", "автор")
        .named = InputBox("введите название ", "название")
        .year = InputBox("введите год издания", "год")
        .numberBookStand = InputBox("введите номер стеллажа", "номер стеллажа")
        .numberBookShelf = InputBox("введите номер полки", "номер полки")
       End With
       putnomer = putnomer + 1
       Put #1, putnomer, worker1
    m = MsgBox("Желаете добавить еще книгу?", vbQuestion + vbYesNo, "Продолжение")
 Loop
Close #1
Cancel:
If Err.Number = cdlCancel Then Exit Sub
End Sub

Public Sub view()
Dim alltext As String, putnomer As Byte
Open f For Random As #1
  With worker1
    alltext = ""
    Do While Not EOF(1)
        putnomer = putnomer + 1
        Get #1, putnomer, worker1
              alltext = alltext + .code + .author + .named + .year + .numberBookStand + .numberBookShelf + vbNewLine
    Loop
  End With
    frmView.TxtView = alltext
Close #1
End Sub