get scroll bars to show in textboxes in all pages of a multipage userform on activation

tsohan · Jul 13th 2021

I have a userform with a listbox at the top showing multiple records. Each record has many fields. These fields are grouped into 6 pages in a multipage control that the user can tab through to show the relevant fields for adding, updating, deleting what is in the listbox. By double clicking the record in the listbox the multipage control is populated and the user can then process the content.

I am looking for a way to set up all the fields in the various forms where a scrollbar exists at activation so that when the user goes into any of the pages to process the fields in the form it already shows the scroll bars applicable in the multipage control.

Currently I am using setfocus and curline to go through the textboxes but then I find the screen moves to each textbox to set the focus and show the scroll bar. I want the userform to stay showing the listbox and do this without the screen jumping around - is this possible?

**royUK** · Jul 16th 2021

Can you attach an example workbook.

tsohan · Jul 16th 2021

Here is a copy of the code I am using to populate my form from the listbox and to then get the two text boxes to show the scroll bars for the user. The one text box is off the screen so it causes the system to move down to that textbox and then return to the top of the userform. I am trying to find a way of stopping the screen movement without redesigning where all my textboxes appear. I have a multipage control I am also trying to sort out but if we can sort this one out it should be straighforward to deal with the multipage.

Code

Private Sub Reg_Database1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'whichever record is selected we capture the row number into the hidden Risk_Record_No_Textbox for lookup
'purposes later - by double clicking on a record in the listbox the form gets populated with this record
Me.Risk_Record_No_TextBox.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 0) 'the column count starts at 0
Me.Reg_Name_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 2)
Me.Reg_Short_Title_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 3)
Me.Reg_Ref_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 4)
Me.Reg_Date_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 5)
Me.Reg_Last_Update_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 6)
Me.Reg_Country_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 7)
Me.Reg_Content_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 8)
Me.Reg_DLR_Qty_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 9)
Me.Reg_BC_Qty_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 10)
Me.Reg_Overview_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 11)
Me.Reg_Preamble_Extract_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 12)
Me.Reg_Preamble_Ref_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 13)
Me.Reg_Ind_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 14)
Me.Reg_Sub_Ind_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 15)
Me.Reg_Regulator_Textbox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 16)
Me.Reg_File_Path_TextBox1.Value = Me.Reg_Database1.List(Me.Reg_Database1.ListIndex, 17)
'set the date format for all the date fields in the form
Me.Reg_Date_Textbox1.Text = Format(Me.Reg_Date_Textbox1.Text, "dd-mmm-yyyy")
Me.Reg_Last_Update_Textbox1.Text = Format(Me.Reg_Last_Update_Textbox1.Text, "dd-mmm-yyyy")
'now to get the scroll bars to show - this one is fine as it is in full view on the screen
Me.Reg_Overview_Textbox1.SetFocus
Me.Reg_Overview_Textbox1.SelStart = 0
'I find the screen jumps around now because the preamble textbox is not visible so this procedure pulls up the textbox
'and then sends me back to the Reg Name textbox at the top of the screen after making the scroll bar visible
Me.Reg_Preamble_Extract_Textbox1.SetFocus
Me.Reg_Preamble_Extract_Textbox1.SelStart = 0
'now move the focus to the top of the screen again
Me.Reg_Name_Textbox1.SetFocus
ScrollTop = 0
End Sub

Display More

**royUK** · Jul 16th 2021

That's not what I asked for.

tsohan · Jul 17th 2021

Sorry I will try another forum. My workbook is too big and is not something I can share on a forum like this. Not sure why you would need the entire workbook to deal with the issue though.

**royUK** · Jul 17th 2021

Because I can't understand your code or naming conventions for the UserForm objects.

TextBox.ScrollBars Property (Outlook Forms Script)

get scroll bars to show in textboxes in all pages of a multipage userform on activation

Participate now!

Share

Tags