Solved

MS Access Filedialog Multiselect to Subform Add New Record Help!

Posted on 2016-10-27
10
36 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
  • 5
  • 5
10 Comments
 
LVL 49

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 49

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
 

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 49

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
Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 

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 49

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 49

Expert Comment

by:Gustav Brock
ID: 41867604
You are welcome!

/gustav
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

705 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now