<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Command32_Click()
On Error GoTo Err_Command32_Click

Dim db As Database
   Dim rs As Recordset
   Dim mySQL As String
   
   Set db = CurrentDb()
   mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID

   Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)


rs.MoveFirst
Do While Not rs.EOF
Brisanje = rs.Fields(15)
      With rs
         .Edit
         !Brisanje = 1
         .Update
      End With

rs.MoveNext

Loop