Centar za edukaciju-BiH

Predmet:Nekorišteni objekti

---

Imam nekoliko velikih baza sa puno tablica, Querya, formi i ostalog.
Dosta ti objekata, pa i VBA coda ostalo je u njima, a ne koriste se .
Ima li načina da se pronađu nekorišteni objekti u Accessu kako bi ih mogao obrisati.

---

Predmet:Re: Nekorišteni objekti

---

evo ti dve funkcije mislim da če ti dati podatke jedino je problem ako na nekoj formi koristiš unbound objekte ...
ipak dobiješ listu pa vidi

f1
Public Function SkupiResurse() As String
Dim frm As AccessObject
Dim rpt As AccessObject
Dim ctl As Access.Control
SkupiResurse = "Forms" & vbCrLf & vbCrLf
For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
SkupiResurse = SkupiResurse & frm.Name & vbCrLf & "Recordsource:" & Forms(frm.Name).RecordSource & vbCrLf
For Each ctl In Forms(frm.Name).Controls
If ctl.ControlType = acListBox Or ctl.ControlType = acComboBox Then
SkupiResurse = SkupiResurse & ctl.Name & " RowSource: " & ctl.RowSource
End If
Next ctl
SkupiResurse = SkupiResurse & vbCrLf
DoCmd.Close acForm, frm.Name
Next frm
SkupiResurse = SkupiResurse & "Reports" & vbCrLf & vbCrLf
For Each rpt In CurrentProject.AllReports
DoCmd.OpenReport rpt.Name, acViewDesign, , , acHidden
SkupiResurse = SkupiResurse & rpt.Name & vbCrLf & "Recordsource:" & Reports(rpt.Name).RecordSource & vbCrLf
For Each ctl In Reports(rpt.Name).Controls
If ctl.ControlType = acListBox Or ctl.ControlType = acComboBox Then
SkupiResurse = SkupiResurse & ctl.Name & " RowSource: " & ctl.RowSource
End If
Next ctl
SkupiResurse = SkupiResurse & vbCrLf
DoCmd.Close acReport, rpt.Name
Next rpt
End Function

Public Function getRecordsource() As String
Dim frm As AccessObject
Dim rpt As AccessObject
getRecordsource = "Forms" & vbCrLf & vbCrLf
For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
If Not Forms(frm.Name).RecordSource = "" Then
getRecordsource = getRecordsource & frm.Name & vbCrLf & "Recordsource:" & Forms(frm.Name).RecordSource & vbCrLf & vbCrLf
End If
DoCmd.Close acForm, frm.Name
Next frm
getRecordsource = getRecordsource & "Reports" & vbCrLf & vbCrLf
For Each rpt In CurrentProject.AllReports
DoCmd.OpenReport rpt.Name, acViewDesign, , , acHidden
If Not Reports(rpt.Name).RecordSource = "" Then
getRecordsource = getRecordsource & rpt.Name & vbCrLf & "Recordsource:" & Reports(rpt.Name).RecordSource & vbCrLf & vbCrLf
End If
DoCmd.Close acReport, rpt.Name
Next rpt
End Function

'' pozovi ih
Dim s As String
s = getRecordsource
MsgBox (s)
s = SkupiResurse
MsgBox (s)

Predmet:Re: Nekorišteni objekti

---

Ovo nije loše. Jedino dali znaš kako umjesto Msbox poruke koja na kraju izlazi, napraviti Report jer bi tako bilo preglednije.

---

Predmet:Re: Nekorišteni objekti

---

roko ove procedure bi bilo dobro da imamo u koristan kod pa posto su tvoje dobro bi bilo da ih ti i postavis sa objasnjenjem cemu sluze i kako se koriste.

---

Predmet:Re: Nekorišteni objekti

---

Nisu moje neg sam ih negdje skinuo i malo prepravio .
Isto sam tražio što nekoristim od silne queriya i formi...

Predmet:Re: Nekorišteni objekti

---

Svejedno opet su tvoje procedure.
Ti si ih nasao pa napisi sta hoces.

---

Predmet:Re: Nekorišteni objekti

---

Iskoristi sam funkciju koju je priložio Roko i stvarno je vrlo korisna naročito funkcija' 'skupiResurse()'
koja izlista sve forme i reporte i pridruži im njihove Recordsourse odnosno tablice i querye.
Jedino što je ovdje problem što uglavnom treba imati popis nekorištenih tablica i querya.
Moje pitanje je dali bi se ova funkcija mogla nekako doraditi da izlista nekorištene objekte.
Možda koristeći query MSysObjects koji bi prikazao sve tablice i querye u bazi pa da se onda objekti dobiveni gornjom funkcijom usporede sa objektima iz MsysObject i prikažu samo nekorišten.

---

Predmet:Re: Nekorišteni objekti

---

Mislim da se mogu automatizirati neke stavke programa ali na kraju ipak moaš sam pronači koje komponente ne koristiš i zašto