Access在窗體中動(dòng)態(tài)添加記錄對(duì)應(yīng)的圖片

前面講過《Access按記錄動(dòng)態(tài)顯示圖片》。我們可以選擇不同的記錄顯示相關(guān)的不同照片。

既然圖片可以顯示，那么如何在窗體中添加圖片呢？

這里我們顯示圖片的方式是通過讀取圖片的路徑，找到表中記錄對(duì)應(yīng)的圖片信息。

所以添加圖片，我們只需要把圖片從一個(gè)路徑復(fù)制到另外的一個(gè)顯示圖片的路徑即可。

在《Access彈出文件選擇對(duì)話框讓用戶選擇圖片或照片》一文中提及到如何用對(duì)話框選擇圖片。

自定義文件選擇對(duì)話框函數(shù)

Function GetFileName(ByVal DialogType As Integer) As String
    
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(DialogType)
    With dlgOpen
        .AllowMultiSelect = True
        .Title = "添加圖片"
        .Filters.Clear
        .Filters.Add "圖片文件", "*.jpg;*.png"
        .Show
        
        
    End With
    If dlgOpen.SelectedItems.Count > 0 Then
        GetFileName = dlgOpen.SelectedItems(1)
    Else
        GetFileName = ""
    End If
    Set dlgOpen = Nothing
End Function

在窗體中調(diào)用該函數(shù)，使用FileCopy 函數(shù)復(fù)制選中的文件到顯示圖片的文件夾內(nèi)

Private Sub Command2_Click()
     FileCopy GetFileName(1), CurrentProject.Path & "\pic" & Me.subform.Form.toolname & ".jpg"
End Sub

選中子窗體的記錄，運(yùn)行操作按鈕。打開文件選擇對(duì)話框，選擇需要的圖片。按確定

即可在指定的記錄對(duì)應(yīng)相應(yīng)的圖片