Buscar un archivo

[[egostar]]

Hola amigo Carlos.

Hice las pruebas con una tabla paradox, no tengo access (sorry), aqui te pongo como quedaron las funciones

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
begin
  Selected := not Selected;
  Form1.Query1.Close;
  Form1.Query1.ParamByName('fecha').AsDate := Fecha;
  Form1.Query1.Open;
  if Form1.Query1.RecordCount > 0 then begin
     mmo1.Lines.Add(Form1.Query1.FieldByName('CampoMemo').Value);
  end;
end;

procedure TFrCelda.Panel1Click(Sender: TObject);
begin
  with Form1.Table1 do begin
     Open;
     Append;
     Form1.Table1Fecha.Value := Fecha;
     Form1.Table1CampoMemo.Value := Mmo1.Text;
     Form1.Table1Status.Value := 0;
     Post;
     Close;
  end;
  mmo1.Lines.Clear;
end;

La sentencia SQL del query es esta

Código SQL [-]
 
select * from agenda
where fecha = :fecha

Funciona sin problema.

Salud OS

Edito

Cuando agregas comentario debes de validar que no exista esa fecha asignada, de otra forma tendrás latosas inconsistencias