All,

how can, with the code below, have the f![Location] = Filename line to only 
run if everything else occured?

Function SaveAppItem()
Set f = Screen.ActiveForm

surl = f![Hyperlink]
Filename = "\\Bcp\bcp\cmcc\cmcdb\20080922_CMCDB2\Documents\CE\Appendix\" & 
f![UpdateNum] & ".pdf"

'With CreateObject("Wscript.Shell")
'Shell ("explorer.exe Filename")
Sleep (3000)
Dim oIExplorer: Set oIExplorer = CreateObject("InternetExplorer.Application")
oIExplorer.Navigate surl
oIExplorer.Visible = True
Sleep (3000)
Do: Loop Until oIExplorer.ReadyState = READYSTATE_COMPLETE
Sleep (2000)
'AppActivate ("InternetExplorer.Application")
'WshShell.AppActivate ("InternetExplorer.Application")

Sendkeys "+^{s}", True
Sleep (2000)
Sendkeys (Filename), True
Sleep (2000)
Sendkeys "{Enter}", True
Sleep (3000)

oIExplorer.Quit
f![Location] = Filename ' this event as long as everything occured
DoCmd.RunCommand (acCmdSaveRecord)

End Function

Hi tighe,
I think you can try inserting a doevents commands before the f![Location] = 
Filename line so

....all your function
Sleep (2000)
Sendkeys "{Enter}", True
Sleep (3000)

oIExplorer.Quit
doevents
f![Location] = Filename ' this event as long as everything occured
DoCmd.RunCommand (acCmdSaveRecord)

End Function

HTH Paolo

"tighe" wrote:

> All,
> 
> how can, with the code below, have the f![Location] = Filename line to only 
> run if everything else occured?
> 
> Function SaveAppItem()
> Set f = Screen.ActiveForm
> 
> surl = f![Hyperlink]
> Filename = "\\Bcp\bcp\cmcc\cmcdb\20080922_CMCDB2\Documents\CE\Appendix\" & 
> f![UpdateNum] & ".pdf"
> 
> 'With CreateObject("Wscript.Shell")
> 'Shell ("explorer.exe Filename")
> Sleep (3000)
> Dim oIExplorer: Set oIExplorer = CreateObject("InternetExplorer.Application")
> oIExplorer.Navigate surl
> oIExplorer.Visible = True
> Sleep (3000)
> Do: Loop Until oIExplorer.ReadyState = READYSTATE_COMPLETE
> Sleep (2000)
> 'AppActivate ("InternetExplorer.Application")
> 'WshShell.AppActivate ("InternetExplorer.Application")
> 
> Sendkeys "+^{s}", True
> Sleep (2000)
> Sendkeys (Filename), True
> Sleep (2000)
> Sendkeys "{Enter}", True
> Sleep (3000)
> 
> oIExplorer.Quit
> f![Location] = Filename ' this event as long as everything occured
> DoCmd.RunCommand (acCmdSaveRecord)
> 
> End Function

paolo,

thank you.  i also decided to check the file that is suppoosed to be created 
and have a msg box depending on results.

"Paolo" wrote:

> Hi tighe,
> I think you can try inserting a doevents commands before the f![Location] = 
> Filename line so
> 
> ...all your function
> Sleep (2000)
> Sendkeys "{Enter}", True
> Sleep (3000)
> 
> oIExplorer.Quit
> doevents
> f![Location] = Filename ' this event as long as everything occured
> DoCmd.RunCommand (acCmdSaveRecord)
> 
> End Function
> 
> HTH Paolo
> 
> "tighe" wrote:
> 
> > All,
> > 
> > how can, with the code below, have the f![Location] = Filename line to only 
> > run if everything else occured?
> > 
> > Function SaveAppItem()
> > Set f = Screen.ActiveForm
> > 
> > surl = f![Hyperlink]
> > Filename = "\\Bcp\bcp\cmcc\cmcdb\20080922_CMCDB2\Documents\CE\Appendix\" & 
> > f![UpdateNum] & ".pdf"
> > 
> > 'With CreateObject("Wscript.Shell")
> > 'Shell ("explorer.exe Filename")
> > Sleep (3000)
> > Dim oIExplorer: Set oIExplorer = CreateObject("InternetExplorer.Application")
> > oIExplorer.Navigate surl
> > oIExplorer.Visible = True
> > Sleep (3000)
> > Do: Loop Until oIExplorer.ReadyState = READYSTATE_COMPLETE
> > Sleep (2000)
> > 'AppActivate ("InternetExplorer.Application")
> > 'WshShell.AppActivate ("InternetExplorer.Application")
> > 
> > Sendkeys "+^{s}", True
> > Sleep (2000)
> > Sendkeys (Filename), True
> > Sleep (2000)
> > Sendkeys "{Enter}", True
> > Sleep (3000)
> > 
> > oIExplorer.Quit
> > f![Location] = Filename ' this event as long as everything occured
> > DoCmd.RunCommand (acCmdSaveRecord)
> > 
> > End Function