Attach files to a record, FileDialog

[MikeGeitner]

Hello,

I'm trying to use the FileDialog property to allow a user to select one or more files to "attach" to a record in a database. The paths to the files would be stored in a table. So far, I can select files and concatenate them in a string. How would you go about storing these file paths in a table? I think there would usually be one file that would need to be attached, but could be up to six or more, I don't know for sure. Would you need them each in their own field?

Thanks,

Mike

Code, which you'll recognize from the help file:

Private Sub cmdAdd_Click()

    Dim fd As FileDialog
    Dim vrtSelectedItem As Variant
    Dim strAttach As String
        
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd

         If .Show = -1 Then

            For Each vrtSelectedItem In .SelectedItems
        
              strAttach = strAttach & "," & vrtSelectedItem
              
            Next vrtSelectedItem
            
             MsgBox (strAttach)
    
        Else
        End If
    End With

    Set fd = Nothing

End Sub

 

[TheAceMan1]

How are ya MikeGeitner . . .

Although I've never used [blue]FileDialog[/blue] before (always used a windows API for this), I believe I can help.
[ol][li]You only need [blue]one additional field[/blue] in the table to hold the results of the concatenated files per record.[/li]
[li]You break the concatenation apart into and array for selection using the [purple]Split[/purple] function.

[blue]   Ary = Split(Me![b][i]ConcatenatedFieldName[/i][/b], ",")[/blue]

[/li]
[li]Properly concatenate with the following:

[blue]   Dim fd As FileDialog, File As Variant, [purple][b]Build[/b][/purple] As String
   
   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
   With fd
      If .Show Then
         For Each File In .SelectedItems
            If [purple][b]Build[/b][/purple] = "" Then
               [purple][b]Build[/b][/purple] = File
            Else
               [purple][b]Build[/b][/purple] = [purple][b]Build[/b][/purple] & "," & File
            End If
         Next
      End If
   End With
   
   If Trim(Build) <> "" Then Me![b][i]TextboxName[/i][/b] = [purple][b]Build[/b][/purple]
   
   Set fd = Nothing[/blue]

[/li][/ol]
[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

 

[MikeGeitner]

AceMan,

Thanks!
I see how your code properly concatenates the files when more than one is selected, and how it doesn't leave a comma within if there's only one selected ( I'm going to file that one away). But, my very limited experience has shown itself with this array thingy. I'm going to study this further, after a good night's sleep, and get back to you tomorrow. I'll have plenty more questions on this then.

Talk to you soon,

Mike

 

[TheAceMan1]

MikeGeitner . . .

Don't think about asking us for code [blue]think about the results of want you want[/blue] and explain that instead! . . .

See Ya! . . . . . .

 

[TheAceMan1]

BTW . . . learn to take advantage of [blue]context sensitive help[/blue] . . . in any VBE window . . . put the cursor on a word (or type the word and put the cursor on it) and [blue]hit F1[/blue] . . .

See Ya! . . . . . .

 

[MikeGeitner]

Understood. I don't want anybody to give me the code, and I'm no stranger to the F1 key.

 

[TheAceMan1]

MikeGeitner . . .

Just trying to make it easier for us to provide any code snippets!

See Ya! . . . . . .

 

[MikeGeitner]

AceMan,are you implying that I want you to give me code snippets? Really, I don't want anybody to do this for me, I'm just trying to get my head around the problem. Your advice to 'think about the results you want' brought me right back to where I should've started.....planning. I'll figure it out.

Thank you.

Sincerely,

Mike