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]Colocar condição do forms que for aberto

    avatar
    xxtailssxx
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Colocar condição do forms que for aberto Empty [Resolvido]Colocar condição do forms que for aberto

    Mensagem  xxtailssxx em Sex Nov 06, 2020 4:54 pm

    Fechei já, te perguntar outra duvida, como eu coloco uma condição, dentro do forms que for aberto ?


    Eu tentei fazer assim.

    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


    Última edição por xxtailssxx em Ter Nov 10, 2020 1:18 pm, editado 1 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 28/10/2010

    [Resolvido]Colocar condição do forms que for aberto Empty Colocar condição do forms que for aberto

    Mensagem  zcarloslopes em Seg Nov 09, 2020 8:58 am

    Tente assim:
    Código:
    Dim sAbreForm As String

    Dim Pesq As Integer

    Pesq = Me.ListP.Column(0)

    sAbreForm = Me.ListP.Column(5)

    If sAbreForm = "Emb/Desemb" Then

     DoCmd.OpenForm "frm_Embarks", acNormal, , "[ID] = " & Pesq             '<-- Para Número
     'DoCmd.OpenForm "frm_Embarks", acNormal, , "[ID] = '" & Pesq & "'"    '<-- Para String
      
        
    Else
        
     DoCmd.OpenForm "frm_commitment", acNormal, , "[ID] = " & Pesq            '<-- Para Número
     'DoCmd.OpenForm "frm_commitment", acNormal, , "[ID] = '" & Pesq & "'"   '<-- Para String
        
        
        
    Exit Sub
    End If

    xxtailssxx gosta desta mensagem

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Colocar condição do forms que for aberto Empty Re: [Resolvido]Colocar condição do forms que for aberto

    Mensagem  ahteixeira em Seg Nov 09, 2020 7:28 pm

    Olá a todos.

    Vitor não são permitidos links externos.
    Verifico que está a colocar as fotos de forma incorreta.
    Deve clicar no Icon (assinalado a verde) e fazer o upload da foto.
    Por fim incluir a codificação toda HTML conforme pode ver a vermelho:
    [Resolvido]Colocar condição do forms que for aberto 0135

    O tópico foi dividido, como referi já no outro tópico, não devemos misturar questões, sei que é membro novo mas tenha mais atenção.

    Por último alerto os membros de quando é reportada alguma situação por um moderador, não devem dar continuidade ao tópico mas sim incentivar o membro a regularizar a situação.
    Continuando a ajuda após a regularizacao e retorno do membro.

    Abraço e bons estudos

    xxtailssxx gosta desta mensagem

    avatar
    xxtailssxx
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Colocar condição do forms que for aberto Empty Re: [Resolvido]Colocar condição do forms que for aberto

    Mensagem  xxtailssxx em Ter Nov 10, 2020 1:20 pm

    Deu certo, obrigado !

      Data/hora atual: Sex Dez 04, 2020 2:45 pm