Save as OnSelection.vbs in Scripts\Auto\
Code: Select all
Sub OnStartup
Script.RegisterEvent SDB, "OnChangedSelection","OnSelection"
End Sub
Sub OnSelection
SDB.MessageBox "Onselection Triggered", mtError, Array(mbOk)
End Sub
Code: Select all
Sub OnStartup
Script.RegisterEvent SDB, "OnChangedSelection","OnSelection"
End Sub
Sub OnSelection
SDB.MessageBox "Onselection Triggered", mtError, Array(mbOk)
End Sub
Code: Select all
LastExportDate = Cdbl(Now)