Implements IControlValidator
Implements ICreateChangeNameValidator
Private Type TChangeNameValidator
SourceControl As Access.Control
Caption As String
End Type
Private This As TChangeNameValidator
Public Function Create(SourceControl As Access.Control, Optional Caption As String = vbNullString) As IControlValidator
Dim NewValidator As ICreateChangeNameValidator
Set NewValidator = New ChangeNameValidator
NewValidator.SetData SourceControl, Caption
Set Create = NewValidator