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]Passar dados de um formulário para outro com VBA populando o select

    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 09/07/2012

    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Empty [Resolvido]Passar dados de um formulário para outro com VBA populando o select

    Mensagem  Access365 em 2/8/2020, 07:22

    Queridos,
    Estou precisando de ajuda, pois preciso passar dados de um form para outro usando VBA, mas não estou conseguindo.
    Ao clicar em abrir no frmPrincipal a palavra "Recibo" será passada para o printDefault, então será preenchido o título do form e select será populado com os dados vindos da consultaComprovante.

    Envio o exemplo em anexo e agradeço, Luz e Paz!
    Anexos
    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Attachmentexemplo_max.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Empty Re: [Resolvido]Passar dados de um formulário para outro com VBA populando o select

    Mensagem  Alexandre Neves em 2/8/2020, 09:00

    Bom dia
    Tem alguns temas que não deu seguimento. Dar continuidade é uma forma de agradecimento/reconhecimento pelo contributo dos colegas (que ajudaram e que procuram ajuda) e é essa a finalidade do fórum


    .................................................................................
    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
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 09/07/2012

    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Empty Re: [Resolvido]Passar dados de um formulário para outro com VBA populando o select

    Mensagem  Access365 em 2/8/2020, 15:35

    Olá Alexandre, eu não compreendi!
    Fiz algo de errado no fórum? Poderia me explicar, por favor, para que eu possa me retratar?
    O Office que utilizo é o 2016.
    Será o que você quis dizer com "Temas"? As vezes uma palavra muda todo o contexto de uma frase de um país para o outro...
    Será que meus forms não estão "bonitinhos"...?
    Vou postar uma imagem da configuração do Windows para exemplificar o que é "Tema" para mim.
    Anexos
    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Attachmenttemas2.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (83 Kb) Baixado 4 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Empty Re: [Resolvido]Passar dados de um formulário para outro com VBA populando o select

    Mensagem  Alexandre Neves em 2/8/2020, 17:20

    Temas é o que, em inglês, se designam posts
    Alguns seus ainda abertos:
    https://www.maximoaccess.com/t9702-nota-compactar-e-reparar-access-2003#77544
    https://www.maximoaccess.com/t9333-botoes-minimizar-restaurar#77283
    https://www.maximoaccess.com/t9582-formatacao-do-textbox-por-vb#76529
    https://www.maximoaccess.com/t9582-formatacao-do-textbox-por-vb#77944
    https://www.maximoaccess.com/t9864-vbs-x-vba-compactando-front-end-por-vbs#78802
    https://www.maximoaccess.com/t9926-criterio-para-combox-para-formulario-access-2003#79300
    https://www.maximoaccess.com/t18658-excluir-imprimir-mostrar-somente-codigos-digitados-pelo-usuario#138265
    https://www.maximoaccess.com/t18916-select-em-consulta#141257
    https://www.maximoaccess.com/t19062-form-janela-de-impressao-com-duplex#141484
    https://www.maximoaccess.com/t19063-texto-de-botoes-de-mensagem#141486
    https://www.maximoaccess.com/t19062-form-janela-de-impressao-com-duplex#141518
    https://www.maximoaccess.com/t19403-criar-diretorio-em-documentos-do-windows-7-atraves-do-vba#143666
    https://www.maximoaccess.com/t19437-excluir-formulario-com-vba-access-2010#143893
    https://www.maximoaccess.com/t19494-listar-comparar-e-extrair-dados-de-tabela-via-vba-no-access-2007-2010#144356
    https://www.maximoaccess.com/t19943-texto-padrao-da-tabela-para-um-campo-nao-acoplado-em-vba#147410
    https://www.maximoaccess.com/t21174-contar-dados-que-se-repetem-por-mes-em-vba-access-2010#154743
    https://www.maximoaccess.com/t22230-criar-nova-cx-de-combinacao-ao-escolher-dados-em-outra-cx-de-combinacao#161741
    https://www.maximoaccess.com/t22486-repetindo-dados-apos-atualizar-subform#164895
    https://www.maximoaccess.com/t32407-como-compactar-reparar-um-banco-de-dados-aberto-no-access-2013-com-vba#223052
    https://www.maximoaccess.com/t34589-selecao-de-notas-pela-soma-delas-e-por-maior-periodo#236933


    .................................................................................
    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
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 09/07/2012

    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Empty Re: [Resolvido]Passar dados de um formulário para outro com VBA populando o select

    Mensagem  Access365 em 2/8/2020, 18:54

    Desculpe-me!
    Eu sempre me esquecia do "escondidinho" do botão "Resolvido" rsrs.
    Respondi e fechei todos, mas tinha um aí "nesses links" que não era meu...
    Perdão sobre o "embaraço" no uso da palavra "temas"... rsrs, mas no Brasil posts é: postagens
    Correto: O tema do meu post é: Passar dados de um formulário para outro com VBA populando o select
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 09/07/2012

    [Resolvido]Passar dados de um formulário para outro com VBA populando o select Empty Re: [Resolvido]Passar dados de um formulário para outro com VBA populando o select

    Mensagem  Access365 em 2/8/2020, 20:34

    O problema era o rápido carregamento do printDefault antes do controle recText ser preenchido, então coloquei um timer (Me.TimerInterval = 400), resolvendo assim:

    Criei um controle a mais, chamado: stopTimer, e:

    Private Sub Form_Load()
    On Error Resume Next
    DoCmd.SetWarnings False

    Me.TimerInterval = 400
    Me.stopTimer = ""
    Me.recText = ""
    Me.txtTitulo = ""
    Me.recCod = ""

    End Sub


    Function execOrigem()
    On Error Resume Next
    DoCmd.SetWarnings False

    Dim textoForm As String

    If Me.recText = "Recibo" Then
    Me.txtTitulo = "Recibo para cliente"
    textoForm = "Recebido"
    Me.combData.RowSource = "SELECT DISTINCT ConsultaComprovante.Código FROM ConsultaComprovante WHERE [Situação]= '" & textoForm & "' ORDER BY [ConsultaComprovante.Código]"
    Me.stopTimer = "1"
    Exit Function
    End If

    End Function

    Private Sub Form_Timer()
    'Para parar o timer

    If IsNull(Me.stopTimer) Or Me.stopTimer = "" Then
    Call execOrigem
    Exit Sub
    End If

    End Sub

      Data/hora atual: 6/8/2020, 22:07