[resolvido] Caixa de listagem

Moderador: Avelino Sampaio

msilveir
Mensagens: 18
Registrado em: 08 Jun 2015, 16:12

[resolvido] Caixa de listagem

Mensagempor msilveir » 28 Set 2018, 14:31

ola Pessoal

tenho uma caixa de listagem , gostaria de gravar na tabela de produtos a data de alteração e o status com a mensagem alterado
segue campos da tblprodutos

dtAlteracao
Status

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


msilveir
Mensagens: 18
Registrado em: 08 Jun 2015, 16:12

Re: Caixa de listagem

Mensagempor msilveir » 29 Set 2018, 20:56

ola Pessoal

consegui criar esse codigo abaixo

Código: Selecionar todos

DoCmd.SetWarnings False
MsgBox "Sera Alterado um Produto conforme a Porcentagem Escolhida !!!", vbCritical, "Atenção"
DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_ListaProdutos!txtpreco +[precovenda]WHERE CodPro = forms!frm_ListaProdutos!txtProduto;"
DoCmd.RunSQL "UPDATE  tbl_cadProd set tbl_CadProd.DtAlteracao = forms!frm_ListaProdutos!txtdata ;"
DoCmd.RunSQL "UPDATE  tbl_cadProd set tbl_CadProd.HoraAlt = forms!frm_ListaProdutos!txttime ;"
MsgBox "Preço alterado com sucesso!!!", vbInformation, "Obrigado"
'DoCmd.OpenQuery "CsAtualizaStatus", acViewNormal
Me.ListaProdutos.Requery
Me.txtPreco = ""
Me.txtPreco.SetFocus
Me.txtProduto = ""
ListaProdutos.BackColor = RGB(255, 255, 255)
DoCmd.SetWarnings True


ele altera o valor do item tudo certinho , mas altera a data alteracao de todos itens e hora tambem
mas eu gostaria de alterar so a hora e data do item alterado

msilveir
Mensagens: 18
Registrado em: 08 Jun 2015, 16:12

Resolvido: Caixa de listagem

Mensagempor msilveir » 30 Set 2018, 03:27

boa Noite Pessoal

Apos varias tentativas e erros consegui alterar a hora de um item de venda junto com seu preço de venda segue codigo para futuros problemas

DoCmd.RunSQL "UPDATE tbl_cadProd set tbl_CadProd.HoraAlt = forms!frm_ListaProdutos!txttime WHERE CodPro = forms!frm_ListaProdutos!txtProduto;"

obrigado a todos

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: [resolvido] Caixa de listagem

Mensagempor Damasceno Jr. » 30 Set 2018, 17:47

Obrigado por retornar com a evolução e resolução da sua dúvida.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 5 visitantes