MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Consulta VBA x Atualizar com campo do formulário

    Compartilhe

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 29/04/2011

    [Resolvido]Consulta VBA x Atualizar com campo do formulário

    Mensagem  vinicius.anna em Qui 05 Dez 2013, 16:04

    Boa tarde

    Em um formulário desvinculado, possuo um campo texto (Alfanumérico), de 4 posições, chamado txtCodigo. Preciso fazer um update em um determinado campo da uma tabela usando como parâmetro o txtCodigo. Estou usando o código abaixo:

    CurrentDb.Execute "UPDATE tb_Sped SET tb_Sped.CodEmp = " & Me.txtCodigo & ";"

    Este código funciona, porém, se no campo txtCódigo, eu informar 0001, o campo da tabela CodEmp grava apenas o 1, não gravando o 0001. Alguém tem alguma dica de como posso fazê-lo?

    Att. Vinicius
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    Beto Givoni
    VIP
    VIP

    Respeito às Regras 0%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1207
    Registrado : 04/01/2011

    Re: [Resolvido]Consulta VBA x Atualizar com campo do formulário

    Mensagem  Beto Givoni em Qui 05 Dez 2013, 16:15

    Olá, coleque no formato do referido em sua tavela "0000" sem as aspas

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 29/04/2011

    Re: [Resolvido]Consulta VBA x Atualizar com campo do formulário

    Mensagem  vinicius.anna em Qui 05 Dez 2013, 17:20

    Boa tarde Beto,

    Obrigado,

    Mas acabou não dando certo, continua gravando o 1 ao invés de 0001.

    Att. Vinicius

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 29/04/2011

    Re: [Resolvido]Consulta VBA x Atualizar com campo do formulário

    Mensagem  vinicius.anna em Qui 05 Dez 2013, 18:19

    Beto,

    Boa tarde,

    Muito obrigado pela dica, consegui resolver com a linha:

    CurrentDb.Execute "UPDATE tb_Sped SET CodEmp ='" & Me.txtCodigo & "';"

    e a sua dica.

    Att. Vinicius
    O autor desta mensagem foi removido do fórum - Ver a mensagem

      Data/hora atual: Sab 10 Dez 2016, 04:58