[Resolvido]Desativar Formulario

boa tarde a todos, este codigo abaixo foi-me passado pelo amigo BetoGivoni acho que é assim o nome. Com este codigo consigo desbloquear o formulario que a caixa de texto chamada situação contenha a palavra "Executada" como posso fazer para que este mesmo codigo faça a mesma função na mesma caixa situação mas que contendo a palavra "Anulada"


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyF3
DoCmd.GoToRecord , , acNewRec
NEdoc.SetFocus
Me.Lista0.Requery

Case vbKeyF5

Dim AlteraCampos As String

AlteraCampos = InputBox("Digite sua Senha", "Necessário Permissão")
btguardar.SetFocus
If AlteraCampos = "" Or AlteraCampos = Empty Then
MsgBox "Você precisa digitar a senha - Cancelado...", vbCritical
btguardar.SetFocus
Exit Sub
End If

If AlteraCampos = "teste" Then 'Aqui você digita a senha para alterar campos
Call Habilita(Form_Frm_Folha_Serviço)
Situação.SetFocus
Else

MsgBox ("Senha inválida..."), vbCritical
btguardar.SetFocus

Exit Sub

End If

If Me.Situação = "Executada" Then

Me.Situação = ""
End If

Case vbKeyF12

DoCmd.OpenForm "Frm_Situação"
btguardar.SetFocus
Me.Lista0.Requery

End Select

End Sub

Olá, é só acrescentar no if a palavra "anulada":

If Me.Situação = "Executada" Or "Anulada" Then

Prazer em falar consigo, Já Tinha tentado assim mas diz que não consegue mover o foco para o controlo btGuardar

me direciona para o tópico que foi dado a ajuda, pois não lembro mais, quero baixar o exemplo que postei, fica mais fácil de ajudar

junto envio parte da base formulario folha serviço na executadas está a funcionar nas anuladas não

Só me clareia as idéias que não lembro mais qual o procedimento operacional, abro o Frm_Folha_Serviço e faço o que mesmo para chegar nessas 2 situações?

Ao abrir o formulario folha serviço clica em cima de um registo na listagem abaixo o registo passa para a parte de cima do formulario por exemplo anuladas e fizer f5 abre um formulario para colocar a senha teste aí formulario devia ficar com es campos desativados para qualquer modificação no registo atual, depois era só clicar no btguardar abre outro formulario chamado situação e aí escolhe ou executada ou anulada
o erro dá quando faço f5 e o compo situação tem a palavra anulada

Estava passando o código de forma equivocada, troque por:

If Me.Situação = "Executada" Or Me.Situação = "Anulada" Then

continua a dar seguinte erro não consegue mover o foco para o btguardar
isto só acontece nas anuladas

esse exemplo que você postou é diferente? Pois aqui está funcionando sem problemas, em que momento dá essa mensagem?

não o exemplo é o mesmo, o erro dá quando há um registo no formularios em que campo situação tem a palavra anulada, ai todos os campos estão desabilitados para habilitar os campos tenho que fazer f5 é nesse momento e ai dá a mensagem não (consegue mover o foco para o controlo btguaradar).
Mas se tiver um registo que no campo situação tiver a palavra Executada e se fizer f5 tudo funciona bem.

Testa ai, pois aqui não está dando erro algum.

Tem toda a razão mas o frm é o mesmo tenho de ir ver o que se passsa
logo direi algo

Obrigado

Pois continua a dar erro no campo situação com a palavra Anulada mas!! com o campo DtAnulada preenchido. Será que no evento ao perder o foco no campo DtAnulada está algo errado? ou no evento no atual do formulário?.
Se no campo situação tiver a palavra anulada e o campo DtExecuçao preenchido realmente não dá erro
mas se eu retirar a data do campo DtExecução e Colocar a data no campo DtAnulada quando faço f5 dá erro

Resolvido existia um erro no evento No atual do formulário