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.!
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.!