MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Dom 13 Mar 2016, 21:37

    Amigos,

    Com a ajuda do mestr JPaulo encontrei uma solução no tópico [Você precisa estar registrado e conectado para ver este link.] 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sex 18 Mar 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sab 19 Mar 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Qua 23 Mar 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sex 08 Abr 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qui 14 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Qui 14 Abr 2016, 13:27

    Prezado,

    Veja este pequeno exemplo das partes envolvidas que resolvi no tópico anterior: [Você precisa estar registrado e conectado para ver este link.]

    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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qui 14 Abr 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.


    [Você precisa estar registrado e conectado para ver esta imagem.]

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Qui 14 Abr 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qui 14 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Qui 14 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Qui 14 Abr 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
    Developer
    Developer

    Respeito às Regras 100%

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

    Tópico NÃO Solucionado, Apenas um Paleativo

    Mensagem  FabioPaes em Sex 15 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sex 15 Abr 2016, 16:49

    Obrigado amigo,

    Vou realizar os testes e retorno.

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Dom 17 Abr 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][Você precisa estar registrado e conectado para ver esta imagem.][/img]

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 17 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Dom 17 Abr 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.

    textandu
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  textandu em Dom 17 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Dom 17 Abr 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 17 Abr 2016, 15:31

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 17 Abr 2016, 15:47

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

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Seg 18 Abr 2016, 01:17

    Claro,

    Segue link corrigido com as modificações no código.
    [Você precisa estar registrado e conectado para ver este link.]

    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Dom 22 Maio 2016, 15:36

    Caro XPTOS,

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

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Seg 23 Maio 2016, 12:13

    Bom dia,

    Gentileza fazer novo teste no link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Seg 23 Maio 2016, 22:56

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

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Ter 24 Maio 2016, 11:54

    Veja este:
    [Você precisa estar registrado e conectado para ver este link.]

    Estou conseguindo baixar normal por esse link.

    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  jamesacdc em Ter 24 Maio 2016, 23:20

    Agora sim.. Muito obrigado.

      Data/hora atual: Sab 03 Dez 2016, 19:37