[Resolvido]De Para com mais de uma seleção em formulário contínuo.

Amigos,

Com a ajuda do mestr JPaulo encontrei uma solução no tópico https://www.maximoaccess.com/t25616-resolvidode-para-em-tabela-por-vba, e resolvi um problema que tratava uma excessão por VBA.

Ou seja, em um form continuo eu seleciono alguns itens em uma caixa de seleção para realizar um De Para com o código abaixo:

Dim rs As Recordset

If Not IsNull("Me.cboGuia") Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Comparativo where CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'") ' Like Me.txtAtivado = True '")
While (Not rs.EOF)
' On Error Resume Next
rs.Edit
rs("CódServiço") = Replace(rs("CódServiço"), Me.txtCodigoOperadora.Value, Me.txtCodigoHosp.Value)

rs.Update
rs.MoveNext

Wend
rs.Close
CurrentDb.Execute "DELETE * FROM ComparativoDetalhe WHERE CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'"
DoCmd.OpenQuery "QueryComparativoDetalheInsertGuia"

Forms![Form_Enviado - Recebido].Requery
DoCmd.Close
End If
End If

Mas só consigo alterar um registro de cada vez, e se eu selecionar mais de um na caixa de seleção txtAtiva não funfa.

Alguém tem uma dica, por exemplo, se eu selecionar três registros alterar os três?

Acreditei que se eu colocasse um And Me.txtAtivado = True Then, mas ainda não fez o Loop para percorrer todas as caixas marcadas.
Alguma dica para esse Loop percorrer todas as caixas marcadas?

Ainda estou peleja para resolver essa questão. Será que se eu usar um dlookup para substituir os registros que estão marcados - 1, eu tenho êxito?

Up.
Peço uma ajuda aos feras, pois, se não puder fazer com esta sintaxe eu abro mão da idéia.

Grato,

Up. Caso algum dos amigos puder me sugerir a sintaxe para sanar a demanda de um cliente eu agradeço na mensagem 01. Pois preciso finalizar este código.

Amigo, acredito que o principal motivo de a galera aqui nao esta lhe ajudando, seja a dificuldade de compreensão da sua duvida. Eu mesmo ja li e reli seu post, mas sem o EXEMPLO fica complicado entender e simular seu problema...

Por favor Poste o seu exemplo com o que vc ja resolveu no Outro Topico, para que fique mais facil o entendimento da duvida.

Prezado,

Veja este pequeno exemplo das partes envolvidas que resolvi no tópico anterior: https://www.dropbox.com/s/o5f1yjdnz7bum7a/Base%20Teste.rar?dl=0

Na pratica seria o seguinte, no Form_Enviado - Recebido o usuário seleciona alguns registros na combo Nota e clica no botão Excessão.

- Será aberto o formulario frmExcessaoCodigosNota, com diversas caixas de seleção dai eu clico nos registros que eu vou tratar via VBA, mas o loop não percorre todos os registros do formulário frmExcessaoCodigosNota com fonte de registro tblDiariasTaxas.

Caso necessário maiores esclarecimentos, só sinalizar eu tento esclarecer.

Grato,

Vamos la... pra eu entender o que vc esta tetando fazer com o comando...

Eu nao consegui saber quais alteraçoes vc deseja fazer na Tabela Comparativo, Por favor, me fala o que pretende fazer quando selecionar os registros no formulario frmExcessaoCodigosNota e clicar no Botão OK. Vi que deseja mudar algo na Tabela Comparativo, me explique por favor, para ver se consigo fazer direto por SQL.

Seu raciocínio está correto!

Pretendo mudar o campo CódServiço.

Ode tiver o código 10102019, substituir por 10102016, e onde tiver o código 60000091, substituir por 60000090 tendo como critério a nota filtrada na combo.

O meu problema é que somente consigo alterar um por um

Qual a Ligação entre a Tabela "tblDiariasTaxas" ( que é onde tem o Codigo a ser levado para a outra tabela) e a Tabela "Comparativo" que é a que recebera a atualização????

Então, não possui ligação entre a tabela tblDiariasTaxas e a Comparativo.
Apenas abro o RecordSet ligado a tabela Comparativo para modificar o campo Codigo.

Grato,

Apos modificação por VBA, uso esta consulta acrescimo.

INSERT INTO ComparativoDetalhe ( NomeUsuário, CódUsuário, CódGuia, DtAtendimento, DtAlta, CódServiço, NomeServiço, SomaDeQuantidadeServiço, Referencia, SomaDeValorPago, QtRecebido, valorUnitario, valorTotalRecebido, Saldo, Fechamento, Nota, MarcaRecurso, Convenio, DataCredito )
SELECT EnviadoConf.NomeUsuário, EnviadoConf.CódUsuário, EnviadoConf.CódGuia, EnviadoConf.DtAtendimento, EnviadoConf.DtAlta, EnviadoConf.CódServiço, EnviadoConf.NomeServiço, EnviadoConf.QuantidadeServiço, EnviadoConf.Referencia, EnviadoConf.ValorPago, Sum(Comparativo.QtdRecebido) AS SomaDeQtdRecebido, Sum(Comparativo.valorUnitario) AS SomaDevalorUnitario, Sum(Comparativo.valorTotalRecebido) AS SomaDevalorTotalRecebido, Nz([somadevalorTotalRecebido])-Nz([valorPago]) AS Saldo, EnviadoConf.Fechamento, EnviadoConf.Nota, EnviadoConf.MarcaRecurso, EnviadoConf.Convenio, Comparativo.DataCredito
FROM EnviadoConf LEFT JOIN Comparativo ON (EnviadoConf.CódServiço = Comparativo.CódServiço) AND (EnviadoConf.CódGuia = Comparativo.CódGuia)
GROUP BY EnviadoConf.NomeUsuário, EnviadoConf.CódUsuário, EnviadoConf.CódGuia, EnviadoConf.DtAtendimento, EnviadoConf.DtAlta, EnviadoConf.CódServiço, EnviadoConf.NomeServiço, EnviadoConf.QuantidadeServiço, EnviadoConf.Referencia, EnviadoConf.ValorPago, EnviadoConf.Fechamento, EnviadoConf.Nota, EnviadoConf.MarcaRecurso, EnviadoConf.Convenio, Comparativo.DataCredito
HAVING (((EnviadoConf.Nota)=[Forms]![Form_Enviado - Recebido]![Nota]));

