Access.TextBox.OldBorderStyle.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
TextBox.OldBorderStyle property (Access)	vbaac10.chm11079	vbaac10.chm11079	Access.TextBox.OldBorderStyle	6064f8b9-31ec-da00-0346-cd259b917daa	02/22/2019	medium

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

[!includeSupport and feedback]