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]Comando para atualizar a listbox não funciona

    avatar
    FlavioLima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 14/02/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  FlavioLima 8/4/2022, 13:24

    Boa tarde,
    Sei que estou comendo mosca...

    Tenho o FORM1 que é de "pesquisa", eu busco um registro através da textbox, clico e abre o FORM2 que mostra o registro correspondente,ate aqui tudo bem.
    O problema é quando clico no botão fechar do FORM2 gostaria que o FORM1 fizesse um requery na listbox e desse foco no textbox da pesquisa.

    tentei o seguinte:

    Private Sub btfechar_Click()
    If CurrentProject.AllForms("FORM1").IsLoaded = True Then
    Forms!FORM1!LBPESQ.Requery
    Forms!FORM1!txtpesq.SetFocus
    Forms!FORM1!txtpesq.Value = ""

    End If

    DoCmd.Close

    End Sub

    ai ele nao está "fazendo o refresh" da lista e para o foco funcionar eu preciso dar um clique com o mouse em algum local dentro do formulario.
    Uso o access2007
    Segue exemplo do problema em anexo.
    Anexos
    [Resolvido]Comando para atualizar a listbox não funciona AttachmentTESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty Re: [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  Alexandre Fim 8/4/2022, 14:10

    Olá,

    Use a instrução abaixo:
    Código:
    Private Sub btfechar_Click()
       
        If CurrentProject.AllForms("FORM1").IsLoaded = True Then
            With Form_FORM1
                .txtpesq = Empty
                .LBPESQ.RowSource = "SELECT * FROM CSTAB1 ORDER BY [Nome], [Endereco];"
                .LBPESQ.Requery
            End With
        End If
       
        DoCmd.Close

    End Sub

    É isso.


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Comando para atualizar a listbox não funciona Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    FlavioLima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 14/02/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty Re: [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  FlavioLima 8/4/2022, 14:22

    Muito obrigado amigo!

    O comando deu o refresh e o ".txtpesq = Empty" limpou, mas tem algo pra ele dar foco?
    tipo:
    .txtpesq = SetFocus ???

    nao sei como seria a escrita:

    Private Sub btfechar_Click()

    If CurrentProject.AllForms("FORM1").IsLoaded = True Then
    With Form_FORM1
    .txtpesq = Empty
    .txtpesq = SetFocus <----- algo assim? tentei e deu erro =(
    .LBPESQ.RowSource = "SELECT * FROM CSTAB1 ORDER BY [Nome], [Endereco];"
    .LBPESQ.Requery
    End With
    End If

    DoCmd.Close

    End Sub


    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty Re: [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  Alexandre Fim 8/4/2022, 14:48

    .txtpesq = SetFocus <----- algo assim? tentei e deu erro =(
    Assim vai gerar erro mesmo. 
    Correto
    .txtpesq.SetFocus


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Comando para atualizar a listbox não funciona Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty Re: [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  Alexandre Fim 8/4/2022, 14:57

    Mude a propriedade do FORM1 para Janela Restrita:

    [Resolvido]Comando para atualizar a listbox não funciona CjrISPNvTzwAAAABJRU5ErkJggg==

    É isso
    avatar
    FlavioLima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 14/02/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty Re: [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  FlavioLima 8/4/2022, 15:05

    Showwwwwwwww

    queria uma recomendação sua de um livro em pdf onde eu estude essas diferenças tipo a diferença das sintaxes para usar .setfocus para o = setfocus
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Comando para atualizar a listbox não funciona Empty Re: [Resolvido]Comando para atualizar a listbox não funciona

    Mensagem  Alexandre Fim 8/4/2022, 15:11

    Flavio,
    Particularmente, não tenho em mente nenhum livro sobre Access, mas minha recomendação é utilizar o F1 do Access, que te enviará para pagina da própria Microsoft, onde você pode encontrar todos os assuntos relacionados à ferramenta

    No caso do evento Setfocus:

    https://docs.microsoft.com/pt-br/office/vba/api/access.textbox.setfocus


    É isso

    Sucesso nos projetos !!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Comando para atualizar a listbox não funciona Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 1/10/2022, 15:41