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]Condicionar para Abrir um Formulário de uma ListBox

    avatar
    xxtailssxx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 08/10/2020

    [Resolvido]Condicionar para Abrir um Formulário de uma ListBox Empty [Resolvido]Condicionar para Abrir um Formulário de uma ListBox

    Mensagem  xxtailssxx em 6/11/2020, 19:04

    Segue abaixo o código, alguém sabe como condicionar ?
    No caso é pra quando chamar o Form. ele vir com o mesmo numero que ele está na ListBox.



    Código:

    Private Sub ListP_DblClick(Cancel As Integer)
    Dim sAbreForm As String

    sAbreForm = Me.ListP.Column(5)

    If sAbreForm = "Emb/Desemb" Then

         DoCmd.OpenForm "frm_Embarks", acNormal, , [ID] = [Forms]![fmr_employess]![ListP], acFormEdit
      
        
    Else
         DoCmd.OpenForm "frm_commitment", acNormal, , [ID] = [Forms]![fmr_employess]![ListP], acFormEdit
        
        
        
    Exit Sub
    End If
    End Sub
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3683
    Registrado : 04/04/2010

    [Resolvido]Condicionar para Abrir um Formulário de uma ListBox Empty Re: [Resolvido]Condicionar para Abrir um Formulário de uma ListBox

    Mensagem  Avelino Sampaio em 6/11/2020, 20:21

    Olá!

    se entendi, tente desta forma:

    Private Sub ListP_DblClick(Cancel As Integer)
    If Me.ListP.Column(5) = "Emb/Desemb" Then
        DoCmd.OpenForm "frm_Embarks", acNormal, , "ID =" & me!ListP, acFormEdit
    Else
        DoCmd.OpenForm "frm_commitment", acNormal, , "ID =" & me!ListP, acFormEdit
    End If
    End Sub


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

    xxtailssxx gosta desta mensagem

    avatar
    xxtailssxx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 08/10/2020

    [Resolvido]Condicionar para Abrir um Formulário de uma ListBox Empty Re: [Resolvido]Condicionar para Abrir um Formulário de uma ListBox

    Mensagem  xxtailssxx em 6/11/2020, 20:30

    Opa Obrigado Avlieno, vou testar aqui, eu fiz uma maneira meio "não tão refinada" vamos dizer assim, eu consegui resolver mas fiz o seguinte, eu já tinha uma macro que funcionava com essas condições do "Where", então fiz só chamar as Macros nessas condições, mas vou testar essa forma que você sugeriu e provavelmente devo usar a sua.

    Código:

    Private Sub ListP_DblClick(Cancel As Integer)
    Dim sAbreForm As String

    sAbreForm = Me.ListP.Column(5)

    If sAbreForm = "Emb/Desemb" Then
        DoCmd.RunMacro "OpenEmbarks"
    Else
        DoCmd.RunMacro "OpenCommitment"
        
    Exit Sub
    End If
    End Sub

    [EDIT]
    Testei aqui o Seu, funcionou também, eu não entendi a necessidade do &, seria pra concatenar ?

      Data/hora atual: 29/11/2020, 17:10