Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA code for empty txt field
Hi all,
New to VBA, so forgive my ignorace. I have the following: user form combo box: cmbYESNO text field: txtIFNOWHY What I'm trying to accomplish is making sure that the user doens't forget to populate the cmbYESNO and depending on the value of this combo box, whether or not txtIFNOWHY needs to be filled out. I have the following code which i picked up from a differnt thread on this site, which works for ensuring that the cmbYESNO is filled out, but i can't seem to get the second part of the code. Any help is appreciated. Thanks Here is my code: If Trim(Me.cmbYESNO.Value) = "" Then Me.cmbYESNO.SetFocus MsgBox "PLEASE INDICATE IF REVERSAL WAS SAVED" If Trim(Me.cmbYESNO.Value) = "NO" Then Me.txtIFNOWHY.SetFocus If Trim(txtIFNOWHY.Value) = "" Then MsgBox "PLEASE ENTER REASON REVERSAL WAS NOT SAVED" Exit Sub -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...excel/201001/1 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA code for empty txt field
It appears that you are missing some End If and Else statements. You
need something like If Trim(Me.cmbYESNO.Value) = "" Then Me.cmbYESNO.SetFocus MsgBox "PLEASE INDICATE IF REVERSAL WAS SAVED" Else If Trim(Me.cmbYESNO.Value) = "NO" Then Me.txtIFNOWHY.SetFocus Else If Trim(txtIFNOWHY.Value) = "" Then MsgBox "PLEASE ENTER REASON REVERSAL WAS NOT SAVED" Exit Sub End If End If End If Cordially, Chip Pearson Microsoft MVP 1998 - 2010 Pearson Software Consulting, LLC www.cpearson.com [email on web site] On Fri, 22 Jan 2010 21:58:22 GMT, "AccessUser777 via OfficeKB.com" <u44103@uwe wrote: Hi all, New to VBA, so forgive my ignorace. I have the following: user form combo box: cmbYESNO text field: txtIFNOWHY What I'm trying to accomplish is making sure that the user doens't forget to populate the cmbYESNO and depending on the value of this combo box, whether or not txtIFNOWHY needs to be filled out. I have the following code which i picked up from a differnt thread on this site, which works for ensuring that the cmbYESNO is filled out, but i can't seem to get the second part of the code. Any help is appreciated. Thanks Here is my code: If Trim(Me.cmbYESNO.Value) = "" Then Me.cmbYESNO.SetFocus MsgBox "PLEASE INDICATE IF REVERSAL WAS SAVED" If Trim(Me.cmbYESNO.Value) = "NO" Then Me.txtIFNOWHY.SetFocus If Trim(txtIFNOWHY.Value) = "" Then MsgBox "PLEASE ENTER REASON REVERSAL WAS NOT SAVED" Exit Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA code for empty txt field
Nothing to do with your code...
But you may want to consider using a checkbox--checked means yes, unchecked means no. As a user, I would find that more consistent with other forms I have to fill out. And it may make the code slightly easier, too. If Me.chkbxYESNO.Value = true Then 'ok??? else if trim(txtifnowhy.value) = "" then me.txtifnowhy.setfocus MsgBox "PLEASE ENTER REASON REVERSAL WAS NOT SAVED" Exit Sub end if end if === You could use a pair of optionbuttons if you wanted, too. "AccessUser777 via OfficeKB.com" wrote: Hi all, New to VBA, so forgive my ignorace. I have the following: user form combo box: cmbYESNO text field: txtIFNOWHY What I'm trying to accomplish is making sure that the user doens't forget to populate the cmbYESNO and depending on the value of this combo box, whether or not txtIFNOWHY needs to be filled out. I have the following code which i picked up from a differnt thread on this site, which works for ensuring that the cmbYESNO is filled out, but i can't seem to get the second part of the code. Any help is appreciated. Thanks Here is my code: If Trim(Me.cmbYESNO.Value) = "" Then Me.cmbYESNO.SetFocus MsgBox "PLEASE INDICATE IF REVERSAL WAS SAVED" If Trim(Me.cmbYESNO.Value) = "NO" Then Me.txtIFNOWHY.SetFocus If Trim(txtIFNOWHY.Value) = "" Then MsgBox "PLEASE ENTER REASON REVERSAL WAS NOT SAVED" Exit Sub -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...excel/201001/1 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Ignoring empty field in sum | Excel Worksheet Functions | |||
empty values for a specific field | Excel Discussion (Misc queries) | |||
Sum only if corresponding field is not empty | Charts and Charting in Excel | |||
Go to Next Empty Field | Excel Discussion (Misc queries) | |||
Hide empty field error | Excel Worksheet Functions |