[Resolvido]Fazer funcionar o botão Editar e Excluir na caixa de listagem

Boa Tarde

Tenho um formulário que contem os botões Editar e Excluir e em baixo tem a caixa de listagem com os dados.
Eu quero saber o seguinte:
Quando eu selecionar um registro da caixa de listagem e clicar o botão editar apareça o formulário de cadastro com os dados do registro selecionado e quando clicar no botão Excluir apareça a mensagem para confirmar a exclusão do registro selecionado.


http://dl.dropbox.com/u/33056540/Desenvendo%20Sistema%20Forum/Controle%20de%20Pagamento.mdb

Obrigado.

Pat.. para manipular registros de uma listbox em realidade se manipula os registros diretamente na tabela, e apos isso fazendo um requery na list...


Pois bem como fazer isto estao?

Vais utilizar de um codigo que ao clicar no registro da list captura o vslor do campo da chave numerica da tabela referente ao registo, e utiliza-se dos comandos:

Update (atualizar/alterar)
Delete (excluir)

E no comando em vba na expressao sql indica que pretende excluir (em caso de delecão) condizente com a ID capturada no monto do clique da lista..


Para alterar como voce quer, vais utilizar a ID capturada para abrir o form filtrado condizente com a ID, atraves do comando DoCmd.Openform utilizando o filtro para aID


Neste exemplo que posto, tem uma listbox e podes observar que tem exclusao e extorno de um item ou todos.

Abra o exemplo e observe os codigos ao clicar da list e de exlusao

http://maximoaccess.forumeiros.com/t2261-controle-caixa

Cumprimentos

Fiz apenas para os funcionarios, usando a função OpenArgs, faça agora sozinho para aprender...

Abra o form AlterarExcluirFuncionario, selecione um funcionario e pressione o botão EDITAR

http://dl.dropbox.com/u/771097/Controle%20de%20Pagamento_OLD.rar

E ae, resolveu ?

Obrigado!

Bom dia JPaulo

Referente a esse tópico estou com uma dificuldade.

Peguei o codigo que você criou coloquei no evento click mas da erro

Segue arquivo para analise

grato pela ajuda

OBSERVAÇÃO

sou novato, estou fazendo na base de tentativa e erro, rsrsrs, e alguns frank, copia um codigo aqui outro ali e monto

vlw

Poste em 2003 ou 2007 se possível.

Cumprimentos.

Piloto

segue em 2007

vlw

Atente às regras do Fórum.

Não é permitido linguagem do tipo MSN como vlw etc.
Evite escrever em maiúsculas. Na rede é como se estivesse gritando.

Grato.

Ainda está em 2010.

Piloto

Obrigado pelas orientações.

Acredito que agora esteja certo.

Grato pela ajuda

Em qual procedimento está o código? Qual objeto a ser clicado?


Cumprimentos.

-Amigão... sua tabela CP1 não possue campo da chave primária válido, que é campo que identifica o registro na mesma.

- Crie um campo do tipo Auto-Numeração e coloque o nome de Código.
- Adicione na lista este campo como primeiro na consulta.
- 8 colunas
- 0cm;2,805cm;1,9cm;10cm;3,505cm;2cm;2cm;2cm (Tamanho das colunas)
- No form CAD_Projeto adicione caixa texto para receber o campo da chave primária, pode deixar em oculto
- Na lista deste formulário aplique o mesmo da lista do form LIst_Projeto
- No Form Cad_Projeto:

Código:


Private Sub Form_Load()

'By JPaulo ® Maximo Access
    Dim varArgs
    Dim rst As DAO.Recordset
   
    'Pega o codigo do registro
    varArgs = Me.OpenArgs
   
    'Verifica se o codigo foi passado pelo OpenArgs
    If Not IsNull(varArgs) Then
    'se foi passado filtra o form
        Me.Filter = "Código= " & varArgs
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If

End Sub


Cumprimentos.

Bom dia Piloto

Agradeço sua ajuda, funcionou colocando apenas o campo chave primaria e adicionando o mesmo na lista em primeiro como orientou.

Grato

Abraços

O Fórum agradece o retorno.