Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (6):1,2,3,4,5,6
 Prikazi prvu neprocitanu poruku

#21 15.10.2010 20:34
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Za ove druge neka se koristiti zadnja cjena
Pozdav,

Nedim
↑  ↓

#22 15.10.2010 20:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Neznam kako hoce ali mislim da to nije dobro.
Odnosno racun ne ispada dobar ako se neko sjeti pa prema tome niti ovaj izvjestaj.
Ovo je izvjestaj kolicina i trebao bi ostati takav.
Dok stavis cijenu onda bi trebalo cijena puta kolicina itd.
Ako nekome trebaju cijene onda bi to trebalo po jedinicama ili prodavnicama.
Moj predlog ti je da izbacis cijenu i neka ovdje ostanu samo kolicinine.
Ako si vidio kada sam pravio Query stavio sam Group i tada mi je ovo bilo na umu ali zaboravio poslije.
Bilo sta sto budes trazio ako je fizicki izvodivo moze se dobiti samo treba razmisliti kada pravis izvjestaje i cemu ce sluziti.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#23 15.10.2010 21:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Mozda se nismo dobro razumjeli.
Ako stavis zadnju cijenu. Neko ce se sjetiti da to pomnozi sa brojem artikala pa provjeri novac i ispada da nije tacno.
srednja cijena doduse bi davala tacan novacni rezultat ali kad provjeri cijenu onda ce reci da nije to ta cijena.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#24 15.10.2010 21:21
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
ne uredu je, razumjeli smo se. Samo oni dnevno isto Å¡alju stanja po svim prodavnicama. ovaj pregled je viÅ¡e radi informacija o prodaji ako se neki proizvod negd****lje prodaje ili ne onda ga prebacuju iz radnje u radnju ili vraćaju u magacin i ide na veleprodaju. Ako se loÅ¡e prodaje onda mu smanjuju cjenu tako da se koristi uvjek zadnja cjena.
Pozdav,

Nedim
↑  ↓

#25 15.10.2010 21:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Aaha to ima logiku samo onda treba uvesti i datum prodaje.
Doduse napamet kucam ali vjerujem da postoji takvo ppolje.
Zaboravio sam odgovoriti. Nisam mijenjao tvje podatke u bazi niti cu.
Valjda cemo naci ono sta ti treba a sama realizacija toga je laksi dio kako si vidio.
Problem je sto ja u pocetku nisam dosta toga razumio kako je napravljeno.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#26 18.10.2010 10:27
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Ovo je ok, ja ću se sad malo pozabaviti ovim pa se javim. hvala ti
Pozdav,

Nedim
↑  ↓

