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