Access Cookbook, 2nd Edition [Electronic resources] نسخه متنی

اینجــــا یک کتابخانه دیجیتالی است

با بیش از 100000 منبع الکترونیکی رایگان به زبان فارسی ، عربی و انگلیسی

Access Cookbook, 2nd Edition [Electronic resources] - نسخه متنی

Ken Getz; Paul Litwin; Andy Baron

| نمايش فراداده ، افزودن یک نقد و بررسی
افزودن به کتابخانه شخصی
ارسال به دوستان
جستجو در متن کتاب
تنظیمات قلم


اندازه قلم

+ - پیش فرض

حالت نمایش

روز نیمروز شب
جستجو در لغت نامه
لیست موضوعات
افزودن یادداشت جدید

Recipe 16.3 Display Smart Tags when Application Starts

16.3.1 Problem

My application makes extensive use of smart tags. Since this is a
global setting, some users may have turned off the display of smart
tags. How can I ensure that smart tags are displayed when my
application starts up?

16.3.2 Solution

The display of smart tags is controlled by a checkbox
in the Tools Options dialog box under the Forms/Reports
tab. These settings apply to Access as a whole, and once changed,
take effect for all running applications. Figure 16-5 shows the dialog box with the display of smart
tags turned on.

Figure 16-5. Setting smart tag viewing options

The best place to set options for your application is in a
startup form, which can run code to ensure that settings are the way
you need them to be. The sample application is configured to use a
form named frmStartup, by setting the Display/Form Start Page
property in the Tools Startup dialog box, as shown in
Figure 16-6.

Figure 16-6. Configuring a startup form

Follow these steps in your startup form to ensure that smart tags are
displayed for your application:

  1. Create a variable in the declarations section of the form that you
    will use to retrieve and store the user's current
    settings. Options controlled by checkboxes return either True or
    False. However, retrieving and setting options in code requires the
    Variant data type, not a Boolean, as you might expect.

    Option Explicit
    Private varSmartTagOn As Variant
  2. In the form's Open event, retrieve the
    user's current settings using the GetOption method.
    If smart tags are not turned on, then use SetOption to turn them on.
    The sample application collects the user's name
    using the InputBox function and displays it in a label control that
    has the Person Name smart tag attached:

    Private Sub Form_Open(Cancel As Integer)
    ' Retrieve user's SmartTag settings
    varSmartTagOn = Application.GetOption( _
    "Show Smart Tags on Forms")
    ' Display smart tags if needed
    If Not varSmartTagOn Then
    SetOption "Show Smart Tags on Forms", True
    End If
    lblName.Caption = InputBox( _
    "Type your name:", "Welcome Message", ")
    End Sub
  3. In the form's Close event, reset the
    user's smart tag options to their original values:

    Private Sub Form_Close( )
    ' Restore user's smart tag option setting
    Application.SetOption "Show Smart Tags on Forms", varSmartTagOn
    End Sub

16.3.3 Discussion

By saving the smart tag settings in a variable, you
can ensure that your application behaves in a polite way, only
changing the user's global settings that are needed
for your application to function properly. In the sample application,
the code in the Close button event handler closes the form and resets
the user's smart tag options to whatever they were
when the application opened. You could elect to simply hide the form

Private Sub cmdClose_Click( )
Me.Visible = False
End Sub

The code in the form's Close event will not execute
if the form is hidden and not closed. When the application shuts
down, the form closes and the code in its Close event runs and resets
the user's smart tag options to their original

The frmStartup form in the sample database also contains a Toggle
Smart Tags button that toggles the display of the smart tags option.
The ToggleShowSmartTags procedure reverses the current option
settings for displaying smart tags and stores the new setting in the
varSmartTagOn variable:

Private Sub ToggleShowSmartTags( )
' Toggle smart tag settings
varSmartTagOn = Not varSmartTagOn
Application.SetOption "Show Smart Tags on Forms", varSmartTagOn
MsgBox "Application Settings = " & varSmartTagOn, , "Show Smart Tags"
End Sub

You can test the code by opening frmStartup and frmTest side by side.
You can see the smart tags on both forms enabled or disabled as you
click the Toggle Smart Tags button on frmStartup.

/ 232