dcsimg
Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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