Making A Budget Form
Posted on 2006-07-15
Here we go,
I am trying to make a form with a budget on it. I am trying to make it with a estimated side and an actual side. Then I want to be able to save it as a disk file and print it to my printer. What I am using for code somewhat does what I want for the budget but I need better. Here is my code.
Under the Estimated side, I placed the three (3) text boxes on top of each other and removed the Text property from each and then did the same with the actual side using text boxes 4-6. I then placed a label box under each column respectively called label1 and label2 and finally placed a command button centered underneath the two columns. Here is the code finally I am using:
Private Sub Command1_Click()
Dim int FirstNumber As Integer
Dim int SecondNumber As Integer
Dim int ThirdNumber As Integer
Dim int FourthNumber As Integer
Dim int FifthNumber As Integer
Dim int SixthNumber As Integer
intFirstNumber = val(Text1.Text)
intSecondNumber = val(Text2.Text)
intThirdNumber = val(Text3.Text)
intFourthNumber = val(Text4.Text)
intFifthNumber = val(Text5.Text)
intSixthNumber = val(Text6.Text)
Label1.Caption = intFirstNumber + intSecondNumber + intThirdNumber
Label1.Caption = intFourthNumber + intFifthNumber + intSixthNumber
I know how to print object text but that is it.
Please, I neeed help!!!