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: 395
        
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