Classes

Aggregate Functions -Comparison Operators - Date Functions - Domain Aggregate Functions -Field Types-  Formatting Functions - Logic Operators - Mathematical Operators -   SwitchBoard Items -Visual Basic and Variables - Wildcard Characters - ActiveX Controls

Using Comparison Operators, Logic Operators and Wildcard Characters in Access.

                                                                               Top
Using Date Functions in the Query Criteria Line in Access 

                                                                                Top
Mathematical Operators in precedence order

                                                                            Top

Top

Switchboard Items

To have more than 8 items per swiitchboard.

1. Open the Switchboard Form in Design mode.
2. Open the Form's Class/code module.
3. Find the Private Sub FillOptions.
4. Look for the Constant Dec:
5. Const ConNumButtons=8 
6. Change the 8 to whatever number you want (probably 10 to 12 as you won"t be able to fit much more on the screen)
7. Go back to the Form
8. Add 2 or more (depending upon how many you specified above) CommandButtons with associated with associated Labels Labels.
9. Delete any Default Captions for the CommandButtons & Labels.
10. Rename the these controls, option 9, OptionLabel9, etc.
11. In the OnClick Event of Option 9 & Option Label9, put = HandleButtonClick(9). Repeat for each new control. 
12. Open the Switchboard Items Table. 

TOP

ActiveX Controls are typically used by programmers to add functionality to a form.

1. Click in the section where the new control should appear.
2. Click the More tools button in the toolbox or chose insert ActiveX control to show a menu of the ActiveX controls that come with Access.
3. Select a control from the menu.
4. Right-click the control, choose properties, and set any properties you may need to adjust for the control.

Examples of ActiveX controls from Microsoft Web Site:

Message Box Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 CommandButton.
   2. In the Name box, type CommandButton1.
   3. Click OK.
3. On the Insert menu, point to Advanced, and then click Script.
4. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                Sub CommandButton1_Click()
                  ' The Following line displays a Message Box with the date
                  ' when the command button is clicked.
                  msgbox "Today's date is " &DATE,64,"My MsgBox"
                End sub
      								

   3. Click OK.

Label Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 CommandButton.
   2. In the Name box, type CommandButton2.
   3. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 Label.
   2. In the Name box, type Label1.
   3. In the Width box, type 200.
   4. Click OK.
5. On the Insert menu, point to Advanced, and then click Script.
6. In the Script dialog box, do the following:
   1. Under Language, click VBScript , and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                Sub CommandButton2_Click()
                  ' The following example fills a Label control with text
                  ' when the command button is clicked.
                  Label1.Caption="Today's date is " & DATE
                End sub
      								

   3. Click OK.

Text Box Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 TextBox.
   2. In the Name box, type TextBox1.
   3. In the Width box, enter 140.
   4. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 CommandButton.
   2. In the Name box, type CommandButton3.
   3. Click OK.
5. On the Insert menu, point to Advanced, and then click ActiveX Control.
6. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 TextBox.
   2. In the Name box, type TextBox2.
   3. In the Width box, type 300.
   4. Click OK.
7. On the Insert menu, point to Advanced, and then click Script.
8. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                Sub CommandButton3_Click()
                  ' The following example fills in a text box
                  ' when the command button is clicked
                  TextBox2.Text="You have entered: "& UCASE(TextBox1.Text)
                End sub
      								

   3. Click OK.

Check Box Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 CheckBox.
   2. In the Name box, type CheckBox1.
   3. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 CommandButton.
   2. In the Name box, type CommandButton4.
   3. In the Width box, type 140.
   4. Click OK.
5. On the Insert menu, point to Advanced, and then click ActiveX Control.
6. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 Label.
   2. In the Name box, type Label2.
   3. In the Width box, type 300.
   4. Click OK.
7. On the Insert menu, point to Advanced, and then click Script.
8. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                sub CommandButton4_Click()
                  ' This example evaluates the value of the checkbox and fills
                  ' in text in the label when the command button is clicked
                  if CheckBox1.Value=TRUE then Label2.Caption="The checkbox _
                    is checked"
                  if CheckBox1.Value=FALSE then Label2.Caption="The checkbox _
                    is not checked"
                end sub
      								

   3. Click OK.

Option Button Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 OptionButton.
   2. In the Name box, type OptionButton1.
   3. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 CommandButton.
   2. In the Name box, type CommandButton5.
   3. Click OK.
5. On the Insert menu, point to Advanced, and then click ActiveX Control.
6. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 Label.
   2. In the Name box, type Label3.
   3. In the Width box, enter 300.
   4. Click OK.
7. Press ENTER.
8. On the Insert menu, point to Advanced, and then click ActiveX Control.
9. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 OptionButton.
   2. In the Name box, type OptionButton2. Click OK.
10. On the Insert menu, point to Advanced, and then click Script.
11. In the Script dialog box, do the following:
    1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
    2. In the Script box, enter the following code:

                 Sub CommandButton5_Click()
                   ' This example evaluates the value of the option button and
                     fills
       
                   ' in text in the label when the command button is clicked
                   If OptionButton1.Value=True Then
                   Label3.Caption = "This option is selected"
                   Else
                   Label3.Caption = "The other option is selected"
                   End If
                 End sub
       								

    3. Click OK.

Toggle Button Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 ToggleButton.
   2. In the Name box, type ToggleButton1.
   3. In the Width box, type 100. In the Height box, type 30.
   4. Click OK.
3. On the Insert menu, point to Advanced, and then click Script.
4. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, enter the following code:

                sub ToggleButton1_Click()
                  ' This example evaluates the value of the toggle button and
                  ' fills in text in the label when the command button is
                    clicked.
      
                  If ToggleButton1.Value = True Then
                  ToggleButton1.Caption = "DEPRESSED"
                  Else
                  ToggleButton1.Caption = ""
                  End If
                End Sub
      
      								

   3. Click OK.

Spin Button Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 SpinButton.
   2. In the Name box, type SpinButton1.
   3. Click Properties. In the Properties window, do the following:
      1. In the Properties list, click Min. In the Value box, type -100. Click Apply.
      2. Click the Close button in the upper right corner of the Properties window.
      3. In the Edit ActiveX Control dialog box, click OK.
   4. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 Label.
   2. In the Name box, type Label4.
   3. Click OK.
5. On the Insert menu, point to Advanced, and then click Script.
6. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                sub SpinButton1_SpinDown()
                  ' This example evaluates if the spin button has been depressed
                    and
      
                  ' fills in text in the label when the command button is clicked
                  Label4.Caption = SpinButton1.Value
                  end sub
      
                sub SpinButton1_SpinUp()
                  ' This example evaluates if the spin button has not been
                    depressed
                  ' and fills in text in the label when the command button is
                    clicked
                  Label4.Caption = SpinButton1.Value
                end sub
      
      								

   3. Click OK.

Scroll Bar Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 ScrollBar.
   2. In the Name box, type ScrollBar1.
   3. Click Properties. In the Properties window, do the following:
      1. In the Properties list, click Min.
      2. In the Value box, type -32766. Click Apply.
      3. Click the Close button in the upper right corner of the Properties window.
      4. In the Edit ActiveX Control dialog box, click OK.
   4. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
   2. In the Name box, type Label5.
   3. Click OK.
5. On the Insert menu, point to Advanced, and then click Script.
6. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, enter the following code:

                Sub ScrollBar_Change()
                  ' This example evaluates the position of the marker on the
                    scroll
                  ' bar fills in text in the label when the command button is
                    clicked
                  Label5.Caption = -(ScrollBar1.Value)
                End sub
      
      								

   3. Click OK.

List Box Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 ListBox.
   2. In the Name box, type ListBox1.
   3. Click Properties. In the Properties window, do the following:
      1. In the Properties list, click BorderStyle.
      2. In the Value list, select 1-Single.
      3. Click Apply.
      4. Click the Close button in the upper right corner of the Properties window.
      5. In the Edit ActiveX Control dialog box, click OK.
   4. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 Label.
   2. In the Name box, type Label6.
   3. In the Width box, enter 400.
   4. Click OK.
5. On the Insert menu, point to Advanced, and then click Script.
6. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                Sub ListBox1_Click()
                  ' This example evaluates which option in a list box has been
                  ' selected and fills in the resulting text in the label when
                  ' the command button is clicked
                  Label6.Caption= "You have selected " & _
                  Listbox1.List(ListBox1.ListIndex)
                End sub
      								

      NOTE: A ListBox requires you to write script that populates the list with values in an array. The script should be inserted at the top of the page so that it runs when your page is loaded into a Web browser.

   3. Click OK.
7. Press CTRL+HOME. Press ENTER. Press the UP ARROW key.
   
   The insertion point should be positioned at the beginning of a blank line at the top of the page.
8. On the Insert menu, point to Advanced, and then click Script.
9. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code:

                Sub window_onLoad()
                  ' This example creates and populates the array used in the
                  ' proceeding list box example
                  ' dim array to populate ListBox
                  Dim ListBoxArray(2)
                  ListBoxArray(0)="RED"
                  ListBoxArray(1)="WHITE"
                  ListBoxArray(2)="BLUE"
                  ListBox1.List=ListBoxArray
                End sub
      								

   3. Click OK.

Combo Box Example

1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 ComboBox.
   2. In the Name box, type ComboBox1. Click OK.
3. On the Insert menu, point to Advanced, and then click ActiveX Control.
4. In the ActiveX Control Properties dialog box, do the following:
   1. In the Pick A Control list, select Microsoft Forms 2.0 Label.
   2. In the Name box, type Label7.
   3. In the Width box, type 400. Click OK.
5. On the Insert menu, point to Advanced, and then click Script.
6. In the Script dialog box, do the following:
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, enter the following code:

                sub ComboBox1_Click()
                  ' This example evaluates which option in a combo box has been
                  ' selected and fills in the resulting text in the label when
                  ' the command button is clicked.
                  Label7.Caption= "You have selected " & _
                  ComboBox1.List(ComboBox1.ListIndex)
                end sub
      								

      NOTE: A ListBox requires you to write script that populates the list with values in an array. The script should be inserted at the top of the page so that it executes when your page is loaded into a Web browser.

7. Double-click the Script icon at the top of the page.
   
   NOTE: This icon was created in step 6 of the List Box example.
   1. Under Language, click VBScript, and then click to clear the Run Script on Server check box.
   2. In the Script box, type the following code.
      
      NOTE: Place this code at the bottom of the Script box, after the existing script, but before the last line that reads "end sub."

                ' This example creates and populates the array used in the
                ' combo box example.
                '
                ' dimension array to populate ComboBox
                Dim ListBoxArray(2)
                ListBoxArray(0)="RED"
                ListBoxArray(1)="WHITE"
                ListBoxArray(2)="BLUE"
                ListBox1.List=ListBoxArray
      								

   3. Click OK.

Copyright © by Earl T. Wylie 2001, 2002,2003,2004,2005,2006,2007