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

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Kaynan em 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 100%

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

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

    Mensagem  Kaynan em 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: 18/11/2019, 07:20