MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

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

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 13/3/2016, 21:37

    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?
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 18/3/2016, 00:25

    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?

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 19/3/2016, 22:01

    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?
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 23/3/2016, 09:34

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

    Grato,
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 8/4/2016, 00:37

    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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 14/4/2016, 03:43

    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.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 14/4/2016, 13:27

    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,
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 14/4/2016, 15:40

    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.


    [Resolvido]De Para com mais de uma seleção em formulário contínuo. 2cn86bq
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 14/4/2016, 16:01

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 14/4/2016, 19:31

    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????
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 14/4/2016, 20:24

    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,
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 14/4/2016, 20:29

    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]));
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]De Para com mais de uma seleção em formulário contínuo. Empty Tópico NÃO Solucionado, Apenas um Paleativo

    Mensagem  FabioPaes 15/4/2016, 03:15

    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!
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 15/4/2016, 16:49

    Obrigado amigo,

    Vou realizar os testes e retorno.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 17/4/2016, 00:50

    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][Resolvido]De Para com mais de uma seleção em formulário contínuo. 2ywfepe[/img]
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 17/4/2016, 02:23

    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
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 17/4/2016, 02:29

    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.
    avatar
    textandu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 05/08/2013

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

    Mensagem  textandu 17/4/2016, 12:57

    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));
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 17/4/2016, 14:53

    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.

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 17/4/2016, 15:31

    Muito bom meu amigo, que bom que deu certo...
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 17/4/2016, 15:47

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 18/4/2016, 01:17

    Claro,

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

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

    Mensagem  jamesacdc 22/5/2016, 15:36

    Caro XPTOS,

    Poderia postar a solução novamente, o link esta quebrado.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 23/5/2016, 12:13

    Bom dia,

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

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

    Mensagem  jamesacdc 23/5/2016, 22:56

    Agora com minha conta logada ele não encontra o arquivo.
    O link também não esta funcionando.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

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

    Mensagem  XPTOS 24/5/2016, 11:54

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

    Estou conseguindo baixar normal por esse link.
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 09/04/2012

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

    Mensagem  jamesacdc 24/5/2016, 23:20

    Agora sim.. Muito obrigado.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:41