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]abri aba ao seleciona texto em uma combo

    avatar
    wesleyrob9
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 08/02/2012

    [Resolvido]abri aba ao seleciona texto em uma combo Empty [Resolvido]abri aba ao seleciona texto em uma combo

    Mensagem  wesleyrob9 20/10/2014, 00:33

    gostaria de uma ajuda .

    tenho um bd com um formulario principal e 2 subformulario.
    no principal tenho o campo situação em uma combo.
    gostaria de ao selecionar um certo texto dentro da cambo, fosse aberto a aba com o subformulario determinado.
    ex.ao selecionar diligencia na combo , fosse aberto automaticamento a aba diligencia pra inserir os dados.
    avatar
    wesleyrob9
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 08/02/2012

    [Resolvido]abri aba ao seleciona texto em uma combo Empty Re: [Resolvido]abri aba ao seleciona texto em uma combo

    Mensagem  wesleyrob9 20/10/2014, 02:11

    obrigado a todos que visualizaram o pst mas eu consegui aqui.
    era so colocar evento ao atualair da combo situacao

    Private Sub SITUACAO_AfterUpdate()
    If Me.SITUACAO = "DILIGENCIA" Then
    Me.abadiligencia.SetFocus
    End If

    If Me.SITUACAO = "DISTRIBUIDO AO RELATOR" Then
    Me.abadistribuicao.SetFocus
    End If
    If Me.SITUACAO = "PEDIDO DE VISTA" Then
    Me.abadistribuicao.SetFocus
    End If
    End Sub

      Data/hora atual: 8/11/2024, 13:35