Macro to Skip Calcuation if Field is Blank?!

Elan05 · #1 04-05-2013, 09:51 AM

Hello,
I have the following macro in my document to calculate a payment amount, based on the times per year the contract is invoiced. My macro is repeated for Year3 - Year5... I wanted to know if there is something that I can add to this so that if any years beyond the Year1 are not filled in (form field left blank) the macro won't try to calculate. Right now, if some of the form fields aren't filled in, I get an error message when I exit the fields that are empty.

Code:

Sub CalcPayable() 
  '
  ' CalcPayable Macro
 If ActiveDocument.FormFields("Cycle").Result = "Annually" Then 
     ActiveDocument.FormFields("Payable1").Result = ActiveDocument.FormFields("Year1").Result 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Semiannually" Then 
     ActiveDocument.FormFields("Payable1").Result = ActiveDocument.FormFields("Year1").Result / 2 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Quarterly" Then 
     ActiveDocument.FormFields("Payable1").Result = ActiveDocument.FormFields("Year1").Result / 4 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Bimonthly" Then 
     ActiveDocument.FormFields("Payable1").Result = ActiveDocument.FormFields("Year1").Result / 6 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Monthly" Then
     ActiveDocument.FormFields("Payable1").Result = ActiveDocument.FormFields("Year1").Result / 12
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Triannually" Then 
     ActiveDocument.FormFields("Payable1").Result = ActiveDocument.FormFields("Year1").Result / 3 
 End If  
 If ActiveDocument.FormFields("Cycle").Result = "Annually" Then 
     ActiveDocument.FormFields("Payable2").Result = ActiveDocument.FormFields("Year2").Result 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Semiannually" Then 
     ActiveDocument.FormFields("Payable2").Result = ActiveDocument.FormFields("Year2").Result / 2 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Quarterly" Then 
     ActiveDocument.FormFields("Payable2").Result = ActiveDocument.FormFields("Year2").Result / 4 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Bimonthly" Then 
     ActiveDocument.FormFields("Payable2").Result = ActiveDocument.FormFields("Year2").Result / 6 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Monthly" Then 
     ActiveDocument.FormFields("Payable2").Result = ActiveDocument.FormFields("Year2").Result / 12 
 ElseIf ActiveDocument.FormFields("Cycle").Result = "Triannually" Then 
     ActiveDocument.FormFields("Payable2").Result = ActiveDocument.FormFields("Year2").Result / 3 
 End If 
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to remove blank column	netchie	Word VBA	4	03-14-2013 02:22 PM
Email macro to read range for .To field	MattMurdock	Excel Programming	2	08-07-2012 06:46 AM
Assign macro but hide the button/field	trlear	Word VBA	5	02-23-2012 04:35 PM
Form Fields - Create blank form text field with if statement?	LAssist2011	Word	5	12-14-2011 03:02 PM
How to turn all blank lines into non-blank for legal forms	sieler	Word	3	04-12-2009 01:38 PM