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

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


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

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:


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

Deu certo, obrigado !