[[Fenareth]]

Empezado por Alejandrina

Hola a todos,
Tengo la siguiente dificultad al correr el siguiente procedimiento la aplicación me muestra un error de 'Access Violation at address 005B91C9 in module 'XXXXX.exe'. Read of address 00002F0'.

Código Delphi [-]
procedure TFrmProductoEmpaque.DBEcicloKeyPress(Sender: TObject;
  var Key: Char);
begin
     if key=#13 then
        begin
           Key := #0;
           cicloactual:=DBEciclo.Text;
           if cicloinicial<>cicloactual then
             begin
               swciclo:='1';
               if swciclo='1' then
                 begin
                   Dmsip.Tblproductos['fechaciclop']:=now;
                   Dmsip.TblProductos['usuariociclop'] := userw;
                 end;
               swciclo:='0';
             end;
           perform(wm_nextdlgctl,0,0);
           DmSip.Tblproductos.edit;
           DBEFechaCiclo.text:=datetimetostr(now);
           DBEUsuarioCiclo.Text:=userw;
           DmSip.TblProductos.post;
        end;
end;

El cambio en el campo ciclo se realiza pero la aplicación se me bloquea y no puedo cambiar de registro.

Espero haberme hecho entender y sobre todo que me puedan ayudar.

Gracias

En una línea asignas a swciclo:= '1' y en la siguiente línea pones un if swciclo:= '1' then... esa condición siempre se cumplirá no ? Pero esa es solo una observación ...

Has intentado correr el programa con F7 o F8 para saber exactamente en qué linea te provoca el error ?... Creo que tiene que ver con la función perform que usas...