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.

Syntax

expression .OldBorderStyle

expression A variable that represents an OptionGroup object.

Remarks

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

• 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.

Example

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

See Also

Concepts

OptionGroup Object Members

OptionGroup Object