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

    Atualização de tabela com variáveis locais

    Compartilhe

    virtaum
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 17/03/2014

    Atualização de tabela com variáveis locais

    Mensagem  virtaum em Qua 21 Maio - 8:34

    Bom Dia pessoal,

    Estou tentando atualizar uma tabela com o seguinte código:

    Private Sub DtEntrada_AfterUpdate()
    Dim VarCCusto As String
    Dim VarLVM As Integer
    Dim VarDtEntrada As Date
    Dim SQL As String

    VarCCusto = CCusto
    VarLVM = LVM
    VarDtEntrada = DtEntrada

    SQL = "UPDATE LVM_TblRastreabilidade " & _
    "SET LVM_TblRastreabilidade.DtEntrada = VarDtEntrada " & _
    "WHERE LVM_TblRastreabilidade.CCusto = VarCCusto AND LVM_TblRastreabilidade.LVM = VarLVM "

    DoCmd.RunSQL SQL
    Me.Requery
    End Sub

    Porém, quando executo, ele fica me perguntando os valores das variáveis VarLVM, VarDtEntrada e VarCCusto, e não pega automático das variáveis que foram definidas.

    Depurei os valores das variáveis e ele está recebendo os valores corretamente durante a execução do código.

    Alguma idéia do que posso fazer?

    Obrigado.!

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Atualização de tabela com variáveis locais

    Mensagem  Silvio em Qua 21 Maio - 9:22

    bom dia...

    apenas uma tentativa....

    VarCCusto = forms!seuformulario!campoCCusto
    VarLVM = forms!seuformulario!campoLVM
    VarDtEntrada = forms!seuformulario!campoDtEntrada


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    virtaum
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 17/03/2014

    Re: Atualização de tabela com variáveis locais

    Mensagem  virtaum em Qua 21 Maio - 10:49

    Fala Silvio!

    Não deu certo :/

    Na depuração, sigo os valores das variáveis, e ele coloca os valores nas variáveis certinho, mas parece que ele não ta reconhecendo a variável no código SQL, dai ele pergunta...

    virtaum
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 17/03/2014

    Re: Atualização de tabela com variáveis locais

    Mensagem  virtaum em Qua 21 Maio - 14:26

    Pessoal,

    Consegui corrigir o código e parou de dar erro. Porém apareceu um outro problema.

    O código está dessa maneira:

    Private Sub DtEntrada_AfterUpdate()
    Me.Refresh
    Dim VarCCusto As String
    Dim VarLVM As Integer
    Dim VarDtEntrada As Date
    Dim SQL As String

    VarCCusto = CCusto
    VarLVM = LVM
    VarDtEntrada = DtEntrada
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE LVM_TblRastreabilidade SET LVM_TblRastreabilidade.DtEntrada = " & VarDtEntrada & " WHERE LVM_TblRastreabilidade.CCusto = '" & VarCCusto & "' AND LVM_TblRastreabilidade.LVM = " & VarLVM & ""
    DoCmd.SetWarnings True
    Me.Requery
    End Sub


    A variável VarDtEntrada recebe o valor "29/04/2014", porém, no access, quando aparece no formulário, após rodar o código inteiro, aparece o valor "00:05:11".

    Não tenho idéia como corrigir isso!

    Alguém pra me ajudar!?

      Data/hora atual: Dom 4 Dez - 16:22