[Resolvido]Botão alterar não habilita

Estou com um problema no desenvolvimento de um formulário, que ao abrir manterá somente o botão fechar ativado e alguns campos ativados para consulta, a selecionar o item na view ele não habilita os demais botões de acordo com o campo txt_turma esteja preenchido, caso o campo "turma" esteja preenchido habilitará o botão alterar, caso contrário o botão agendamento, detalhe todos os campos e botões estão com a propriedade como bloqueado.

Código:

'AO CARREGAR
Private Sub Form_Load()

'AO INICIAR TODOS OS CAMPOS ESTARÃO LIMPOS
DoCmd.GoToRecord acForm, "Frm_Agenda_Treinamento", acNewRec

'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = False
Me.txt_colaborador.Enabled = False
Me.txt_cargo.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_nivel = False
Me.txt_empresa.Enabled = False

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = False
Me.txt_data.Enabled = False
Me.txt_horario.Enabled = False
Me.txt_PCD = False

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = False
Me.txt_resp_cad.Enabled = False

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = False
Me.txt_resp_alt.Enabled = False

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = True
Me.txt_matricula_cons.Enabled = True
Me.txt_colaborador_cons.Enabled = True
Me.list_consulta_colaborador.Enabled = True

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = False
Me.btn_agendamento.Enabled = False
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True

End Sub

Código:

'AO CLICAR DUAS VEZES NA VIEW
Private Sub list_consulta_colaborador_DblClick(Cancel As Integer)
On Error GoTo lst_nomes_Click_Err
    DoCmd.OpenForm "Frm_Agenda_Treinamento", acNormal, "", "[Matrícula]=[Forms]![Frm_Agenda_Treinamento]![list_consulta_colaborador]", , acNormal
lst_nomes_Click_Exit:
    Exit Sub
lst_nomes_Click_Err:
    MsgBox Error$
    Resume lst_nomes_Click_Exit
 
'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = False
Me.txt_colaborador.Enabled = False
Me.txt_cargo.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_nivel = False
Me.txt_empresa.Enabled = False

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = False
Me.txt_data.Enabled = False
Me.txt_horario.Enabled = False
Me.txt_PCD = False

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = False
Me.txt_resp_cad.Enabled = False

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = False
Me.txt_resp_alt.Enabled = False

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = False
Me.txt_matricula_cons.Enabled = False
Me.txt_colaborador_cons.Enabled = False
Me.list_consulta_colaborador.Enabled = False

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = True
Me.btn_agendamento.Enabled = True
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True

End Sub

Conto com a ajuda.

Olá, bom dia!

Essa segunda parte do seu código está num sub Formulário? Se sim, Você deve mudar o nome de referencia dos objetos para o formulário principal.
Caso não, poste o banco para podermos olhar...

Abraços!

wellingtoneo,

Foi feito em uma caixa acoplada.

Tela do Formulário

O arquivo e grande então segue o link abaixo.

Aplicação no Acess

Obrigado pela ajuda

Amigo, veja bem:

Me.NomeCampo.Enabled = True

True = Habilitado


Me.NomeCampo.Enabled = False

False = Desabilitado.

Pelo que vi estava invertido...

Código:

'AO CLICAR NO BOTÃO ALTERAR
Private Sub btn_alterar_Click()

'ATUALIZA OS CAMPOS DE ALTERAÇÃO
Me.txt_dt_alteracao = Now()
Me.txt_resp_alt = UsuarioRede()

'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = True
Me.txt_colaborador.Enabled = True
Me.txt_cargo.Enabled = True
Me.txt_setor.Enabled = True
Me.txt_nivel = True
Me.txt_empresa.Enabled = True

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = True
Me.txt_data.Enabled = True
Me.txt_horario.Enabled = True
Me.txt_PCD = False

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = True
Me.txt_resp_cad.Enabled = True

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = True
Me.txt_resp_alt.Enabled = True

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = True
Me.txt_matricula_cons.Enabled = True
Me.txt_colaborador_cons.Enabled = True
Me.list_consulta_colaborador.Enabled = True

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = False
Me.btn_agendamento.Enabled = False
Me.Btn_Salvar.Enabled = True
Me.btn_fechar.Enabled = True

End Sub

Amigão,

Não funcionou.

Ele deveria carregar somente o botão fechar habilitado, e após clicar duas vezes e ele retornar a informação para mim ele deveria habilitar o botão alterar, depois de clicar no alterar habitaria o botão salvar.

Outro problema que encontrei, ao clicar duas vezes na Lista foi:

Seu tratamento de Erro, deve ser as ultimas linhas, e nao as primeiras...

Alem de alguns campos que nao estavam com .enable = true, estava apenas me.NomeCampo = True


Mude para:

Código:

'AO CLICAR DUAS VEZES NA VIEW
Private Sub list_consulta_colaborador_DblClick(Cancel As Integer)
On Error GoTo lst_nomes_Click_Err
    DoCmd.OpenForm "Frm_Agenda_Treinamento", acNormal, "", "[Matrícula]=[Forms]![Frm_Agenda_Treinamento]![list_consulta_colaborador]", , acNormal
 
