2013年11月19日 星期二

[AP] 基本code

'//基本code

Sub Click(Source As Button)
On Error Goto errorhandler
Dim ss As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim bok As Variant

Set db = ss.CurrentDatabase
Call ws.OpenFrameSet("SP.FSSubPage001")


Errorhandler:
Print "error line = "  + Cstr(Erl) + ", error = " + Error$
Exit Sub
End Sub

沒有留言:

張貼留言