[Resolvido]lista de clientes

boas,pedi ajuda para ao fazer f4 em um capo de um formulário abrir outro,ajudaram com o código e explicaram para colocar pre vizualisar chave = sim,e resultou mas o problema é que deixei de poder escrever nos campos de filtro que tenho nessa listagem,,,o que devo fazer?

Boas Tino.. Não vejo relação entre estas ações.. Poste o modelo do bd com os objetos envolvidos para que possamos ver isto pra ti.

Cumprimentos.

boas,segue em anexo, é o form frnpesquisa1

Não veio o Anexo.

Não veio o Anexo.

boas,da este erro não sei porque...



Os seguintes erros foram encontrados


O arquivo adicionado não é valido: nome do arquivo incorreto.

O anexo está num destes formatos ?

(3g2, 3gp, bmp, doc, docm, docx, gif, jpg, m4a, m4v, mov, mp3, mp4, mpg, pdf, png, pps, ppt, pptm, pptx, swf, tif, txt, wma, wmv, xls, xlsb, xlsm, xlsx, zip )

Compacte-o com o WinRar no formato .Zip


Cumprimentos.

Boas,ja tentei de tudo mas não consigo...o que achas que se pode fazer...

Envie-me no e-mail que posto aqui.

Harysohn@hotmail.com

Cumprimentos.

boas,enviei por email,aguardo a resposta,obrigado

O Bd do colega

https://dl.dropboxusercontent.com/u/26441349/lista%20de%20clientes-Tino%20Seixas%281%29.zip

De detalhes do problema citando todos objetos envolvidos.


Cumprimentos.

boas,vou explicar,no form serviço externo no campo cliente faço F4,abre a listagem de clientes,na listagem não consigo filtrar porque não da para escrever e o que pedia também era uma forma de na mesma listagem escrever em cima da caixa de listagem e aparecer o nome conforme é escrito...não sei se me faço entender....obrigado

Retire o KeyCode = 0

Isto está impedindo o funcionamento das teclas.

Cumprimentos.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 115 Then
 Forms![Serviço Externo].cliente = Me.lst_1.Column(0)
 Forms![Serviço Externo].Nome_cliente = Me.lst_1.Column(1)
 DoCmd.Close acForm, "frmPESQUISA1"
SendKeys "{F2}"
End If
End Sub

boas,era mesmo isso,em relação ao resto há forma de escrever e aparecer o nome na caixa de listagem como se fosse uma caixa de combinação?
outra questão quando faço F4 no primeiro form e abre a lista de clientes não é possível se estiver já selecionado um cliente abrir com esse mesm selecionado...não sei se me fiz entender...
agradeço a ajuda...

Vamos por parte.. não entendi nada..

De detalhes da primeira dúvida.

Cumprimentos.

Fiz algo para o nome.. veja se é isto:

Private Sub txt_nome_Change()
On Error Resume Next

