pmiroslav | 20.09.2012 19:04 |
---|---|
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. |
roko | 21.09.2012 16:02 |
---|---|
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 |
pmiroslav | 11.09.2012 12:34 |
---|---|
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. |
zxz | 11.09.2012 13:27 |
---|---|
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. |
roko | 11.09.2012 13:40 |
---|---|
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... |
zxz | 11.09.2012 14:04 |
---|---|
Predmet:Re: Nekorišteni objekti Svejedno opet su tvoje procedure. Ti si ih nasao pa napisi sta hoces. |
pmiroslav | 11.09.2012 11:19 |
---|---|
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. |
roko | 11.09.2012 11:56 |
---|---|
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) |