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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.