[Resolvido]Mascara (InputMask)

Prezados,

Estou com dificuldades para criar uma mascara em um campo texto. O campo deve ser iniciado com um texto seguido de números , assim:

exemplo: GCC.P.0000.2019 ,

onde ao receber foco a máscara já mostre GCC.P. e abra para digitação de 8 numeros : 0000.0000

GCC.P.____.____ (mais ou menos assim)


Tentei : evento Doc_GotFocus()

Doc.InputMask = Chr(34) & "GCC" & ".P." & Chr(34) & 0# sem sucesso.

Tentei: eventoDoc_AfterUpdate()

Me.[Doc] = Format(Chr(34) & "GCC" & ".P." & Chr(34) & 0#)

Para gravar na tabela usei 'format' também sem sucesso. Gravou apenas os numeros.

Boa tarde,
não precisa ser no VBA, pode por na propriedade do campo: Máscara de entrada: \G\C\C\.\P\.0000\.0000;0;_

Obrigado Marcelo, funcionou...

só estou tendo dificuldade para exibir a máscara no campo automaticamente, ou seja, quando receber foco ou entrar.

Como tenho 3 máscaras diferentes que são trocadas conforme o valor de um outro campo, não consegui que a máscara aparecesse.

A sim...

Poderá definir a máscara no evento Após atualizar desse campo que determinará a máscara.

Por exemplo:

Código:

If Me!SeuCampo = "Valor A"
  Me!Doc.InputMask = "\G\C\C\.\P\.0000\.0000;0;_"
ElseIf Me!SeuCampo = "Valor B"
  Me!Doc.InputMask = "Máscara B"
ElseIf Me!SeuCampo = "Valor C"
  Me!Doc.InputMask = "Mascara C"
End If


Daí, você chama a sub do evento Após atualizar no evento No atual do formulário. Dessa forma a máscara será exibida também
nos registros já salvos (apesar da máscara está sendo salva literalmente).

Entendi, obrigado.

A questão talvez não tenha explicado direito.

Fiz um banco de exemplo(em anexo).

Tenho um formulário e um subFormulário.

Ao Entrar no Formulário o usuário só registra os dados do SubFormulário.
Veja no exemplo o registro nª 3.Ao entrar nesse registro a intenção é ao mover o foco para [Doc] que a máscara apareça.

Criei um 'Sub' "mascaraDoc" onde defino as máscaras de acordo com um campo do formulário.

Ao abrir o terceiro registro o foco é movido mas não é mostrada a mascara.Tenho de clicar no campo para aparecer.

novamente, obrigado pela força

Bom dia,
Vi que você definiu o Formato do campo pela folha de propriedade e a máscara pelo VBA. O Formato não se faz necessário
pois a máscara já contempla tudo o que precisa (pelo menos na minha compreensão), daí melhorei o que achei necessário.

Se eu entendi, você quer que a máscara seja exibida antes do campo ser preenchido, correto?
Se sim, basta mover o cursor do mouse para alguma posição do campo, no caso Doc.

No evento ao receber o foco do campo Doc, pus isso:
(Para facilitar a digitação, movi o cursor para a posição 6)

Me!Doc.SelStart = 6

Teste o exemplo do anexo.

Prezado, obrigado pela ajuda. Funcionou perfeitamente, abraço

Feliz que deu certo. O Fórum agradece o retorno.