MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Formatação de campo no form

    Compartilhe

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 11/01/2012

    [Resolvido]Formatação de campo no form

    Mensagem  flecha em 28/11/2018, 16:03

    ola,

    Não consegui deixar a formatação do campo RG no form frmrequisicao!

    Assim: 1.111.111
              11.111.111
    Podem me ajudar?

    Exemplo anexo.
    Anexos
    Municao_v1a.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (123 Kb) Baixado 5 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4177
    Registrado : 20/04/2011

    Re: [Resolvido]Formatação de campo no form

    Mensagem  Silvio em 28/11/2018, 17:01

    Boa tarde...temos vários exemplos no repositório, basta procurar.

    No eventos " Após Atualizar " do campo RG e também no " Atual " do referido formulário !


    If Len(RG) <> "" Then
    Select Case Len(RG)
    Case 8
    Me.RG.Format = "@@-@@@-@@@"
    Case 7
    Me.RG.Format = "@-@@@-@@@"
    Case Else
    MsgBox ("Número Inválido!"), vbInformation + vbOKOnly, "ATENÇÃO"
    Me.RG.SetFocus
    End Select
    End If


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 11/01/2012

    Re: [Resolvido]Formatação de campo no form

    Mensagem  flecha em 28/11/2018, 17:28

    Não funcionou nem no form nem no campo txtRg.


    Como o campo txtRG é alimentado por essa linha

    Me.TxtRg.Value = idcolab.Column(4)


    em

    Private Sub idcolab_AfterUpdate()

    Me.nomecargo.Value = idcolab.Column(2)
    Me.exercico.Value = idcolab.Column(3)
    Me.TxtRg.Value = idcolab.Column(4)

    inclui aqui e deu certo!

    End Sub



    Obrigado

    inclui

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4177
    Registrado : 20/04/2011

    Re: [Resolvido]Formatação de campo no form

    Mensagem  Silvio em 28/11/2018, 17:31

    Então né......quanto mais informações...melhor para ajudarmos.

    Ainda bem que resolveu.

    O fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

      Data/hora atual: 18/1/2019, 00:03