MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Listbox Não Atualiza

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Listbox Não Atualiza

    Mensagem  maguim em 4/10/2018, 21:26

    boa tarde!

    Galera estou com probleminha na atualização do Listbox.

    O listbox nao atualiza o item selecionado somente o primeiro alguém poderia me ajudar?

    Ja tentei colocar columumn(...)
    arrumar o a query
    mas não vai....  Neutral


    Código:
    Private Sub STATUSPROG_AfterUpdate()
    If Me.LISTPROG.ItemsSelected.Count > 0 Then

    If MsgBox("Deseja Alterar o item " & Me.LISTPROG & " ?", _
    vbQuestion + vbYesNo + vbDefaultButton2, "Confirmação") = vbYes Then

        Dim rs As DAO.Recordset
            Set rs = CurrentDb.OpenRecordset("select id_geral, programa, STATUS from PROGRAMAS where id_geral = '" & Forms!formhistorico!CODPASTA & "'")
                rs.Edit
                
                    rs("STATUS") = Me.STATUSPROG
                    
                rs.Update
                rs.Close
                
        MsgBox "Cadastrado com sucesso!", vbExclamation
        Me.LISTPROG.Requery

        End If
    Else
    MsgBox "Nenhum Item seleccionado!", vbExclamation, "Informação"
    End If

      
    End Sub


    abraços
    Anexos
    TESTENOVO.zip
    s
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 2 vez(es)


    Última edição por maguim em 8/10/2018, 18:44, editado 2 vez(es)
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: Listbox Não Atualiza

    Mensagem  Marcelo David em 5/10/2018, 01:21

    Amigo, boa noite, não consegui testar o seu aplicativo. Ele dar vários erros.
    Poderia dar uma verificada e anexar novamente de forma que seja possível
    testarmos. Assim poderemos chegar a algum resultado.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: Listbox Não Atualiza

    Mensagem  maguim em 5/10/2018, 17:37

    @marcelo

    Boa tarde!

    Vê se agora vai?


    abraços
    Anexos
    TESTENOVO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 5 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: Listbox Não Atualiza

    Mensagem  Marcelo David em 6/10/2018, 04:32

    Boa noite, Vamos...
    Você estava fazendo um update sem especificar o registro pela chave primária.
    Eu apenas acrescentei a chave primaria na primeira coluna (0) do listbox e usei
    como critério.

    Veja se é isso.
    Anexos
    teste item select_New1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (209 Kb) Baixado 3 vez(es)


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: Listbox Não Atualiza

    Mensagem  maguim em 8/10/2018, 17:10

    @marcelo Muito obg

    deu certo. que falha minha esquece de mencionar a chave primaria...


    abraços


    segue pra quem quer a solução o que faltou no codigo

    Código:
    AND ID_PROGCONTR=" & Me.LISTPROG.Column(0)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: Listbox Não Atualiza

    Mensagem  maguim em 8/10/2018, 18:44

    marcelo tem como me ajudar?


    o critério não bate,


    no meu app esta o id_geral como Numero na tabela


    estou tentando ajustar o criterio porem estou com dificuldade

    Código:

                Set rs = CurrentDb.OpenRecordset("select id_geral, programa, STATUS " _
                                              & "from PROGRAMAS where id_geral =" & Forms!formhistorico!CODPASTA" AND ID_PROGCONTR=" & Me.LISTPROG.Column(0))


    pode me ajudar por favor?

    Abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: Listbox Não Atualiza

    Mensagem  Marcelo David em 9/10/2018, 01:36

    Aqui comigo está normal.
    O Me.LISTPROG.Column(0)) o Access já entende que é numero. A não ser que tenha sido alterado
    a origem da linha...


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: Listbox Não Atualiza

    Mensagem  maguim em 9/10/2018, 19:59

    @marcelo boa tarde!


    Segue o bd para ver o que estou falando.


    Até
    Anexos
    teste tabela numerica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (211 Kb) Baixado 2 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: Listbox Não Atualiza

    Mensagem  Marcelo David em 10/10/2018, 02:04

    Boa noite,
    estás comparando numero como se fosse texto, pondo apóstrofo onde não deve ter. Veja o correto:

    Código:
    Set rs = CurrentDb.OpenRecordset("select id_geral = programa, STATUS " _
                                              & "from PROGRAMAS where id_geral = " & Forms!formhistorico!CODPASTA & " AND ID_PROGCONTR=" & Me.LISTPROG.Column(0))


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: 15/10/2018, 21:25