Massey1337
New Member
- Joined
- Mar 8, 2009
- Messages
- 17
Okay, hi again, basically this is a shop till like program, you press load form 2 once the program starts, you enter product, quantity, price of product and it'll calculate a total for you, once this happens you'll click the close button and it'll transfer the data to the text box in my form 1, and then you can go back to form 2 and repeat the process.
I have multiple sets of data being recorded in my text box in form 1 however; I can't work out how to get onto the next line in the text box, it's just grouping the 2 sets of data together without even a space.
If you need any more information, just say so, I'd really appreciate some help on this project, thank you.
Form 2 v
Form 1 v
I have multiple sets of data being recorded in my text box in form 1 however; I can't work out how to get onto the next line in the text box, it's just grouping the 2 sets of data together without even a space.
If you need any more information, just say so, I'd really appreciate some help on this project, thank you.
Form 2 v
Dim X As Double
Dim Y As Double
Dim Z As Double
Dim Newinfo As String
Private Sub CloseF2_Click()
Newinfo = Form1.Text1.Text + Chr$(10)
Newinfo = Newinfo + Text1.Text + " " + Text2.Text + " " + Text3.Text + " " + Text4.Text
Form1.Text1.Text = Newinfo
Form2.Visible = False
X = Form1.Text2.Text
Y = Text4.Text
Z = X + Y
Form1.Text2.Text = Z
Text1.Text = ""
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
End Sub
Private Sub Form_Load()
Form2.Visible = False
Text1.Text = ""
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
End Sub
Private Sub Text2_Change()
If Text2.Text = "" Then
Else: X = Text2.Text
Y = Text3.Text
Z = X * Y
Text4.Text = Z
End If
End Sub
Private Sub Text3_Change()
If Text3.Text = "" Then
Else: X = Text2.Text
Y = Text3.Text
Z = X * Y
Text4.Text = Z
End If
End Sub
Form 1 v
Private Sub Command1_Click()
Form2.Visible = True
End Sub