Predmet:Re: Baza za proizvodnju

---

Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

Screen.PreviousControl.SetFocus
DoCmd.FindNext
Me.List2.RowSource = Me.List2.RowSource ' evo ovdje.
Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub

Samo ovo ti je komanda za pretragu a ne za brisanje.

---