WshShell.SendKeys "{F5}"

I have a MS Access database with the following code in the on-click event of a button, I am trying to see how I can insert a WshShell.SendKeys "{F5}" so that the dialog file on the list is automatically updated with the latest information uploaded on the SharePoint Site. I haven't been able to figure out how to do this in my existing form
'needs reference to microsoft office 12.0 object library
   Dim MyFilePath As String
   Dim MyFileDialog As Office.FileDialog
   Dim MyfileDFilter As Office.FileDialogFilter
   Dim strPath As String

   Set MyFileDialog = Application.FileDialog(msoFileDialogFilePicker)

   strPath = "http://teamsites......." '<<<<The SharePoint Site

   With MyFileDialog
      .Title = "Select Pic"
      .Filters.Clear
      .Filters.Add "Image Files", "*.jpg, *.bmp, *.gif"
      
      .FilterIndex = 2
      
      .ButtonName = "Select"
      .InitialView = msoFileDialogViewDetails
      .InitialFileName = strPath
      If .Show = -1 Then
         MyFilePath = CStr(MyFileDialog.SelectedItems.Item(1))
      Else
        
      End If
   End With
Me.txtFilePath = MyFilePath

Open in new window

joeserroneAsked:
Who is Participating?
 
YohanFConnect With a Mentor Commented:
why dont you just use SendKeys "{F5}" or use Refresh function ?
0
 
joeserroneAuthor Commented:
I tried placing WshShell.SendKeys "{F5}" and also me.refresh on line 8 of my code but didn't work, do you have any ideas how my code would look like?
0
 
YohanFCommented:
Does the dialog file open from the initial folder location you have given, it should be automatically refreshed without having to explicitly do it.. Or am I understanding the problem wrong?
0
Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

 
joeserroneAuthor Commented:
I thought that too but it doesn't refresh it, I have to manually press F5 in order to refresh it
0
 
YohanFCommented:
So when you press the F5 key does that get refreshed???

Also check whether there is a caching mechanism in your network, that could be a problem causer...

what about DoCmd.RunCommand acCmdRefresh command ?? also insert that just before "If .Show = -1 Then" line....

Hope this will work for you..

0
 
Jeffrey CoachmanMIS LiasonCommented:
I don't see {F5} anywhere in the code you posted?

Can you post the code where you tried it and it did not work?
0
 
joeserroneAuthor Commented:
I tried the "DoCmd.RunCommand acCmdRefresh " option but didn't work, to answer Boag2000 question... attached is the code I tried to run using the {F5} option
'needs reference to microsoft office 12.0 object library
   Dim MyFilePath As String
   Dim MyFileDialog As Office.FileDialog
   Dim MyfileDFilter As Office.FileDialogFilter
   Dim strPath As String

   Set MyFileDialog = Application.FileDialog(msoFileDialogFilePicker)
WshShell.SendKeys "{F5}" 
   strPath = "http://teamsites......." '<<<<The SharePoint Site

   With MyFileDialog
      .Title = "Select Pic"
      .Filters.Clear
      .Filters.Add "Image Files", "*.jpg, *.bmp, *.gif"
      
      .FilterIndex = 2
      
      .ButtonName = "Select"
      .InitialView = msoFileDialogViewDetails
      .InitialFileName = strPath
      If .Show = -1 Then
         MyFilePath = CStr(MyFileDialog.SelectedItems.Item(1))
      Else
        
      End If
   End With
Me.txtFilePath = MyFilePath

Open in new window

0
 
joeserroneAuthor Commented:
This advice is good but I can't get it to work on my code
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.