Access 2007 file picker, replaces all rows with the same choice.
Posted
by SqlStruggle
on Stack Overflow
See other posts from Stack Overflow
or by SqlStruggle
Published on 2010-04-29T07:43:33Z
Indexed on
2010/04/29
7:47 UTC
Read the original article
Hit count: 349
This code is from an Access 2007 project I've been struggling with. The actual mean part is the part where I should put something like "update only current form"
DoCmd.RunSQL "Update Korut Set [PikkuKuva]=('" & varFile & "') ;"
Could someone please help me with this?` If I use it now, it updates all the tables with the same file picked.
Heres the whole code.
' This requires a reference to the Microsoft Office 11.0 Object Library.
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Dim filePath As String
' Set up the File dialog box.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow the user to make multiple selections in the dialog box.
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Valitse Tiedosto"
' Clear out the current filters, and then add your own.
.Filters.Clear
.Filters.Add "All Files", "*.*"
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
' Loop through each file that is selected and then add it to the list box.
For Each varFile In .SelectedItems
DoCmd.SetWarnings True
DoCmd.RunSQL "Update Korut Set [PikkuKuva]=('" & varFile & "') ;"
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
© Stack Overflow or respective owner