(Resolvido) Busca através de consulta com mascára

[Inffernus]

Boa noite a todos, gostaria de saber como fazer para minha consulta utilizar uma mascará... por exemplo:

(Criei uma consulta para buscar pelo nome da pessoa usando a expressão abaixo na consulta e logo após criando um formulário em cima dessa mesma consulta)

Como "*" & [Digite o nome REAL, exemplo: JOSÉ BEZERRA] & '*'

(Ou seja, eu executo o formulário criado em cima da consulta e ele pede que eu digite o nome do cliente para buscar na tabela)

Gostaria de saber como fazer esse mesmo procedimento de busca, mas agora com uma mascará, porque tenho que fazer uma busca pelo código ao invés do nome do cliente.

Exemplo da mascará do código: 000.000-00

Alguém pode me ajudar?

Grato.

Editado Junho 9, 2009 por Inffernus

[Alexandre Neves]

Bom dia, Inffernus

Não entendi.

Pretende introduzir 123245678 e a procura seja por 123.456-78?

Bom trabalho,

[MrMALJ]

Crie um campo com um objeto caixa de texto com a formatação desejada e utilize-o como critério

Como "*" & forms!seuForm!seuCampo & '*'

Dessa forma ele busca com o formato pre-definido na caixa de texto do formulário, ou seja você já poderia chamar o relatorio que essa consulta vai gerar apartir desse formulário.

[Inffernus]

Bom, deixa eu tentar ser mais claro....

Eu tenho a tabela "tblClientes" que contém os campos: codRGC (chave primária), nome completo, CPF e Endereço completo

Certo?

Então eu criei uma consulta em cima dessa tabela... "conNomeCompleto".

No modo designer da consulta fui no campo "Nome Completo" e coloquei o seguinte critério:

Como "*" & [Digite o nome REAL, exemplo: JOSÉ BEZERRA] & '*'

Isso fez que quando eu executasse a consulta "conNomeCompleto" ela me pedisse para digitar o nome do cliente, certo?

Então o que quero agora é que ao invés de procurar pelo nome do cliente eu crie uma consulta que procure pelo código do cliente "codRGC", e chame essa consulta de "conCodRGC". E coloque uma mascará nos critérios da consulta: 000.000-00

Exemplo:

Como "*" & [Digite o código do Cliente, exemplo: 001.052-01] & '*'

(só que quando eu fosse digitar utilizasse essa mascará do exemplo)

Apenas isso.

Obrigado.

Editado Junho 10, 2009 por Inffernus

[Alexandre Neves]

Tente

Como "*" & Format([Digite o código do Cliente, exemplo: 001.052-01],"999.999-99") & '*'

Bom trabalho,

[Inffernus]

Deu erro nessa virgula antes da mascará Alexandre... :mellow:

Editado Junho 13, 2009 por MrMALJ

[Alexandre Neves]

Tente assim:

Como "*" & Format([Digite o código do Cliente],"999.999-99") & '*'

Bom trabalho,

[Inffernus]

já tentei assim também campeão, da erro na virgula.

Ai na sua casa funcionou?

[Alexandre Neves]

Novamente, Inffernus

Não tentei por uma razão: quase não utilizo consultas. Construo cadeia SQL após a digitação no controlo do formulário.

Se necessitar, carregue a bd (por segurança, com dados diferentes) no esnips, por exemplo.

Bom trabalho,

[Inffernus]

Ok companheiro, mas quero apenas descobrir isso mesmo...

Mas de qualquer forma obrigado pela tentativa.

Editado Junho 13, 2009 por MrMALJ

[Alexandre Neves]

Novamente, Inffernus

Criei uma consulta com o critério que mencionou. depois, criei um formulário baseado na consulta e funcionou bem.

Verifique se não anda gato pelo meio.

Bom trabalho,

[Inffernus]

Bom..

Então me fala como foi que você fez ai...

Eu estou fazendo dessa forma:

1º Crio a consulta, seleciono a tabela e os campos e salvo a consulta com o nome conCodRGC;

2º Em na consulta conCodRGC entro no modo design;

3º No campo que eu quero (no caso codRGC) em o Critérios coloco: Como "*" & Format([Digite o código do Cliente],"999.999-99") & '*'

4º Salvo, e clico em formulário e depois só altero o designer do formulário.

É assim que você fez?

Porque no meu da erro justamente na virgula em negrito desse critério: Como "*" & Format([Digite o código do Cliente] , "999.999-99") & '*'

Se tiver como você postar um modelo também para mim baixar seria excelente.

Obrigado pela atenção Alexandre.

Editado Junho 13, 2009 por MrMALJ

[Alexandre Neves]

