[Resolvido]Preenchimento Automático de Dados

Prezados,

Qual o procedimento que devo adotar (ou comando) para incluir um auxílio de preenchimento de dados.

Exemplo:
Numa lista de nomes, quando eu digito o “J” aparece todos os nomes que começam com esta letra...João, José,.....e assim por diante.

Grato pela ajuda.

Mauricio

Olá...
Tente adaptar este no evento ao alterar do campo
ele filtra pela primeira e tambem por qualquer letra digitada ou grupo de letras

Código:

Dim strText, strFind, strFind2

' strText-Retorna o valor da Combo
' strFind-Retorna o valor do conjunto já digitado
' strFind2-Junta a clausula WHERE ao valor do conjunto já digitado

strText = Me.ComboCliente.Text

If Len(Trim(strText)) > 0 Then
' Mostra a lista com os registro que contenham o conjunto já digitado
' Cria uma expressão de consulta SQL com string para clausula WHERE do SQL que retorna os dados da tabela
strFind2 = "txtNomeCliente Like '*"
For I = 1 To Len(Trim(strText))
If (Right(strFind, 1) = "*") Then
strFind = Left(strFind, Len(strFind) - 1)
End If
strFind = strFind & Mid(strText, I, 1) & "*"
Next
strFind2 = strFind2 & strFind & "'"

strsql = "SELECT CodCliente, txtNomeCliente FROM tblClientes where " & strFind2 & " ORDER BY txtNomeCliente;"

' Filter os registros da combo list utilizando a nova consulta sql
Me.ComboCliente.RowSource = strsql

Else
' Senão, mostra a lista com todos os registros
strsql = "SELECT CodCliente, txtNomeCliente FROM tblClientes ORDER BY txtNomeCliente; "
Me.ComboCliente.RowSource = strsql
End If
' Abre a lista do combobox para mostrar os registros filtrados
Me.ComboCliente.Dropdown
     



Aguardo

Celso,
Desculpa aí, amigo. É que sou um aprendiz nesse negócio.....

Você poderia dar uma olhada no meu BD e informar se é este o procedimento?

Se for possível, por favor informa o meio que posso lhe enviar.

Grato pela atenção e grande abraço.

Mauricio

Olá faça uma cópia da BD e compacte em formato Zip e anexe Clicando em Escolher arquivo e depois em enviar para anexar o arquivo Zip, depois por ultimo no Enviar mensagem.

Se seu access for superior que versão 2007, salve esta cópia em versão 2007 antes de Zipar
O meu access é 2007

Aguardo

Caro Celso,
Em primeiro lugar, grato pela sua disponibilidade e interesse.

Acho que você entendeu minha necessidade, mas vou tentar descrever...

Eu preciso atualizar os registros de Plantões através do Formulário “Registro de Plantões”, inserindo o nome do profissional.....gostaria também que o sistema ajudasse a completar o preenchimento. Ou seja, quando você digitar a letra “C”, por exemplo, que o sistema já filtrasse somente os nomes que começam com esta letra e assim por diante.

Espero não ter confundido!!!

Grato e abraço.

Mauricio

Olá..

Eu fiz pelo CRM, para fazer pelo nome terá que fazer algumas alterações em tabelas e relacionamentos.
Mas veja se te atende.

ao digitar os CRM ele filtra pelo numero digitado e por grupo de numeros

Abraços

Excelente Celso,
Estou fazendo algumas adaptações, mas já consegui sacar o caminho.
Muito obrigado amigo.
Abraço.
Mauricio

Olá...

Qualquer dúvida estamos por aqui..

O fórum agradece seu retorno..

Abraços