LOF je jedno od rešenja, ali postoji i FileLen kao kraća varijanta:
Code:
Private Sub Command0_Click
lblZauzimanjeBaze.Caption = FileLen(CurrentDb.Name)
lblBrojTabela.Caption = CurrentData.AllTables.Count - Broj tabela u bazi
lblBrojQueria = CurrentData.AllQueries.Count - Broj vidljivih Queryja
'lblBrojTabela.Caption = CurrentDb.TableDefs.Count - Daje isti rezultat kao CurrentData.AllTables.Count
'lblBrojQueria = CurrentDb.QueryDefs.Count - Daje uvek veći broj nego CurrentData.AllQueries.Count jer _
ubraja i Queryje koji služe kao rowsource listboxova i comboboxeva
End Sub
Ozbiljan i odgovoran mladić