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

    [Resolvido]Limpar caixa de texto

    Compartilhe

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    [Resolvido]Limpar caixa de texto

    Mensagem  alantb em 16/5/2018, 18:24

    Olá, no meu form faço uma filtragem de registros em um listbox; seleciono um item; e seus dados(significados), que no caso da palavra selecionada, é exibido abaixo em uma caixa de texto. Depois necessito que antes do usuário efetuar nova filtragem, os controles sejam restaurados, inseri um button: voltar o listbox para exibição inicial e limpar as caixas de texto. Ocorre que a caixa de texto que o usuário vai digitando e filtrando o listbox (txtProcurar) limpa normalmente. Entretanto a segunda caixa de texto (txtDefinicao), que exibe os significados, não. Dá erro 3326 "Este recordset não pode ser atualizado" e não restaura a caixa de texto.
    O mestre JPaulo me ajudou ontem com os limites de caracteres acima de 255 desta caixa de texto, conforme tópico do link abaixo.

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    Em anexo é a posição atual do BD, com a funcionalidade de classificar o listbox pelas colunas.

    ALAN
    Anexos
    BdSilmaril.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (221 Kb) Baixado 8 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Limpar caixa de texto

    Mensagem  FabioPaes em 16/5/2018, 19:14

    Isso Ocorre pq o Campo está Vinculado a um Campo da tabela, e como o formulário possui como origem dos dados uma consulta Agrupada apresenta esse Erro.

    Para resolver seu Problema, desvincule o Campo txtDefinição. E aplique o Valor nele a medida que clicar na Caixa de Listagem!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    Re: [Resolvido]Limpar caixa de texto

    Mensagem  alantb em 16/5/2018, 21:12

    FabioPaes, realmente o que estava provocando o erro era a vinculação. Exclui a caixa de texto e inclui uma nova desvinculada. Com essa modificação tive de fazer umas alterações no evento click do listbox para continuar carregando os dados conforme o registro clicado pelo usuário. Sendo assim tudo resolvido, segue como ficou:

    'codigo compartilhado anteriormente pelo colega JPaulo
    '-------------------------------------------------------
    Private Sub ListBox1_Click()

    Dim Linha As Integer

    Linha = Me.listBox1.ListIndex + 1

    Dim MeuFiltro
    MeuFiltro = "Codigo =" & Me.listBox1.Column(0, Linha)
    Me.Filter = MeuFiltro

    DoCmd.ApplyFilter , MeuFiltro
    Me.Recalc

    Me.txtDefinicao = listBox1.Column(2, Linha) ' adicionei essa linha para exibir os dados na caixa de texto
    ' e adicionei txtDefinicao = empty no botão Restaurar
    End Sub

    ALAN

      Data/hora atual: 22/10/2018, 00:37