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]Exportar dados de Formulario principal e dados que estão no subformulario

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4555
    Registrado : 20/04/2011

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  Silvio em 9/1/2020, 19:50

    Prezados boa tarde / boa noite

    O cenário é o seguinte.

    Tenho um formulário principal e um subformulário.

    No FrmPrincipal, há 3 campos fixos e no subformulário continuo esses campos irão variar de 01 até 05 campos.

    Como perdi meu hd ( nele eu tinha um "baú" de rotinas prontas para qualquer ou quase qualquer situação ), recorro a vocês para me dar um help.

    Preciso exportar os 3 campos do frmprincipal e quantos campos haverem no subformulário para uma determinada tabela.

    Desde já fica aqui meus agradecimentos a todos.

    Abraços. []


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1351
    Registrado : 22/11/2016

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty Re: [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  DamascenoJr. em 9/1/2020, 22:49

    Eu queria poder ajudar, mas tenho muita dificuldade quando tento entender as solicitações e nelas não existem exemplos anexados. Neutral

    Inclusive tenho isso na minha assinatura.

    Anexa um exemplo aí pra uma melhor compreensão do que desejas.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4555
    Registrado : 20/04/2011

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty Re: [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  Silvio em 10/1/2020, 10:34

    Bom dia.

    Nem sempre é possível postar as entidades envolvidas.   Há várias entidades envolvidas nesses dois formulários.
    Mas vou tentar retirar o máximo que posso para lhe mandar algo.
    Grato mesmo assim.

    Obs...fiz um bem bolado aqui, retirei algumas tabelas, consultas, formulários de pesquisa. Deixei apenas o essencial da coisa.
    Anexos
    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Attachmentmaximo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (91 Kb) Baixado 9 vez(es)


    Última edição por Silvio em 10/1/2020, 10:50, editado 1 vez(es) (Razão : acréscimo de arquivo.)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1351
    Registrado : 22/11/2016

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty Re: [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  DamascenoJr. em 11/1/2020, 04:04

    Código:
    Private Sub CDebito_Click()

        Dim db1 As DAO.Database
        Dim rs1 As DAO.Recordset
        Dim rs2 As DAO.Recordset
       
        If Me.CDebito = -1 Then
       
            'fazendo do subformulário um recordset
            Set rs1 = Me!SFrmCaixa.Form.RecordsetClone
           
            'verificando se há registros no subformulário
            If rs1.RecordCount > 0 Then
           
                Call rs1.MoveFirst
                Set db1 = CurrentDb
                Set rs2 = db1.OpenRecordset("Ateencerrado", , 8) 'abrindo para somente adição
               
                With rs2
                Do 'iniciando loop

                    Call .AddNew
                   
                        ![Idcaixa] = Me.Idcaixa
                        ![Proprietario] = Me.Proprietario
                        ![Animal] = Me.Animal
                        ![DataPagamento] = Me.DataPagamento
                        ![Valor] = Me.Valorf
                        ![Dinheiro] = Me.Dinheiro
                        ![Cheques] = Me.Cheques
                        ![Carteira] = Me.Carteira
                        ![CCredito] = Me.CCredito
                        ![CDebito] = Me.CDebito

                        'campos que estão no subformulário
                        ![TipoServico] = rs1!TipoServico
                        ![Servico] = rs1!Servico
                        ![Custo] = rs1!Custo
                        '![Idservico] = Forms![frmcaixa]![SFrmCaixa]!Idservico
                       
                    Call .Update
                    Call rs1.MoveNext

                'condição para finalizar o loop
                Loop Until rs1.EOF
                End With
               
                Call rs2.Close: Set rs2 = Nothing
                Set db1 = Nothing
               
            End If
           
            Set rs1 = Nothing
           
        End If
       
        Call MsgBox("Entrada Caixa... salva com sucesso!", vbInformation, Me.Caption)
       
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4555
    Registrado : 20/04/2011

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty Re: [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  Silvio em 11/1/2020, 12:12

    Bom dia..

    Show de bola....o que eu tinha, salvo engano meu, era parecido com o que postou. Mais um que vai ser salvo e com cópias dessa vez.

    Grato Damasceno.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1351
    Registrado : 22/11/2016

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty Re: [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  DamascenoJr. em 11/1/2020, 18:47

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario Empty Re: [Resolvido]Exportar dados de Formulario principal e dados que estão no subformulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/2/2020, 20:56