随笔分类 -  Domino Notesにつぃて

摘要:① ボタンのクリック事件:Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc =ws.CurrentDocument content = uidoc.Fie... 阅读全文
posted @ 2014-08-07 13:00 塔斯曼 阅读(181) 评论(0) 推荐(0)
摘要:→ 阅读全文
posted @ 2014-07-23 10:39 塔斯曼 阅读(158) 评论(0) 推荐(0)
摘要:加一个中间文书存储doc: If Not udoc Is Nothing Then Dim askme As Integer askme = ws.Prompt (PROMPT_YESNO, _ "クリアの確認", "既にデータがあります、先月のデータを直接削除しますか?手操作で削除しますか?") ... 阅读全文
posted @ 2014-06-27 14:23 塔斯曼 阅读(174) 评论(0) 推荐(0)
摘要:message并不能达到想要的目的: If Not udoc Is Nothing Then 'MessageBox "既にデータがあります、先月のデータを削除してください。",MB_OK,"クリア確認" If MessageBox("既にデータがあります、先月のデータを削除しますか?", _ ... 阅读全文
posted @ 2014-06-27 13:53 塔斯曼 阅读(260) 评论(0) 推荐(0)