Me.Recalc
SendKeys "{F2}"
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.txt_nome.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(1, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(1)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If

End Sub

Cumprimentos.

é assim: na lista de clientes (caixa de listagem dentro de form) nao é possível alem dos filtro feitos em cima quando se escrever em cima das linhas da caixa de listagem começar a aparecer o nome correspondente....
por exemplo sei que o cliente se chama antonio no primeiro nome e arques no apelido,enta escrevo marque na caixa de listagem e vou escrevendo antonio diretamente na caixa de listagem.
voçe pode disser assim então porque não escrever tudo na caixa de filtro de nome? o problema é que muitas vezes os cliente so dao o primeiro e ultimo nome logo não posso filtrar em cima,como faz o meu programa de vendas Primavera..na sei se conhece mas a forma de funcionar na lista de clientes e artigos é assim...
já nos artigos é ainda melhor,por exemplo quero encontrar o lcd marca lg modelo "xpto" então filtro pelo modelo ou parte dele e a seguir escrevia em cima da caixa de listagem "lcd"...
não sei se me fiz entender..

Não é possivel escrever na caixa de listagem como se faz na combo.

veja o que postei ai acima e se lhe atende.

Cumprimentos.

boas,nao era o que eu queria dizer mas experimentei e o que acontece é que ao escrever não posso meter espaços e tenho que escrever devagar se não apaga a letra anterior,seria melhor se possível o outro exemplo que dei.
cumprimentos

então mas não sera possível criar outro tipo de form aonde eu consiga fazer o que pretendo?
é que por ezes é mesmo difícil dar com um artigo ou cliente,porque quem registou meteu assentos ou não meteu o "da" ou "do" no nome...
haverá outra forma?
cunprimentos

Tens que utilizar códigos para retirar acentos após o usuário digitar...

Eu ainda continuo não entendendo o que voce deseja...
Seja mais específico

Vamos resolver este problema de não poder digitar espaços...

>> Abra o form em modo design, clique na lista e va nas propriedades, aba Dados.. apague a origem da linha
>>  nas caixas texto o código abaixo..

On Error Resume Next
Dim strSql As String

strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.txt_nome.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(1, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(1)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If

Para as outras caixas texto.. substitua o nome da mesma na linha em vermelho.. e altere a coluna na linha em azul

Basta apenas este codigo de filtragem.. apague os demais.


Cumprimentos.

Substitua todos os códigos do formulário por este:

Option Compare Database
Option Explicit


Private Sub cliente_Change()
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente.Text & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.cliente.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(0, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(0)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub

Private Sub contribuinte_Change()
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte.Text & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.contribuinte.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(6, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(6)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub


Private Sub localidade_Change()
On Error Resume Next
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade.Text & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.localidade.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(3, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(3)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub

Private Sub MORADA_Change()
On Error Resume Next
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA.Text & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.MORADA.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(2, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(2)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub



Private Sub telefone_Change()
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone.Text & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.telefone.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(4, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(4)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub

Private Sub telefone2_Change()
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2.text Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.telefone2.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(5, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(5)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub

Private Sub txt_nome_Change()
Dim strSql As String
strSql = "SELECT * FROM dbo_Clientes WHERE Cliente Like '*" & Me.cliente & "*' And Nome Like '*" & Me.txt_nome.Text & "*' And" _
        & " Fac_Mor Like '*" & Me.MORADA & "*' And Fac_Local Like '*" & Me.localidade & "*' And Fac_Tel Like '*" & Me.telefone & "*' And" _
        & " Telefone2 Like '*" & Me.telefone2 & "*' And NumContrib Like '*" & Me.contribuinte & "*' ORDER BY Nome;"
Me.lst_1.RowSource = strSql
    Dim i As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.txt_nome.Text)
    intPos = Len(strProcura)
    If intPos Then
        For i = 0 To lst_1.ListCount - 1
            strList = Me.lst_1.Column(1, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lst_1.Selected(i) = True
                Me.lst_1 = Me.lst_1.Column(1)
                Exit For
            Else
                Me.lst_1.Selected(i) = False
            End If
        Next
    End If
End Sub

Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Cliente"
    
    stLinkCriteria = "[Cliente]=" & "'" & Me![lst_1] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando42_Click:
    Exit Sub

Err_Comando42_Click:
    MsgBox Err.Description
    Resume Exit_Comando42_Click
    
End Sub


Private Sub fechar_Click()
DoCmd.Close acForm, "frmPESQUISA1", acSaveYes
End Sub



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 115 Then
 Forms![Serviço Externo].cliente = Me.lst_1.Column(0)
 Forms![Serviço Externo].Nome_cliente = Me.lst_1.Column(1)
 DoCmd.Close acForm, "frmPESQUISA1"
SendKeys "{F2}"
 Else
 'KeyCode = 0
     End If
End Sub

Private Sub limpar_Click()
txt_nome.SetFocus
txt_nome = Null
End Sub



Private Sub lst_1_DblClick(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Cliente"
    
    stLinkCriteria = "[Cliente]=" & "'" & Me![lst_1] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Cumprimentos.

Um grave erro que tem no seus critério.. tanto no seu exemplo como no código que postei...

Sua lista está restringindo registros..
Ja tentou contar quantos registros são carregados na lista no teu exemplo?
De mais de 5.000 registros só estão sendo carregado algo em torno de 1.000

Porque?
Porque utilizou todos os criterios no Critério And... Tem que ser no ou

Cumprimentos.

excelente...obrigado.ja agora em relação ao abrir o forme lista de clientes através do form serviço externo não é possível se o cliente já estiver preenchido na caixa de cliente abrir e estar selecionado...
em relação aos registos sera porque eu apagei muitos para poder enviar a base de dados porque existiam cerca de 8000 antes ...
cumprimentos

excelente...obrigado.ja agora em relação ao abrir o forme lista de clientes através do form serviço externo não é possível se o cliente já estiver preenchido na caixa de cliente abrir e estar selecionado...
em relação aos registos sera porque eu apagei muitos para poder enviar a base de dados porque existiam cerca de 8000 antes ...
cumprimentos

É porque a lista está sem o RowSource carregado.

Crie uma consulta dos clientes sem os critérios e coloque la apenas com o critério do cliente.

Cumprimentos.

Veja o exemplo aperfeiçoado.

http://maximoaccess.forumeiros.com/t15262-filtro-em-listbox-para-varios-campos-selecionando-registro-ao-digitar

Cumprimentos.