Zuko 15.10.2010 20:34
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Za ove druge neka se koristiti zadnja cjena

zxz 15.10.2010 20:47
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.

zxz 15.10.2010 21:06
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.

Zuko 15.10.2010 21:21
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.

zxz 15.10.2010 21:27
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.

Zuko 18.10.2010 10:27
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

zxz 18.10.2010 21:55
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;

Zuko 19.10.2010 11:08
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Ovo radi sasvim ok. Hvala

zxz 19.10.2010 11:13
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.

Zuko 19.10.2010 16:19
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