Prikazi cijelu temu 13.02.2011 21:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Logiranje u aplikaciju
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command33_Click()
  2. On Error GoTo Err_Command33_Click
  3. Dim db As Database
  4. Dim rs As Recordset
  5. Dim mySQL As String
  6.    
  7. Set db = CurrentDb()
  8. mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  9.  
  10. Set rs = db.OpenRecordset(mySQL)
  11. Do While Not rs.EOF
  12.          rs.Edit
  13.          rs!Brisanje = 1
  14.          rs.Update
  15. rs.MoveNext
  16. Loop
  17. rs.Close
  18. db.Close
  19. Me.RecordSource = Me.RecordSource
  20. Exit_Command33_Click:
  21.  Exit Sub
  22.  
  23. Err_Command33_Click:
  24.     MsgBox err.Description
  25.     Resume Exit_Command33_Click
  26.  
  27. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.