I am in the process of creating a module to validate a MulitPage UserForm that is composed of, among other controls, multiple frames, each containing a TextBox and two OptionButtons. I need to identify those frames where the TextBox value is not null and neither of the OptionButtons have been selected. The module will pass as variables the TextBox value, OptionButton captions and Frame caption to another module that will create a UserForm with the invalid Frame/TextBox/OptionButtons sets for the user to correct.
The interim code listed below runs as a command button on a test UserForm. The MsgBox displays only the first of the OptionButton’s caption as Opt1 and Opt2. Can anyone tell me why and where I went awry?
Public WithEvents As MSforms.TextBox, Opt1 As String, Opt2 As String, vtxt As Long, vFrame As String, vTag As String
Private Sub CommandButton1_Click()
Dim pPage As Page, cCont As Control, vCont As MSforms.Control
'Dim Opt1 As String, Opt2 As String, vtxt As Long, vFrame As String, vTag As String
Is there a more elegant way of accomplishing this? (Control Tags are already spoken for.)
I want to access the Properties of a number of controls in a running form, and these controls may or may not be contained in a Frame or a MultiPage.
In particular I want the Top and Left for these controls, which means I have to first find out if the control is contained in a Frame or MultiPage so I can get the reference for Top and Left. I'm ok with doing this for controls inside a Frame, but the MultiPage is eluding me. I get an error when I try to access these controls and it looks like they are actually owned by the individual Pages of the MultiPage.
how do I find out if a given control is contained in a given MultiPage?
I have a Userform which has a series of Frames that contain Option Buttons. What I would like to do is check that an option button in each of the frames has been selected. If there are any missing then I need to inform the user - I would like all frames to be checked at the same time on the click of a button.
Create a "search" userform that pulls data from a spreadsheet of raw data (hardware specs) and organizes it into a multipage control. Each page of the MultiPage has a different piece of hardware with simliar data entry categories (height, weight, calibration date for example).
Each page at the moment contains labels and textboxes only. The idea is to place data from the spreadsheet into these textboxes, and create new pages as needed during runtime.
My current issues: Just for testing/ debugging, I have a "_Change()" code that is triggered by changing pages within the Multipage. When I run the control, I trigger the change, but the textboxes and labels disappear.
I don't have much code to show, other than basic _Change() structure containing a msgbox for debugging.
This is related to a locked thread, where "imgUpdating" and "DoEvents" were referenced. I tried DoEvents, without success. I also don't know what "imgUpdating" is, but it sounds like it helped the other person with a similar issue:
I have successfully created validation code that operates as a command button. The code listed below identifies in a MultiPage UserForm non- null TextBoxes whose pair of associated OptionButtons have not been selected. (The TextBox and OptionButtons all lie within a Frame and their are 60+ sets of these throughout the UserForm.) A MessageBox alerts user to select one of the OptionButtons.
Private Sub CommandButton1_Click() Dim cFrameT As Control Dim cCtrlF() As Control Dim pPage As Page Dim cCtrl() As Control Dim Num As Integer Dim FNum As Integer Dim vOpt As Boolean Dim Opt() As String Dim lPage As Long Dim vFrame As String Redim Opt(Num) As String Redim cCtrl(FNum) As Control Redim cCtrlF(Num) As Control
Num = 0 FNum = 0 ' Loops through all Multipage pages For lPage = 0 To Me.MultiPage1.Pages.Count - 1..............
I can't refresh the values in the captions in the labels that have been dynamically added to Frame 1 on page 1 of a multipage control. I have added the salesperson' name with a checkbox, and three labels for each sales person. The captions for the labels are the values for the number of sales, gross sales amount and commission. The captions get these values from an Array "SalesAry()".
Outside the multipage control I have another frame with the total of salesmen, service, product, customers, total sales, total commission total product sold. The user can check the checkboxes next to each sales person to include in the final report. After the user checks some of the checkboxes, there is an "Update Totals" Button on the userform (outside the multipage) to update the totals.
This works, but the values in the sales person's labels do not update. I have tried to repaint the userform me.repaint or me.frame1.repaint but the labels in the frames on pages do not repaint or refresh?? I have also tried to focus the userform to the multipage by inputting "multipage1.value = 0" just prior to me.repaint. I have three other pages on the multipage. Same issue/problem. Page2 is the Service person their number of accounts, gross sales and commission, Page 3 is the Products names Number sold, gross sales and commission and page four is the Customer name number sold and the commission.
In the end I want the user to select (check) only the salespeople, Service person, Products and Customers to include on the report. But since I can't get the labels in the frames in the multipage to update, it just looks confusing. I know that the Arrays are updating because the Totals keep getting updated correctly based on the selections, but again it looks confusing because the total don't match the values in the labels?
I seem to have a bug i can't quite figure out with my code - its causing excel to crash each time it reaches this line (when its commented out - the form runs fine - otherwise "excel has encountered an error")....
Set frameFullX = frameFull.Controls.Add("Forms.frame.1", "frameFull1") frameFullX is declared as a control and frameFull is a frame already on the userform.
Anyone know what I might be doing wrong (I'm going to try restarting and see if was just an issue with my machine or not?
I have the following code in a module that works fine for referencing a textbox on a page of a multipage on a userform, but I'm stumped trying to figure out how to reference the page object itself vs the multipage then referencing the page later. My code is:
Code: Dim a As MultiPage Set a = UserForm1.MultiPage1 a.Page2.P2_ScoreTotal.Value = (Val(a.Page2.P2_Q1_Score.Text) +
I have a UserForm (UserForm61) where I have a popup calender acts like DTPicker. and some other controls . My Problem is whenever I am trying to open the calender it is opening behind every control. changing the z order played no role.
Is it possible to scroll down in a UserForm Frame with a VBA Code in excel. My frame in the userform has a scroll height of 600 and a lot of option buttons. Based on a selection in a ComboBox(using If statement), I'd like to scroll down to a certain amount in the Frame.
I have frame on a userform with command buttons. Is it possible to loop thru and capture the command button captions in a textbox. I'm trying to put together keyboard on a userform, so the user can populate a textbox with letters or phrases.
I'm having a problem setting the multipage tab on a userform in VB. It's kinda weird because the code was working fine until recently, where it's suddenly stopped working properly! The only thing I can think of is that I changed versions of Excel to v2003 recently.
I want to not let the user change tabs unless the inputs entered have been error checked. My code is:
Private Sub MultiPage1_Change()
If Me.MultiPage1.Value > 1 Then If Range("inputs!dob") = "" Then Me.MultiPage1.Value = 1 MsgBox ("Please enter your date of birth before continuing.") End If End If End Sub The tab itself changes fine (ie. shows the tab 1 header), but the contents of the tab are actually the contents of tab 2!
I'm trying to create a next button from one user form to another. But I can't reach there. I know that I have to use, multi page, but I don't know how!
Is there anyway to make the number of multipages you have respond to a previous fill in the Userform? Let's say you have a textbox asking for number of requests, if you type 4, there will be 4 multipages with the same fills.
I am trying to get a scrollbar on a MultiPage UserForm to provide instant results on the active spreadsheet. The spreadsheet is full of charts, and as you move the scrollbar, the charts change. Trouble is, the code I have is VERY slow. Moving the scollbar turns the cursor into an hourglass and that little scrollbar graphic lags about a centimeter behind. Is there faster code out there?
Here is what I have:
NOTE I use both the change event and the Scroll event because using only one gives me only half the functionality of the scrollbar...that is, without both, either the arrows on the scrollbar work or only the slider works.
Does anyone knows a simple way to insert a table on a MultiPage UserForm ?
This MultiPage appears on a excel spreadsheet when the user click on a button. I would like to put a table on one of the pages such that the user can fill in this table.
I know you don't usually print userforms & when you do I know the code, however, how can you print one page of a multipage userform when the page has a vertical scrollbar & you want to print the whole page, not just what is showing on screen?
I have a UserForm which has a multipage with 2 pages, each page has many controls and associated code. I now need to add a third page but cannot get the code supplied to work.
VB: Sub AddNewPage() Dim NewPage As Page Set NewPage = frmColEd.mpCust.Pages.Add(, , 2) NewPage.Caption = ThisWorkbook.Sheets(2).Text frmColEd.Show End Sub
frmColEd is the name of the user form and mpCust the name of the multipage on that user form. I keep getting a 'Type Mismatch' on the SetNewPage=.... line no matter how I change it.
I have two pages in the userform. What I was trying to do is that certain textbox (txtDate) needs to be entered on the page1 before going to page2. The user can still select page2 however I want the vba to bring the page back to page1 if the data is missing.
Here is the code:
Private Sub MultiPage1_Change() If MultiPage1.Value = 1 And txtDate = "" Then MultiPage1.Value = 0 txtDate .BackColor = &H40C0 End If
It didn't work completely - the tab selection on top was on page1 however all the controls shown are still the controls under page2. I have to manulally click page1.
I also tried MultiPage1.Page(0).Enabled=True but it didn't work either.
The code below works when the textbox (txtExt) is not within a multipage but doesn't when it is. I'm presuming i need to reference the multipage and page number but can't seem to get the right syntax.
Private Sub txtExt_Exit(ByVal Cancel As MSForms.ReturnBoolean) Details.Activate Dim agExt As String Dim extFind As Range agExt = txtExt.Value Data.Range("M3:M120").ClearContents With Details
Set extFind = Range("B1") For lCount = 1 To WorksheetFunction.CountIf(Columns(2), agExt) Set extFind = Details.Columns(2).Find(What:=agExt, After:=extFind, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) With extFind...................
I have a multipage on a userform and wanted to change the back color. I can change this color fin for buttons and the userform itself, but I don't see the option in the properties for a multipage. And I didn't see it as an available command from vba. Am I missing something here?
I've got a table in a worksheet. Every time the user double-clicks on one of the cells containing the names for each of the listed items, a userform pops up displaying information about that item. Besides other controls, this userform has an Image Box, that displays a picture of the item, and a Multipage.
What I want to do is to display the same picture shown by the Image Box, on to the Multipage, using the same file, but, and here's the quirk, aditionally, change it's size, turn it monochrome, and set its transparency to a different value.
I've attached an example of the final look I'm seeking. This was done by prior editing of a copy of the image and inserting it using LoadPicture, but this solution is too troublesome as this is done solely for aesthetical purposes, thus not justifying all the hassle a user has to go through everytime he wishes to add a new item to the table.
I've started experiencing a strange problem. The control toolbox keeps appearing when the first page on a multipage userform is activated. I can't figure out what's causing this, and after searching the forum, with no luck, I thought I would see if anybody else is experiencing the same problem, and how to fix it.
I am trying to figure out how to initialise a multipage userform. I have two worksheets, one with a contact 'database', and one temp that holds search results.
I understand how to load data from the worksheet and write it back using a single useform, but this is foxing me just a tad!
I have a simple user form with 8 frames each containing four option buttons. I need a routine to validate that a each frame has had a single option button selected once a command button is clicked.
Here is the code I'm currently using but it isn't working correctlt.
Private Sub CommandButton2_Click() Dim Cnt As Integer Dim Ctrl As MSForms.Control Dim WS As Worksheet For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "OptionButton" Then
If Ctrl.Value = False Then
MsgBox "Please answer ALL questions"
Exit Sub End If
Else MsgBox "Thankyou for completing the questionnaire"
I have a userform which has a number of multipage controls nested inside each. So, the parent is Multipage1 with 2 pages. Page 1 of Multipage1 has a second multipage control (Multipage2 which has 4 pages). In Multipage2, page1 there is a 3rd Multipage control (Multipage3 which has 2 pages). In Multipage2, page 2 there is another multipage control (Multipage4 which has 3 pages)...and so on! I know this sounds complicated, but I am trying to get the caption of the selected multipage.
There are commandbuttons in all of the pages, which when clicked need to return the caption name of the multipage where they sit.
I have started the following code, but suspect there must be a better solution:
VB:
With Sales If .MultiPage1.Value = 0 Then Hardware_Purchases_Input.TextBox6.Value = .MultiPage1.SelectedItem.Caption & " - " & .MultiPage2.SelectedItem.Caption & " - " & .MultiPage3.SelectedItem.Caption End If End With
