Query, relacije ,događaji i subfforma

Posle čekiranja jednog ili više redova, vršiš neku akciju, brisanje ili nešto drugo. Pre izvršenja, odnosno na početku koda te naredne akcije stavi Requery. To je potrebno samo u slučaju da je kursor ostao u redu u kom je vršena zadnja izmena.

Kod i dalje ne radi pokušao sam ga ubaciti kako si mi rekao, ali nije upalilo, pokušao sam i unutar funcije, ali opet prijavljuje manji broj redova.

Kod glasi ovako:

Private Sub cmdBrisanje_Click()
On Error GoTo Err_cmdBrisanje_Click

Dim stDocName As String
Dim brojZapisa As Variant
Dim response As Variant

Me.chkbrisati.Requery

brojZapisa = DCount("[RedniBroj]", "brisanje")
If brojZapisa > 0 Then

response = MsgBox(brojZapisa & " zapis(a) za brisanje", vbOKCancel)

If response = 1 Then

stDocName = "QueryBrisanje"
Call CurrentDb.Execute(stDocName, dbFailOnError)

Me.Requery

Else
MsgBox "brisanje nije izvrseno"
End If
Else
MsgBox "nema zapisa za brisanje"
End If

Exit_cmdBrisanje_Click:
Exit Sub

Err_cmdBrisanje_Click:
MsgBox Err.Description
Resume Exit_cmdBrisanje_Click

End Sub

brisanje je samo Sql query koji provjerava koliko je redova označeno za brisanje, a glasi ovako:

SELECT T_tvrtke_proizvodi.RedniBroj, T_tvrtke_proizvodi.Idtvrtka, T_tvrtke_proizvodi.idproizvoda, T_tvrtke_proizvodi.imeproizvoda, T_tvrtke_proizvodi.proizvodac, T_tvrtke_proizvodi.cijena, T_tvrtke_proizvodi.Brisati
FROM T_tvrtke_proizvodi
WHERE (((T_tvrtke_proizvodi.Brisati)=True));

QueryBrisanje je gotovo istog sadržaja samo briše:

DELETE T_tvrtke_proizvodi.RedniBroj, T_tvrtke_proizvodi.Idtvrtka, T_tvrtke_proizvodi.idproizvoda, T_tvrtke_proizvodi.imeproizvoda, T_tvrtke_proizvodi.proizvodac, T_tvrtke_proizvodi.cijena, T_tvrtke_proizvodi.Brisati
FROM T_tvrtke_proizvodi
WHERE (((T_tvrtke_proizvodi.Brisati)=True));

Kao što vidiš stavio sam za chekbox kako si mi rekao(Me.chkbrisati.Requery), ali još uvijek ne radi kako bi trebalo.

Nemam sada vremena da proveravam, ali mislim da requery za ček boks nema značaja, a me.Requery si stavio posle izvršenja brisanja. Probaj na početku koda sa Me.Requery ili Refresh. Ako ne uspe, sutra ću proveriti.
Pozdrav.