Code

Re: Setting Save As default location with OnSaveRequest

Kear777 — Tue, 06 Dec 2011 14:48:57 GMT

Well that was stupid I didn't notice the typo on the If statement (evenObj).

If anyone's interested this is the complete code with a couple of extra lines so it does exactly what I want it to do.

Sub XDocument_OnSaveRequest(eventObj)
     ' Write the code to be run before saving here.
     If xdocument.view.name <> "Read Only" and xdocument.view.name <> "Unavailable" _
     and xdocument.view.name <> "Access Denied" then

          if eventObj.IsSaveAs = True then
               XDocument.UI.SetSaveAsDialogLocation("C:\")
               XDocument.UI.SetSaveAsDialogFileName("form1")
          End If

eventObj.IsCancelled = eventObj.PerformSaveOperation

     Else
          msgbox "You do not have permission to save this document.",vbOKOnly,"Save Failed"
     End If

     ' Write the code to be run after saving here.
     eventObj.ReturnStatus = True
End Sub

Re: Setting Save As default location with OnSaveRequest

Kear777 — Tue, 06 Dec 2011 13:54:28 GMT

Thanks for the response.

I don't think it's a case sensitivity issue. I should of mentioned before but it seems to be error seems to be comming from the two lines below

XDocument.UI.SetSaveAsDialogLocation("C:\")
XDocument.UI.SetSaveAsDialogFileName("form1")

Re: Setting Save As default location with OnSaveRequest

Jimmy — Tue, 06 Dec 2011 13:33:52 GMT

I suggest checking the capitalization on isCancelled, performsaveoperatoin, and returnstatus. I reckon those are case sensitive.

Setting Save As default location with OnSaveRequest

Kear777 — Tue, 06 Dec 2011 09:45:31 GMT

Morning all!

I am trying to create an OnSaveRequest event that sets the SaveAs default location. This is what I have so far.

Sub XDocument_OnSaveRequest(eventObj)
     If evenObj.IsSaveAs = True then
          XDocument.UI.SetSaveAsDialogLocation("C:\")
          XDocument.UI.SetSaveAsDialogFileName("form1")
     End If
     eventObj.isCancelled = eventObj.performsaveoperation()
     eventobj.returnstatus = true
End Sub

When trying to save I'm getting the following error

"The OnSaveRequest function returned a value indicating that the save failed"

Any ideas?