Export (0) Print
Expand All
Expand Minimize

OptionGroup.OldBorderStyle Property (Access)

You can use this property to set or returns the unedited value of the BorderStyle property for a form or control. This property is useful if you need to revert to an unedited or preferred border style. Read/write Byte.

expression .OldBorderStyle

expression A variable that represents an OptionGroup object.

The OldBorderStyle property uses the following settings.

Setting

Visual Basic

Description

Transparent

0

(Default only for label, chart, and subreport) Transparent

Solid

1

(Default) Solid line

Dashes

2

Dashed line

Short dashes

3

Dashed line with short dashes

Dots

4

Dotted line

Sparse dots

5

Dotted line with dots spaced far apart

Dash dot

6

Line with a dash-dot combination

Dash dot dot

7

Line with a dash-dot-dot combination

Double solid

8

Double solid lines

Note Note
  • If the OldBorderStyle property is set to None or Dialog, the form doesn't have Maximize or Minimize buttons, regardless of its MinMaxButtons property setting.

  • If the OldBorderStyle property is set to None, the form doesn't have a Control menu, regardless of its ControlBox property setting.

  • The OldBorderStyle property setting doesn't affect the display of the scroll bars, navigation buttons, the record number box, or record selectors.

The following example demonstrates the effect of changing a control's BorderStyle property, while leaving the OldBorderStyle unaffected. The example concludes with setting the BorderStyle property to its original unedited value.

With Forms("Order Entry").Controls("Zip Code") .BorderStyle = 3 ' Short dashed border. 
  
    MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _ 
        "OldBorderStyle = " & .OldBorderStyle  ' Prints 3, 1. 
 
    .BorderStyle = 2 ' Dashed border. 
  
    MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _ 
        "OldBorderStyle = " & .OldBorderStyle  ' Prints 2, 1 
  
    .BorderStyle = .OldBorderStyle ' Solid (default) border. 
         
    MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _ 
        "OldBorderStyle = " & .OldBorderStyle  ' Prints 1, 1 
End With

Community Additions

ADD
Show:
© 2014 Microsoft