Exclusão de itens em Caixa de listagem

Boa tarde galera

Sou novo no forum e também novo nessa parte de programação em Access.

Estou tentando desenvolver um sistema simples de vendas e preciso de uma ajuda.
Tenho uma tela de cadastro de produtos. Essa tela tem 3 Opções apenas ( Codigo, Descrição e Preço)
Consegui fazer os botões pra adicionar os itens e tudo mais.
A ideia desse Formulário é, a cada item adicionado, o mesmo ser atualizada na Caixa de Listagem logo abaixo. Até ai eu consegui fazer.
O que não estou conseguindo é criar os botoes de alterar e excluir esses itens.

A idéia é selecionar o item na Caixa de Listagem e apertar o botão Excluir, para excluir o item selecionado ou alterar para alterar o item selecionado.

Como não tenho tanto conhecimento em programação, venho aqui solicitar ajuda de vocês..

Obrigado!!!!

Boa tarde...seja bem vindo ao fórum !

Melhor postar o que tem, para podermos lhe ajudar. Postar no formato *.ZIP a tabela, o formulário envolvido na duvida.

Bom... o sistema ainda está em desenvolvimento, vou adicionar aqui o ZIP.

O Sistema tem o formulário Frm_Produtos
Nesse formulário que faço o cadastro dos produtos, e a caixa de listagem está nele, nesse caso gostaria de ter a opção de excluir e alterar o item.

Obrigado pela ajuda.

Acho que o arquivo não foi....

Aqui está

Ninguem pra ajudar????

Bom dia....

No botão excluir...coloque esse código.

Código:

Private Sub Btn_Excluir_Click()
  On Error GoTo fim
    Dim numRecord As Integer
   
        numRecord = InputBox("Informe o Código do Produto a ser excluído....:", Me.Caption)
            If MsgBox("Deseja excluir o Protudo " & numRecord & " ?" & vbCrLf & "Descrição  " & Me.Descrição, vbQuestion + vbYesNo, Me.Caption) = vbYes Then
              CurrentDb.Execute "DELETE FROM tbl_Produtos WHERE código=" & Me.Código & "" '
              DoCmd.RunCommand acCmdRefresh
              Me.Requery

                                MsgBox "Exclusão realizada com sucesso!", vbInformation, Me.Caption
                                    DoCmd.RunCommand acCmdRefresh
                                    Me.Lista38.Requery
                                    Me.Requery
                                        DoCmd.GoToRecord , , acNewRec
     
    Else
    MsgBox " Ação cancelada pelo usuário", vbInformation, Me.Caption
   
        Exit Sub
                             
    End If
        DoCmd.RunCommand acCmdRefresh
   
   
fim:
If Err.Number = 13 Then
MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
End If
End Sub

Lembrando que não é de bom tom, usar palavras com acentos nas tabelas.
errado...código
correto...codigo

errado...descrição
correto...descricao


No botão alterar

Código:

Private Sub Btn_Alterar_Click()
Me.Código.Enabled = True
Me.Descrição.Enabled = True
Me.PreçoVenda.Enabled = True

Me.Btn_Salvar.Enabled = True
Me.Btn_Excluir.Enabled = True
Me.Btn_Primeiro.Enabled = False
Me.Btn_Anterior.Enabled = False
Me.Btn_Proximo.Enabled = False
Me.Btn_Ultimo.Enabled = False
Me.Btn_Novo.Enabled = False
End Sub

Teste e nos informe.

Abraços

Opaaaa....

Esqueci de algo aqui, devido a correria..

Copie esse módulo abaixo e salve ele como: MDLInputBox

Código:

Option Compare Database

'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox.
'
'Code written by Daniel Klann
'http://www.danielklann.com/
'March 2003

'// Kindly permitted to be amended
'// Amended by Ivan F Moala
'// http://www.xcelfiles.com
'// April 2003
'// Works for Xl2000+ due the AddressOf Operator
'////////////////////////////////////////////////////////////////////



'API functions to be used
Private Declare Function CallNextHookEx _
Lib "user32" ( _
ByVal hHook As Long, _
ByVal ncode As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long

Private Declare Function GetModuleHandle _
Lib "kernel32" _
Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) _
As Long

