To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=59676
User mechtilde changed the following: What |Old value |New value ================================================================================ Summary|The SUM in a Query is Wron|The SUM in a Query is Wron |g |g (it's text not a number) -------------------------------------------------------------------------------- ------- Additional comments from [EMAIL PROTECTED] Fri Oct 20 11:30:17 -0700 2006 ------- some thing has changed here: to get the wright values in calc via F4 you can't use the workaround posted before. First you have _to mark_ the colums you want to format. Now you can use the following macro: sub number2number rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "NumberFormatValue" args1(0).Value = 10108 dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(17) as new com.sun.star.beans.PropertyValue args2(0).Name = "SearchItem.StyleFamily" args2(0).Value = 2 args2(1).Name = "SearchItem.CellType" args2(1).Value = 0 args2(2).Name = "SearchItem.RowDirection" args2(2).Value = true args2(3).Name = "SearchItem.AllTables" args2(3).Value = false args2(4).Name = "SearchItem.Backward" args2(4).Value = false args2(5).Name = "SearchItem.Pattern" args2(5).Value = false args2(6).Name = "SearchItem.Content" args2(6).Value = false args2(7).Name = "SearchItem.AsianOptions" args2(7).Value = false args2(8).Name = "SearchItem.AlgorithmType" args2(8).Value = 1 args2(9).Name = "SearchItem.SearchFlags" args2(9).Value = 71680 args2(10).Name = "SearchItem.SearchString" args2(10).Value = "." args2(11).Name = "SearchItem.ReplaceString" args2(11).Value = "&" args2(12).Name = "SearchItem.Locale" args2(12).Value = 255 args2(13).Name = "SearchItem.ChangedChars" args2(13).Value = 2 args2(14).Name = "SearchItem.DeletedChars" args2(14).Value = 2 args2(15).Name = "SearchItem.InsertedChars" args2(15).Value = 2 args2(16).Name = "SearchItem.TransliterateFlags" args2(16).Value = 1280 args2(17).Name = "SearchItem.Command" args2(17).Value = 3 dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) end sub --------------------------------------------------------------------- Please do not reply to this automatically generated notification from Issue Tracker. Please log onto the website and enter your comments. http://qa.openoffice.org/issue_handling/project_issues.html#notification --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]