VBA/Excel/Access/Word/Application/Application Events — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
Содержание
Using the AdvancedSearchComplete Event and the AdvancedSearchStopped Event
<source lang="vb">
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
MsgBox "The search has finished running and found " & _ SearchObject.Results.Count & " results.", vbOKOnly + vbInformation, _ "Advanced Search Complete Event"
End Sub
</source>
Using the ItemSend Event
<source lang="vb">
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then MsgBox "Please add a subject line to this message." Cancel = True End If
End Sub
</source>
Using the Quit Event
<source lang="vb">
Sub Application_Quit()
Dim strMessage As String Select Case Format(Date, "MM/DD/YYYY") Case "01/13/2006" strMessage = "Next Monday is Martin Luther King Day." Case "02/17/2006" strMessage = "Next Monday is Presidents Day." Case "05/26/2006" strMessage = "Next Monday is Memorial Day." Case "06/30/2006" strMessage = "Next Tuesday is Independence Day." & _ " Monday is a company holiday." Case "09/01/2006" strMessage = "Next Monday is Labor Day." "other National Holidays here End Select MsgBox strMessage, vbOKCancel + vbExclamation, "Don"t Forget..."
End Sub
</source>
Using the Startup Event
<source lang="vb">
Sub Application_Startup()
Dim myNoteItem As NoteItem Set myNoteItem = Application.CreateItem(ItemType:=olNoteItem) myNoteItem.Body = "Please start a new time card for the day." myNoteItem.Display
End Sub
</source>