Browse option and sving folder path

  • Thread starter Thread starter PsyberFox
  • Start date Start date
P

PsyberFox

Hi there,

I want a user to select a path from a pop-up and then this folder location
should be saved in a table. Can someone please assist with the last part as
I'm not sure how to update a record from information supplied via a form.

Here is the code thusfar but the last option obviously doesn't work as it
should:

Private Sub cmd_FileLocation_Click()

On Error Resume Next

Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFolderPicker)
f.Show
MsgBox ("You have selected: ") & f.SelectedItems(1)

DoCmd.OpenTable "tbl_XSetup_files"
[tbl_XSetup_Files].[FileLocation].Value = f.SelectedItems(1)

End Sub

Thank you kindly!
W
 
Private Sub cmd_FileLocation_Click()

On Error Resume Next

Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFolderPicker)
f.Show
MsgBox ("You have selected: ") & f.SelectedItems(1)

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tbl_XSetup_files SET FileLocation = '" &
f.SelectedItems(1) & "'"
DoCmd.SetWarnings True

End Sub
 
THANK YOU BOTH!!!

RonaldoOneNil said:
Private Sub cmd_FileLocation_Click()

On Error Resume Next

Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFolderPicker)
f.Show
MsgBox ("You have selected: ") & f.SelectedItems(1)

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tbl_XSetup_files SET FileLocation = '" &
f.SelectedItems(1) & "'"
DoCmd.SetWarnings True

End Sub

PsyberFox said:
Hi there,

I want a user to select a path from a pop-up and then this folder location
should be saved in a table. Can someone please assist with the last part as
I'm not sure how to update a record from information supplied via a form.

Here is the code thusfar but the last option obviously doesn't work as it
should:

Private Sub cmd_FileLocation_Click()

On Error Resume Next

Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFolderPicker)
f.Show
MsgBox ("You have selected: ") & f.SelectedItems(1)

DoCmd.OpenTable "tbl_XSetup_files"
[tbl_XSetup_Files].[FileLocation].Value = f.SelectedItems(1)

End Sub

Thank you kindly!
W
Click to expand...
Click to expand...
 
Back
Top