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]Insert Into para múltiplos registros em Linha

    Compartilhe

    peeckzin
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 09/07/2014

    [Resolvido]Insert Into para múltiplos registros em Linha

    Mensagem  peeckzin em Ter 22 Ago 2017, 9:11 am

    Bom dia!

    Quando adiciono o comando INSERT INTO para inserir meus dados preenchidos do Formulário ele aceita até 10 Linhas de Textbox ele trava.
    Vai do txt_CC1 ao txt_CC15, quando chega no 10 ele trava.

    Minha ideia é a seguinte:

    Tenho formulário com 15 linhas para serem preenchidas, mas nem todo caso chega ao limite, então precisaria fazer uma checagem e inserir apenas os valores cujo "txt_CC1...15" seja diferente de vazio;

    E uma forma reduzida desse INSERT INTO, sei lá "for next", estou totalmente perdido.


    Código:
    Sub InserindoValores1()
    'Abastecimentos e Lubrificação

    If Me.txt_CC1 > 0 Then
    CurrentDb.Execute "INSERT INTO Tbl_Abast ([OBRA], [EMPRÉSTIMO], [DATA], [APELIDO], [HORÍMETRO], [ODÔMETRO], [QUANTIDADE], [COMBOIO], [ARLA], [15W40], [ISO 68], [SAE 50], [SAE 80], [SAE 90], [10W], [GRAXA])" _
       & "VALUES('" & Me.txt_CC1 & "', '" & Me.txt_emp1 & "', '" & Me.txt_data1 & "', '" & Me.txt_cod1 & "', '" & Me.txt_hh1 & "', '" & Me.txt_km1 & "', '" & Me.txt_qtd01 & "', '" & Me.txt_comb1 & "', '" & Me.txt_arla1 & "', '" & Me.txt_15w401 & "', '" & Me.txt_iso681 & "', '" & Me.txt_sae501 & "', '" & Me.txt_sae801 & "', '" & Me.txt_sae901 & "', '" & Me.txt_10w1 & "', '" & Me.txt_graxa1 & "')"
    CurrentDb.Close
    End If

    If Me.txt_CC2 > 0 Then
    CurrentDb.Execute "INSERT INTO Tbl_Abast ([OBRA], [EMPRÉSTIMO], [DATA], [APELIDO], [HORÍMETRO], [ODÔMETRO], [QUANTIDADE], [COMBOIO], [ARLA], [15W40], [ISO 68], [SAE 50], [SAE 80], [SAE 90], [10W], [GRAXA])" _
       & "VALUES('" & Me.txt_CC2 & "', '" & Me.txt_emp2 & "', '" & Me.txt_data2 & "', '" & Me.txt_cod2 & "', '" & Me.txt_hh2 & "', '" & Me.txt_km2 & "', '" & Me.txt_qtd02 & "', '" & Me.txt_comb2 & "', '" & Me.txt_arla2 & "', '" & Me.txt_15w402 & "', '" & Me.txt_iso682 & "', '" & Me.txt_sae502 & "', '" & Me.txt_sae802 & "', '" & Me.txt_sae902 & "', '" & Me.txt_10w2 & "', '" & Me.txt_graxa2 & "')"
    CurrentDb.Close
    End If

    If Me.txt_CC3 > 0 Then
    CurrentDb.Execute "INSERT INTO Tbl_Abast ([OBRA], [EMPRÉSTIMO], [DATA], [APELIDO], [HORÍMETRO], [ODÔMETRO], [QUANTIDADE], [COMBOIO], [ARLA], [15W40], [ISO 68], [SAE 50], [SAE 80], [SAE 90], [10W], [GRAXA])" _
       & "VALUES('" & Me.txt_CC3 & "', '" & Me.txt_emp3 & "', '" & Me.txt_data3 & "', '" & Me.txt_cod3 & "', '" & Me.txt_hh3 & "', '" & Me.txt_km3 & "', '" & Me.txt_qtd03 & "', '" & Me.txt_comb3 & "', '" & Me.txt_arla3 & "', '" & Me.txt_15w403 & "', '" & Me.txt_iso683 & "', '" & Me.txt_sae503 & "', '" & Me.txt_sae803 & "', '" & Me.txt_sae903 & "', '" & Me.txt_10w3 & "', '" & Me.txt_graxa3 & "')"
    CurrentDb.Close
    End If
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Insert Into para múltiplos registros em Linha

    Mensagem  FabioPaes em Qua 23 Ago 2017, 1:52 pm

    Acho melhor fazer isso utilizando método DAO.recordset.

    Quanto a travar, e estranho pois ja fiz aqui realizando insert com mais de 1milhao de registros e não travou.

    Veja como inserir pelo método indicado de forma bem simples.
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    peeckzin
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 09/07/2014

    Re: [Resolvido]Insert Into para múltiplos registros em Linha

    Mensagem  peeckzin em Qua 23 Ago 2017, 2:01 pm

    Opa, boa tarde!

    Consegui resolver, utilizei INSERT INTO mesmo, era que 2 textbox não estavam com nome errado.

    Very Happy
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Insert Into para múltiplos registros em Linha

    Mensagem  FabioPaes em Qua 23 Ago 2017, 2:11 pm

    Tranquilo, se a duvida foi solucionada por favor marque como resolvido!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    peeckzin
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 09/07/2014

    Re: [Resolvido]Insert Into para múltiplos registros em Linha

    Mensagem  peeckzin em Qui 24 Ago 2017, 8:26 am

    Fechado, Obrigado a equipe MaximoAccess!

      Data/hora atual: Qua 22 Nov 2017, 5:43 am