InfoPath Dev

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?

K

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

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")

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