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


    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    ERS2011
    ERS2011
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 10/09/2011

    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  ERS2011 28/11/2011, 02:36

    Ola colegas , estou precisando de uma ajuda novamente, estou precisando fazer com que um item selecionado em uma Caixa de combinação de um formulario , apareça em uma caixa de texto em outro formulario. Abaixo esta o link do exemplo .
    http://www.sendspace.com/file/3p37tz

    Agradeço desde já.
    avatar
    Convidad
    Convidado


    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Re: [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  Convidad 28/11/2011, 07:19

    Olá!

    Qual a relação entre os dois formulários?
    Estão acoplados?
    O "outro" form está aberto quando você atualiza a combo?
    Se estiver, você pode usar o evento AfterUpdate da combo:

    Private Sub SuaCombo_AfterUpdate()
      Forms!SeuOutroForm.SuaCaixaDeTexto = Forms!SeuFormComCombo.SuaCombo
    End Sub
    ERS2011
    ERS2011
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 10/09/2011

    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Re: [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  ERS2011 29/11/2011, 03:45

    Caro Norbs , obrigado pela ajuda .Os 2 formularios precisam estar abertos para funcionar correto ? Se não retorna um erro e abre o script do Vba.Teria como tratar este erro sendo que 1° abro um formulario seleciono o item na cbo e depois clico em um botão para abrir o outro formulario , sempre vou selecionar e depois clicar no botão para abrir o outro formulario .Ou quando eu clicar no botão para abrir um formulario eu ja abro os 2 ?

    Agradeço desde já.
    avatar
    Convidad
    Convidado


    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Re: [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  Convidad 29/11/2011, 09:55

    Você pode usar uma função que verifique se o form onde está a CaixaTexto está aberto:
    (esta função deve ficar num módulo global)


    Public Function FormIsOpen(ByVal strFormName As String) As Boolean
    Const conDesignView = 0
    Const conObjStateClosed = 0
    FormIsOpen = False
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
    If Forms(strFormName).CurrentView <> conDesignView Then
    FormIsOpen = True
    End If
    End If
    End Function


    Então seria algo assim:


    Private Sub SuaCombo_AfterUpdate()
      If FormIsOpen("SeuOutroForm") Then
       Forms!SeuOutroForm.SuaCaixaDeTexto = Forms!SeuFormComCombo.SuaCombo
      Else
       DoCmd.OpenForm "SeuOutroForm"
       Forms!SeuOutroForm.SuaCaixaDeTexto = Forms!SeuFormComCombo.SuaCombo
      End If
    End Sub

    ERS2011
    ERS2011
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 10/09/2011

    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Re: [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  ERS2011 1/12/2011, 22:32

    Caro Norbs , obrigado pela ajuda , usei as dicas que você me deu e funcionou da forma que eu queria.

    Muito Obrigado.
    avatar
    Convidad
    Convidado


    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Re: [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  Convidad 1/12/2011, 22:46

    O fórum agradece sua participação e o retorno!

    Conteúdo patrocinado


    [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario Empty Re: [Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:20