Meu amigo, Nao consegui arrumar seu Codigo o...
O problema ali, é que ele so consegue alterar o Registro Que está selecionado no Formulario (nao a caixa marcação)...
Então fiz um Paleativo que talvez lhe ajude até alguem com maior conhecimento na Area de umas Dicas pra nós...

O que eu fiz, foi na verdade PERCORRER registro a registro do Formulario, e Mudar aquele codigo la... Nesse BD que me mandou funcionou direitinho, mas so tem uma NF... entao faça o teste vc mesmo, escolha uma NF grande e veja se resolve momentaneamente.

Mude a Parte Inicial do seu Codigo do Botão OK para:

Código:


Private Sub btnLoopCodigo_Click()
DoCmd.GoToRecord acForm, "frmExcessaoCodigosNota", acFirst
Dim rs As Recordset
Dim Resp As String

Resp = MsgBox("Deseja realmente tratar os registros selecionados?", vbYesNo + vbQuestion, "Log")
If Resp = vbYes Then

If Not IsNull("Me.Nota") Then
Set rs = CurrentDb.OpenRecordset("SELECT [CódServiço] FROM Comparativo where Nota = '" & Forms![Form_Enviado - Recebido]!Nota & "'")
Do While Not rs.EOF
  'While (Not rs.EOF)
  On Error Resume Next
  rs.Edit
  rs("CódServiço") = Me.txtCodigoHosp

 rs.Update
 'Move para o Proximo Registro do Formulario
 DoCmd.GoToRecord acForm, "frmExcessaoCodigosNota", acNext
 rs.MoveNext
'Wend
Loop
rs.Close


Outra coisa, terá que mandar classificar a tabela Comparativo pelo campo (CódServiço) e no formulario frmExcessaoCodigosNota mandar classificar por: DescriçãoUnimed . Assim os campos ficaram sempre nas mesmas ordens e nao dara problema na substituição
É muito complicado seu caso amigo, pois não tem relacionamento entre as Tabelas DiariasTaxas e Comparativo.


Aguardamos Dicas dos Mestres!

Obrigado amigo,

Vou realizar os testes e retorno.

Olá, boa noite,

Fiz o teste aqui e verifiquei que o código está apresentando um pequeno detalhe:

O código na tabela Comparativo está salvando invertido.[img][/img]

Nao da pra ver nada na Imagem....

Mas me diz uma coisa, vc cassificou a tabela e o Formulario conforme falei?

Outra coisa, terá que mandar classificar a tabela Comparativo pelo campo (CódServiço) e no formulario frmExcessaoCodigosNota mandar classificar por: DescriçãoUnimed . Assim os campos ficaram sempre nas mesmas ordens e nao dara problema na substituição

Justamente,

Classifiquei,

Estou montando um exemplo por listbox.

Deve ser mais facil de tratar esses detalhes. Vou postar um exemplo no forum para os amigos que puder colaborar.

Amigos se eu não estiver errado não precisa disso tudo de código ñ, ao meu ver uma consulta atualização resolve isso aí rapidinho.


UPDATE tblDiariasTaxas INNER JOIN ComparativoDetalhe ON tblDiariasTaxas.CodMetropolitano = ComparativoDetalhe.CódServiço SET ComparativoDetalhe.CódServiço = [CodUnimed]
WHERE (((tblDiariasTaxas.[Ativado])=Yes));

Prezados, bom dia,

Agradeço a dica de todos, em especial ao amigo FabioPaes que me clareou as ideias.

Consegui resolver com uma listbox sem precisar criar vinculo entre as tabelas. Segue código.

Muito bom meu amigo, que bom que deu certo...

Se possível, Posta pra nos aquele exemplo com essas modificações...

Claro,

Segue link corrigido com as modificações no código.
https://www.dropbox.com/s/o5f1yjdnz7bum7a/Base%20Teste.rar?dl=0

Caro XPTOS,

Poderia postar a solução novamente, o link esta quebrado.

Bom dia,

Gentileza fazer novo teste no link abaixo:
https://www.dropbox.com/home?d=1&preview=Teste.rar

Agora com minha conta logada ele não encontra o arquivo.
O link também não esta funcionando.

Veja este:
https://www.dropbox.com/s/7ppsdj3t2yenno7/Teste1.rar?dl=0

Estou conseguindo baixar normal por esse link.

Agora sim.. Muito obrigado.