Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Greetings,
I would like to build a class module to check that all the values in a userform are completed. Any direction would be helpful. |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() You don't need a class module to do this. The validation code can reside in the UserForm's code module. There is no intrinsic way to determine whether all the controls have been filled out. You need to test each control individually and if one is not filled out, display a message to the user. E.g., Private Sub btnOK_Click() Dim B As Boolean B = IsFormComplete() If B = False Then Msgbox "Form is not complete" Exit Sub End If ' form is complete -- do something End Sub Private Function IsFormComplete() As Boolean ' Test each control ' if incomplete, then IsFormComplete= False Exit Function ' form is complete IsFormComplete = True End Function Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 06:13:01 -0800, Office_Novice wrote: Greetings, I would like to build a class module to check that all the values in a userform are completed. Any direction would be helpful. |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks for the tip. Could you not gather the controls in a collection then
test if the form is complete? "Chip Pearson" wrote: You don't need a class module to do this. The validation code can reside in the UserForm's code module. There is no intrinsic way to determine whether all the controls have been filled out. You need to test each control individually and if one is not filled out, display a message to the user. E.g., Private Sub btnOK_Click() Dim B As Boolean B = IsFormComplete() If B = False Then Msgbox "Form is not complete" Exit Sub End If ' form is complete -- do something End Sub Private Function IsFormComplete() As Boolean ' Test each control ' if incomplete, then IsFormComplete= False Exit Function ' form is complete IsFormComplete = True End Function Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 06:13:01 -0800, Office_Novice wrote: Greetings, I would like to build a class module to check that all the values in a userform are completed. Any direction would be helpful. |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Thanks for the tip. Could you not gather the controls in a collection then test if the form is complete? You could, but I don't see what advantage that would bring about. In general, the best approach would depend on the type of control (e.g., TextBox, ComboBox, etc) and what is meant by "complete". Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 07:21:00 -0800, Office_Novice wrote: Thanks for the tip. Could you not gather the controls in a collection then test if the form is complete? "Chip Pearson" wrote: You don't need a class module to do this. The validation code can reside in the UserForm's code module. There is no intrinsic way to determine whether all the controls have been filled out. You need to test each control individually and if one is not filled out, display a message to the user. E.g., Private Sub btnOK_Click() Dim B As Boolean B = IsFormComplete() If B = False Then Msgbox "Form is not complete" Exit Sub End If ' form is complete -- do something End Sub Private Function IsFormComplete() As Boolean ' Test each control ' if incomplete, then IsFormComplete= False Exit Function ' form is complete IsFormComplete = True End Function Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 06:13:01 -0800, Office_Novice wrote: Greetings, I would like to build a class module to check that all the values in a userform are completed. Any direction would be helpful. |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks again and hoping not to take to much of your time,
using you function and testing each control with a If statement b is always false. where did i go wrong? "Chip Pearson" wrote: Thanks for the tip. Could you not gather the controls in a collection then test if the form is complete? You could, but I don't see what advantage that would bring about. In general, the best approach would depend on the type of control (e.g., TextBox, ComboBox, etc) and what is meant by "complete". Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 07:21:00 -0800, Office_Novice wrote: Thanks for the tip. Could you not gather the controls in a collection then test if the form is complete? "Chip Pearson" wrote: You don't need a class module to do this. The validation code can reside in the UserForm's code module. There is no intrinsic way to determine whether all the controls have been filled out. You need to test each control individually and if one is not filled out, display a message to the user. E.g., Private Sub btnOK_Click() Dim B As Boolean B = IsFormComplete() If B = False Then Msgbox "Form is not complete" Exit Sub End If ' form is complete -- do something End Sub Private Function IsFormComplete() As Boolean ' Test each control ' if incomplete, then IsFormComplete= False Exit Function ' form is complete IsFormComplete = True End Function Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 06:13:01 -0800, Office_Novice wrote: Greetings, I would like to build a class module to check that all the values in a userform are completed. Any direction would be helpful. |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Nevermind. I figured out what i was doing wrong thanks a lot Chip.
"Office_Novice" wrote: Thanks again and hoping not to take to much of your time, using you function and testing each control with a If statement b is always false. where did i go wrong? "Chip Pearson" wrote: Thanks for the tip. Could you not gather the controls in a collection then test if the form is complete? You could, but I don't see what advantage that would bring about. In general, the best approach would depend on the type of control (e.g., TextBox, ComboBox, etc) and what is meant by "complete". Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 07:21:00 -0800, Office_Novice wrote: Thanks for the tip. Could you not gather the controls in a collection then test if the form is complete? "Chip Pearson" wrote: You don't need a class module to do this. The validation code can reside in the UserForm's code module. There is no intrinsic way to determine whether all the controls have been filled out. You need to test each control individually and if one is not filled out, display a message to the user. E.g., Private Sub btnOK_Click() Dim B As Boolean B = IsFormComplete() If B = False Then Msgbox "Form is not complete" Exit Sub End If ' form is complete -- do something End Sub Private Function IsFormComplete() As Boolean ' Test each control ' if incomplete, then IsFormComplete= False Exit Function ' form is complete IsFormComplete = True End Function Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 06:13:01 -0800, Office_Novice wrote: Greetings, I would like to build a class module to check that all the values in a userform are completed. Any direction would be helpful. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Chart Class Module/follow on question to hyperlink post earlier. | Charts and Charting in Excel | |||
Class Module Question | Excel Programming | |||
Class module question | Excel Programming | |||
Variable from a sheet module in a class module in XL XP | Excel Programming |