Rotina com erro


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Rotina com erro

Antares

UCHOA
SP - BRASIL

Postada em 16/07/2004 01:39 hs

Olá

Gostaria q alguem corrigisse essa rotina... é de um formulario de saida de mercadorias para um formulario estorno, onde quando alguem errar na inserção dos dados ele ira clicar no botão do estorno se realmente tenha salvo a inserção e assim o estorno ficará com ela armazenado em um tabela e no formulario como consulta...

Essa é a rotina está com erro...

Private Sub Cmdestorno_Click()
Dataestorno.Recordset!Codigo = Val(Txtcodigo.Text)
Dataestorno.AddNew
Dataestorno.Recordset.Refresh
Dataestorno.Recordset.Update
Dataprodutos.Recordset.Edit
Dataprodutos.Recordset!Quantidade = Dataprodutos.Recordset!Quantidade + ValTxtquantidade)
Dataprodutos.Recordset.Update

End Sub

PC²

JUCUTUQUARA, VITÓRIA
ES - BRASIL

Postada em 16/07/2004 08:11 hs

não sei se é isto, mas tente:

Private Sub Cmdestorno_Click()
Dataestorno.AddNew

Dataestorno.Recordset!Codigo = Val(Txtcodigo.Text)
Dataestorno.Recordset.Refresh
Dataestorno.Recordset.Update
Dataprodutos.Recordset.Edit
Dataprodutos.Recordset!Quantidade = Dataprodutos.Recordset!Quantidade + ValTxtquantidade)
Dataprodutos.Recordset.Update

End Sub

____________________________

PC² T+

|-tom-|

CATANDUVA
SP - BRASIL

Postada em 16/07/2004 08:45 hs

eu creio q deve ser realmente o q o Pc2 disse, vc esta tentando adicionar registro antes de vc dar ADDNEW nesse controle.

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

Isaías 26:4

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR