Ver Mensaje Individual
  #1  
Antiguo 07-04-2006
halizia halizia is offline
Miembro
 
Registrado: abr 2006
Posts: 116
Reputación: 19
halizia Va por buen camino
problemas con locate

Tengo una tabla con usuarios, y quiero comprobar que el usuario no está en la base de datos, pero no hace bien el locate y da el error:'Cannot focus a disable or invisible window'. Y no se que significa ese error

Código Delphi [-]
if not UmDUsuarios.DMUsuarios.TablaUsuarios.Locate('DNI',EditDNI.Text,[]) then
  begin

   UMDUsuarios.DMUsuarios.TablaUsuarios.FieldValues['DNI']:=EditDNI.Text;
 UMDUsuarios.DMUsuarios.TablaUsuarios.FieldValues['FechaIncorporacion']:=now;
   UMDUsuarios.DMUsuarios.TablaUsuarios.Post;
   UMDUsuarios.DMUsuarios.TablaUsuarios.Refresh;
end else begin
 with UMDUsuarios.DMUsuarios.TablaUsuarios do
  begin
       if Messagedlg('El usuario ya existe, ¿desea darlo de alta?',mtconfirmation,[mbyes,mbno],0)=mryes then
               begin
               edit;
               FieldValues['Baja']:=false;
               post;
               end;
      
  end;
end;

end;

Gracias

Última edición por vtdeleon fecha: 07-04-2006 a las 20:37:23.
Responder Con Cita