Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Sub XDocument_OnSaveRequest(eventObj) ' Write the code to be run before saving here.
Dim GMSRef GMSRef = XDocument.DOM.selectSingleNode("//my:myFields/my:txtSave").text If XDocument.IsNew = True or eventObj.IsSaveAs = False then If eventObj.IsSaveAs = True then XDocument.UI.SetSaveAsDialogLocation("O:\Firmaet\Evaluering") XDocument.UI.SetSaveAsDialogFileName(GMSRef) End If eventObj.IsCancelled = eventObj.PerformSaveOperation() eventObj.ReturnStatus = true Else XDocument.UI.Alert("The 'Save As' functionality is disabled for forms that are not new.") End If End Sub
/Christian ck@officekonsulenterne.dk
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.