AJUDA URGENTE COM SOMA NO VB

USUARIO.EXCLUIDOS 22/03/2004 22:49:37
#16515
Olá pessoal estou querendo somar dois campos um é o que esta sendo informado no campo TxtQtde_Entrada
e o outro é o campo t01quantidade que esta na tabela t01_estoque

Ou seja t01quantidade vai ser modificado pela soma do valor dele atual mais o valor do campo TxtQtde_Entrada
que esta na tabela t02_Estoque_Entradas

" t01quantidade = t01quantidade + '" & TxtQtde_Entrada & "'," & _

Só que esta dando erro, o campo t01quantidade não esta recebendo o valor certo, ANGUéM PODE ME AJUDAR

meusql = " update t02_Estoque_Entradas, t01_estoque set " & _
" t01quantidade = t01quantidade + '" & TxtQtde_Entrada & "'," & _
" t02Data ='" & TxtDataEntrada & "'," & _
" t02Produto ='" & dtproduto & "'," & _
" t02QTDE ='" & TxtQtde_Entrada & "'," & _
" t02procedencia ='" & txtProcedencia & "' " & _
" where t02Nota = '" & txtNota & "'"
USUARIO.EXCLUIDOS 22/03/2004 23:04:30
#16516 Resposta escolhida
Olhe bem o que você está fazendo:

meusql = " update t02_Estoque_Entradas, t01_estoque set " & _
" t01quantidade = t01quantidade + ' " & TxtQtde_Entrada & " ', " & _
" t02Data = ' " & TxtDataEntrada & " ' ," & _
" t02Produto = ' " & dtproduto & " ', " & _
" t02QTDE =' " & TxtQtde_Entrada & " ', " & _
" t02procedencia =' " & txtProcedencia & " ' " & _
" where t02Nota = ' " & txtNota & " ' "

Você está usando aspas simples para os campos numéricos, para os campos texto e para os campos data. Assim, não vai funcionar. Tente substituir por:

meusql = " update t02_Estoque_Entradas, t01_estoque set " & _
" t01quantidade = t01quantidade + " & TxtQtde_Entrada & " , " & _
" t02Data = #" & TxtDataEntrada & "# ," & _
" t02Produto = '" & dtproduto & "', " & _
" t02QTDE = " & TxtQtde_Entrada & " , " & _
" t02procedencia = '" & txtProcedencia & "' " & _
" where t02Nota = '" & txtNota & "' "
Tópico encerrado , respostas não são mais permitidas
Voltar