Novamente, Inffernus

Veja:

http://www.esnips.com/doc/927b09dd-7b3f-43...df9/bdInffernus

Bom trabalho,

[Inffernus]

Desculpa companheiro, mas o link tá ruim, não abriu.

[Alexandre Neves]

Veja agora

www.esnips.com/doc/e48a72df-b1ac-4040-aad3-4a9143065560/bdInffernus

Bom trabalho,

[Inffernus]

Caro Alexandre, eu vi o seu exemplo.

Acontece que isso dai eu já fiz. O que quero fazer é introduzir uma mascará justamente no lugar de digitar o nome.

Você criou uma consulta que busca pelo nome.

Quero criar na verdade uma consulta que busque pelo código.

Ao invés de digitar JOSÉ BEZERRA, digitaremos o código do mesmo: 000.001-01.

Até então já consegui fazer isso também. Acontece que quero digitar somente os numeros, pois preciso que a mascará esteja no campo que vou digitar.

Ou seja..

Mensagem: Digite o código do cliente

Campo para digitar com mascará: ___.___-__

Entende? É isso.

Abraço!

[Alexandre Neves]

Novamente,

Então não será Como "*" & [Digite o nome REAL, exemplo: JOSÉ BEZERRA] & '*'

Mas, talvez, SELECT ... WHERE Numero Like '*' & Format([Digite o número, exemplo: 0000030],'00-00000') & '*';

Bom trabalho,

Editado Junho 15, 2009 por Alexandre Neves

[MrMALJ]

Olha tente substituir a virgula por ponto e virgula, e por favor evite QUOTEs desnecessários ok!

[Inffernus]

Com relação ao ";" no código: Como "*" & Format ([Digite o código do cliente:]; 000.000-00) & '*' já tentei também Moderador, não dá erro, mas também não funciona ...

[Leandro Abbade]

Boa noite amigo,

Veja este exemplo e tente adaptar as suas necessidades:

http://www.professorlar.com/contarcliques3...ess/dicas/Entre uma data e outra.zip://http://www.professorlar.com/contarc...ata e outra.zip

[Inffernus]

Caro colegas, peço desculpas, mas pelo visto não é possivel fazer esta operação, então tive uma idéia agora olhando o exemplo do Leandro...

Exista a possibilidade de no meu Meu Principal abrir um campo (texto) com mascará (000.000-00) e colocar um botão ao lado "BUSCA" e o mesmo me trazer o formulário do cliente? Como seria!?

Exemplo:

- Criaria um campo do tipo texto com nome de "BuscaRGC" no Menu Principal

- Criaria um botão com nome "Botao_BuscaRGC" também no Menu Principal

O código do botão seria algo do tipo:

Private Sub Botao_BuscaRGC_Click()

If Me.BuscaRGC <> nil Then

DoCmd.OpenForm "frmEfetivo"

Else

MsgBox ("O código não existe ou esta vazil! Tente novamente...")

End If

End Sub

Mas eai, como determinar nesse código que ele deve buscar somente o campo de código dos clientes na tabela.

Abraço!

Boa noite.

Editado Junho 16, 2009 por Inffernus

[Alexandre Neves]

Novamente, Inffernus

Utilizei o código numa consulta e funcionou.

Pode carregar a bd num sítio gratuito, por exemplo, o esnips.

Bom trabalho,

[Inffernus]

Ok, postei um exemplo do que quero fazer: http://www.esnips.com/doc/023f0597-2485-43.../MeuBDInffernus

Nesse exemplo criei 3 clientes cada um com seu código:

- 000.001-01

- 000.002-01

- 000.003-01

Só que no meu frmMeu quando digite o código dos demais, ele não localiza e me joga para o 000.001-01

Agora por favor me deêm uma luz, não consigo fazer com que o botão encontre os registros que digito.

Editado Junho 17, 2009 por Inffernus

[Alexandre Neves]

Bom dia, Inffernus

A bd está no formato access 2007. Se colocar no formato 2000, poderei ver.

Bom trabalho,

[Inffernus]

Bom dia, Inffernus

A bd está no formato access 2007. Se colocar no formato 2000, poderei ver.

Bom trabalho,

Ahh sim companheiro, aqui esta: http://www.esnips.com/doc/45a291a9-8de6-44...MeuBD_Inffernus

Boa tarde.

[Leandro Abbade]

Boa tarde amigo,

1º passo:

No botao do formulario 'frmmenu' coloque:

DoCmd.OpenForm "frmefetivo", , , , , acDialog

2º passo: Agora no carregar do formulário 'frmefetivo' coloque:

Me.CodRGC = Forms!frmmenu!BuscaRGC

Agora é só correr para o abraço!