Ajuda para adaptar um codigo vba

Olá a todos o novo forum esta ficando muito bom parabens Jpaulo!
Bem pessoal graças a ajuda do expert JPaulo consegui um codigo que necessitava!
agora presciso de uma adaptação no codigo...

'*** Créditos JPaulo do Maximus Access ***

Private Sub PreçoUnitário_Exit(Cancel As Integer)
Dim strUP As String
Dim strDU As String
Call cmdVirtualSalvar_Click 'botao virtual para salvar o registo
strUP = DMax("[PreçoUnitário]", "DetalhesDoPedido", "[NúmeroDoPedido]=" & Me.NúmeroDoPedido & "")
If Me.txtCódigoDaCategoria.Value = 1 Then
' Bem aqui pessoal gostaria de colocar um bloqueio ex: o "strDu" vai debaixo para cima fazendo a verificação caso o txtCódigoDaCategoria.Value = 8 gostaria que o codigo pare de fazer "UPDATE" (então o cogido faz UPDATE somente com o txtCódigoDaCategoria 1 presciso que ao encontrar o txtCódigoDaCategoria 8 por ex. ele nao faça mais UPDATE para cima somente ate a linha que contem o txtCódigoDaCategoria 8)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE DetalhesDoPedido Set [DetalhesDoPedido].[Preço_Praticado] = '" & strUP & "' WHERE [DetalhesDoPedido].[NúmeroDoPedido] = " & Me.NúmeroDoPedido & " AND [DetalhesDoPedido].[CódigoDaCategoria] = " & Me.txtCódigoDaCategoria & ""
DoCmd.SetWarnings True
Else
Exit Sub ' se o strDU for diferente de 1, não faz Update
End If
Me.Preço_Praticado.Requery
End Sub
Desde Já agradeço a ajuda de todos!

nao sei se entendi bem, mas vc pode acrescentar ai o seguinte codigo:

If txtCódigoDaCategoria.Value = 8 then
exit sub
End If

teste ai e veja se deu certo!

abs....

Ola Amigo obrigado pela ajuda mas realmente não é isso que presciso!

Bem acho que nao ficou bem esclarecido espero trasmitir qual é a minha real necessidade!

'*** Créditos JPaulo do Maximus Access ***

Private Sub PreçoUnitário_Exit(Cancel As Integer)
Dim strUP As String
Dim strDU As String
Call cmdVirtualSalvar_Click 'botao virtual para salvar o registo
strUP = DMax("[PreçoUnitário]", "DetalhesDoPedido", "[NúmeroDoPedido]=" & Me.NúmeroDoPedido & "")
If Me.txtCódigoDaCategoria.Value = 1 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE DetalhesDoPedido Set [DetalhesDoPedido].[Preço_Praticado] = '" & strUP & "' WHERE [DetalhesDoPedido].[NúmeroDoPedido] = " & Me.NúmeroDoPedido & " AND [DetalhesDoPedido].[CódigoDaCategoria] = " & Me.txtCódigoDaCategoria & ""
DoCmd.SetWarnings True
Else
Exit Sub ' se o strDU for diferente de 1, não faz Update
End If
Me.Preço_Praticado.Requery
End Sub

hoje o codigo esta assim e muda para maior preço todos os produtos da mesma categoria como sabem as pizzarias tendem a cobrar pelo maior preço do sabor escolhido
então presciso que o codigo pare quando achar pelo caminho o txtCódigoDaCategoria= 8
txtCódigoDaCategoria Pizza Fração PreçoUnitário Preço_Praticado
1 CALABRESA 1/3 R$ 10,00 R$ 20,00
1 PORTUGUESA 1/3 R$ 15,00 R$ 20,00
1 FRANGO 1/3 R$ 20,00 R$ 20,00
8 *** FIM *** 1 R$ 0,00 R$ 0,00
1 SICILIANA 1/4 R$ 12,00 R$ 20,00
1 STROGONOFF 1/4 R$ 12,00 R$ 20,00
1 4 QUEIJOS 1/4 R$ 15,00 R$ 20,00
1 DA CASA 1/4 R$ 14,00 R$ 20,00


