[Resolvido]alteracao de preço

ola pessoal

tenho esse código em um botão no formulário principal de uma consulta com subformulario segue os nomes
frmconsultaproduto - principal
qryproduto - subformulario

tem um campo não acoplado com nome de novopreco tipo porcentagem

código do botao

DoCmd.SetWarnings False

MsgBox "Precos seram alterados", vbCritical, "Atenção"

DoCmd.RunSQL "UPDATE qryproduto SET qryproduto.precovenda = [precovenda]* forms!frmconsultaproduto!novopreco +[precovenda]"

MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

DoCmd.SetWarnings True

bom meu problema e altera todos os preços do produtos , bom minha ideia seria como eu uso formulário de consulta para pesquisar
os produtos , porque não usar para alterar os preços filtrando por grupo como já acontece
também coloquei na tblproduto um campo tipo sim/não para marcar quais os produtos iram sofrer alterações também
não funcionou altera tudo.

muito obrigado

Veja se eu entendi:
Você quer alterar os preços dos produtos filtrados no subform? Se sim, deveria usar a mesma Cláusula WHERE que usa para
fazer a filtragem na SQL que fará a alteração.

Ola Marcelo

muito obrigado pela sua atenção

segue meu código que filtra o subformulario

'pesquisa avançada

'If Me.mdlordenar = 3 Then
' Me.qryCliente.Form.RecordSource = "SELECT * FROM qrycliente WHERE codcliente LIKE'" & Me.txt_Busca.Text & "' "

' ElseIf Me.mdlordenar = 4 Then
'Me.QryPecas.Form.RecordSource = "SELECT * FROM Qrypecas WHERE codigopecas LIKE '" & Me.txt_Busca.Text & "' "

' ElseIf Me.mdlordenar = 4 Then
' Me.qryConsultaClientes.Form.RecordSource = "SELECT * FROM qryconsulta associado WHERE Unidade LIKE '*" & Me.txt_Busca.Text & "*' "


If Me.mdlordenar = 1 Then
Me.QryProduto.Form.RecordSource = "SELECT * FROM qryproduto WHERE Descricao LIKE '*" & Me.txt_Busca.Text & "*' "

ElseIf Me.mdlordenar = 2 Then
Me.QryProduto.Form.RecordSource = "SELECT * FROM qryproduto WHERE Fornecedor LIKE '*" & Me.txt_Busca.Text & "*' "

ElseIf Me.mdlordenar = 3 Then
Me.QryProduto.Form.RecordSource = "SELECT * FROM qryproduto WHERE codigo_barras LIKE '*" & Me.txt_Busca.Text & "*' "


ElseIf Me.mdlordenar = 4 Then
Me.QryProduto.Form.RecordSource = "SELECT * FROM Qryproduto WHERE Grupo LIKE '" & Me.txt_Busca.Text & "*' "



End If

End Sub


não entendi onde colocar o código where ?

Então, você gostaria de alterar o preço dos produtos filtrados?

Marcelo

isso mesmo usar o próprio formulário de consulta , para efetuar as alterações de preço

Declare uma variável (por exemplo Filtro) que seja vista em todo o módulo do formulário principal, para armazenar a WHERE.

Daí, ao invés de usar toda a escrita da SQL para cada um IF/ELSEIF, defina apenas o critério de filtragem na variável.

Daí no RowSource você define sua SQL utilizado como critério a variável filtro, tanto para fazer as buscar como para fazer
a atualização do preço.

Caso não consiga, poste parte do seu aplicativo que tento fazer para você.

Marcelo

como faço para mandar o DB para você ?

Compacte em Zip, e quando estiver escrevendo a mensagem, logo abaixo do local de escrita,
tem um botão "procurar..." e "enviar consulta"
Ao clicar em procurar escolha o arquivo em zip (apenas .zip aceita) e em seguida
clique em "enviar consulta" e proceder normalmente com o envio da mensagem.

Caso seja muito grande o arquivo, pode enviar para meu e-mail:marcelordavid@hotmail.com

Marcelo

segue o arquivo

Mais tarde volto e vejo para você!

Marcelo

você conseguiu baixar o arquivo

Olá, meu amigo...
Bem, fiz algumas modificações no seu sistema:
O campo altera, não é necessário, portanto o excluí.
Aqueles ElseIf, substituí por um Select, muito mais preciso
no grupo de opções que seleciona o que será filtrado.

Para alterar o preço é feito um laço, e usamos como filtragem a WHERE da pesquisa no formulário.

Ao invés do sistema apenas informar que os preços serão alterados, agora ele pergunta se o usuário
realmente quer alterar os preços em "x"%, conforme definiu.

Veja se é assim que você deseja.

Não esqueça que para alterar os preços em porcentagem, é preciso já haver algum valor informado
nos produtos, antes todos estavam vazios.

No aguardo,

Marcelo

muito obrigado pela sua ajuda

funcionou perfeitamente

bom dia

pessoal foi resolvido com ajuda do nosso amigo Marcelo

segue os códigos da consulta e botão

consulta

Select Case Me!mdlordenar
Case 1

strFiltro = "Descricao LIKE '*" & Me.txt_Busca.Text & "*' "
Case Is = 2
strFiltro = "Fornecedor LIKE '*" & Me.txt_Busca.Text & "*' "

Case Is = 3

strFiltro = "codigo_barras LIKE '*" & Me.txt_Busca.Text & "*'"

Case Is = 4
strFiltro = "Grupo LIKE '" & Me.txt_Busca.Text & "*' "
End Select

Me.QryProduto.Form.RecordSource = "SELECT * FROM Qryproduto WHERE " & strFiltro


alteração de preco botão

Dim rs As DAO.Recordset
Dim cNP As Currency

If IsNull(Me!NovoPreco) Then
MsgBox "Porcentagem não informada!", vbExclamation, "Alteração de preços"
Me!NovoPreco.SetFocus
Exit Sub
End If

Me!NovoPreco.SetFocus

If MsgBox("Gostaria realemente de alterar os preços em " & Me!NovoPreco.Text & "?", vbExclamation + vbYesNo, "Confirme") = vbYes Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblProduto WHERE " & strFiltro)

Do Until rs.EOF
rs.Edit
cNP = Nz(rs!PrecoVenda, 0) * Me!NovoPreco + Nz(rs!PrecoVenda, 0)
rs!PrecoVenda = cNP
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

Me.Refresh

End If

muito obrigado a todos
valeu Marcelo

ate aproxima

Grato meu amigo pelo retorno!