!!Problemas con IF y sus valores !!

[[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

[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