Fechei já, te perguntar outra duvida, como eu coloco uma condição, dentro do forms que for aberto ?
Eu tentei fazer assim.
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 10/11/2020, 13:18, editado 1 vez(es)