Solved

WshShell.SendKeys "{F5}"

Posted on 2010-11-11
8
2,397 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
  • 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
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 

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

Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
How Can I Grab This Information off a PDF Form 23 48
Migrating Macro Menu’s From Access 2003 to Access 2013 2 31
Create macro from runcode 30 26
Dcount help 2 12
Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

770 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