!!Problemas con IF y sus valores !!

[Darkseratul]

He adecuado el código que me facilitaron a mi proyecto

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
  // Siempre se quita el filtro
  datamodule1.tarchivo.Filtered := False;

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked  then
    begin
      datamodule1.tarchivo.Filter := 'Nombre Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else if CheckBox2.Checked  then
      begin
      datamodule1.tarchivo.Filter := 'Numero Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else
    datamodule1.tarchivo.Filtered := False;
   end;
end;

con el campo Nombre si me hace la búsqueda
pero con el campo Numero me sale un error de que el Filtro no se puede abrir

Alguien sabe a que se debe ?????

ayuda por favor y muchas gracias

[[Caral]]

Hola

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
  // Siempre se quita el filtro
  datamodule1.tarchivo.Filtered := False;

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked  then
    begin
      datamodule1.tarchivo.Filter := 'Nombre Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else if CheckBox2.Checked  then
      begin
      datamodule1.tarchivo.Filter := 'Numero Like '+ Edit1.Text;
      datamodule1.tarchivo.Filtered := True
    end
    else
    datamodule1.tarchivo.Filtered := False;
   end;
end;

Saludos

[Darkseratul]

Empezado por Caral

Hola

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
  // Siempre se quita el filtro
  datamodule1.tarchivo.Filtered := False;

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked  then
    begin
      datamodule1.tarchivo.Filter := 'Nombre Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else if CheckBox2.Checked  then
      begin
      datamodule1.tarchivo.Filter := 'Numero Like '+ Edit1.Text;
      datamodule1.tarchivo.Filtered := True
    end
    else
    datamodule1.tarchivo.Filtered := False;
   end;
end;

Saludos

Muchas gracias Caral solo que hay un problema al hacer la búsqueda en el campo numero me da resultados nulos o que no hay nada tengo como 10 registros que tengo con números como 42541 pero al poner el 4 en la búsqueda no me da ningún resultado

[[Caral]]

Hola
Es access ?
Saludos

[Darkseratul]

Empezado por Caral

Hola
Es access ?
Saludos

si claro de hecho prácticamente todo lo que se lo he a prendido de ti con tus ejemplos y explicaciones quisas en su momento no eran para mi pero de todos tu eres la persona con la que mas he a prendida a programas delphi

a un soy muy novato pero tu me enseñaste como conectarse a una base de datos acces con tu ejemplo de restaurante

y bueno si es acces por que usted la utiliza en la mayoría de los ejemplos y es la única forma que se para conectarme a una base de datos

y bueno te doy las gracias por que sin tu ayuda muchos de nosotros no supiéramos nada
esta es la primera ves que me ayudas en un problema personal y te lo agradezco mucho

te admiro mucho y muchas gracias

[[Caral]]

Hola
Ya puedes subir adjuntos.
Quitale el exe al programa, ponlo en un zip con la base de datos y le doy una revisada, si te parece.
Saludos

[Darkseratul]

Empezado por Caral

Hola
Ya puedes subir adjuntos.
Quitale el exe al programa, ponlo en un zip con la base de datos y le doy una revisada, si te parece.
Saludos

http://www.terawiki.clubdelphi.com/a...redice%F1o.zip

ya esta mi programa
en el login selecciona un usuario y la contraseña es 1

espero que me puedas ayudar y muchas pero muchas gracias