#27 18.10.2010 21:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Ovih par dana sam u poslu do guse pa ne stizem nista.
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Workbook_Open()
  2. Dim db As database
  3. Dim Rs As Recordset
  4. Dim Dokument As Document
  5. Dim Vork As Worksheet
  6. Dim Putanja As String
  7. Dim I As Integer, N As Integer, M As Integer, J As Integer, BrojMagacina As Integer
  8. Dim Podatak, SifraMagacina() As String, SifraArt As String, SQL As String
  9.  
  10.  
  11. Putanja = Me.Path
  12. SQL = "SELECT tskladiste.sif_pj " _
  13.        & "FROM tskladiste " _
  14.        & "GROUP BY tskladiste.sif_pj " _
  15.        & "ORDER BY tskladiste.sif_pj"
  16. Set Vork = Me.Worksheets("Evidencija")
  17. Vork.Cells(7, 1) = "Artikal"
  18. Set db = OpenDatabase(Putanja & "\primjer.mdb")
  19. Set Rs = db.OpenRecordset(SQL)
  20. N = Rs.RecordCount
  21. ReDim SifraMagacina(1 To N) As String
  22. For I = 1 To N
  23. SifraMagacina(I) = Rs.Fields(0)
  24. Next I
  25.  
  26.  
  27. For I = 1 To N * 4 Step 4
  28. Vork.Cells(7, I + 1) = "Cijena"
  29. Vork.Cells(7, I + 2) = "Ulaz"
  30. Vork.Cells(7, I + 3) = "Izlaz"
  31. Vork.Cells(7, I + 4) = "Stanje"
  32. If I = 1 Then
  33. Vork.Cells(6, I) = "'" & Rs.Fields(0)
  34. Vork.Cells(3, I + 1) = "Krinus veleprodaja"
  35. Else
  36. Vork.Cells(6, I + 1) = "'" & Rs.Fields(0)
  37. Vork.Cells(3, I + 1) = "Krinus Prodavnica " & Val(Rs.Fields(0)) - 1
  38. End If
  39. Rs.MoveNext
  40. Next I
  41. Rs.Close
  42. SQL = "SELECT tskladiste.Sifart " _
  43.       & "FROM tskladiste " _
  44.       & "GROUP BY tskladiste.Sifart"
  45. Set Rs = db.OpenRecordset(SQL)
  46. N = Rs.RecordCount
  47. For I = 8 To N + 7
  48. Vork.Cells(I, 1) = "'" & Rs.Fields(0)
  49. Rs.MoveNext
  50. Next I
  51. Rs.Close
  52. For I = 1 To N
  53. SifraArt = Vork.Cells(I + 7, 1)
  54. SQL = "SELECT * FROM QIzlaz_Exel WHERE Sifart='" & SifraArt & "'"
  55. Set Rs = db.OpenRecordset(SQL)
  56. M = Rs.RecordCount
  57. If M > 5 Then
  58. MsgBox "Sranje"
  59. End If
  60.     For J = 1 To M
  61.     BrojMagacina = (Val(Rs!sif_pj) - 1) * 4
  62.     Podatak = Rs.Fields(1)
  63.     Vork.Cells(I + 7, BrojMagacina + 2) = Podatak
  64.     Podatak = Rs.Fields(2)
  65.     Vork.Cells(I + 7, BrojMagacina + 3) = Podatak
  66.     Podatak = Rs.Fields(3)
  67.     Vork.Cells(I + 7, BrojMagacina + 4) = Podatak
  68.     Podatak = Rs.Fields(4)
  69.     Vork.Cells(I + 7, BrojMagacina + 5) = Podatak
  70.     Rs.MoveNext
  71.     Next J
  72. Next I
  73. End Sub

Ovo je kod u exelu umjesto onoga.
Evo i SQl:Qizlaz_exel
PreuzmiIzvorni kôd (SQL):
  1. SELECT tskladiste.Sifart, LAST(IIf([sif_pj]="0001",[cjena],[m_cijena])) AS CijenaP, SUM(tskladiste.kolicina_ulaz) AS SumOfkolicina_ulaz, SUM(tskladiste.kolicina_izlaz) AS SumOfkolicina_izlaz, SUM([Kolicina_Ulaz]-[Kolicina_izlaz]) AS Stanje, tskladiste.sif_pj, COUNT(tskladiste.Sifart) AS CountOfSifart
  2. FROM tskladiste
  3. GROUP BY tskladiste.Sifart, tskladiste.sif_pj
  4. ORDER BY tskladiste.sif_pj;
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#28 19.10.2010 11:08
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Ovo radi sasvim ok. Hvala
Pozdav,

Nedim
↑  ↓

#29 19.10.2010 11:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
E nemoj stati na tome.
Sad je pitanje onih kako ti rece za neke oddredjene periode.
Doduse periode moze dodati i u Query.
Tu stranicu u exelu mozes dizajnirati uraditi boje i ostalo.
Mislim na okvir itd.
Mozes i napraviti taster u mdb da podize taj dokument itd.
Trebao si se malo vise konsultirati kada si pravio bazu ali eto sad je gotovo.
Moze to raditi ali moglo je i bolje.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#30 19.10.2010 16:19
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Prije toliko godina te nisam ni poznavao(elektronski), a sad je tu Å¡to imam, hvala i na ovome
Pozdav,

Nedim
↑  ↓

Stranice (6):1,2,3,4,5,6

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


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