Dim rst As DAO.Recordset
Dim ExFile As String, result
Dim Byt() As Byte, i As Long, FileNumber
Set rst = CurrentDb.OpenRecordset("Select * from izmchert where izmchert.code=" & 2 & ";")
' çàãðóçèì êàðòèíêè èç òàáëèöû

Set rst = CurrentDb.OpenRecordset("Select * from pic where pic.codei=" & 2 & ";")
            If IsExistFile("I:\PDM\TEMP\olddr.jpg") = True Then
               Kill ("I:\PDM\TEMP\olddr.jpg")
            End If
            Byt = rst!pic01
            FileNumber = FreeFile    ' Get unused file number.
            Open "I:\PDM\TEMP\olddr.jpg" For Binary Access Write As #FileNumber
            Put #FileNumber, , Byt  ' Output text.
            Close #FileNumber    ' Close file.
Me!oldp.Picture = LoadPicture("I:\PDM\TEMP\olddr.jpg")
Kill ("I:\PDM\TEMP\olddr.jpg")
            Byt = rst!pic02
            FileNumber = FreeFile    ' Get unused file number.
            Open "I:\PDM\TEMP\olddr.jpg" For Binary Access Write As #FileNumber
            Put #FileNumber, , Byt  ' Output text.
            Close #FileNumber    ' Close file.
Me!newp.Picture = LoadPicture("I:\PDM\TEMP\olddr.jpg")
Kill ("I:\PDM\TEMP\olddr.jpg")
End Sub

With Application.FileDialog(1)
    With .Filters
        .Clear
        .add "Pic files Only (*.jpg)", "*.jpg", 1
    End With
    .Title = "Çàãðóçèòü èçîáðàæåíèå ÑÒÀËÎ"
'    .InitialFileName = "d:\"
    .AllowMultiSelect = False
    result = .Show
    If result <> 0 Then
        ExFile = Trim(.SelectedItems.Item(1))
        Me!oldp.Visible = True
        Me!newp.Visible = True
        Me!comm.top = 287
        Me!comm.Height = 128
    End If
    
End With
        If Len(ExFile) = 0 Then
            Exit Sub
        End If
            i = file_size(ExFile) - 1
                ReDim Byt(i)
            FileNumber = FreeFile    ' Get unused file number.
            Open ExFile For Binary Access Read As #FileNumber
            Get #FileNumber, , Byt  ' Output text.
            Close #FileNumber    ' Close file.
rs.Close
rs.Open ("select * from PIC where pic.codei=" & Me!codiz & ";"), conndb, adOpenDynamic, adLockOptimistic
If rs.EOF = False Then
    rs.MoveFirst
    With rs
        !pic02 = Byt
        .Update
    End With
Else
    With rs
    .AddNew
        !pic02 = Byt
        !codei = Me!codiz
    .Update
    End With
End If

Set img = Application.SysCmd(712, Me.Рисунок8)