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