By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Function IsUIDocSaved ( uidoc As notesUIdocument ) As Integer ' boolean Const uidocSaveErr = 4411 Const msgNotSaved = "The document was not saved due to insufficient supplied data." Const msgSaved = "The current document is saved." On Error Resume Next Call uidoc.Save If Err <> 0 Then If Err = uidocSaveErr Then ' saving uidoc is not completed by querysave event for validation purposes. ' which in turn will give the appropriate message Print msgNotSaved Else Msgbox "Unexpected error: " & Chr$(10) & _ "Error No.: " & Err & " " & "Line: " & Erl & " " & Error$ & Chr$(10) & "In Module: " & "IsUIDocSaved" End If Err = 0 Else IsUIDocSaved = True Print msgSaved End If End Function