aqui a consulta encontra o txtCódigoDaCategoria= 8 e não muda os preços praticados
gostaria que fica-se assim que o codigo não altere os dados a cima do txtCódigoDaCategoria se o mesmo for = 8
txtCódigoDaCategoria Pizza Fração PreçoUnitário Preço_Praticado
1 CALABRESA 1/3 R$ 10,00 R$ 20,00
1 PORTUGUESA 1/3 R$ 15,00 R$ 20,00
1 FRANGO 1/3 R$ 20,00 R$ 20,00
8 *** FIM *** 1 R$ 0,00 R$ 0,00
1 SICILIANA 1/4 R$ 12,00 R$ 15,00
1 STROGONOFF 1/4 R$ 12,00 R$ 15,00
1 4 QUEIJOS 1/4 R$ 15,00 R$ 15,00
1 DA CASA 1/4 R$ 14,00 R$ 15,00

Desde já agradeço!

Ola amigo joanir, desculpe não responder mais cedo, mas o tempo não abunda.

O que você quer não é dificil de fazer, apenas temos de trabalhar com RecordSet e dar um Loop.

Vou alterar esse codigo todo, e já lho passo.

Amigão aí está;

Delete o outro e cole este;

Download

Olá JPaulo e obrigado pela ajuda!

1º Bem mudei o novo codigo mas prescisava que ele continua-se fazendo UPDATE so com txtCódigoDaCategoria.Value = 1
mas ele esta fazendo com todas as categorias.

2º Esta faltando alguma coisa JPaulo o codigo continua fazendo UPDATE para cima mesmo tendo encontrado o txtCódigoDaCategoria.Value = 8

3º acho que o loop gerado deu um problema ao navegar pelos campos prescionando enter ao final do ultimo campo ele não vai para o novo registo tenho que clicar com o mause, e depois que presciono enter na 2 linha o loop muda o foco para o primeiro registro na primeira linha.

Por enquanto muitissimo obrigado JPaulo !!!

Amigão bom dia !

Peço mil desculpas, por colocar disponivel o código de teste, quando o código final já estava feito.

Confira por favor.


Download

Boa tarde JPaulo
Testei o codigo e ele esta fazendo update para cima mesmo tendo encontrado a categoria 8

COD: Código da Categoria: PIZZA: R$ Unit: R$ Real: Nº S Desco Total:
35,5 1 4 QUEIJOS GIG R$ 17,50 R$ 17,50 1 R$ 0,00 R$ 17,50
28,4 1 A MEXICANA BIG R$ 15,00 R$ 17,50 1 R$ 0,00 R$ 17,50
500 8 *** FIM *** R$ 0,00 R$ 0,00 1 R$ 0,00 R$ 0,00
35,4 1 4 QUEIJOS BIG R$ 16,50 R$ 17,50 1 R$ 0,00 R$ 17,50
28,4 1 A MEXICANA BIG R$ 15,00 R$ 17,50 1 R$ 0,00 R$ 17,50

Nos codigos dos produtos 35,4 / 28,4 o maior valor tinha de ser = 16,5 e no entanto foi 17,5 sendo o maior valor do formulario folha de dados e não o que estava abaixo da categoria =8

Deve ser algum pequeno detalhe Por enquanto Obrigado JPaulo

Ola joanir;

Veja novamente o ultimo download.

Para funcionar corretamente terá de ter um campo de chave autonumeração, que eu neste codigo lhe dei o nome de ID, só assim se pode fazer o loop em DESC, ou seja de baixo para cima.

Olá JPaulo.

