MOSTRAR VALOR DE UM CAMPO EM JANELA TIPO MSGBOX

CRISCAMARGO 13/11/2012 14:20:54
#414132
Será que alguém poderia me ajudar???

Estou fazendo um cadastro de estoque em access onde atualizo a quantidade dos produtos em estoque com esse código:

Private Sub cmdSalva_Click
salvar = MsgBox([Ô]Confirma as alterações ?[Ô], vbYesNo, [Ô]Alteração[Ô])
If salvar = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.Quantidade.Value = Val(Me.NovaQuantidade) + Val(Me.Quantidade)
Me.Quantidade.Requery
MsgBox [Ô]Alteração concluída - Nova Quantidade em estoque: [Ô]

Como que eu faço para retornar a quantidade atualizada na tela de Msgbox tb??

Muito obrigada!!!!
F001E 13/11/2012 15:43:44
#414139
ou voce faz um Select pegando essa Quantidade ou Declara uma Variavel com a nova Quantidade assim...

Private Sub cmdSalva_Click
Dim Quantidade as Long
salvar = MsgBox([Ô]Confirma as alterações ?[Ô], vbYesNo, [Ô]Alteração[Ô])
If salvar = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.Quantidade.Value = Val(Me.NovaQuantidade) + Val(Me.Quantidade)
Quantidade = Val(Me.NovaQuantidade) + Val(Me.Quantidade)
Me.Quantidade.Requery
MsgBox [Ô]Alteração concluída - Nova Quantidade em estoque: [Ô] & Quantidade
End If
End Sub
CRISCAMARGO 13/11/2012 17:15:56
#414152
Muito obrigada!!! Deus certo!
Tópico encerrado , respostas não são mais permitidas
Voltar