MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    [Resolvido]incluir codigo com mascara

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]incluir codigo com mascara Empty [Resolvido]incluir codigo com mascara

    Mensagem  ifahidalgo 22/5/2014, 20:14

    Senhores

    tenho um campo texto tamanho 14

    está com mascara de entrada 99999.99.99.99

    preciso que ao gravar na tabela seja gravado com os pontos.

    utilizo campos não acoplados.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]incluir codigo com mascara Empty incluir codigo com mascara

    Mensagem  good guy 22/5/2014, 22:33

    Olá,

    Crie uma máscara de entrada no referido campo de sua tabela ou através de código com a função format:


    Dim sMask As String

    sMask = Forms!NomedoForm!Format(Processo,"00000.00.00.00")


    strSQL = "INSERT INTO SuaTabela(Processo, campo2,...)VALUES('" & sMask & "',...)
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]incluir codigo com mascara Empty Re: [Resolvido]incluir codigo com mascara

    Mensagem  ifahidalgo 23/5/2014, 12:38

    bom dia

    criei a mascara de entrada 99999.99.99.99, o campo está como texto, e só receberá numeros conforme a marcara. Quando executo uma consulta, uma list box, um inputbox, se eu utilizar o codigo com a mascara, não é encontrado.
    na listbox, é listado sem os pontos.
    no inputbox tenho que digitar sem os pontos caso contrario não encontra.

    para salvar os registros na tabela utilizo o seguinte codigo. Preciso salvar o registro coditem "texto", com os pontos.

    __________________________
    Private Sub cmdsalvar_Click()
    Dim strSql As String, rstTemp As DAO.Recordset

    strSql = "Select * from Tbitem where coditem = int(val('" & txtcoditem & "'))"

    Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

    rstTemp.AddNew

    rstTemp("coditem") = txtcoditem
    rstTemp("descricaoitem") = txtdescricaoitem
    rstTemp("unidade") = cmbunidade
    rstTemp("valoritem") = txtvaloritem
    rstTemp("usuario") = txtUser

    rstTemp.Update
    rstTemp.Close

    txtcoditem = ""
    txtdescricaoitem = ""
    cmbunidade = ""
    txtvaloritem = ""
    txtUser = ""
    Call ultimoreg
    txtcoditem.SetFocus

    If Not IsNull(DLookup("codigo", "tbitem")) Then
    cmdeditar.Enabled = True
    cmdconsultar.Enabled = True
    End If

    End Sub
    ___________________________________________
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]incluir codigo com mascara Empty Re: [Resolvido]incluir codigo com mascara

    Mensagem  ifahidalgo 26/5/2014, 14:03

    Good Guy

    Fiz conforme explicou mas não deu certo.

    para salvar o txt na tabela utilizo o codigo descrito acima.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]incluir codigo com mascara Empty Re: [Resolvido]incluir codigo com mascara

    Mensagem  Silvio 26/5/2014, 15:12

    Um pitaquinho.....com a permissão dos colegas.

    Por que não ir na tabela que recebe esse valor e colocar a mascara de entrada no referido campo ?

    Algo assim....
    99999\.99\.99\.99

    Ao dar a entrada no campo o mesmo ficará dessa forma: 99999.99.99.99

    Teste e sucesso.


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

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]incluir codigo com mascara Empty Re: [Resolvido]incluir codigo com mascara

    Mensagem  ifahidalgo 26/5/2014, 15:57

    testando, consegui dessa forma.

    #####"."##"."##"."##;0;_

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]incluir codigo com mascara Empty Re: [Resolvido]incluir codigo com mascara

    Mensagem  Silvio 26/5/2014, 18:21

    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

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 7/12/2022, 13:26