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

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Vários Registros pelo AddNew - checkbox

    Mensagem  rafaelbatistadasilva em Qui 08 Jun 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 8 vez(es)

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  rafaelbatistadasilva em Sex 09 Jun 2017, 13:19

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

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 09 Jun 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.]

    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.]

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  rafaelbatistadasilva em Sex 09 Jun 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 : 9697
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 09 Jun 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.]

    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: Sab 18 Nov 2017, 08:18