Filtros con maskedit

[novato03]

Hola amigos del clubdelphi, mi pregunta es, cómo le hago para filtrar un registro de teléfono en este formato (809)999-9999?, ya que cuando lo intento en ese formato da error. Utilizo delphi-7 y access.

Si alguien me puede dar una ayuda, se lo agradecería, gracias anticipadas...

[[enecumene]]

Hola, podrias postear algo codigo? para asi poderte ayudar.

Saludos.

[novato03]

Este es el código que utilizo...

Código Delphi [-]
procedure TFrmContactos.MaskEdit1Change(Sender: TObject);
var
   Filtro : String;
begin

   If (MaskEdit1.Text <> '') then
   begin
      Dmodulo.tblContactos.Filtered := False;
      If ComboBox1.Text = 'Teléfono' then Filtro := 'telefono Like '+MaskEdit1.Text
         else If ComboBox1.Text = 'Celular' then Filtro := 'celular Like '''+ MaskEdit1.Text + '*''';
      Dmodulo.tblContactos.Filter := Filtro;
      Dmodulo.tblContactos.Filtered := True
   end
   else Dmodulo.tblContactos.Filtered := False;

end;

Cuando utilizo un Edit me presente al siguiente error al empezar a digitar el número en este formato (809)999-9999.

Project Sisconem.exe raised exception class EOleException with message 'No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido'. Process stopped. Use or Run to continue.

y cuando utilizo un MaskEdit presenta el siguiente error...

Project Sisconem.exe raised exception class EOleException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Process stopped. Use or Run to continue.

Es que acaso no es posible filtrar con formato como este (809)999-9999?

[waly2k1]

No vi mucho el codigo, pero el 1º error que te presenta es porque no existe el nombre del campo por el cual estas filtrando.
Verificá bien en tu tabla si los campos telefono y celular existen realmente, quizas en plural, acentuados o algo por el estilo.
El segundo es porque tenes un lio con los apóstrofes '''.

En lugar de traer una tabla con todos los contactos y despues filtrar, te recomiendo uses un query y lo cargas cuando selecciones en el combo.

Si bien el like en Access funciona con asterisco, cambialo por % que de esta forma te va a funcionar con cualquier BD.

Por qué no usas un poco de lógica ?
al cargar el combo lo cargas asi: TELEFONO y CELULAR (sacando el acento de tel.)
Entonces usas
Filtro := ComboBox1.Text + 'LIKE ' + QuotedStr( MaskEdit1.Text ) + '%';

Así te queda mas legible.
Saludos y espero haberte ayudado

[novato03]

Gracias por la ayuda, pero me sigue presentando el mismo error, en todo caso el código que escribi arriba me finciona perfectamente con Código con su respectivo acento en el combobox, tambien funciona con empresa, contacto, etc, el problema ocurre al implemntar la busqueda por teléfono en este formato, sin estos simbolos ()- me funciona pero al incluirlos bam error, ya sea con maskedit o edit.

[[enecumene]]

Hola, Creo que te faltan comillas aqui:

Código Delphi [-]
If ComboBox1.Text = 'Teléfono' then Filtro := 'telefono Like '+MaskEdit1.Text+ '*'''

intentalo, luego nos comentas.

Saludos.