!!Problemas con IF y sus valores !!

[[Caral]]

Hola
La logica del proceso es esta:

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

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
    begin
      ADOTable1.TableName:= 'mitabla1';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.TableName:= 'mitabla2';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.TableName:= 'mitabla3';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;

Saludos
EDITO: Por supuesto teniendo en cuenta abrir y cerrar la tabla correspondiente.
EDITO2: Me faltaron comillas jejeje

[Darkseratul]

Discúlpenme pero si me confundí diablos siempre que trato de explicar mi problema se me van las patas

Ciertamente como ya lo comentaron quise desir micampo1, micampo2, micampo3

Es solo una tabla con tres campos diferentes

gracias a todos por su ayuda y paciencia siempre meto la pata

Coral tu ejemplo es mas o menos lo que quise hacer pero en el se asumen varias tablas pero en mi caso solo es una con 3 campos

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

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
    begin
      ADOTable1.TableName:= 'mitabla1'; 
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.TableName:= 'mitabla2';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.TableName:= 'mitabla3';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;

Muchas gracias a todos

[[oscarac]]

q bueno
pero es caral no coral....

[[oscarac]]

ahora te hago una pregunta...
que pasa si marcan 2 o mas Checks ?????

[Darkseratul]

Empezado por oscarac

ahora te hago una pregunta...
que pasa si marcan 2 o mas Checks ?????

Eso no puede pasar por que el el evento de onclick del chebox le digo que ponga en false los demas chebox

algo asi

Código Delphi [-]
procedure TFClientes.CheckBox1Click(Sender: TObject);
begin
checkbox2.Checked:=false;
checkbox3.Checked:=false;
end;

no se si es la forma correcta pero así me funciono

y si es caral cuando me fije ya la avía posteado

[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