At times, you may want to animate the movements of the Office Assistant in
response to actions performed in your application. For example, you may
want to have the Assistant appear when you open a particular form. Or you
may want the Assistant to react when a certain event is triggered. This
article shows you how to do so.
NOTE: A demonstration of the techniques used in this article can be seen in the sample file, FrmSmp00.exe. For information about how to obtain
this sample file, please see the following article in the Microsoft
Knowledge Base:
233324�
Microsoft Access 2000 Sample Forms Database Available in Download Center
The following example creates three event procedures that control the
behavior of the Clippit Assistant. The first procedure selects
Clippit and makes the Assistant visible when the Employees form is
opened. The second procedure instructs Clippit to simulate listening
to the computer when a field is updated. The third procedure closes the
Assistant when the form is closed and resets some of the properties of the
Assistant.
CAUTION: If you follow the steps in this example, you modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and follow these steps on a copy of the database.
NOTE: This example assumes you have the Clippit Assistant (Clippit.acs)
installed on your computer. By default the Assistants are installed in
the C:\Program Files\Microsoft Office\Office folder.
Starting the Assistant
- Open the sample database Northwind.mdb.
- Open the Employees form in Design view.
- Set the OnOpen property of the form to the following event procedure.
NOTE: The following sample code requires that you have a reference to
the Microsoft Office 9.0 Object Library in your database. To create the
reference, open any module in Design view, click References on the
Tools menu, and then click the Microsoft Office 9.0 Object Library.
Private Sub Form_Open(Cancel As Integer)
With Assistant
.Filename = "Clippit.acs" ' Returns or sets the name of the
' active Office Assistant.
.Visible = True
.Animation = msoAnimationGreeting ' Simulates greeting user.
.Sounds = True
.SearchWhenProgramming = True
.FeatureTips = True
End With
End Sub
- On the File menu, click "Close and Return to Microsoft Access."
Changing the Movement of the Assistant
- Set the AfterUpdate property of the FirstName text box to the following
event procedure:
Private Sub FirstName_AfterUpdate()
With Assistant
.Animation = msoAnimationListensToComputer ' Animates
' Assistant.
End With
End Sub
- On the File menu, click "Close and Return to Microsoft Access."
Closing the Assistant When the Form Closes
- Set the OnClose property of the form to the following event procedure:
Private Sub Form_Close()
If Assistant.Visible = True Then
With Assistant
.AssistWithHelp = False
.SearchWhenProgramming = False
.GuessHelp = False
.FeatureTips = False
.Visible = False
End With
End If
End Sub
- On the File menu, click "Close and Return to Microsoft Access."
- Save the form, and then open it in Form view. Note that the Clippit
Assistant is displayed.
- Type a new name in the First Name field and press ENTER. Note that the
Clippit Assistant responds with "listening" animation.
- Close the form. Note that the Clippit Assistant closes.