Pues es muy extraño esto, no se porque ha empezado a devolverme este mensaje al hacer el open de la siguiente función la cosa es la siguiente, un formulario llama a otro f2.show, en el onshow llamo a esta función, trabajo normalmente con el f2, lo cierro, vuelvo al primer formulario, y si vuelvo a llamar al f2 me salta error en el open cuando esta haciendo exactamente lo mismo que la primera vez que lo abri...
Código Delphi
[-]
Function ContarReg(Tabla:String;Campo:String;Variante:String;BD:TIBDatabase):Integer;
Var
Contador:TibQuery;
Begin
Contador := Tibquery.Create(Nil);
Contador.database := BD;
Contador.Close;
Contador.SQL.Clear;
Contador.SQL.Add('Select Count(' + (Campo) + ')');
Contador.SQL.Add('From '+ (Tabla));
If Trim(Variante) <> '' then
Contador.SQL.add((Variante));
Try
Contador.Open;
Result := Contador.Fields[0].AsInteger;
Except
Result := 0;
End;
Contador.Close;
Contador.free;
End;