The following code prints out an error report to NotePad.
Private sub cmdPrintError_Click Dim curDB As Database Dim rs As Recordset Dim lSQL As String Dim retVal As Variant Open "C:Database xtValidate.txt" For Output As #1 Print #1, "Company to Validate:" & " " & Me.txtCompany Print #1, "" Set curDB = CurrentDb lSQL = "SELECT qryValidate.[Company ID], qryValidate.[Employeenumber]"lSQL = lSQL & " FROM qryValidate" lSQL = lSQL & " FROM qryValidate" lSQL = lSQL & " WHERE [Company ID] = " & Me.txtCompany & " AND ([Nettotal cash] - [NetCheck]) >=" & 1 ")" Set rs = curDB.OpenRecordset(lSQL) If rs.RecordCount <> 0 Then rs.MoveLast rs.MoveFirst Print #1, "1)Record(s) not balance: " & rs.RecordCount & "/" &DCount("[Company ID]", "qryValidate", "[Company ID] = " & Me.txtCompany &"") Print #1, "CompanyID EmployeeID" Else Print #1, "1)Record's not balance not found" End If Do While Not rs.EOF Print #1, rs.Fields("Company ID") & " " &rs.Fields("Employee number"), rs.MoveNext Loop Set rs = Nothing Print #1, "" Print #1, "Data inputer:" Print #1, "Date Time: " & Format(Date, "dd-mmm-yyyy") & "--" &Format(Now, "hh:mm:ss AMPM") Set curDB = Nothing Close #1 retVal = Shell("C:Windowswrite.exe C:Database xtValidate.txt", 1)End sub