Meu formulario ja tinha um campo autonumeração entao coloquei no lugar do ID e ao efetuar lançamento na primeira linha ok, mas na segunda linha ele trava nao sai nenhuma mensagem e o temporizador fica na tela o tempo todo e ao clicar na tela dis que o access (não respondendo.

Por enquanto Obrigado!

Veja e adapte, aqui funciona;

http://dl.dropbox.com/u/771097/

Ola JPaulo

Bem Testei e observei o seguinte, quando o PreçoUnitário da segunda pizza é inferior ao que esta acima da categoria 8 o mair preço da pizza de cima prevale-se, nesse caso tinha que prevalecer o maior do que esta abaixo.

Ex:
ID NúmeroDoPedido txtCódigoDaCategoria Pizza Fração PreçoUnitário Preço_Praticado
38 1 1 a 1 10,00 € 11,00 €
39 1 1 b 1 11,00 € 11,00 €
40 1 8 c 1 0,00 € 0,00 €
41 1 1 d 1 7,00 € 11,00 €
42 1 1 e 1 6,00 € 11,00 €

e se o valor da segunda pizza for maior que o da primeira ai sim funciona direitinho, mas só se o valor da segunda pizza ou o que esta abaixo da categoria 8 for maior

Ex:

ID NúmeroDoPedido txtCódigoDaCategoria Pizza Fração PreçoUnitário Preço_Praticado
38 1 1 a 1 10,00 € 11,00 €
39 1 1 b 1 11,00 € 11,00 €
40 1 8 c 1 1,00 € 0,00 €
41 1 1 d 1 17,00 € 17,00 €
42 1 1 e 1 6,00 € 17,00 €
43 1 8 0,00 € 0,00 €
44 1 1 1 1 20,00 € 20,00 €
45 1 1 1 1 10,00 € 20,00 €

Por enquanto obrigado JPaulo.

Confirme por favor;

http://dl.dropbox.com/u/771097/joanir.mdb

Olá JPaulo mandei o e-mail do modelo para voce ver esta quase 100%

Obrigado!

Ola joanir;

Até à data não recebi email algum.

O ultimo código, funciona ? Resolve ?

Olá JPaulo estava trabalhando ate agora.

o codigo ainda nao esta 100% ocorrem alguns erro conforme passei por e-mail ( há o primeiro e-mail voltou então mandei outro).
Obrigado JPaulo tenha uma boa noite ou um bom dia rsrrsrs nao sei que horas são ai em Portugal
Abraços.

Ola
Jpaulo

Bem tenho um novo caminho baseado no primeiro codigo que voce desenvolveu...

Private Sub PreçoUnitário_Exit(Cancel As Integer)
Dim strUP As String
Dim strDU As String
Call cmdVirtualSalvar_Click 'botao virtual para salvar o registo
strUP = DMax("[PreçoUnitário]", "DetalhesDoPedido", "[NúmeroDoPedido]=" & Me.NúmeroDoPedido & "")
If Me.txtCódigoDaCategoria.Value = 1 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE DetalhesDoPedido Set [DetalhesDoPedido].[Preço_Praticado] = '" & strUP & "' WHERE [DetalhesDoPedido].[NúmeroDoPedido] = " & Me.NúmeroDoPedido & " AND [DetalhesDoPedido].[CódigoDaCategoria] = " & Me.txtCódigoDaCategoria & ""
DoCmd.SetWarnings True
Else
Exit Sub ' se o strDU for diferente de 1, não faz Update
End If
Me.Preço_Praticado.Requery

End Sub

Bem criei esses subformularios sobrepostos e os botoes para selecionar 1ªPizza, 2ªPizza etc. So quetem um problema, em rede sai a mensagem de que não é possivel abrir muitos banco de dados


Me.SubformulárioPedidos_1ªPizza.Visible = True
' este codigo acima é o Sub_formulario que vai ficar visivel, lembre de edita-lo na lista abaixo!

Private Sub 1ªPizza_Click()
'Me.SubformulárioPedidos_1ªPizza.Visible = False
Me.SubformulárioPedidos_2ªPizza.Visible = False
Me.SubformulárioPedidos_3ªPizza.Visible = False
Me.SubformulárioPedidos_4ªPizza.Visible = False
Me.SubformulárioPedidos_5ªPizza.Visible = False
Me.SubformulárioPedidos_6ªPizza.Visible = False
Me.SubformulárioPedidos_7ªPizza.Visible = False
Me.SubformulárioPedidos_8ªPizza.Visible = False
Me.SubformulárioPedidos_9ªPizza.Visible = False
DoCmd.GoToControl "SubformulárioPedidos_1ªPizza"
End Sub

o codigo ficou 10 nesse esquema porque lanço apenas uma pizza por formulario e os demais itens podem ser lançados junto com as pizzas no mesmo formulario porque as categorias são diferentes e ele so fas update com a categoria 1

pergunto! Tem como ao invez de ficar invisivel ele ser fechado para que não fique aberto e não de essa mensagem quando o banco de dados esta dividido?

Abraços!

Sendo os SubFormularios, controles inseridos num Formulario, não dá para fechar apenas dá para colocar invisivel.

Tenho pena é que o ultimo código que lhe passei, não funcione para o que quer, pois ele funciona a 100%.

Ok JPaulo sei que se esforçou batante para me ajudar e aprendi muito com o loop que vc criou agora tambem posso usalo em outros projetos valeu JPaulo Você é 10

Abraços!