How to get CommandBarEdit Text?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   In a Sub, I declare a local variable : Dim cbEditBox As CommandBarEdit

Then I created a TextBox:

                  Set cbEditBox = .Add(xtpControlEdit, 60026, "Quality")
                  cbEditBox.ShowSpinButtons = True
                  cbEditBox.Text = 10
                  cbEditBox.Width = 120

My question is,
how can I get the Text value of the TextBox in somewhere else?

I tried .Findcontrol(,60026) but there's no Text property.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Bernie Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 05 July 2007 Location: Taiwan Status: Offline Points: 109	Post Options Post Reply Quote Bernie Report Post Thanks(0) Quote Reply Topic: How to get CommandBarEdit Text? Posted: 02 September 2007 at 9:58am
	In a Sub, I declare a local variable : Dim cbEditBox As CommandBarEdit Then I created a TextBox: Set cbEditBox = .Add(xtpControlEdit, 60026, "Quality") cbEditBox.ShowSpinButtons = True cbEditBox.Text = 10 cbEditBox.Width = 120 My question is, how can I get the Text value of the TextBox in somewhere else? I tried .Findcontrol(,60026) but there's no Text property.

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 03 September 2007 at 7:29am
	Hi, When you use Findcontrol also declate CommandBarEdit type: Dim cbEditBox As CommandBarEdit Set cbEditBox = .FindControl(...) cbEditBox .Text = ...
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

XpatTech Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 26 November 2007 Location: United Kingdom Status: Offline Points: 37	Post Options Post Reply Quote XpatTech Report Post Thanks(0) Quote Reply Posted: 09 December 2007 at 10:58am
	Case ID_FGENERATOR_GEN Dim cbEditBox As CommandBarEdit Set cbEditBox = CommandBars.FindControl(ID_FGENERATOR_EDIT) cbEditBox.Text = 50 and it does absolutely nothing.. Any ideas ?

Bernie Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 05 July 2007 Location: Taiwan Status: Offline Points: 109	Post Options Post Reply Quote Bernie Report Post Thanks(0) Quote Reply Posted: 11 December 2007 at 8:16am
	ID_FGENERATOR_GEN <> .FindControl(ID_FGENERATOR_EDIT)

XpatTech Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 26 November 2007 Location: United Kingdom Status: Offline Points: 37	Post Options Post Reply Quote XpatTech Report Post Thanks(0) Quote Reply Posted: 11 December 2007 at 8:28am
	Figured out that if i change the above to Case ID_FGENERATOR_GEN Dim cbEditBox As CommandBarEdit Set cbEditBox = CommandBars.FindControl(,ID_FGENERATOR_EDIT) cbEditBox.Text = 50 it works fine.