Create a Text File.............

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Have 2 user driven text boxes that feed a query, if they don't satisfy this
query
I would like to save the values (8 digit part number & a 4 digit operation
number) to a text file. At the end of the week I'd like to retreive this
file to review what part operations the floor is hungry for. Simple??
 
Something like the following untested air code?

Dim intFile As Integer
Dim strFile As String

strFile = "C:\MyOutput.txt"
intFile = FreeFile()
Open strFile For Ouput As #intFile
Print #intFile, "Problem at " & Format(Now(), "yyyy-mm-dd hh:nn:ss")
Print #intFile, "Part Number = " & Me.txtPartNumber
Print #intFile, "Operation Number = " & Me.txtOperationNumber
Print #intFile
Close #intFile
 
Back
Top