Hi,
This is working fine, but I wish file to open so we can copy and paste prices.
Thanks for all your help.
John.
Private Sub Command180_Click()
Dim FSO As New FileSystemObject
Dim myarray1 As String
Dim myarray2 As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set filetocreate = FSO.CreateTextFile("C:\Users\jhodgson\Desktop\QTY_Breaks.txt")
myarray1 = "Price for 1 off : " & Format(Forms!PricingForm!priceQTY1, "##,##0.00") & " " & Forms!PricingForm!Custcurrency&
myarray2 = "Price for 2 off : " & Format(Forms!PricingForm!PriceQTY2, "##,##0.00") & " " & Forms!PricingForm!Custcurrency&
filetocreate.WriteLine " QTY Breaks"
filetocreate.WriteLine " "
filetocreate.WriteLine myarray1
filetocreate.WriteLine myarray2
filetocreate.Close
End Sub
This is working fine, but I wish file to open so we can copy and paste prices.
Thanks for all your help.
John.
Private Sub Command180_Click()
Dim FSO As New FileSystemObject
Dim myarray1 As String
Dim myarray2 As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set filetocreate = FSO.CreateTextFile("C:\Users\jhodgson\Desktop\QTY_Breaks.txt")
myarray1 = "Price for 1 off : " & Format(Forms!PricingForm!priceQTY1, "##,##0.00") & " " & Forms!PricingForm!Custcurrency&
myarray2 = "Price for 2 off : " & Format(Forms!PricingForm!PriceQTY2, "##,##0.00") & " " & Forms!PricingForm!Custcurrency&
filetocreate.WriteLine " QTY Breaks"
filetocreate.WriteLine " "
filetocreate.WriteLine myarray1
filetocreate.WriteLine myarray2
filetocreate.Close
End Sub