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]Abrir subformulario no item escolhido

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Abrir subformulario no item escolhido Empty [Resolvido]Abrir subformulario no item escolhido

    Mensagem  Kaynan 7/10/2019, 03:11

    Ola amigos queria que vcs olhassem porque não da certo:quero clicar 2 vzs no campo VDOName do form CadVideo e abrir o form FormVideo que tem um sub "VideoList2" só no item clicado.
    Obs:ao contrario ta dando certo clicar 2 vzs no item do sub abre o CadVideo no item escolhido.
    Abçs.


    https://www.dropbox.com/s/yi1tl1p2tq3xau6/TestAplicativo.rar?dl=0
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Abrir subformulario no item escolhido Empty Re: [Resolvido]Abrir subformulario no item escolhido

    Mensagem  Kaynan 10/10/2019, 15:34

    Resolvido com esse código.

    Private Sub VDOName_DblClick(Cancel As Integer)
    'Declara a Variavel
    Dim strFiltro As String

    'Controi e passa para a Variavel o Filtro
    strFiltro = "VDO_ID=" & Me!Texto32

    'Aplica o Filtro no Subformulario
    DoCmd.OpenForm "FormVideo"
    Forms![FormVideo]![VideoList2].Form.Filter = strFiltro
    Forms![FormVideo]![VideoList2].Form.FilterOn = True
    End Sub

      Data/hora atual: 8/11/2024, 06:49