SubForm.OldBorderStyle property (Access)

Use this property to set or return 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 a SubForm 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

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.