Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako prikazati Description za bilo koji query ili report

[es] :: Access :: Kako prikazati Description za bilo koji query ili report

[ Pregleda: 1832 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

gorancho
Srbija

Član broj: 149371
Poruke: 89
195.222.97.*



Profil

icon Kako prikazati Description za bilo koji query ili report08.12.2015. u 12:16 - pre 101 meseci
Da prikažem sve izveštaje u postojećem programu koritim :

SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not Like "*Subreport*") AND ((MSysObjects.Type)=-32764)) ORDER BY MSysObjects.Name;

Kako da prikažem u ovoj listi pored MSysObjects.Name i sadržaj svakog pojedinog "ImeReporstsa.description" odnosno nešto kao MSysObjects.Description ?

 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-4520.sa.bih.net.ba.

Sajt: www.icentar.ba


+2 Profil

icon Re: Kako prikazati Description za bilo koji query ili report08.12.2015. u 18:06 - pre 101 meseci
Code:
Function Objekti()
'*******************************************
'*Ime:Objekti (Function)
'*Sadržaj: Iscitava imena reporta i opis
'*Autor:     ZXZ
'*Datum:      12 08, 2015, 06:45:57
'*Adresa: Tuzla BiH
'*Email:     [email protected]
'*Ulazni parametri:
'*Izlazni parametri:
'*Vraća vrijednost:
'*******************************************

Dim Db As Database
Dim ImeR As String
Dim Des As String
Dim Ctr As Container
Dim Doc As Document

Set Db = CurrentDb
Set Ctr = Db.Containers!Reports
For Each Doc In Ctr.Documents
    ImeR = Doc.Name
    On Error Resume Next
    Des = Db.Containers("Reports").Documents(ImeR).Properties(8)
        If Err.Number = 3265 Then
        Err.Clear
        On Error GoTo 0
        Des = ""
        End If
    MsgBox ImeR & " : " & Des
Next Doc
End Function

zxz
 
Odgovor na temu

gorancho
Srbija

Član broj: 149371
Poruke: 89
195.222.97.*



Profil

icon Re: Kako prikazati Description za bilo koji query ili report11.12.2015. u 10:55 - pre 101 meseci
Ovo je dobar materijal za dalji rad.
U pojedinim fajlovima funkcija radi kako se i očekuje dok u drugim vrednost polja Des prikaže kao [Use DB Theme]
Ne javlja probleme sa referencama pa me muči zašto se to dešava.
Probaću da ga pretočim u upit iz kojeg se poziva funkcija kojoj se prosleđuje MSysObjects.Name.

U svakom slučaju hvala
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-4096.sa.bih.net.ba.

Sajt: www.icentar.ba


+2 Profil

icon Re: Kako prikazati Description za bilo koji query ili report11.12.2015. u 15:59 - pre 101 meseci
To ti ovisi od verzije accessa u kojoj je mdb.
Napisi ovdje umjesto broja propertija naziv:
Des = Db.Containers("Reports").Documents(ImeR).Properties("Description")
zxz
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.dsl.bell.ca.



+79 Profil

icon Re: Kako prikazati Description za bilo koji query ili report12.12.2015. u 02:51 - pre 101 meseci
Uneo sam ovo zrno znanja u Bazu Znanja
 
Odgovor na temu

[es] :: Access :: Kako prikazati Description za bilo koji query ili report

[ Pregleda: 1832 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.