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

    [Resolvido]Listbox Não Atualiza

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty [Resolvido]Listbox Não Atualiza

    Mensagem  maguim 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
    [Resolvido]Listbox Não Atualiza AttachmentTESTENOVO.zip
    s
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 3 vez(es)


    Última edição por maguim em 26/10/2018, 19:21, editado 3 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  Marcelo David 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.


    .................................................................................
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Listbox Não Atualiza Marcel11
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  maguim 5/10/2018, 17:37

    @marcelo

    Boa tarde!

    Vê se agora vai?


    abraços
    Anexos
    [Resolvido]Listbox Não Atualiza AttachmentTESTENOVO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 6 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  Marcelo David 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
    [Resolvido]Listbox Não Atualiza Attachmentteste item select_New1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (209 Kb) Baixado 11 vez(es)


    .................................................................................
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Listbox Não Atualiza Marcel11
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  maguim 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 ?! Surprised
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  maguim 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 ?! Surprised
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  Marcelo David 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...


    .................................................................................
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Listbox Não Atualiza Marcel11
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  maguim 9/10/2018, 19:59

    @marcelo boa tarde!


    Segue o bd para ver o que estou falando.


    Até
    Anexos
    [Resolvido]Listbox Não Atualiza Attachmentteste tabela numerica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (211 Kb) Baixado 3 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  Marcelo David 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))


    .................................................................................
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Listbox Não Atualiza Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Listbox Não Atualiza Marcel11

    Conteúdo patrocinado


    [Resolvido]Listbox Não Atualiza Empty Re: [Resolvido]Listbox Não Atualiza

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:58