Solved

Problems with animating Assistant

Posted on 1997-12-16
5
264 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

In the article entitled Working with Objects – Part 1 (http://www.experts-exchange.com/Microsoft/Development/MS_Access/A_4942-Working-with-Objects-Part-1.html), you learned the basics of working with objects, properties, methods, and events. In Work…
Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
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…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

867 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

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now