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]Digita e filtra em/ na Cbo. . .

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Convidado 25/2/2017, 12:22

    boas
    tenho uma cboxpto (formContinuo) que consulta o Numero e Nome do Cliente, sendo que a coluna vinculada = 1, Número de Colunas = 2, Largura de Colunas = 0cm; 2cm. Sendo que o Numero do Cliente é o campo que relaciona uma tabela a outra.
    Pretendia numa Caixa de Texto - No cabeçalho ao escrever o Nome do Cliente filtra-se nessa cbo, uma vez, estou a aproveitar o mesmo form para lançar dados e efetuar as pesquisas necessárias... tentei assim ( sem sucesso )

    Private Sub txtPesquisa_Change()
    Me.Refresh
    If Not IsNull(Me.txtPesquisa) Then
    Me.Filter = "cboClientes Like '*" & Me.txtPesquisa.Text & "' & '*'"
    Me.FilterOn = True
    Me.txtPesquisa.SelStart = Nz(Len(Me.txtPesquisa), 0)
    Else
    End If
    End Sub

    Como ultrapassar... Obrigado
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº2

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Dilson 26/2/2017, 08:38

    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Convidado 26/2/2017, 10:32

    Irei experimentar... mas ao ler os tópicos acho que não é isto que se pretende. Na verdade eu quero pesquisar através de uma cx de texto o que está na Combro. Na Combo do form Continuo que já está preenchida com o Nome do Cliente.
    Mas irei tentar... Obrigado
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº4

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Dilson 26/2/2017, 11:20

    Não sei como está exposto no seu form, mas suspeito que o primeiro link te servirá, pois poderá pesquisar o nome do cliente por qualquer parte e com recursos disponíveis para autocompletar outros campos usando a função With.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº5

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Avelino Sampaio 26/2/2017, 12:19

    Dilson,

    veja o que eu entendi:

    Copie e cole o link no seu navegador.

    redeaccess.com.br/viewtopic.php?f=4&t=1570

    Aguardamos
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº6

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Dilson 26/2/2017, 13:27

    Obrigado Avelino, agora entendi.

    Marco para esse caso esqueça os assuntos que passei nos links.

    Tente esse:
    msdn.microsoft.com/pt-br/library/office/ff835062.aspx


    Se não der certo me fale que faremos com sql no vba.
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº7

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Dilson 26/2/2017, 15:43

    Montei uma instrução SQL no vba e imagino que populará a fonte do controle do Subformulário.

    Quando cita cliente, imaginei que esteja falando de um form continuo vendas. Substitua os nome de campos e tabela e caminhos referência e veja se funciona no evento ao alterar:


    Dim SQL As String
    SQL = "SELECT * " _
           & "FROM SuaTabelaCliente " _
           & "LEFT JOIN " _
           & "SuaTabelaVendas " _
           & "ON " _
           & "SuaTabelaCliente.IdChavePrimaria = SuaTabelaVendas.IdChaveEstrangeira " _
           & "WHERE " _
           & "((SuaTabelaCliente.NomeCliente Like '*'+ txtPesquisa.Text & '*')) " _
           & "ORDER BY " _
           & "SuaTabelaCliente.IdChavePrimaria DESC"
    Forms!NomeDoForm!NomeDoSubForm.Form.RecordSource = SQL
    Forms!NomeDoForm!NomeDoSubForm.Requery
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº8

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Dilson 26/2/2017, 23:05

    Adaptei no exemplo que postou no Fórum RedeAccess.

    Funcionando 100% no evento após atualizar da TextBox

    Dim SQL As String
    SQL = "SELECT tabCadXPTO.IdtabCadXPTO, tabCadXPTO.Data, tabCadXPTO.IDtabCadCliente, " _
        & "tabCadClientes.NomeCliente, tabCadXPTO.Obs " _
           & "FROM tabCadClientes " _
           & "LEFT JOIN " _
           & "tabCadXPTO " _
           & "ON " _
           & "tabCadClientes.NumeroCliente = tabCadXPTO.IDTabCadCliente " _
           & "WHERE " _
           & "((tabCadClientes.NomeCliente Like '*'+ Forms!frmCadXPTO!txtPesquisa & '*')) " _
           & "ORDER BY " _
           & "tabCadClientes.ID DESC"
    Me.Form.RecordSource = SQL
    Me.Requery
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº9

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Convidado 28/2/2017, 12:19

    Dilson... esta resolvido. Obrigado abraço
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº10

    [Resolvido]Digita e filtra em/ na Cbo. . . Empty Re: [Resolvido]Digita e filtra em/ na Cbo. . .

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 14:48