Solved

Problems with animating Assistant

Posted on 1997-12-16
5
265 Views
Last Modified: 2008-02-01
When Im trying to animate the Assistant in my code I have a line that says:

.Animation = msoAnimationGreeting

However, it says, "Error, Variable not defined"

What am I doing wrong???
0
Comment
Question by:threepio
  • 4
5 Comments
 
LVL 12

Accepted Solution

by:
Trygve earned 50 total points
ID: 1962706
It seems to me that microsoft has forgotten to declare the constants used in the example on how to animate the office assistants. I haven't been able to find the code anywhere.

Also be aware that all constants are not valid for all the assistants. Some of them can't do it all...


I have played around with the settings for the different Mso... constants: Here is my list. The constants I haven't
                   found any value for is set to 0. Try it if print msoAnimationGreeting in the debug window does not give a return
                   value.

                   Const msoAnimationAppear = 2
                   Const msoAnimationBeginSpeaking = 0
                   Const msoAnimationCharacterSuccessMajor = 6
                   Const msoAnimationCheckingSomething = 23
                   Const msoAnimationDisappear = 31
                   Const msoAnimationEmptyTrash = 116
                   Const msoAnimationGestureDown = 113
                   Const msoAnimationGestureLeft = 114
                   Const msoAnimationGestureRight = 19
                   Const msoAnimationGestureUp = 115
                   Const msoAnimationGetArtsy = 0
                   Const msoAnimationGetAttentionMajor = 0
                   Const msoAnimationGetAttentionMinor = 11
                   Const msoAnimationGetTechy = 0
                   Const msoAnimationGetWizardy = 26
                   Const msoAnimationGoodbye = 3 '?
                   Const msoAnimationGreeting = 0
                   Const msoAnimationIdle = 0
                   Const msoAnimationListensToComputer = 0
                   Const msoAnimationLookDown = 104
                   Const msoAnimationLookDownLeft = 105
                   Const msoAnimationLookDownRight = 106
                   Const msoAnimationLookLeft = 0
                   Const msoAnimationLookRight = 0
                   Const msoAnimationLookUp = 109
                   Const msoAnimationLookUpLeft = 110
                   Const msoAnimationLookUpRight = 111
                   Const msoAnimationPrinting = 0
                   Const msoAnimationSaving = 112
                   Const msoAnimationSearching = 103
                   Const msoAnimationSendingMail = 25
                   Const msoAnimationThinking = 0
                   Const msoAnimationWorkingAtSomething = 18 '?
                   Const msoAnimationWritingNotingSomething = 24 '?


                   Here is a little code I used for testing purposes:

                   With Assistant
                       .Reduced = False
                       .Move xLeft:=400, yTop:=300
                       .MoveWhenInTheWay = True
                       .Visible = True
                       .Animation = AssistantConstant
                   End With


Hope this helps!
Trygve
0
 

Author Comment

by:threepio
ID: 1962707
ok, so in your code where it says .Animation = AssistantConstant
I just insert the number?

And where do I declare them all?
0
 
LVL 12

Expert Comment

by:Trygve
ID: 1962708
You could use the numbers, but your code will be more readable if you use the constants.

Copy the constants list and place it in the declaration part of some module or form (preferably a declaration module so that the are available for the entire base)

And then in your code.

.Animation = msoAnimationEmptyTrash  ' or some of the others.

My favourite; the above constant for the Einstein assistant.
0
 
LVL 12

Expert Comment

by:Trygve
ID: 1962709
I have two icons on my desktop. They seem to be exact the same, uses the same installed Access, the same security file, but two different databases. In one of them, the constants are not defined and in the other I can use all the Access provided constants !!!

From the last one I have made an updated list of the constants. My first guess is left as a comment (just for fun). I will have a closer look on what makes the VBA constants not work and will come back to you if I figure it out.


Const msoAnimationAppear = 32 ' 2
Const msoAnimationBeginSpeaking = 4 ' 0
Const msoAnimationCharacterSuccessMajor = 6
Const msoAnimationCheckingSomething = 103 ' 23
Const msoAnimationDisappear = 31
Const msoAnimationEmptyTrash = 116
Const msoAnimationGestureDown = 113
Const msoAnimationGestureLeft = 114
Const msoAnimationGestureRight = 19
Const msoAnimationGestureUp = 115
Const msoAnimationGetArtsy = 100 ' 0
Const msoAnimationGetAttentionMajor = 11 ' 0
Const msoAnimationGetAttentionMinor = 12 '
Const msoAnimationGetTechy = 101 ' 0
Const msoAnimationGetWizardy = 102 ' 26
Const msoAnimationGoodbye = 3
Const msoAnimationGreeting = 2 ' 0
Const msoAnimationIdle = 1 ' 0
Const msoAnimationListensToComputer = 26 ' 0
Const msoAnimationLookDown = 104
Const msoAnimationLookDownLeft = 105
Const msoAnimationLookDownRight = 106
Const msoAnimationLookLeft = 107 ' 0
Const msoAnimationLookRight = 108 ' 0
Const msoAnimationLookUp = 109
Const msoAnimationLookUpLeft = 110
Const msoAnimationLookUpRight = 111
Const msoAnimationPrinting = 18 ' 0
Const msoAnimationSaving = 112
Const msoAnimationSearching = 13 ' 103
Const msoAnimationSendingMail = 25
Const msoAnimationThinking = 24 ' 0
Const msoAnimationWorkingAtSomething = 23 ' 18 '?
Const msoAnimationWritingNotingSomething = 22 ' 24 '?
0
 
LVL 12

Expert Comment

by:Trygve
ID: 1962710
It turned out to work on both Icons after some testing, my mistake.

BUT: Earlier, when I posted my first answer, I were using a network installed Access'97. This version didn't have everything in it (among other things; the F2 - Zoom functionality didn't work). So perhaps a reinstallation of Access, making sure to include everything that sounds like VBA or Access Basic, would do the trick ?
0

Featured Post

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …

778 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question