optiongroup-oldborderstyle-property-access.md

title	keywords	f1_keywords	ms.prod	api_name	ms.assetid	ms.date
OptionGroup.OldBorderStyle Property (Access)	vbaac10.chm10842	vbaac10.chm10842	access	Access.OptionGroup.OldBorderStyle	d26a3888-a7c3-39f4-ca3e-484e9c3826b7	06/08/2017

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

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