Boa tarde. Tenho um banco de gerenciamento de condomínio e preciso que um condômino fique inativo ao marcar a opção "Desativado" (caixa de opção sim/não) e consegui esse código que está tornando toda a tabela inativa (o formulário tem um subformulário) e não é o que procuro mas que só uma linha de registro de apenas um condômino fique inativo.
A opção "INATIVO" está na tabela (Tbl_Condominos) para cada condômino e o código está no evento ao abrir.
O que está faltando?
Obrigado.
-----------------------------------------------------------------------------
Private Sub Inativo_Click()
If Me.[INATIVO].Value = -1 Then ' deixando cliente desativado
With Me
.Cod_Condominos.Enabled = False
.NOME.Enabled = False
.cpf.Enabled = False
.APTO.Enabled = False
.TELEFONE.Enabled = False
.DATA_CAD.Enabled = False
.TRATAMENTO.Enabled = False
.Comando43.Enabled = False
End With
End If
If Me.[INATIVO].Value = 0 Then ' deixando o cliente ativo
With Me
.Cod_Condominos.Enabled = True
.NOME.Enabled = True
.cpf.Enabled = True
.APTO.Enabled = True
.TELEFONE.Enabled = True
.DATA_CAD.Enabled = True
.TRATAMENTO.Enabled = True
.Comando43.Enabled = True
End With
End If
End Sub
A opção "INATIVO" está na tabela (Tbl_Condominos) para cada condômino e o código está no evento ao abrir.
O que está faltando?
Obrigado.
-----------------------------------------------------------------------------
Private Sub Inativo_Click()
If Me.[INATIVO].Value = -1 Then ' deixando cliente desativado
With Me
.Cod_Condominos.Enabled = False
.NOME.Enabled = False
.cpf.Enabled = False
.APTO.Enabled = False
.TELEFONE.Enabled = False
.DATA_CAD.Enabled = False
.TRATAMENTO.Enabled = False
.Comando43.Enabled = False
End With
End If
If Me.[INATIVO].Value = 0 Then ' deixando o cliente ativo
With Me
.Cod_Condominos.Enabled = True
.NOME.Enabled = True
.cpf.Enabled = True
.APTO.Enabled = True
.TELEFONE.Enabled = True
.DATA_CAD.Enabled = True
.TRATAMENTO.Enabled = True
.Comando43.Enabled = True
End With
End If
End Sub
Última edição por julianovv em 19/1/2022, 20:49, editado 1 vez(es)