MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Vários Registros pelo AddNew - checkbox

    Compartilhe

    rafaelDev
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 24/02/2014

    [Resolvido]Vários Registros pelo AddNew - checkbox

    Mensagem  rafaelDev em 8/6/2017, 20:33

    Olá Pessoal, mais uma vez peço a vossa ajuda.


    Gostaria adicionar vários registros de forma simultânea em uma outra tabela. Ou seja, a cada checkbox selecionada (SELECAO) no "form1" será adicionado um registro em outra tabela, copiando o ID deste registro e adicionando-os na TBL2.

    Consegui realizar a proeza em partes. Seleciono as checkbox que desejo e clico no botão "inserir", logo ele cria penas 1 registro, detalhe, do último que cliquei, por causa do foco.

    segue exemplo:

    desde já muito grato por este Fórum.
    Anexos
    inserir.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (95 Kb) Baixado 10 vez(es)

    rafaelDev
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 24/02/2014

    Re: [Resolvido]Vários Registros pelo AddNew - checkbox

    Mensagem  rafaelDev em 9/6/2017, 13:19

    Bom dia pessoal. Subindo↑↑↑
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10171
    Registrado : 04/11/2009

    Re: [Resolvido]Vários Registros pelo AddNew - checkbox

    Mensagem  JPaulo em 9/6/2017, 17:28

    Olá;

    Código:
    Private Sub Comando20_Click()
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset

        DoCmd.RunCommand acCmdSaveRecord
       
    Set rs = CurrentDb.OpenRecordset("select * from TBL1 where selecao=-1")
    Set rs1 = CurrentDb.OpenRecordset("TBL2")

        'se não encontrar registos para o ID, morre aqui
        If rs.RecordCount = 0 Then Exit Sub
        'coloca-se no 1º registro
        rs.MoveFirst
        'percorre todos os registros da tabela SuaTabela
        Do While Not rs.EOF

            rs1.AddNew
            rs1!ID_VINC_2 = rs("ID")
            rs1!COD = rs("STATUS")
            rs1.Update
        'avança para o seguinte registro
            rs.MoveNext
        Loop
    CurrentDb.Execute "UPDATE [TBL1] SET selecao = 0 WHERE SELECAO = -1"
    Me.Repaint
    rs.Close: Set rs = Nothing
    rs1.Close: Set rs1 = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

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

    rafaelDev
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 24/02/2014

    Re: [Resolvido]Vários Registros pelo AddNew - checkbox

    Mensagem  rafaelDev em 9/6/2017, 18:20

    Perfeito Jpaulo, como sempre suas ajudas resolvem os problemas.

    Muito Grato.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10171
    Registrado : 04/11/2009

    Re: [Resolvido]Vários Registros pelo AddNew - checkbox

    Mensagem  JPaulo em 9/6/2017, 19:05

    Fico feliz.

    Não se esqueçam de contribuir com o fórum nos links abaixo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: 23/10/2018, 02:27