INCLUSSAO HELP

GESSINGER 29/01/2011 20:19:45
#363784
se eu clicar 1 vez so no cmdGravar, ele não gravar.Somente se eu der 2 cliques. Pq será ?
alquem po fazar alguma alteração, pois o bt ta no ecento Click e não dbClick né ? Obrigado

Private Sub Command1_Click()
rs.AddNew

txtCategoria.Text = Trim(txtCategoria.Text)
rs!Catergoria = txtCategoria.Text
txtProduto.Text = Trim(txtProduto.Text)
rs!Produto = txtProduto.Text
rs!Estoque = txtEstoque.Text
rs!Valor = txtValor.Text
rs!Valorpago = txtPago.Text
End Sub
GESSINGER 29/01/2011 20:45:19
#363786
OBS: to usando Ado e access
LUIZCOMINO 29/01/2011 21:54:26
#363788 Resposta escolhida
falta o UPDATE

-----------
Private Sub Command1_Click()
rs.AddNew

txtCategoria.Text = Trim(txtCategoria.Text)
rs!Catergoria = txtCategoria.Text
txtProduto.Text = Trim(txtProduto.Text)
rs!Produto = txtProduto.Text
rs!Estoque = txtEstoque.Text
rs!Valor = txtValor.Text
rs!Valorpago = txtPago.Text
rs.update
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar