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


2 participantes

    Atualização de tabela com variáveis locais

    avatar
    virtaum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Atualização de tabela com variáveis locais Empty Atualização de tabela com variáveis locais

    Mensagem  virtaum 21/5/2014, 12: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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 21/5/2014, 13: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.
    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
    virtaum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  virtaum 21/5/2014, 14: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...
    avatar
    virtaum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  virtaum 21/5/2014, 18: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!?

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:59