Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (3):1,2,3

#11 15.10.2013 19:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Ne znam zašto? Kod mene radi, evo primjer sa izvještajem koji je napravio Wizard.
Nisam napomenuo da u Design View-u query-a odeš na Query > Parameters... pa pobriši
[Unesi godinu]
[Unesi jedinicu]
[Unesi smenu]

Prilozi:
Informacije o tipu datoteke za:rar  PROBA_MP.rar
Preuzimanja:300
Velicina datoteke:17.50 KB

Pozdrav
Ovaj post je ureden 2 puta. Posljednja izmjena 15.10.2013 19:45 od strane pmiroslav. ↑  ↓

#12 16.10.2013 07:09
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Izgleda da se nismo razumeli. Ja bih hteo da mi to radi sa kriterijumima (godina, jedinica, smena), ako je to uopÅ¡te moguće. Jer ako napravim izveÅ¡taj, sa trista zaposlenih, to je onda malo nepregledno.
↑  ↓

#13 16.10.2013 09:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Trebalo bi biti da nije veliko ali se zakomplikovalo.
Zato sam trazio da postavis primjer.
Nije problem u Crostab Query samo nego je pronlem u tabelama.
Po meni tabele nisu dovoljno dobro napravljene niti im se posvetilo dovoljno paznje pa se to poslije osveti.
Da pretpostavimo sta zelis napraviti.
Imas neku firmu koja vrsi neke servise i opravke preko svojih radnika koji su opet rasporedjeni u grupe i po smjenama.
Servisi imaju i opravke nemaju tacno vrijeme trajanja nego treba upisivati vrijeme i datum pocetka i zavrsetka.
Eto to ja visim tako.
Ako sam negdje pogrijesio ti me ispravi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 16.10.2013 10:48
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Da pokuÅ¡am objasniti. Ovo je samo deo tabela iz baze a tiče se konkretnog problema. Imamo intervencije, tabela INTERVENCIJADETALJI, na koje se upućuju radnici, tabela RADNICI. Vreme od do provedeno na intervenciji upisuje se u tabeli RADNICINAINTERVENCIJAMA. Tabela ORGANIZACIONA mi treba zbog kriterijuma organizacione jedinice, a tabela VRSTADOGAĐAJA zbog sumiranja vremena provedenog na određenoj vrsti intervencije. I to bi bilo to. pozdrav!
↑  ↓

#15 16.10.2013 10:55
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Da pokuÅ¡am objasniti. Ovo je samo deo tabela iz baze a tiče se konkretnog problema. Imamo intervencije, tabela INTERVENCIJADETALJI, na koje se upućuju radnici, tabela RADNICI. Vreme od do provedeno na intervenciji upisuje se u tabeli RADNICINAINTERVENCIJAMA. Tabela ORGANIZACIONA mi treba zbog kriterijuma organizacione jedinice, a tabela VRSTADOGAĐAJA zbog sumiranja vremena provedenog na određenoj vrsti intervencije. I to bi bilo to. pozdrav!
↑

Prilozi:
Informacije o tipu datoteke za:zip  2013-10-16_103355.zip
Preuzimanja:299
Velicina datoteke:85.27 KB

↑  ↓

#16 17.10.2013 23:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Napravi praznu formu.
U recordsource stavi tvoj crostab query.
Na on load stavi ovaj kod.
Ja sam stavio da se izvjestaj zove report1.
Ako nije ispravi u kodu
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. DoCmd.OpenReport "Report1", acViewPreview
  3. End Sub

