Prikazi cijelu temu 13.02.2011 14:47
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Logiranje u aplikaciju
Evo uspio sam promjeniti 0 u 1 sa ovim:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command32_Click()
  2. On Error GoTo Err_Command32_Click
  3.  
  4. Dim db As Database
  5.    Dim rs As Recordset
  6.    Dim mySQL As String
  7.    
  8.    Set db = CurrentDb()
  9.    mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  10.  
  11.    Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)
  12.  
  13.  
  14. rs.MoveFirst
  15. Do While Not rs.EOF
  16. Brisanje = rs.Fields(15)
  17.       With rs
  18.          .Edit
  19.          !Brisanje = 1
  20.          .Update
  21.       End With
  22.  
  23. rs.MoveNext
  24.  
  25. Loop
  26.  
  27.    rs.Close
  28.    db.Close
  29.    
  30.  
  31. Exit_Command32_Click:
  32.     Exit Sub
  33.  
  34. Err_Command32_Click:
  35.     MsgBox err.Description
  36.     Resume Exit_Command32_Click

Ali kod zatvaranja forme dobije se porika o greški "Write Conflict" prilig slika

Prilozi:
Image_Brisanje.jpg
Preuzimanja:98
Velicina datoteke:40.77 KB

Pozdrav