MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Salvar registro formulário contínuo

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Salvar registro formulário contínuo Empty [Resolvido]Salvar registro formulário contínuo

    Mensagem  jamesacdc em 22/5/2016, 16:01

    Bom dia Galera,

    Seguinte, estou quebrando a cabeça em um formulário contínuo.

    Eu tenho um formulário principal onde executa um filtro e carrega uma lista em um subformulário.
    Nesse subformulário eu quero inserir um valor para cada linha (quantidade) e esse campo não seria acoplado.

    Ele será inserido um uma tabela.

    Como solução eu coloquei um botão onde executa uma consulta foi inserção, ele insere o primeiro campo e repete isso em todos os registros.

    Se eu colocar um campo nao acoplado ao inserir ele repete em todas as linhas.. Então nao tenho ideia com resolver isso.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Salvar registro formulário contínuo Empty Re: [Resolvido]Salvar registro formulário contínuo

    Mensagem  FabioPaes em 22/5/2016, 16:28

    Posta seu Exemplo por favor... para facilitar o Entendimento.


    .................................................................................
    _____________________________________________________________________
    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!
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Salvar registro formulário contínuo Empty Re: [Resolvido]Salvar registro formulário contínuo

    Mensagem  jamesacdc em 24/5/2016, 02:08

    Quando eu clico eu estou fazendo esse procedimento.
    Ele esta repetindo o primeiro campo em todos os registros..

    Código:

    Private Sub Comando118_Click()
        Dim db As DAO.Database
        Dim rst As DAO.Recordset
    On Error Resume Next


        Set rst = CurrentDb.OpenRecordset("Select * from csSubKitBaixa where codRelKitTab = 5")
        rst.MoveLast: rst.MoveFirst

      Do While Not rst.EOF

                    CurrentDb.Execute "INSERT INTO[tbCalculosQuantidades](codCalculoAdesivo, codAdesivo, quantidade) VALUES('" & Me.codAdesivo & "', '" & Me.parcial1 & "', 1);"
                    rst.MoveNext
     Loop
        rst.Close
        Set rst = Nothing

    MsgBox "Registro adicionado com sucesso...", vbInformation
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Salvar registro formulário contínuo Empty Re: [Resolvido]Salvar registro formulário contínuo

    Mensagem  FabioPaes em 24/5/2016, 03:27

    Amigo, Formulário continuo, é o mesmo Campo porem repetido varias vezes de acordo com a quantidade de Linhas. Dessa forma se seu Campo nao está acoplado (nao vinculado a um campo na tabela), o mesmo valor que vc colocar no Primeiro Registro, este se repetirá em todos os Outros, pois o mesmo não está vinculado a Tabela. A solução seria Vincular esse campo a uma Tabela Temporária, onde apos a Inserção dos dados, essa tabela seria excluida. Veja algo parecido com sua Duvida aqui:

    https://www.maximoaccess.com/t26701-resolvidoinsert-into-usando-form-principal-e-sub#188767


    .................................................................................
    _____________________________________________________________________
    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!
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Salvar registro formulário contínuo Empty Re: [Resolvido]Salvar registro formulário contínuo

    Mensagem  jamesacdc em 7/4/2020, 03:06

    ótima solução.

      Data/hora atual: 16/7/2020, 14:58