MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Exclusão de itens em Caixa de listagem

    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Exclusão de itens em Caixa de listagem

    Mensagem  deehused 14/12/2016, 17:53

    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!!!!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 14/12/2016, 18:23

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  deehused 14/12/2016, 18:48

    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.
    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  deehused 14/12/2016, 18:51

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

    Aqui está
    Anexos
    Exclusão de itens em Caixa de listagem AttachmentSistema.zip
    Sistema
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 7 vez(es)
    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  deehused 19/12/2016, 11:53

    Ninguem pra ajudar????
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 19/12/2016, 12:47

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 19/12/2016, 13:17

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 19/12/2016, 17:47

    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



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  deehused 19/12/2016, 18:30

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 19/12/2016, 19:00

    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ê.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  deehused 19/12/2016, 19:21

    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??
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 19/12/2016, 20:46

    Eis o teu sistema com alterações
    Anexos
    Exclusão de itens em Caixa de listagem AttachmentSistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 40 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    deehused
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/12/2016

    Exclusão de itens em Caixa de listagem Empty Obrigado

    Mensagem  deehused 20/12/2016, 11:52

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Silvio 20/12/2016, 12:09

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    Exclusão de itens em Caixa de listagem Empty Re: Exclusão de itens em Caixa de listagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:44