Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

How can I change the color of the text and the background of a cell of a query by script?

Created by: Bjorn1978 at: 1/28/2020 11:18 AM (5 Replies)

Rating (1)

Thanks 0

6 Entries

1/28/2020 11:18 AM	Rate (0)
Bjorn1978 Posts: 1 Rating: (0)	Hello, How can I change the color of the text and the background of a cell of a query by script? Regards, Bjorn ------------------------------------------------------------------------------------------ Split from Hide TAb with layers = "~" does not work in iDB.
Bjorn1978 Posts: 1 Rating: (0)	Last edited by: Jen_Moderator at: 01/28/2020 13:54:20 New subject after splitting
Suggestion To thank Quote Answer

1/29/2020 9:54 AM	Rate (1)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 5/16/2023 Posts: 208 Rating: (116)	Hello, Sub Action(Query, QueryBrowser) Set obj_Cell = Query.Cell(1,1) If Not obj_Cell Is Nothing Then If obj_Cell.Style Is Nothing Then Set obj_Cell.Style = CreateObject("Comos.NQuery.NStyle") End If obj_cell.Style.Font.Underline = true obj_cell.Style.BackColor = 64588 obj_cell.Style.ForeColor = 255 obj_cell.Style.TipText = "test" QueryBrowser.Refresh End If End Sub Bear in mind that refresh of query removes cell styles. You can also use event GetBackColor on attribute. If attribute is set as cell object, query takes that color . Regards Jiri

Suggestion To thank Quote Answer

3/10/2020 1:54 PM	Rate (0)
ShamiGupta Bronze Member Joined: 5/2/2018 Last visit: 6/6/2023 Posts: 198 Rating: (50)	Hi Jiri/ other Friends The script was also helpful to me. Can this code be executed as soon as you click search? Meaning- implement it in "SubAfterGetOrigCollection(OrigCollection)" or automatic run of script in Action block. Thank you in advance. Shami Gupta

Suggestion To thank Quote Answer

3/10/2020 4:35 PM	Rate (0)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 5/16/2023 Posts: 208 Rating: (116)	Hello, Sry I don't know. I last used this code years ago. Try it and you will see :-) Jiri
	Last edited by: Velek Jiri at: 03/10/2020 16:35:40
Suggestion To thank Quote Answer

3/11/2020 8:55 AM	Rate (0)
ShamiGupta Bronze Member Joined: 5/2/2018 Last visit: 6/6/2023 Posts: 198 Rating: (50)	Thanks Jiri. Dear Friends I am looking for- how Query and Querybrowser can be invoked in "SubAfterGetOrigCollection"; then your code can be totally reused. Thanks in advance.

Suggestion To thank Quote Answer

2/22/2023 4:47 PM	Rate (0)
Thingamawidget Member Joined: 6/3/2022 Last visit: 3/31/2023 Posts: 5 Rating: (1)	You can call the Action script from the Query object: Sub AfterGetOrigCollection(OrigCollection) Set objQuery = Query Set objQBrowser = Query.Owner.Owner.TopQueryBrowser.QueryBrowser objQuery.ActionExecute(objQBrowser) End Sub When calling it from the Query object, you need to pass it the QueryBrowser object

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on