mensaje de error

[ale_metall]

hola gente, esta vez consulto por el siguiente mensaje de error que me aparece al ejecutar la aplicacion y presionar un boton. y luego se cuelga el prog.

Proyect1.exe raised exception class EAccessViolation with message 'access violation at address 00002E73. Read of address 00002E73'. Process stopped. Use Step or Run to continue.

Alguien sabe a q se refiere el error?? necesitan el codigo o se trata de algo externo?? parece una direccion de memoria, pero no se!!! reinicie el sistema y el win pero sigue ocurriendo!!!

delphi6

gracias...

[[enecumene]]

¿La aplicación trabaja con bases de datos?, si es así puede que no está encontrando la BD, si no es así, necesitamos código

Saludos.

[ale_metall]

si, con base de datos en paradox, la primera vez q presiono el boton va bien, en la segunda se cuelga... el codigo es un choclazo, lo paso?? porq siempre lo use y nunca me daba ese error y comenzo de repente sin haber editado el codigo...

[[enecumene]]

Sólo debes pasar el código donde te da el error, ¿a qué te refieres con choclazo?

Saludos.

[ale_metall]

Código Delphi [-]
procedure TForm16.SpeedButton1Click(Sender: TObject);
var band:boolean; usuarioactivo,consulta:string; ultimo,ultimo1,NroUsuario,categoria:integer; TotalAnterior:real;
begin
 if (edit1.Text='') or (edit2.text='') then
   begin
     MessageBox(Handle,
     PChar('Debe completar los campos solicitados antes de iniciar ' + #13#10 +
     'sesión.'),PChar('Datos Erroneos'),
     MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
     edit1.SetFocus;
    end
  else
   begin
    band:=false;
    table1.Open;
    table1.First;
    repeat
     if table1.FieldByName('Loggin').asstring=edit1.Text
      then
       begin
           band:=true;
           if table1.Fieldbyname('CantIntentos').AsInteger>=3
              then
                 begin
                   MessageBox(Handle,
                   PChar('La cuenta ha sido bloqueada por ingresar repetidos datos erroneos, contactese con el ' + #13#10 +
                   'administrador del sistema.'),
                   PChar('Reiterados ingresos erroneos'),
                   MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
                   edit1.clear;
                   edit2.Clear;
                   edit1.setfocus;
                   end
        else
          begin
            if table1.FieldByName('Password').asstring=edit2.Text
                 then
                   begin              //tabla Usuarios
                    table1.edit;
                    table1.FieldByName('Activo').asboolean:=True;
                    table1.FieldByName('CantIntentos').asinteger:=0;
                    usuarioactivo:=table1.FieldByName('Loggin').asstring;
                    NroUsuario:=table1.FieldByName('NroUsuario').asinteger;
                    table1.Post;
                    table1.Close;
                    form1.Table1.Open;
                    form1.Table2.Open;
                    form1.Table3.Open;
                    form1.Table4.Open;
                    form1.timer1.Enabled:=true;
                    edit1.clear;
                    edit2.clear;
                    edit1.setfocus;
                    form16.Hide;
                    form22.destroy;
                    form10.Table5.Open;    //Tabla totalCajaTurno
                    form10.table5.last;    //crea un registro para el total de la caja durante la sesion iniciada. (table5)
                    ultimo:=form10.table5.fieldbyname('NroTurno').asinteger;
                    TotalAnterior:=form10.table5.fieldbyname('Total').ascurrency;
                    form10.table5.insert;
                    form10.table5.fieldbyname('NroTurno').asinteger:=ultimo+1;
                    form10.table5.fieldbyname('FechaHoraInicio').asstring:=datetimetostr(now);
                    form10.table5.fieldbyname('CodUsuario').asinteger:=NroUsuario;
                    form10.Table5.Post;
                    form10.Table1.Open;
                    form10.table1.last;
                    ultimo1:=form10.table1.FieldByName('NroMovimiento').asinteger;
                    form10.table1.edit;
                    form10.table1.Insert;
                    form10.table1.FieldByName('NroMovimiento').asinteger:=ultimo1+1;
                    form10.table1.fieldbyname('Fecha').AsDateTime:=(Date);
                    form10.table1.fieldbyname('Detalle').asstring:='Total Turno Anterior.';
                    form10.table1.fieldbyname('Entrada').AsCurrency:=TotalAnterior;
                    form10.table1.fieldbyname('Salida').AsCurrency:=0;
                    form10.table1.fieldbyname('Facturado').AsBoolean:=false;
                    form10.table1.FieldByName('CodES').asinteger:=0;
                    form10.table1.FieldByName('CodResponsable').asinteger:=form10.table5.FieldByName('CodUsuario').asint  eger;
                    form10.table1.FieldByName('CodTurno').asinteger:=ultimo+1;
                    form10.table1.Post;
 
                    form10.table5.last;
                    form10.query1.SQL.Clear;
                    consulta:='select (((SUM(Entrada))-(SUM(Salida)))) as TotalTurno from CajaDiaria ';
                    consulta:=consulta+'where CodTurno=:valor';
                    form10.query1.SQL.Add(consulta);
                    form10.query1.ParamByName('valor').asinteger:=form10.table5.FieldByName('NroTurno').asinteger;
                    form10.query1.Open;
                    form10.query1.Active;
                    form10.Table5.edit;
                    form10.Table5.FieldByName('Total').Value:=form10.Query1.fieldByName('TotalTurno').Value;
                //Table5.FieldByName('Total').Ascurrency:= strtofloat(Query1.fieldByName('TotalTurno').asString);
                    form10.Table5.Post;
                    form10.Table1.close;
                    form10.Table5.close;

                   // form10.Table5.Close;
                    form1.Visible:=true;
                    form1.show;
                    form1.table4.First;
   while form1.table4.Eof=false do                           //Busca el usuario activo, guarda la categoria y
    begin                                              // filtra la tabla categoria por esa categoria.
    if form1.table4.FieldByName('Activo').asboolean= true
      then categoria:=form1.table4.FieldByName('NroCategoria').asinteger;
     form1.table4.Next;
     end;
     if categoria=2 then
        begin
         form1.speedbutton10.Enabled:=false;
         form1.speedbutton13.Enabled:=false;
         form1.speedbutton15.Enabled:=false;
         form1.speedbutton16.Enabled:=false;
         form1.speedbutton17.Enabled:=false;
         form1.speedbutton18.Enabled:=false;
         form1.speedbutton7.Enabled:=false;
         end;
        end
                  else
                   begin
                    MessageBox(Handle,
                    PChar('La Contraseña no corresponde al usuario Ingresado.Vuelva a ingresarla, si la ha olvidado contactese con el administrador del sistema.'),
                    PChar('Contraseña Erronea'),
                    MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
                    table1.Edit;
                    table1.FieldByName('CantIntentos').asinteger:=table1.FieldByName('CantIntentos').asinteger+1;
                    table1.Post;
                    edit2.Clear;
                    edit2.setfocus;
                   end;
          end;
       end
      else
         table1.Next;
    until (table1.eof=true) or (band=true);
   if band=false then
    begin
      MessageBox(Handle, 
             PChar('Asegúrese de ingresar datos correctos.'),
             PChar('Usuario Inexistente'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
      edit1.Clear;
      edit2.clear;
      edit1.setfocus;
    end;
end;
end;

eso es un choclazoo!!

me tengo q ir a laburar, mas tarde t respondo!! pero insisto, comenzo de repente el error y no habia editado este codigo...

saludos

[[enecumene]]

Ya me lo imaginaba

[[Caral]]

Hola

Empezado por enecumene

Sólo debes pasar el código donde te da el error, ¿a qué te refieres con choclazo?

Saludos.

Me imagino que es un Choclo grande
Choclo en algunos paises es Elote, Maiz, ojuela.
Saludos

[[enecumene]]

Pues es un Elote/Maiz/Hojuela GIGANTE