'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = True
Me.txt_colaborador.Enabled = True
Me.txt_cargo.Enabled = True
Me.txt_setor.Enabled = True
Me.txt_nivel.Enabled = True
Me.txt_empresa.Enabled = True

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = True
Me.txt_data.Enabled = True
Me.txt_horario.Enabled = True
Me.txt_PCD.Enabled = True

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = True
Me.txt_resp_cad.Enabled = True

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = True
Me.txt_resp_alt.Enabled = True

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = True
Me.txt_matricula_cons.Enabled = True
Me.txt_colaborador_cons.Enabled = True
Me.list_consulta_colaborador.Enabled = True

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = True
Me.btn_agendamento.Enabled = True
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True

lst_nomes_Click_Exit:
    Exit Sub
lst_nomes_Click_Err:
    MsgBox Error$
    Resume lst_nomes_Click_Exit

End Sub

Vamos la... Substitua seus codigos por esse:


Ao Carregar do Seu Formulario coloque:

Código:

'AO CARREGAR
Private Sub Form_Load()

'AO INICIAR TODOS OS CAMPOS ESTARÃO LIMPOS
DoCmd.GoToRecord acForm, "Frm_Agenda_Treinamento", acNewRec

'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = False
Me.txt_colaborador.Enabled = False
Me.txt_cargo.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_nivel = False
Me.txt_empresa.Enabled = False

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = False
Me.txt_data.Enabled = False
Me.txt_horario.Enabled = False
Me.txt_PCD = False

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = False
Me.txt_resp_cad.Enabled = False

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = False
Me.txt_resp_alt.Enabled = False

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = True
Me.txt_matricula_cons.Enabled = True
Me.txt_colaborador_cons.Enabled = True
Me.list_consulta_colaborador.Enabled = True

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
'Me.btn_alterar.Enabled = False
Me.btn_agendamento.Enabled = False
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True
Me.btn_alterar.Enabled = False

End Sub

No duplo Clique de sua Lista coloque:

Código:

'AO CLICAR DUAS VEZES NA VIEW
Private Sub list_consulta_colaborador_DblClick(Cancel As Integer)
On Error GoTo lst_nomes_Click_Err
    DoCmd.OpenForm "Frm_Agenda_Treinamento", acNormal, "", "[Matrícula]=[Forms]![Frm_Agenda_Treinamento]![list_consulta_colaborador]", , acNormal
 
'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = True
Me.txt_colaborador.Enabled = True
Me.txt_cargo.Enabled = True
Me.txt_setor.Enabled = True
Me.txt_nivel.Enabled = True
Me.txt_empresa.Enabled = True

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = True
Me.txt_data.Enabled = True
Me.txt_horario.Enabled = True
Me.txt_PCD.Enabled = True

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = True
Me.txt_resp_cad.Enabled = True

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = True
Me.txt_resp_alt.Enabled = True

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = True
Me.txt_matricula_cons.Enabled = True
Me.txt_colaborador_cons.Enabled = True
Me.list_consulta_colaborador.Enabled = True

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = True
Me.btn_agendamento.Enabled = True
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True
Me.Btn_Salvar.Enabled = True

lst_nomes_Click_Exit:
    Exit Sub
lst_nomes_Click_Err:
    MsgBox Error$
    Resume lst_nomes_Click_Exit

End Sub

Aqui esta funcionando ok!

Abre tudo desabilitado, somente fechar que esta habilitado...
Ao clicar duas vezes em um registro ele habilita os campos...

Tenta o código abaixo:

Código:


'AO CLICAR DUAS VEZES NA VIEW
Private Sub list_consulta_colaborador_DblClick(Cancel As Integer)
On Error GoTo lst_nomes_Click_Err
    DoCmd.OpenForm "Frm_Agenda_Treinamento", acNormal, "", "[Matrícula]=[Forms]![Frm_Agenda_Treinamento]![list_consulta_colaborador]", , acNormal
 
'OS CAMPOS ESTARÃO HABILITADOS / DESABILITADOS
'DADOS DO COLABORADOR
Me.txt_matricula.Enabled = False
Me.txt_colaborador.Enabled = False
Me.txt_cargo.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_nivel = False
Me.txt_empresa.Enabled = False

'AGENDAMENTO DA TURMA
Me.txt_turma.Enabled = False
Me.txt_data.Enabled = False
Me.txt_horario.Enabled = False
Me.txt_PCD = False

'AGENDAMENTO INICIAL
Me.txt_dt_cadastro.Enabled = False
Me.txt_resp_cad.Enabled = False

'AGENDAMENTO ALTERADO
Me.txt_dt_alteracao.Enabled = False
Me.txt_resp_alt.Enabled = False

'FILTRO DE CONSULTA
Me.txt_cdc_cons.Enabled = False
Me.txt_matricula_cons.Enabled = False
Me.txt_colaborador_cons.Enabled = False
Me.list_consulta_colaborador.Enabled = False

'O BOTÃO FICARÁ HABILITADO / DESABILITADO
Me.btn_alterar.Enabled = True
Me.btn_agendamento.Enabled = True
Me.Btn_Salvar.Enabled = False
Me.btn_fechar.Enabled = True

lst_nomes_Click_Exit:
    Exit Sub
lst_nomes_Click_Err:
    MsgBox Error$
    Resume lst_nomes_Click_Exit

End Sub


Funcionou. TOP

Porém, não sei o que houve o botão salvar parou de funcionar e não consigo achar o erro.

Código:

Me.Btn_Salvar.Enabled = False

Cleverson

Siga a Dica da Mensagem Nº 07 que ficará como quer!

Fábio,

Você e muito fera...

Valeu demais ajudou muito.