Máscara para inserir dados


#1

Boa tarde a todos, estou montando um cadastro de empresas. Até aí, nada de mais. Neste cadastro guardarei a máscara do código de produto para cada empresa. Por exemplo: “00.0000>L.00” para a empresa A, “000.000” para a empresa B, etc. Cada empresa poderá ter qualquer quantidade de caracteres e também letras para os produtos
Terei uma tabela única para os produtos, amarrados por uma coluna que conterá o CNPJ da empresa e outra para o código do produto.
A pergunta é como validar esta máscara tanto na quantidade de caracteres e respeitar a regra do que possa ser inserido em cada posição de acordo com a regra: na posição que for “0”, só poderá ser digitado números, “9” poderá ser ou não números, “>L” letra em maiúscula e assim por diante, além de demonstrar corretamente.

Já criei o código:

Na inicialização do formulário filho:
Private Sub UserForm_Initialize()

’ Captura a máscara que o usuário definiu para os
’ produtos da empresa

strMascProd = frmProdutos.cmbEmpresas.Column(2, frmProdutos.cmbEmpresas.TabIndex)
.
.
.
End Sub

Private Sub txtCodProd_Change()

Dim bytCont As Byte

Dim strCaracPesquisar As String

If frmProdutos.strTpRotina = “I” Then

’ Se for inclusão de produto, fará a comparação de caracter por caracter digitado pelo usuário

For bytCont = 1 To Len(txtCodProd)
If bytCont = 1 Then
strCaracPesquisar = Left(txtCodProd.Text, 1)
Else
strCaracPesquisar = Right(Left(txtCodProd.Text, bytCont), 1)
End If
Next bytCont

’ Daqui em diante que estou enrolado

End If
End Sub

Obrigado a todos.