Da ali sad vidis u kojem je redu greska to sam mislio.

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)

Do While Not rs.EOF

Brisanje = rs.Fields(15)

         rs.Edit

         rs.Brisanje = 1

         rs.Update

rs.MoveNext

Loop  

rs.Close

db.Close

Exit_Command32_Click:

 Exit Sub

 

Err_Command32_Click:

    MsgBox err.Description

    Resume Exit_Command32_Click