Показать папку файла

Private Sub AddPicture_Click()
    ' Для выбора файла с фотографией сотрудника используется
    ' стандартное окно открытия файла Office.
    getFileName
End Sub
Private Sub ImagePath_Click()
 
End Sub
 
 
 
Private Sub Form_RecordExit(Cancel As Integer)
    ' При переходе между записями надпись errormsg скрывается,
    ' чтобы ненужного избежать мелькания.
    ErrorMsg.Visible = False
End Sub
 
Private Sub ImageFrame_Click()
 
End Sub
 
Private Sub RemovePicture_Click()
    ' Очищает строку имени файла для записи сотрудника
    ' и выводит надпись errormsg.
    Me![ImagePath] = ""
    hideImageFrame
    ErrorMsg.Visible = True
End Sub
 
 
 
Private Sub ImagePath_AfterUpdate()
    ' Отображает выбранную фотографию сотрудника.
    On Error Resume Next
        showErrorMessage
        showImageFrame
        If (IsRelative(Me!ImagePath) = True) Then
            Me![ImageFrame].Picture = path & Me![ImagePath]
        Else
            Me![ImageFrame].Picture = Me![ImagePath]
        End If
End Sub
 
Private Sub Form_Current()
    ' Если для записи текущего сотрудника имеется фотография,
    ' она отображается в форме. Если указанный файл не существует,
    ' либо если для текущего сотрудника поле имени файла пусто,
    ' надпись errormsg выводит соответствующее сообщение.
    Dim res As Boolean
    Dim fName As String
    
    path = CurrentProject.path
    On Error Resume Next
        ErrorMsg.Visible = False
        If Not IsNull(Me![Фотография]) Then
            res = IsRelative(Me![Фотография])
            fName = Me![ImagePath]
            If (res = True) Then
                fName = path & "" & fName
            End If
            
            Me![ImageFrame].Picture = fName
            showImageFrame
            Me.PaintPalette = Me![ImageFrame].ObjectPalette
            If (Me![ImageFrame].Picture <> fName) Then
                hideImageFrame
                ErrorMsg.Caption = "Сурат ёфт нашуд"
                ErrorMsg.Visible = True
            End If
        Else
            hideImageFrame
            ErrorMsg.Caption = "Барои дохил намудани сурат тугмачаи  ""Интихоби расм""-ро пахш намоед"
            ErrorMsg.Visible = True
        End If
  
    
 
End Sub
 
 
Sub getFileName()
    ' Для выбора имени файла с фотографией текущего сотрудника
    ' используется стандартное окно открытия файла Office.
    ' Если пользователь указывает файл, его содержимое
    ' отображается в элементе управления ImageFrame.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выбор фотографии сотрудника"
        .Filters.Add "Все файлы", "*.*"
        .Filters.Add "JPEG", "*.jpg"
        .Filters.Add "Рисунки", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![ImagePath].Visible = True
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
            Me![Имя].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub
 
Sub showErrorMessage()
    ' Выводит сообщение errormsg, если файл фотографии недоступен.
    If Not IsNull(Me![Фотография]) Then
        ErrorMsg.Visible = False
    Else
        ErrorMsg.Visible = True
    End If
End Sub
 
Function IsRelative(fName As String) As Boolean
    ' Возвращает значение false, если имя файла включает
    ' имя диска или путь UNC.
    IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "") = 0)
End Function
 
Sub hideImageFrame()
    ' Скрывает элемент управления с фотографией.
    Me![ImageFrame].Visible = False
End Sub
 
Sub showImageFrame()
    ' Выводит элемент управления с фотографией.
    Me![ImageFrame].Visible = True
End Sub
 
Private Sub ЗаголовокФормы_Click()
 
End Sub
 
Private Sub Надпись6_Click()
 
End Sub
 
Private Sub ОбластьДанных_Click()
 
End Sub