Private Declare Function SetWindowsHookEx _
Lib "user32" _
Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) _
As Long

Private Declare Function UnhookWindowsHookEx _
Lib "user32" ( _
ByVal hHook As Long) _
As Long

Private Declare Function SendDlgItemMessage _
Lib "user32" Alias "SendDlgItemMessageA" ( _
ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) _
As Long

Private Declare Function GetClassName _
Lib "user32" _
Alias "GetClassNameA" ( _
ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) _
As Long

Private Declare Function GetCurrentThreadId _
Lib "kernel32" () _
As Long

'Constants to be used in our API functions
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0

Private hHook As Long

Public Function NewProc(ByVal lngCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Dim RetVal
Dim strClassName As String, lngBuffer As Long

If lngCode < HC_ACTION Then
NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
Exit Function
End If

strClassName = String$(256, " ")
lngBuffer = 255

If lngCode = HCBT_ACTIVATE Then 'A window has been activated
RetVal = GetClassName(wParam, strClassName, lngBuffer)
If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox
'This changes the edit control so that it display the password character *.
'You can change the Asc("*") as you please.
SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
End If
End If

'This line will ensure that any other hooks that may be in place are
'called correctly.
CallNextHookEx hHook, lngCode, wParam, lParam

End Function

'// Make it public = avail to ALL Modules
'// Lets simulate the VBA Input Function
Public Function InputBoxDK(Prompt As String, Optional Title As String, _
Optional Default As String, _
Optional Xpos As Long, _
Optional Ypos As Long, _
Optional Helpfile As String, _
Optional Context As Long) As String

Dim lngModHwnd As Long, lngThreadID As Long

'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If

ExitProperly:
UnhookWindowsHookEx hHook

End Function

Se preferir algo mais simples para a exclusão de registros...segue:


If MsgBox("Você deseja excluir o registro?",vbQuestion + vbYesNo) = vbNo then
me.undo
msgbox"Ação cancelada pelo usuário", vbinformation, me.caption
else
' O comando abaixo irá deletar o registro que deseja.
DoCmd.RunCommand acCmdDeleteRecord
' O comando abaixo deixa o formulário em branco, em ponto de bala para um novo registro.
DoCmd.GoToRecord , , acNewRec
End If

End Sub

Silvio,

Obrigado pelo retorno.
Fiz o teste aqui, na opção excluir, quando ele pergunta qual código excluir, mesmo eu digitando o código de um item específico, ele exclui sempre o ultimo item da listagem, não está selecionando o item em questão na Listagem.

Agora se eu utilizar os botões de navegação "Próximo" e "Anterior" para escolher o item, ele exclui corretamente, porém a ideia é não utilizar esse botões, e sim escolher o item a ser excluído/alterado na listagem de itens cadastrados.

Obrigado pela atenção

clique na caixa de listagem, para preencher o formulário com os dados...depois clicar em excluir.


Coloque o código que está na mensagem 8...é mais simples para você.

Eu tentei aqui, mas a impressão que eu tenho é que ele não está reconhecendo que eu clico no item na Listagem...

Por isso que não está funcionando nem o excluir e nem o alterar.

Existe alguma configuração a ser feita na caixa de listagem??

Eis o teu sistema com alterações

Silvio,

Agradeço a atenção e a presteza em ajudar.
Eu baixei aqui, mas continuou da mesma forma, não sei se pode ser a versão do meu Access ou algo do tipo.

Vou procurar uma solução paliativa, ou fazer essa parte de produtos de uma outra forma.

Obrigado mais uma vez

André, bom dia.

Aqui eu uso o AC2007 com o SP3. Pode ser que haja algo com o teu Access.

O que te mandei, " funfa " legal aqui.

Uma sugestão:

1- remova toda a suíte do Office de teu computador.
2- desligar o computador e ligar novamente. Não reinicie !!!
3- use algum tipo de programa para a limpeza de registro ( Ccleanner, Glary ou semelhantes )
4- instale o Office no modo personalizado, instale apenas o que precisa.
5- atualize o Access com o último SP disponível.


Abraços.