[Resolvido]caixa de combinação - adicionar, guardar, alterar, eliminar

Olá.
Criei um formulário simples que faz adicionar e guardar nome no campo NOME numa tabela.
Ao abrir é possível adicionar e guardar o nome.
Depois criei o botão Adicionar, para adicionar mais um nome.
Depois criei os botões Alterar e Eliminar e pos a caixa de texto para caixa de combinação, para ver os vários nomes e selecionar um.
Tenho o seguinte código:

Private Sub Form_Open(Cancel As Integer)

Me.CxCombo_txt_NOME.Enabled = True
Me.btn_guardar.Enabled = True
Me.btn_alterar.Enabled = False
Me.btn_adicionar.Enabled = False
Me.btn_eliminar.Enabled = False
Me.btn_fechar.Enabled = True

Me.CxCombo_txt_NOME.SetFocus

End Sub
-----------------------------

Private Sub btn_guardar_Click()

'novo registro
DoCmd.GoToRecord , , acNewRec

Form.Requery

Me.CxCombo_txt_NOME.Enabled = True
Me.btn_guardar.Enabled = False
Me.btn_alterar.Enabled = True
Me.btn_adicionar.Enabled = True
Me.btn_eliminar.Enabled = True
Me.btn_fechar.Enabled = True

Me.CxCombo_txt_NOME.SetFocus

End Sub
---------------------------------------------

Private Sub CxCombo_txt_NOME_Click()

Me.btn_guardar.Enabled = False
Me.btn_alterar.Enabled = True
Me.btn_adicionar.Enabled = False
Me.btn_eliminar.Enabled = True
Me.btn_fechar.Enabled = True

End Sub
------------------------------------------------
Private Sub btn_alterar_Click()

Me.CxCombo_txt_NOME.Enabled = True
Me.btn_guardar.Enabled = True
Me.btn_alterar.Enabled = False
Me.btn_adicionar.Enabled = False
Me.btn_eliminar.Enabled = False
Me.btn_fechar.Enabled = True

Me.CxCombo_txt_NOME.SetFocus

End Sub
-------------------------------------------

Private Sub btn_adicionar_Click()


Me.CxCombo_txt_NOME.Enabled = True
Me.btn_guardar.Enabled = True
Me.btn_alterar.Enabled = False
Me.btn_adicionar.Enabled = False
Me.btn_eliminar.Enabled = False
Me.btn_fechar.Enabled = True

Me.CxCombo_txt_NOME.SetFocus

End Sub
---------------------------------------------------

Private Sub btn_eliminar_Click()

'eliminar
DoCmd.RunCommand acCmdDeleteRecord

Form.Requery

Me.CxCombo_txt_NOME.Enabled = True
Me.btn_guardar.Enabled = False
Me.btn_alterar.Enabled = True
Me.btn_adicionar.Enabled = True
Me.btn_eliminar.Enabled = False
Me.btn_fechar.Enabled = True

Me.CxCombo_txt_NOME.SetFocus

End Sub

----------------------------------------------

Depois quando verifico as funcionalidades na prática, não dá certo.
Como faço para funcionar corretamente?
Tem muitas falhas?

Obrigado!

Da uma olhada no código, tem tudo o que vc quer fazer

Saludos,

Franklin de Bolivia

Obrigado, Franklin de Bolivia.
Está aqui a base de dados NOME , e não estou a conseguir fazer.

Em anexo o arquivo corregido. Vc precisa habilitar ou deshabilitar os botões, cuando agrega, elimina ou adiciona nomes.

Saludos,

Franklin de Bolivia

Obrigado, Franklin de Bolivia