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
  
   rs.Close
   db.Close
    

Exit_Command32_Click:
    Exit Sub

Err_Command32_Click:
    MsgBox err.Description
    Resume Exit_Command32_Click