keliatannya sih itu agak salah, karena kalau gak ditemukan datanya,  maka dia 
rollback tran, sedangkan transaksi sudah di-commit duluan.  nantinya pasti 
keluar error "No active transaction"

bart2000e <[EMAIL PROTECTED]> wrote:          makasih pak, saya emang agak anti 
pake resume next untuk error 
  traping (jadi ngga keliatan kalo error hehehehe), ato emang 
  maksudnya kaya gini :
  on error goto errSave
  with Conn
     .begintrans
     .execute str_insert
     .committrans
  end with
  on error goto 0
    if apakahada("tblMasterBarang", "KodeBarang", txtkodebarang.text)
  =false then conn.rollbacktrans
  
    exit sub
    errSave :
  ato saya salah maksud pak ?
  thx
  
  
  --- In [email protected], DAS mania <[EMAIL PROTECTED]> 
  wrote:
  >
  > Pertama-tama coba liat ada syntax :
  >   
  >   On Error Resume Next
  >   
  >   atau tidak. Kalau ada hilangkan kebiasaan jelek itu, kalau gak 
  ada tambah cek data setelah commit trans.
  >   
  >   Saran : Kalau bisa biasakan saat ngesave pake struktur sbb :
  >   
  >   On Error goto errSave
  > .....
  >   begintrans
  >   
  >   committrans
  >   
  >   on error goto 0
  >   [cek data apa benar-2 sudah masuk di sini]
  >   .....
  >   
  >   exit sub
  >   errSave :
  >       .....
  >       rollbacktrans
  >   
  >   Aku gak tau brontox menginfeksi apa saja, lebih baik tanya ke 
  tech support antivirus aja.
  >   
  > bart2000e <[EMAIL PROTECTED]> wrote:          Saya sedang mengembangkan 
  program Inventory, karena lalu lintas
  >   datanya baru ribuan dan setelah 4 bulan ukuran Access cuman 4,5 
  MB-an,
  >   clientnya ada 6 komputer, selama 4 bulan ngga ada masalah yang
  >   berarti, cuman di salah satu client yang bisa akses internet 
  kemarin
  >   kena virus brontox, setelah itu ada hal yang aneh buat saya : 
  waktu
  >   ada execute query simpan, di program dikatakan udah bisa simpan 
  cuman
  >   ngga bisa masuk ke backend nya.... ada yang pernah ngalami ngga 
  ya ?
  >   saya untuk simpan dan hapus selalu pake model execute di object
  >   koneksinya :
  >   -----------------------------------------------------------------
  ---------------------------------------------------
  >   With Conn
  >       .BeginTrans
  >       .Execute str_insert
  >       .CommitTrans
  >   End With
  >   MsgBox "Transaksi berhasil disimpan"
  >   -----------------------------------------------------------------
  ---------------------------------------------------
  >   dan anehnya lagi kadang2 juga bisa tapi sering ngga bisa nya,  
  saya
  >   ngga abis pikirnya itu karena si msgbox nya itu udah keluar 
  beritahu
  >   kalo udah berhasil simpan, tapi begitu di cek lagi transaksi yang
  >   disimpan itu ngga masuk ke backend nya.....
  >   kira kira kenapa ya ?
  >    
  >   thx
  >   edi susanto
  >   
  >   
  >   
  >             
  > 
  >     Untuk berhenti berlangganan kirim email kosong ke : indoprog-
  [EMAIL PROTECTED]
  >   
  >   Ikuti juga forum diskusi VB.net dengan 
  >   mengirim email kosong ke [EMAIL PROTECTED]
  >     
  > 
  >                        
  > 
  >           SPONSORED LINKS    
>                                                          Computer 
  internet  security                                           Computer 
  internet  business                                           Computer 
  internet 
  access                                                                
             Computer internet privacy 
securities                                           Computer 
  internet 
  help                                                              
  >         
  > ---------------------------------
  >     YAHOO! GROUPS LINKS  
  >   
  >       
  >     Visit your group "indoprog-vb" on the web.
  >      
  >     To unsubscribe from this group, send an email to:
  >  [EMAIL PROTECTED]
  >      
  >     Your use of Yahoo! Groups is subject to the Yahoo! Terms of 
  Service.  
  >   
  >       
  > ---------------------------------
  >   
  >   
  >           
  > 
  > 
  >                   
  > ---------------------------------
  >  Yahoo! Autos. Looking for a sweet ride? Get pricing, reviews, & 
  more on new and used cars.
  > 
  > [Non-text portions of this message have been removed]
  >
  
  
  
  
  
            

    Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
  
  Ikuti juga forum diskusi VB.net dengan 
  mengirim email kosong ke [EMAIL PROTECTED]
    

                    
        
---------------------------------
    YAHOO! GROUPS LINKS  
  
      
    Visit your group "indoprog-vb" on the web.
     
    To unsubscribe from this group, send an email to:
 [EMAIL PROTECTED]
     
    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.  
  
      
---------------------------------
  
  
          

                        
---------------------------------
 Yahoo! Mail - Helps protect you from nasty viruses.

[Non-text portions of this message have been removed]



Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]

Ikuti juga forum diskusi VB.net dengan 
mengirim email kosong ke [EMAIL PROTECTED]
 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/indoprog-vb/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Kirim email ke