locked
Completar com zero RRS feed

  • Pergunta

  •  

    Bom dia,

     

    Estou com uma dúvida na configuração de uma caixa de texto de uma tabela.

     

    Preciso que a númeração colocada seja preenchida com zeros à esquerda. Ex 1 = 01 ou 001

     

    Meu campo está definido como texto (não como número), no formato estou colocando "00";@ e não está dando certo (mesmo o tamanho do campo estando em 3).

     

    Abraços

    Paulo

    quarta-feira, 1 de agosto de 2007 10:36

Respostas

  • Boa tarde, Paulo!

     

    Acredito que você consegue resolver o problema definindo uma Máscara de Entrada para o campo, através das Propriedades da TextBox.

    Se o formato foi MUITO complicado, como uma vez aconteceu comigo, faça uma rotina para formatar o campo toda vez que ele era preenchido.

    Se precisar de mais dicas fala ae...

     

    Abraço!

     

    Felipe

    quarta-feira, 1 de agosto de 2007 20:33

Todas as Respostas

  • Boa tarde, Paulo!

     

    Acredito que você consegue resolver o problema definindo uma Máscara de Entrada para o campo, através das Propriedades da TextBox.

    Se o formato foi MUITO complicado, como uma vez aconteceu comigo, faça uma rotina para formatar o campo toda vez que ele era preenchido.

    Se precisar de mais dicas fala ae...

     

    Abraço!

     

    Felipe

    quarta-feira, 1 de agosto de 2007 20:33
  • Oi Paullo,

     

    você pode colocar o seguinte código no evento AfterUpdate da sua caixa de texto:

     

    Private Sub Text1_AfterUpdate()
    If IsNumeric(Me.Text1) Then
        Me.Text1 = Format$(Me.Text1, "000")
    End If
    End Sub

     

    domingo, 5 de agosto de 2007 15:27
    Moderador