[Resolvido]Bloquear opção da caixa de combinação

Pessoal me ajudem!!
Tenho no meu formulario uma caixa de combinação com as opções sim e não,quero que quando o usuario escolha a opção sim o campo seja bloqueado,e se escolher nao ele fica desbloqueado para alteração.
Obrigado

Bem vinda,
Quais campos voce quer bloquear?

o campo tem 2 opçoes,sim e não,se selecionar sim eu quero que bloquea o campo se escolher nao, nao bloquear

Voce quer bloquear o próprio campo que tem sim/não?

olha so eu tenho na caixa de combinação as opçoes sim e nao.
Tem como eu desativar o campo se eu selecionar a opção sim.

Bem seria algo assim:
No evento após atualizar do seu campo:

If Me.SeuCampo = "Sim" Then
Me.SeuCampo.Enabled = False
Else
Me.SeuCampo.Enabled = True

Veja se funciona...

na hora de copilar da erro na linha Me.NMOE.Enabled = False,o erro esta na .Enabled,pq sera esta dando esse erro?

Mas à partida está tudo bem.

Me.nomecampo.Enable=True
Me.nomecampo.Enable=False

Como é o nome do seu campo e qual a origem dele? É de uma tabela? Se vc quezer postar aqui seu banco, faço as alterações poara vc, daí vc ver o que eu alterei...

Option Compare Database

Private Sub Combinação55_AfterUpdate()
If Me.NMOE = "Sim" Then
Me.NMOE.Enabled = False
Else
Me.Combinação55.Enabled = True
End If
End Sub

Private Sub Combinação55_Click()
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NMOE = "Sim" Then
Me.NMOE.Enabled = False
Else
Me.NMOE.Enabled = True
End Sub

Private Sub Form_Current()
Me.ASON.DefaultValue = "=" & Nz(DMax("ASON", "ASO"), 0) + 1
End Sub
Private Sub Comando35_Click()
On Error GoTo Err_Comando35_Click


DoCmd.GoToRecord , , acFirst

Exit_Comando35_Click:
Exit Sub

Err_Comando35_Click:
MsgBox Err.Description
Resume Exit_Comando35_Click

End Sub
Private Sub Comando36_Click()
On Error GoTo Err_Comando36_Click


DoCmd.GoToRecord , , acNext

Exit_Comando36_Click:
Exit Sub

Err_Comando36_Click:
MsgBox Err.Description
Resume Exit_Comando36_Click

End Sub
Private Sub Comando37_Click()
On Error GoTo Err_Comando37_Click


DoCmd.GoToRecord , , acPrevious

Exit_Comando37_Click:
Exit Sub

Err_Comando37_Click:
MsgBox Err.Description
Resume Exit_Comando37_Click

End Sub
Private Sub Comando38_Click()
On Error GoTo Err_Comando38_Click


DoCmd.GoToRecord , , acLast

Exit_Comando38_Click:
Exit Sub

Err_Comando38_Click:
MsgBox Err.Description
Resume Exit_Comando38_Click

End Sub
Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Comando39_Click:
Exit Sub

Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click

End Sub
Private Sub Comando40_Click()
If IsNull(MUNICIPIO) Then
MSG = MsgBox("Nenhum campo Selecionado!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
Me.Controls(strCLLI).SetFocus
Exit Sub
End If
On Error GoTo Err_Comando40_Click

DoCmd.GoToRecord , , acNewRec

Exit_Comando40_Click:
Exit Sub

Err_Comando40_Click:
MsgBox Err.Description
Resume Exit_Comando40_Click

End Sub

Private Sub Comando41_Click()
On Error GoTo Err_Comando41_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Comando41_Click:
Exit Sub

Err_Comando41_Click:
MsgBox Err.Description
Resume Exit_Comando41_Click

End Sub
Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click


DoCmd.Close

Exit_Comando42_Click:
Exit Sub

Err_Comando42_Click:
MsgBox Err.Description
Resume Exit_Comando42_Click

End Sub
Private Sub Comando43_Click()
Dim strCriterio As String

On Error GoTo Imprimir_Click_Err

'Salva a data de emissão
'Me.DataEmissão = Date

'Salva a nota
DoCmd.RunCommand acCmdSaveRecord

'Abre o relatório
strCriterio = "[ASON] = " & Me.ASON
DoCmd.OpenReport "ASO", acViewPreview, , strCriterio

Imprimir_Click_Exit:
Exit Sub
Imprimir_Click_Err:
MsgBox Err & Err.Description, vbInformation
Resume Imprimir_Click_Exit

End Sub

Private Sub Form_Load()
DoCmd.Maximize
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Seria melhor voce postar o proprio banco de dados, assim faço as devidas alterações e comento o código para vc...

Sua caixa de combinação está com um nome diferente... E tem caracteres especiais...
Tente usar o campo anexo e poste aqui...

Posso passar pelo seu email pq aqui nao esta dando certo

Sim
marcelordavid@hotmail.com

Aí está o bd bloqueando o campo "Profissional ou equipe de VISA investido na função por ato". Quando escolhe "SIM"
Veja se é realmente isso que vc quer.

Clique aqui para baixar

Marcelo quando mando execultar da erro fala assim voce nao podera desabilitar um controle em quanto ele estiver em foco?

tenta antes de bloquear focar outra cixa
Private Sub Combinacao55_AfterUpdate()
If Me.Combinacao55 = "SIM" Then
DoCmd.GoToControl "NomeDoControleDesejado"
Me.Combinacao55.Enabled = False
Else
Me.Combinacao55.Enabled = True
End If
End Sub

Só mude as letras do "ajudaaa" para minusculos... Dê uma olhada nas regras do fórum...
Depois continuamos...

baixe novamente, e teste, fiz uma alteração.
No aguardo

Marcelo Obrigado Deu certo.
Oque vc fez?

Apenas madei o foco para outro controle antes de desabilitar.
Agora é bom que seja renomeado as caixas de combinação.
Elas por padrão estão assim: Combinação111...
Será bom mudar para: Combinacao111... e assim por diante...
Consegue agora fazer nos outos? É so seguir o memo modelo.

If Me.Combinacao55 = "SIM" Then
Me.ASON.SetFocus
Me.Combinacao55.Enabled = False
Else
Me.Combinacao55.Enabled = True
End If

Deu certo em todos os campos.
Obrigado marcelo!!

Muito bom, só falta clicar em resolvido.

Desta vez coloco, mas não esqueçam o resolvido.

marcelo quando eu salvo ele fica bloqueado para o novo como faço para que o novo ele desbloquea