Label Animation Style-1

Label Animation Style-1.

A form with lively elements—such as animated command buttons, GIFs, or moving text—makes working with MS Access applications more interesting for users. However, MS Access does not provide these features out of the box. To create dynamic elements, we must rely on our imagination and ingenuity, using the standard tools available in Access.

After working with MS Access for a while, I grew tired of repeatedly using the same static objects in application designs. I wanted to create something more eye-catching to make the experience more engaging. As the saying goes, “Necessity is the mother of invention.” This led me to develop several creative features, including: 

• Command button animation
• Animated floating calendar 
• Office Assistant in message boxes
• Animated labels for search results
• Reminder ticker, and more.

Today, we will learn a simple label animation technique using an example from the Employees form in the Northwind.mdb sample database.

1. Import the following objects from the Northwind sample database.:

   • Table: Employees
   • Form: Employees

   If you open the Employees form in Normal View, you’ll see that the employee’s full name—first name and last name combined—is displayed in the form header within a text box. When you navigate to a different record, the full name in the header updates automatically.

   We will enhance this by adding an animated effect: the employee name appears character by character, moving slowly from the right edge of the label to the left, then settling into place.

2. Open the Employees Form in Design View.

3. Delete the existing TextBox that displays the Employee's Name.

4. Create a Label on the Header Section of the Form.

5. Display the Property Sheet (View -> Properties) of the Label and change the following Property Values:

   • Name = lbl1
   • Width = 3.5"
   • Height =0.32"
   • Back Style = Transparent
   • Border Style = Transparent
   • ForeColor = 16777215
   • Font Name = Times New Roman
   • Font Size = 18
   • Font Weight = Bold
   • Text Align = Right

6. Display the Code Module of the Form (View ->Code).

7. Press Ctrl+A to select and highlight the existing VBA Routines and press the Del key to delete them.

8. Copy the following VBA Code and paste it into the Code Module of the Form.

   Label Animation Code.

   Option Compare Database
   Option Explicit
   
   Dim txt1 As String, txtlen As Integer
   Dim j As Integer, txt2 As String
   
   Private Sub Form_Timer()
   j = j + 1
   If j <= txtlen Then
     txt2 = Left(txt1, j)
     Me.lbl1.Caption = txt2
     'Me.lbl2.Caption = txt2
     Else
     Me.TimerInterval = 0
   End If
   
   End Sub
   
   
   Private Sub Form_current()
          
   txt1 = UCase(Me![FirstName] & " " & Me![LastName])
   txtlen = Len(txt1)
   j = 0
   Me.TimerInterval = 50
   
   End Sub

9. Save and Close the Employees Form.

10. Open the Employees Form in the normal view.

When you open the form, the employee name will gradually move into place from right to left, appearing character by character in the header label.



Right-click to open Large Image in New Tab/Window.

11. Click the forward Navigation records button to move the records one by one.

12. The employee names will be displayed in the same style by moving from the right edge of the label to the left.

Fancy Work to the Label.

We will add a little fancy work to the Employee Name for a three-dimensional backlit effect by copying the Label and placing it over the existing one. See the finished design of the image given below:

Right-click to open Large Image in New Tab/Window.

1. Open the Employee Form in Design View.

2. Select the header label.

3. Create a copy of the header label.

4. Display the Label's Property Sheet (View ->Properties).

5. Change the following Property Values as shown below:

• Name = lbl2
• ForeColor = 128

6. Place the copied label above the first label, slightly down and to the left from the top and left edge, respectively. The sample image design view is given below:



Right-click to open Large Image in New Tab/Window.

I have already included the line of code necessary to run this trick.  All you have to do is enable that line in the VBA code and do the following:

7. While the Form is still in design view, display the VBA Module (View ->Code)

8. You will find the following line of code in the Sub Form_Timer() Event Procedure in a different color (most probably in green color):

'Me.lbl2.Caption = txt2

9. Find the ' (single quote) character at the beginning of this line and delete it.

10. Save and Close the Form.

11. Open the Form in the Normal View.

    Now you will find the Employee Names appearing in animated characters and in 3D style, as shown in the second image above.

1. Textbox and Label Inner Margins
2. Animating Label on Search Success
3. Label Animation Style-1
4. Label Animation Style-2
5. Label Animation Variant
6. Label Animation Zoom-in Style
7. Label Animation in Colors
8. Label Animation Zoom-out Fade