[Resolvido]ListBox e Tabela - Sincronizar

Amigos do Fórum,

Novamente aí vai uma dúvida de principiante, mas que pode ser útil pra vários usuários. Tenho num Formulário uma ListBox com a Origem de Linha apontando para uma Tabela, com nomes de funcionários. Até aqui tudo certo, assim que rodo em modo formulário, lá está a lista dos funcionários constantes da tabela. Coloquei também dois botões de comando: "Adicionar funcionário" e "Remover funcionário".

Alguém pode me dar uma ajuda em como fazer tais botões funcionarem, ou seja, quando apertar o botão para remover, ele apagaria o item selecionado (tanto na listbox quanto na tabela!!) e atualizaria a listbox (método refresh).

Quando apertasse o botão para incluir ele me daria uma inputbox para eu digitar o nome do funcionário e ao clicar ok ele atualizaria tudo? (listbox e tabela).

Sei que isso deve ser praxe para vocês mestres, mas para mim está sendo mais difícil do que achei que seria.

Obrigado para quem puder ajudar!

Amigo,

Descreva sobre a estrutura de sua tabela de funcionários, bem como da consulta de sua lista.


Abraços,

A ideia é fazer os botões funcionarem ao mesmo tempo para a listbox e na tabela AUX_ANALISTAS, ou seja, salvando os dados de acréscimo de analista e de remoção. Simples. Mas o orêia aqui não sabe. rsrsrsrs.

Bom dia...

Apenas um pitaco....salve o projeto no formato AC2007 !

Bom dia,

veja se atende sua necessidade,

Puxa, é isso mesmo. Funcionou perfeitamente. Muito obrigado pela ajuda! Vou estudar o código para aprender, né? Valeu mesmo. Abraço!  

  Fico Feliz
   Em ajudar

Olá JUNGLI, tudo bem?


O seu exemplo ficou bem bacana, não sei se você alterou o visual também mas ficou show de bola!   

Um probleminha que encontrei é que, ao clicar no botão "Adicionar Analista" e não colocar um nome, ao pressionar o botão cancelar ele exibe a seguinte mensagem (entre aspas):

"Erro em tempo de execução '3315':

O campo 'AUX_ANALISTA.ANALISTA' não pode ser uma cadeia de comprimento nulo."

Quebrei a cabeça aqui pra tentar resolver o problema, mas não consegui porque ainda sou inexperiente. Imagino que um IF para verificar se o usuário preencheu um nome na InputBox já resolveria.

Minha intenção não é de desmerecer ninguém, pelo contrário, penso que todos somos eternos aprendizes e sempre temos algo novo para aprendermos!

Abraços,


Claudio


*** Versões dos programas***
Windows 7/8 64 bits
MS Office 2013 64 bits

Código modificado no botão "Adicionar analista" (Comando14)

Private Sub Comando14_Click()
'Tratamento de erros
On Error GoTo e1
'// Variáveis
   Dim rs As DAO.Recordset
   Dim msg As String
   Dim Var01 As String * 40
'// Preenche as variáveis
   msg = "Informe o nome do Analista"
   Var01 = InputBox(msg, "Informe o parâmetro solicitado", "Nome do analista")
'// Abre o recordset
      Set rs = CurrentDb.OpenRecordset("AUX_ANALISTA")
      With rs ' seleciona o recordset
           .AddNew '    adiciona um novo registro
           ![ANALISTA] = UCase(Trim(Var01)) '  preenche o campo da tabela
           .Update '    grava as informações na tabela
      End With '    desfaz a seleção
'// atualiza a lista
   Me.LISTA_ANALISTAS.Requery
'// Fecha o recordset e limpa a memória
   Set rs = Nothing: Close
'Executar ao ocorrer o erro
e1:
Select Case Err.Number
   '// Erro: 3315 - O campo 'AUX_ANALISTA.ANALISTA' não pode ser uma cadeia de comprimento nulo."
       Case 3315
            Exit Sub 'Abandona o procedimento
End Select
'// Fim
End Sub

arquivo em anexo:

Jungli, obrigado pela rapidez em responder.

A sua solução funcionou perfeitamente, tratando o erro que estava aparecendo.

Um grande abraço, e sucesso!


Claudio


*** Versões dos programas***
Windows 7/8 64 bits
MS Office 2013 64 bits

   O fórum agradece o retorno.