Olá Rocha!
É o seguinte: Estou criando um sistema de controle de estoque, nesse sistema tem cadastro de produtos e entrada de produtos. O q eu quero fazer é o seguinte: Na hora q chegar mercadoria, por exemplo, 30 CAIXAS DE PAPEL SULFITE, no momento que der entrada na mercadoria, eu quero que automaticamente no cadastro de produtos apareça a quantia q tinha mais a quantia q havia chegado, estou usando o seguinte código:
Private Sub cmdGravar_click()
Dim Pesquisa As String
dtaEntrada.RecordSource = "Select * FROM Produtos order by Produto"
dtaEntrada.Refresh
Pesquisa = "Produto = '" & cmbProduto.Text & "'"
dtaEntrada.Recordset.FindMin Pesquisa
If dtaEntrada.Recordset.NoMatch = True Then
MsgBox "Produto não Cadastrado. Ação Cancelada.", vbOKOnly + vbCritical, Me.Caption
dtaProduto.Recordset.CancelUpdate
Exit Sub
End If
dtaEntrada.UpdateRecord
dtaEntrada.Recordset.Bookmark = dtaEntrada.Recordset.MaxModified
dtaEntrada.Recordset.Edit
frmProduto.dtaProduto.Recordset = dtaProduto.Recordset("QTDE") + dtaEntrada.Recordset("QTDE")
End Sub
Outra coisa no cmbProduto (Combo1), eu liguei ele corretamente no BD, mas qdo eu clico no botão incluir, não aparece nenhum produto! Vou colar o código do botão incluir:
Private Sub cmdIncluir_Click()
dtaEntrada.Recordset.AddNew
txtDataEntrada.SetFocus
txtDataEntrada = Format(Date, "dd/mm/yyyy")
End Sub