Napravi prazan izvjestaj.
Na on page izvjestaja stavi ovaj kod.
Na kraju procedure imas red koda koji zatvara formu kojoj sam ja dao ime form1.
Ako das neko drugo ime ispravi.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Report_Page()
  2. Dim Rs As Recordset
  3. Dim DuzinaPapira As Integer
  4. Dim Sredina As Integer
  5. Dim DuzTeksta As Integer
  6. Dim StartY As Integer
  7. Dim X As Integer
  8. Dim Y As Integer
  9. Dim PozX() As Integer
  10. Dim Tekst As String * 10
  11. Dim Tekst1 As String * 20
  12. Dim BrojKolona As Integer
  13. Dim I As Integer
  14.  
  15.  
  16.  
  17. DuzinaPapira = Me.Width
  18. Me.ForeColor = 255
  19. Me.FontSize = 18
  20. Me.FontBold = True
  21. DuzTeksta = Me.TextWidth("NEKI NASLOV")
  22. Sredina = (DuzinaPapira - DuzTeksta) / 2
  23. Me.CurrentX = Sredina
  24. Print "NEKI NASLOV"
  25. X = 500
  26. Me.ForeColor = 0
  27. Me.FontSize = 10
  28. Me.CurrentX = X
  29. Y = Me.CurrentY
  30. Set Rs = Forms![Form1].RecordsetClone
  31. BrojKolona = Rs.Fields.Count - 1
  32. ReDim PozX(BrojKolona)
  33.     For I = 0 To BrojKolona
  34.     Me.CurrentY = Y
  35.     PozX(I) = Me.CurrentX
  36.         If Tekst = "Ime" Or Tekst = "Prezime" Then
  37.         Tekst1 = Rs.Fields(I).Name
  38.         Print Tekst1 & "   "
  39.         Else
  40.         Tekst = Rs.Fields(I).Name
  41.         Print Tekst & "   "
  42.         End If
  43.     Next I
  44.  
  45. Me.FontBold = False
  46. Me.CurrentX = X
  47. Y = Me.CurrentY
  48. Do While Not Rs.EOF
  49.     For I = 0 To BrojKolona
  50.     Me.CurrentX = PozX(I)
  51.     Me.CurrentY = Y
  52.         If Rs.Fields(I).Name = "Ime" Or Rs.Fields(I).Name = "Prezime" Then
  53.         Tekst1 = LTrim(Format$(Rs.Fields(I)))
  54.         Print Tekst1
  55.         Else
  56.         Tekst = Format$(Rs.Fields(I))
  57.         Print Tekst
  58.         End If
  59.     Next I
  60. Me.CurrentX = X
  61. Y = Me.CurrentY + 5
  62. Rs.MoveNext
  63. Loop
  64. DoCmd.Close acForm, "Form1"
  65. End Sub

Struktura baze je nikakva pa bi najbolje bilo napraviti sve kodom jer ovaj tvoj uslov i crostab je megalomansko rjesenje.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 24.10.2013 19:15
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Zdravo svima! Rešio sam na osnovu Getsbijevog predloga rešenja, da budem iskren imam još takvih rešenja sa privremenim tabelama. Hvala vima na trudu. E sad, ono što me je zabrinulo jeste komentar od zxz da baza nije dobro organizovana - nisu dobro povezane tabele u ovom primeru. Molio bih, ako neko ima volje napravi novi model u ovom primeru. Još jednom pozdrav za sve!
↑  ↓

#18 24.10.2013 21:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Neznam dali si i uspio implementit+rai ovaj moj kod ali to je ne bitno.
Imam ja sad nekih pitanja.
BRRADMES-BROJ SISTEMATIZACIJE

Ako mozes ovo polje malo pojasniti i kakav je odnos njega i organizacionih jedinica ako ga ima
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#19 26.10.2013 12:00
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Polje BRRADMES je u stvari BROJ SISTEMATIZACIJE., koji određuje: koje je to radno mesto (vozač, vatrogasac, mehaničar itd), koliko izvrÅ¡ilaca ima na tom radnom mestu i koja je to organizaciona jedinica (Novi Sad, Vrbas, Bečej itd).
↑  ↓

#20 26.10.2013 16:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Izveštaj na osnovu crosstab upita sa parametrima!
Evo.
Ovo ja napravljeno tako da na jednu intervenciju se moze poslati samo jedan radnik.
Ako moze vise onda se treba prepraviti.
Radnik moze izvrsiti vise radnji kada ode na jenu intervenciju.

Prilozi:
Informacije o tipu datoteke za:zip  Intervencijezxz.zip
Preuzimanja:291
Velicina datoteke:34.09 KB

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (3):1,2,3

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 7: 38 pm.