Ja sam promenio kod za dugme naredba19 i stavio:
Code:
Private Sub Naredba19_Click()
If Not (Me.Kontopodobrazac.Recordset.EOF And Me.Kontopodobrazac.Recordset.BOF) Then
DoCmd.RunSQL "DELETE Konto.IDKonto, Konto.NazivKonta FROM Konto WHERE (((Konto.IDKonto)=[Forms]![Nalog]![Kontopodobrazac]));"
End If
Me.Kontopodobrazac.Requery
End Sub
Proverio, radi. Barem kod mene.