|
' ricerca per anno
I = InputBox("Digita Anno da ricercare", "ricerca Anno", Year(Now)) If Val(I) <> 0 Then I = PaginaIndexBindingSource.Find("Anno", I) PaginaIndexBindingSource.Position = I LblStatus.Text = PaginaIndexBindingSource.Position & "/" & PaginaIndexBindingSource.Count - 1 End If |