Solved

WshShell.SendKeys "{F5}"

Posted on 2010-11-11
8
2,506 Views
Last Modified: 2012-05-10
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

0
Comment
Question by:joeserrone
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
8 Comments
 
LVL 6

Accepted Solution

by:
YohanF earned 500 total points
ID: 34111179
why dont you just use SendKeys "{F5}" or use Refresh function ?
0
 

Author Comment

by:joeserrone
ID: 34111211
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
 
LVL 6

Expert Comment

by:YohanF
ID: 34111309
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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:joeserrone
ID: 34111495
I thought that too but it doesn't refresh it, I have to manually press F5 in order to refresh it
0
 
LVL 6

Expert Comment

by:YohanF
ID: 34111657
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
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 34114854
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
 

Author Comment

by:joeserrone
ID: 34120227
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
 

Author Closing Comment

by:joeserrone
ID: 34148676
This advice is good but I can't get it to work on my code
0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
Suggested Courses
Course of the Month7 days, 20 hours left to enroll

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question