¡¡Creo que lo solucioné!!
Antes de nada, perdon a eduardocol, no me dio tiempo a leer tu mensaje
y perdon por la tardanza, pero tardo tanto en escribir el mensaje que me caduco la sesion y volver a empezar
.....
d6:=DTP.asdate
RgEntrada.SQL.Text:='SELECT *'
+'FROM RgEntrada'
+' WHERE True';
for i:=1 to finarray do
begin
if cadenaBusqueda[i] then
begin
case i of
1:SQL.Add(' AND (Tipo LIKE"'+'%'+(s1)+'%")');
2:SQL.Add(' AND (Procedencia LIKE"'+'%'+(s2)+'%")');
3:SQL.Add(' AND (Remitente LIKE"'+'%' +(s3)+'%")');
4:SQL.Add(' AND (Contenido LIKE"'+'%'+(s4)+'%")');
5:SQL.Add(' AND (Archivo='+IntToStr(i5));
6: SQL.Add(' AND (Entrada_Fx = :fecha)') ;
.....
end;
end;
end;
RgEntrada.Parameters.ParamByName('fecha').Value:=DTP.asdate;
ExecSQL;
Open;
Hay dos errores
1:si no pongo nada en el campo entrada del FORM no entra en la opción6 y no encuentra el parametro fecha. "Parameter fecha not found". Solucion
oner esa línea solo si entra en la opcion 6.
2-si pones dato no encuentra nada, porque las propiedades de los componentes del form no estan accesibles. Solucion: guardarlas anteriormente en variables y pasarle estas a la query
Quedaría
6:begin SQL.Add(' AND (Entrada_Fx = :fecha)') ;
RgEntrada.Parameters.ParamByName('fecha').Value:=d6
end;
Me he explicado o me he liado...
Bueno ahora a pelearme con Access y Multiusuario, pero eso ya es otro hilo, mejor dicho eso es la madeja entera.
Gracias y hasta pronto