Solved

MS Access Filedialog Multiselect to Subform Add New Record Help!

Posted on 2016-10-27
10
60 Views
Last Modified: 2016-10-31
I have a Filedialog that works great for single select but I need to be able to use multiselect. I click a add image button and on_click it calls to a Public Function AddLocalImagePath. That function then runs a series of commands to place the filepath name into a control on the subform.


I have been at this for hours and hours! What I have is below. Thank you!

AddLocalImagePath function in the subform sbfrmProductImages:

Public Function AddLocalImagePath() As Variant
Dim strImagePath As Variant

    strImagePath = ImagePathMulti
    
    
    If Me.NewRecord Then
         DoCmd.GoToControl "sbfrmProductImages"
         Me!ProductImageFileNm.Value = Dir$(strImagePath)
          
    Else
        DoCmd.GoToControl "sbfrmProductImages"
         DoCmd.GoToRecord , , acNewRec
       Me!ProductImageFileNm.Value = Dir$(strImagePath)
 End If

       
       Call ImageRequery
    
    
End Function

Open in new window



FileDialog in a module:

Public Function ImagePathMulti() As String
Dim fd As FileDialog
Dim FileChosen As Integer
Dim FileName As String
Dim I As Integer

Set fd = Application.FileDialog(msoFileDialogFilePicker)
'use the standard title and filters, but change the
'initial folder
fd.InitialFileName = "\\1-PC\Database\Images\"
fd.InitialView = msoFileDialogViewList
'allow multiple file selection
fd.AllowMultiSelect = True
FileChosen = fd.Show
If FileChosen <> -1 Then
Exit Function
Else
'open each of the files chosen
For I = 1 To fd.SelectedItems.Count
ImagePathMulti = fd.SelectedItems(I)
Next I
End If
End Function

Open in new window

0
Comment
Question by:Dustin Stanley
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 5
10 Comments
 
LVL 50

Accepted Solution

by:
Gustav Brock earned 500 total points
ID: 41863503
All you need is to insert the record:
Set rst = ' your recordset

' Open each of the files chosen.
For I = 1 To fd.SelectedItems.Count
    ImagePathMulti = fd.SelectedItems(I)
    If ImagePathMulti <> "" Then
        ' Insert record.
        rst.AddNew
            rst!ProductImageFileNm.Value = ImagePathMulti 
        rst.Update
    End If
Next

Open in new window

/gustav
0
 

Author Comment

by:Dustin Stanley
ID: 41865446
Thank you I tried this and it gave an error for type mismatch.

Option Compare Database
Option Explicit

Public Function ImagePathMulti() As String
Dim fd As FileDialog
Dim FileChosen As Integer
Dim FileName As String
Dim i As Integer
Dim rst As Recordset

Set fd = Application.FileDialog(msoFileDialogFilePicker)
'use the standard title and filters, but change the
'initial folder
fd.InitialFileName = "\\1-PC\Database\Images\"
fd.InitialView = msoFileDialogViewList
'allow multiple file selection
fd.AllowMultiSelect = True
FileChosen = fd.Show
If FileChosen <> -1 Then
Exit Function
Else
Set rst = Forms!frmSkusEntry!sbfrmProductImages.Form!ProductImageFileNm

' Open each of the files chosen.
For i = 1 To fd.SelectedItems.Count
    ImagePathMulti = fd.SelectedItems(i)
    If ImagePathMulti <> "" Then
        ' Insert record.
        rst.AddNew
            rst!ProductImageFileNm.value = ImagePathMulti
        rst.Update
    End If
Next
End If
End Function

Open in new window

0
 
LVL 50

Expert Comment

by:Gustav Brock
ID: 41865469
You must set rst to a recordset (or recordsetclone) and you can't use ImagePathMulti as variable name as it is the name of the function.

/gustav
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:Dustin Stanley
ID: 41865569
I changed imagePathMulti to a string but I am very confused on the setting the recordset. I dimmed rst as recordset. But if I set it to a table isn't this going to just add the records directly to the table instead of my subform? I need it to know which Mainform SkuID (Master/Child Link) the ProductImages go to. Sorry I'm just not getting it. Thanks for your help!
0
 
LVL 50

Assisted Solution

by:Gustav Brock
Gustav Brock earned 500 total points
ID: 41865660
You probably need this:

    Set rst = Me!sbfrmProductImages.Form.RecordsetClone

/gustav
0
 

Author Comment

by:Dustin Stanley
ID: 41867471
Thank you for your help! Seriously thank you!  I have gotten it to do multi select and insert file names only into the correct subform position correctly BUT it leaves SkuID control field blank in the Subform and it has to match the Main Forms SkuID control field in order for the image names to be synced with the right product. Again thank you!

In My main form frmSKUsEntry:
Private Sub btnAddImage_Click()
    Forms!frmSkusEntry!sbfrmProductImages.Form.AddLocalImagePath
End Sub

Open in new window



in my subform sbfrmProductImages:
Public Function AddLocalImagePath() As Variant
Dim strImagePath As String

    strImagePath = ImagePathMulti
    
    
    If Me.NewRecord Then
         DoCmd.GoToControl "sbfrmProductImages"
    Else
          DoCmd.GoToControl "sbfrmProductImages"
         DoCmd.GoToRecord , , acNewRec
 End If

       
       Call ImageRequery
    
    
End Function


Public Function ImagePathMulti() As String
Dim fd As FileDialog
Dim FileChosen As Integer
Dim FileName As String
Dim I As Integer
Dim rst As Recordset


Set fd = Application.FileDialog(msoFileDialogFilePicker)
'use the standard title and filters, but change the
'initial folder
fd.InitialFileName = "\\SURPIUS1-PC\OneDrive\SurpiusDatabase\Images"
fd.InitialView = msoFileDialogViewList
'allow multiple file selection
fd.AllowMultiSelect = True
FileChosen = fd.Show
If FileChosen <> -1 Then
Exit Function
Else
Set rst = Me.RecordsetClone
' Open each of the files chosen.
For I = 1 To fd.SelectedItems.Count
    ImagePathMulti = fd.SelectedItems(I)
    If ImagePathMulti <> "" Then
        ' Insert record.
        rst.AddNew
            rst!ProductImageFileNm.Value = Dir$(ImagePathMulti)
        rst.Update
    End If
Next
End If
End Function

Open in new window

0
 
LVL 50

Assisted Solution

by:Gustav Brock
Gustav Brock earned 500 total points
ID: 41867591
But can't you just set that field too? As:

        ' Insert record.
        rst.AddNew
            rst!ProductImageFileNm.Value = Dir$(ImagePathMulti)
            rst!SkuID.Value = ' your SkuID value here.
        rst.Update

/gustav
0
 

Author Comment

by:Dustin Stanley
ID: 41867599
But can't you just set that field too?
Yes if i had that knowledge and now I do. Thank you Gustav! JUST BRILLIANT!!!!!!!!!!!!!!!!!!!!!! Works perfect!!! This means a ton to me thanks so much!
0
 

Author Closing Comment

by:Dustin Stanley
ID: 41867600
Thank you!
0
 
LVL 50

Expert Comment

by:Gustav Brock
ID: 41867604
You are welcome!

/gustav
0

Featured Post

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database.  This article shows how to recreate this functionality in Windows 7 through 10.
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question