Exit 2 Sub
Since I am not sure whether the previous replies really addressed your
question I want to throw in my five cents as well. I would suggest you turn
the FillPledgeInfo() subroutine into a boolean-type function like so:
Private Function FillPledgeInfo() as Boolean
If txtBox1.Value = "" Then
MsgBox ("Donor Number Must be Entered Before Entering Pledge")
FillPledgeInfo = False
Exit Sub
End If
' more code
FillPledgeInfo = True
End Sub
I you do it this way you can include a line like this in your calling routine:
If FillPledgeInfo() = False Then Exit Sub
Hope this helped.
"Jacob Skaria" wrote:
Doug
The conditions must be checked within the main procedure itself like below..
Private Sub cmdEnterPledge_Click()
If txtBox1.Value = "" Then
MsgBox ("Donor Number Must be Entered Before Entering Pledge")
Exit Sub
Else
Call FillPledgeInfo
End If
' more code
ActiveWorkbook.Save
End Sub
Private Sub FillPledgeInfo()
' more code
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria
"Doug" wrote:
I have a button that calls for a proceedure. There is a message box to exit
the proceedure if condition is not met. How do I exit the balance of the
first proceedure so it doesn't continue to the end?
The code I have is:
Private Sub cmdEnterPledge_Click()
Call FillPledgeInfo
' more code '( this is where I want to end this sub so it doesn't
continue & save)
ActiveWorkbook.Save
End Sub
Private Sub FillPledgeInfo()
If txtBox1.Value = "" Then
MsgBox ("Donor Number Must be Entered Before Entering Pledge")
Exit Sub
End If
' more code
End Sub
I hope this is enough info so you can figure out what I'm trying to do.
Thanks for your help.
Doug
|