Загрузка изображения из директории. Не работает в 64-битном Офисе.

Пятница, 09 Марта 2018 г. 11:40 + в цитатник

Приветствую всех! Нужна ваша помощь! На Киберфоруме нашел код загрузки изображений из директории http://www.cyberforum.ru/ms-access/thread1871730.html. Работает хорошо на 32-битном Офисе. На 64 работать не хочет, выдает сообщение. Что надо изменить, что бы работало и в 32 и в 64?
Сам код следующий:

Private Sub PictuereUPD()
' Загрузка изображения в обьект Picture : Me!Im_Picture
'--------------------------------------------------------------------
Dim pd As clsPictureData
Dim strPath As String
 
On Error GoTo PictuereUPD_Err
    
    Set pd = New clsPictureData
    
    If Not IsNull(Me!txtFileName) Then
        ' Получаем полный путь
        strPath = CurrentProject.Path & "" & Me!txtFileName
        ' вписываем Полный путь в поле (чисто для наглядности)
        Me!txtFilePath = strPath
        ' Загрузка
        If pd.Load(strPath, Me!Im_Picture) Then
           If Not Me!Im_Picture.Visible Then Me!Im_Picture.Visible = True
        Else
           If Me!Im_Picture.Visible Then Me!Im_Picture.Visible = False
        End If
    Else 'Не указано или новая запись
        Me!txtFilePath = Null
        Me!Im_Picture.Visible = False
    End If
 
PictuereUPD_Bye:
    Set pd = Nothing
    Exit Sub
 
PictuereUPD_Err:
    MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure PictuereUPD", vbCritical, "Error!"
    Resume PictuereUPD_Bye
End Sub
 
Private Sub cmdUPD_Click()
'Кнопка "Обновить!" (изображение)
    PictuereUPD
End Sub
 
Private Sub Form_Current()
'Переход на тек запись
    PictuereUPD
End Sub