Error al encontrar registro.

[alfredosg19]

Hola, tengo un problema a la hora de localizar un registro, he puesto el siguiente código:

			  
  If ADOTAgenda.Locate('Cita_T01','Trabajar',[locaseinsensitive]) and		   ADOTAgenda.Locate('Fecha_T01',FormatDateTime('dd"/"mm"/"yyyy',now+I),
  [locaseinsensitive]) and ADOTAgenda.Locate('Fin_T01',InttoStr(Acol+7)+':00:00',[locaseinsensitive] then
  				Begin
  				  Showmessage('Hola');
  				  ADOTAgenda.Edit;
 				  ADOTAgenda['Fin_T01']:=InttoStr(Acol+8)+':00:00';
 				  ADOTAgenda['Prioridad_T01']:=True;
  				  ADOTAgenda.Post;
  				End
  			  Else
  				Begin
  				  ADOTAgenda.Edit;
  				  DsAgenda.DataSet.Append;
 				  ADOTAgenda['Cita_T01']:='Trabajar';
 				  ADOTAgenda['Fecha_T01']:=FormatDatetime('dd"/"mm"/"yyyy',now+I);
 				  ADOTAgenda['Hora_T01']:=InttoStr(Acol+7)+':00:00';
 				  ADOTAgenda['Fin_T01']:=InttoStr(Acol+8+(horasdia(Acol)))+':00:00';
 				  ADOTAgenda['Prioridad_T01']:=True;
  				  ADOTAgenda.Post;
  				End;
  		  End;

y me da el siguiente error:

Project Agenda.Exe raised exception class OleException with message 'El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual'. Proccess Stopped. Use Step o Run to continue.

Deduzco que el problema es con la base de datos, pero no entiendo por qué, ¿alguien sabe a que puede deberse?. Muchas gracias.

[[Lepe]]

Cada instrucción locate busca 1 valor, por tanto, si en el if tienes 3 locates, se realizan 3 búsquedas distintas, es decir, el registro encontrado tendrá Fin_T01, pero no tiene que cumplir las otras 2 condiciones.

Necesitas hacer una búsqueda por los 3 parámetros juntos a la misma vez, mira la ayuda de TCustomADODataSet.Locate

Código Delphi [-]
with ADOTable1 do

  Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

Aqui si se busca 1 registro en el que coincide la compañia, el contacto y el número de telefono con los datos suministrados.

Por otra parte, en el else tienes un Edit, y justo despues un Append ¿?¿?¿

Un saludo