Learn Microsoft Access Advanced Programming Techniques, Tips and Tricks.

Lively Controls on Form

Introduction

We always concentrate on timely completion of a Project and to deliver it to the Users as quickly as possible.  When I am pressurized to complete a particular project I will try to complete it as quickly as possible and deliver it to the User.  But all the time I would like to have a second look at the overall design and appearance of the Forms and Reports in a relaxed atmosphere and bring in some improvements with whatever new tricks that I can think of at that point of time.

In my past experience on these kind of improvements I have been always rewarded with appreciation from the Users. Their responses on these little things that I have incorporated into the design always encouraged me to look for something different next time.  Forms are the main component of any Application that catches the eye of the Customers besides nicely formatted Reports and impressive Graph Charts.

Forms have a special place in the minds of the User. It should be pleasing to look at and user friendly to work with.  Once the initial pressure of designing the main components of an application is over and if you have enough time to have a second look at the main forms' design you can make use of your creative ideas and pull little tricks on the Form that will do wonders. All the controls we draw on the Microsoft Access Forms remains stationery for ever.  If we can put some action of movement on some of the controls, without overdoing it, it will definitely have some positive impact on the Customers.

We have learned several animation tricks on controls in the past and If you would like to take a second look at then their links are given below:

  1. Command Button Animation
  2. Reminder Ticker Form
  3. Startup Screen Design
  4. Animated Floating Calendar
  5. Wave Shaped Reminder Ticker
  6. Command Button Animation-2
  7. Animating Label on Search Success
  8. Run Slide Show when Form is Idle
  9. Label Animation Style-1
  10. Label Animation Style-2
  11. Label Animation Variant
  12. Label Animation Zoom in Style
  13. Label Animation in Colors
  14. Label Animation Zoom-out Fade
  15. Digital Clock on Main Switchboard

Option Group Control Style Change on Mouse Move.

Here, we will do a simple trick on an Option Group Control to respond, when the mouse moves over it for selection of options.  The trick is simple, when the Option Group control is created we will give it a Raised Style design.  When the mouse moves over the Option Group control the Style will change to Sunken.  When the mouse moves away from the Option Group control it will go back to its earlier Raised state.  Repetition of this action gives a lively look to the Option Group control.


Create a Form for Demo.

  1. Open a new Form in Design View.
  2. Click on the Wizard Button (with the magic wand icon) on the Toolbox to select it, if it is not already in selected state.
  3. Select the Option Group control and draw it on the detail section of the form.
  4. Enter the options as shown on the design below by pressing Tab key after each option to advance to the next row. You may enter any Text as options as you like.
  5. Complete the design by selecting the Finish Command Button.
  6. Move the attached label above and make it as wide as the Option Group Control and change its Caption to Main Menu.
  7. Move the attached child label above and make its width same as the Option Group control and align it to left edge. 
  8. Change the Caption of the label to Main Menu.
  9. Click on the Option Group to select it and display its Property Sheet (View - -> Properties or press ALT+Enter).
  10. Change the following Property Values as given below:
    • Name = Frame0
    • Back Style = Normal
    • Special Effect = Raised

    The Form's Class Module Code.

  11. Display the VBA Code Module of the Form (View - ->Code or click on the Module Toolbar Button or press ALT+F11).
  12. Copy and Paste the following VBA Code into the VBA Module of the Form:
    Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
       If Me.Frame0.SpecialEffect <> 1 Then
           Me.Frame0.SpecialEffect = 1
       End If
    End Sub
    
    Private Sub Frame0_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
       If Me.Frame0.SpecialEffect <> 2 Then
           Me.Frame0.SpecialEffect = 2
       End If
    End Sub
  13. Save and close the Form.

    The Demo Run.

  14. Open the Form in normal view.  You will find the Option Group control is in Raised style.
  15. Move the mouse over the control and it will enter into Sunken state.
  16. Move the Mouse pointer away from the control and it will restore back to Raised state.
  17. Repeat this action in quick succession and you can see how the Option Group control responds to this simple action, otherwise the control remains rigid for ever.
Technorati Tags: ,
Share:

No comments:

Post a Comment

Comments are subject to moderation before publishing.

Translate



PageRank
Subscribe in a reader
Your email address:

Delivered by FeedBurner

http://clicky.com/101199826
Blog Directory Visit blogadda.com to discover Indian blogs

Search

Popular Posts

Search This Blog

Blog Archive

Powered by Blogger.

Follow by Email

Labels

Forms Functions How Tos MS-Access Security Reports msaccess forms Animations msaccess animation Class Module Utilities msaccess controls Access and Internet MS-Access Scurity MS-Access and Internet Array Queries msaccess reports External Links msaccess tips Accesstips Downloads Objects Property Menus and Toolbars Controls Event MsaccessLinks Process Controls Art Work Collection Object WithEvents msaccess How Tos Combo Boxes Graph Charts List Boxes VBA msaccessQuery Command Buttons Command Button Data Dictionary Object Emails and Alerts Form Query RaiseEvent Report Calculation Custom Wizards DOS Commands Data Type ms-access functions msaccess functions msaccess graphs msaccess reporttricks Custom Functions Item Object Reference msaccessprocess security advanced Access Security Add Field Type Fields Form Instances Key Macros Menus SubForm Top Values Variables msaccess email msaccess menus progressmeter Access2007 Auto-Number Copy Excel Expression Join Methods Microsoft Numbering System Records Recordset Security Split Table Time Difference Utility Workgroup Wrapper Classes database function ms-access msaccess wizards reference text tutorial vba code Access2003 Accounting Year Action Animation Attachment Binary Numbers Bookmarks Budgeting ChDir Color Palette Conditional Formatting Data Filtering Defining Pages Diagram Disk Dynamic Lookup Error Handler Export External Filter Formatting Groups Hexadecimal Numbers Import Labels List Logo Macro Mail Merge Main Form Memo Monitoring Octal Numbers Operating System Paste Primary-Key Product Rank Reading Remove Rich Text Sequence SetFocus Summary Tab-Page Tables Union Query User Users Water-Mark Word automatically commands hyperlinks iSeries Date iif msaccess msaccess alerts pdf files restore switch toolbar updating upload

Featured Post

ROUNDDOWN Function of Excel

We have introduced ROUNDUP() Function of Excel in Microsoft Access earlier.  It works like ROUND() Function except that the number is alway...

Labels

Blog Archive

Recent Posts