dcsimg
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB
Expertise: Intermediate
Mar 10, 2004

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


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\txtValidate.txt" For Output As #1

    Print #1, "Company to Validate:" & " " & Me.txtCompany
    Print #1, ""
    Set curDB = CurrentDb
    lSQL = "SELECT qryValidate.[Company ID], qryValidate.[Employee
number]"lSQL = lSQL & " FROM qryValidate"
    lSQL = lSQL & " FROM qryValidate"
    lSQL = lSQL & " WHERE [Company ID] = " & Me.txtCompany & " AND ([Net
total 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:\Windows\write.exe C:\Database\txtValidate.txt", 1)
End sub
Minh Nguyen Tran Phan
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date