home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap28 / mod128.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-17  |  176 b   |  11 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Sub begintransaction(ws As Workspace, db As Database)
  4.  
  5. If db.transaction = True Then
  6.     ws.BeginTrans
  7. End If
  8.  
  9. End Sub
  10.  
  11.