la tabla no se vacia

[noe]

Saludos a los compañeros del foro.

Tengo el siguiente problema:
Cuando quiero que se vacie la tabla se salta a la excepción de que la tabla esta ocupada, y que no puede
ser vaciada. Pero cuando pongo en comentario lo que esta encerrado con las llaves si vacia la tabla. cual
será el problema, les muestro el código que utilizo:

Código Delphi [-]
    procedure TFrm_ImprimirCorte.QuickRep1AfterPrint(Sender: TObject);
    var
     resp:Integer;
    begin
       Resp:=Application.MessageBox('¿Se imprimio el corte?','Impresión de Corte de Caja',
 mb_yesno);
       if resp=IDYES then
        begin
             {Abrimos la tabla en modo exclusivo (si se puede)}
          Try
           {DM_SICEC.Tbl_Provisionales.Insert;
           DM_SICEC.Tbl_ProvisionalesTotal.Value:=strtofloat(Frm_Corte.Edit1.Text);
           DM_SICEC.Tbl_ProvisionalesRealizo.Value:=DM_SICEC.Tbl_UsuariosUsuario.Value;
           DM_SICEC.Tbl_ProvisionalesHora.Value:=Time;
           DM_SICEC.Tbl_ProvisionalesFecha.Value:=Date;
           DM_SICEC.Tbl_Provisionales.Post;
            }
    
    
            with DM_SICEC.Tbl_Cortes do
            begin
              Active:=False;
              Exclusive:=True;
              Active:=True;
              try
                EmptyTable;
              except
                ShowMessage( 'No puedo vaciar la database'+
                             #13+
                             'Cannot empty database');
              end;
            end;
          Except
            ShowMessage('cannot open table in exclusive mode');
          end;
        end
       else
         Showmessage('Vuelva a imprimirlo por favor');
    end;

Gracias por la ayuda

Atte Noe

[marcoszorrilla]

Código Delphi [-]
 
    with DM_SICEC.Tbl_Cortes do
     begin
     Active:=False;
     Exclusive:=True;
   
   
       try
       Active:=True;//Ver si nos deja abrir en Exclusivo
       EmptyTable;
       except
       ShowMessage( 'No puedo vaciar la database'+
       #13+'Cannot empty database');
       end;
   
     end;

Compílalo y ejecutalo con Delphi cerrado, pues como el IDE de Delphi es otro usuario más, es posible que sea
esto lo que te impide abrirla en modo exclusivo.

Un Saludo.