devxlogo

Print an Error Report with NotePad

Print an Error Report with NotePad

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

devx-admin

Share the Post: