MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Inserir dados subform tabela

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Inserir dados subform tabela Empty [Resolvido]Inserir dados subform tabela

    Mensagem  ictsp 7/8/2022, 20:09

    Prezados colegas, estou tentando inserir os dados de um subform em uma nova tabela.
    Quando utilizo o código somente no subform, dá certo. Mas quando utilizo o código referenciando o form principal, da erro na linha Move Next.
    form principal: altcadped
    subform: altcadpedsub
    erro 3420
    "o objeto nao é válido ou não está definido"
    Desde já, agradeço a atenção dos colegas

    Código:
    Dim rs As Recordset
    'Set rs = Forms!altcadped!ALTCADPEDsub.Form.Recordset
    Set rs = Forms!ALTCADPEDsub.Form.Recordset

    If rs.RecordCount = Empty Then
    MsgBox "Não existem registros para inserir na Tabela", vbCritical
    subc.Enabled = False
    Else
    rs.MoveFirst
    Do While Not rs.EOF
    With rs
    Call Cadastro
    rs.MoveNext
    'Forms!altcadped!ALTCADPEDsub.Form.Recalc
    Forms!ALTCADPEDsub.Form.Recalc
    End With
    Loop
    Set rs = Nothing
    MsgBox "Os registros selecionados foram incluídos na Tabela", vbInformation

    End If
    Código:
    Public Function Cadastro() As Integer

    Dim BancoDados As DAO.Database
    Dim RStb As DAO.Recordset
    Set BancoDados = CurrentDb()
        Set RStb = BancoDados.OpenRecordset("equipe", dbOpenDynaset)
        RStb.AddNew
                 RStb("cod") = Forms!altcadped!cod
                 RStb("loc") = Forms!altcadped!loc
                RStb("empr") = Forms!altcadped!EMPR
                RStb("DataFim") = Forms!altcadped!DataFim
              
                'RStb("idprod") = Forms!altcadped!ALTCADPEDsub!IDPROD
                RStb("idprod") = Forms!ALTCADPEDsub!IDPROD
                'RStb("FUNC") = Forms!altcadped!ALTCADPEDsub!FUNC
                RStb("FUNC") = Forms!ALTCADPEDsub!FUNC
                'RStb("QTDE") = Forms!altcadped!ALTCADPEDsub!QTDE
               RStb("QTDE") = Forms!ALTCADPEDsub!QTDE
                'RStb("SIT") = Forms!altcadped!ALTCADPEDsub!sit
                RStb("SIT") = Forms!ALTCADPEDsub!sit
                'RStb("TIM") = Forms!altcadped!ALTCADPEDsub!Tim
               RStb("TIM") = Forms!ALTCADPEDsub!Tim
                 RStb.Update
                
                 RStb.Requery
    End Function
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Inserir dados subform tabela Empty Re: [Resolvido]Inserir dados subform tabela

    Mensagem  ictsp 17/8/2022, 13:58

    Prezados colegas,
    Não consegui descobrir o problema do código que estou utilizando.
    Provisóriamente, criei uma consulta que executo baseada no critério "loc" do formulário.
    Esta consulta insere na tabela os todos os registros pertinentes ao "loc" (cód.pedido) em questão

    INSERT INTO EQUIPE ( cod, LOC, IDPROD, Empr, Fim, QTDE, SIT )
    SELECT CADPED.cod, CADPEDsub.Loc, CADPEDsub.IDPROD, CADPED.Empr, CADPED.DataFim, CADPEDsub.QTDE, CADPEDsub.SIT
    FROM CADPED INNER JOIN CADPEDsub ON CADPED.LOC = CADPEDsub.LOC
    WHERE (((CADPEDsub.Loc)=[Formulários]![altCADPED]![LOC]));
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8210
    Registrado : 05/11/2009

    [Resolvido]Inserir dados subform tabela Empty Re: [Resolvido]Inserir dados subform tabela

    Mensagem  Alexandre Neves 21/8/2022, 08:27

    Bom dia

    Não informou se resolveu a sua dúvida ou não.
    Caso tenha resolvido, faltou o "Resolvido"

    Reveja outros temas seus que ainda estão em aberto há bastante tempo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    ictsp gosta desta mensagem

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Inserir dados subform tabela Empty Re: [Resolvido]Inserir dados subform tabela

    Mensagem  ictsp 21/8/2022, 23:10

    Prezado amigo Alexandre,

    Estava no aguardo de uma solução mais técnica do que a minha, porque realmente não descobri porque não funcionou usando o recordset.
    De qualquer forma, utilizando a consulta, cheguei onde queria.
    Vou verificar os outros temas que estão em aberto.
    Abraço!!

      Data/hora atual: 6/10/2022, 09:26