Private Sub Command33_Click()
On Error GoTo Err_Command33_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)
Do While Not rs.EOF
         rs.Edit
         rs!Brisanje = 1
         rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Me.RecordSource = Me.RecordSource
Exit_Command33_Click:
 Exit Sub
 
Err_Command33_Click:
    MsgBox err.Description
    Resume Exit_Command33_Click

End Sub