Bom dia à todos, depois de pesquisar sobre o assunto aqui no fórum, até encontrei o que precisava, porém me deparei um pequeno contratempo.
No meu banco de dados quero que a caixa de texto NDOC tenha a máscara de entrada alterada de acordo com o que for selecionado na caixa de combinação TIPODOC, mais precisamente se os itens CERTIFICADOS NACIONAIS e CERTIFICADOS INTERNACIONAIS forem selecionados, os demais itens da caixa de combinação caso selecionados não iriam fazer com que a máscara de entrada sobresse alteração.
CERTIFICADOS NACIONAIS - MÁSCARA ENTRADA: N0-99999999
CERTIFICADOS INTERNACIONAIS - MÁSCARA ENTRADA: I0-99999999
Inseri o seguinte código na propriedade APÓS ATUALIZAR da caixa de combinação:
Private Sub cx_tipodoc_AfterUpdate()
If Me.cx_tipodoc.Value = "CERTIFICADOS INTERNACIONAIS" Then
Me.NDOC.InputMask = "I0\-00000000;0;_"
ElseIf Me.cx_tipodoc.Value = "CERTIFICADOS NACIONAIS" Then
Me.NDOC.InputMask = "N0\-00000000;0;_"
ElseIf Me.cx_tipodoc.Value <> "CERTIFICADOS INTERNACIONAIS" Or Me.cx_tipodoc.Value <> "CERTIFICADOS NACIONAIS" Then
Me.NDOC.InputMask = ""
End If
End Sub
Esse código até que funcionou, porém o início da máscara (I0 ou N0) não pode sofrer alteração, porém esse primeiro zero acaba fazendo parte dos caracteres editáveis...
Se alguém souber como resolver ficaria grato
No meu banco de dados quero que a caixa de texto NDOC tenha a máscara de entrada alterada de acordo com o que for selecionado na caixa de combinação TIPODOC, mais precisamente se os itens CERTIFICADOS NACIONAIS e CERTIFICADOS INTERNACIONAIS forem selecionados, os demais itens da caixa de combinação caso selecionados não iriam fazer com que a máscara de entrada sobresse alteração.
CERTIFICADOS NACIONAIS - MÁSCARA ENTRADA: N0-99999999
CERTIFICADOS INTERNACIONAIS - MÁSCARA ENTRADA: I0-99999999
Inseri o seguinte código na propriedade APÓS ATUALIZAR da caixa de combinação:
Private Sub cx_tipodoc_AfterUpdate()
If Me.cx_tipodoc.Value = "CERTIFICADOS INTERNACIONAIS" Then
Me.NDOC.InputMask = "I0\-00000000;0;_"
ElseIf Me.cx_tipodoc.Value = "CERTIFICADOS NACIONAIS" Then
Me.NDOC.InputMask = "N0\-00000000;0;_"
ElseIf Me.cx_tipodoc.Value <> "CERTIFICADOS INTERNACIONAIS" Or Me.cx_tipodoc.Value <> "CERTIFICADOS NACIONAIS" Then
Me.NDOC.InputMask = ""
End If
End Sub
Esse código até que funcionou, porém o início da máscara (I0 ou N0) não pode sofrer alteração, porém esse primeiro zero acaba fazendo parte dos caracteres editáveis...
Se alguém souber como resolver ficaria grato