Bosna i Hercegovina



#31 18.12.2012-11:44
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 93



#32 18.12.2012-22:31
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,545


Subject: Re: export u excel (redosled kao u reportu)
Pa nisi mi odgovorio na post 29.
Pozdrav
↑  ↓

#33 19.12.2012-08:19
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 93


Subject: Re: export u excel (redosled kao u reportu)
Redni brojevi su promenjivi. Mogu biti od 10 do 40. Što se tiče bojenja polja to ću ja da pokušam. Ako mi negde zaškripi pitaću te za pomoć.
↑  ↓

#34 19.12.2012-10:20
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,545


Subject: Re: export u excel (redosled kao u reportu)
Citat:
Redni brojevi su promenjivi. Mogu biti od 10 do 40
Znaci ne pocinje uvijek od 1.
Hoces li da napravimo combo pa da ukucas od kojeg broja pocinje ako nemas neki parametar odakle krenuti.

Citat:
Što se tiče bojenja polja to ću ja da pokušam. Ako mi negde zaškripi pitaću te za pomoć.
Nije problem u farbanj polja nego koliko polja ofarbati.
Ja sam samo pitao dali je fiksan broj redova ili nije.
Napr.
Moze se napraviti da je fiksan broj redova a da otvori novi sit ili novi dokument kada broj redova u bazi prelazi taj broj.
Drugi nacin je da se sve kodom odradi pa onda neka ide na vise stranica.
Tvoje je da odlucis kako ako sam samo dobro opisao moju zamisao.
Pozdrav
↑  ↓

#35 20.12.2012-07:14
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 93


Subject: Re: export u excel (redosled kao u reportu)
Nismo se razumeli za redne brojeve. Ovi uvek počinju od 1 ali se kreću od 10 do 40 (znači u rasponu 1-40 u proseku budu oko 25 ). Onaj prvi primer je ok. Samo kada bi mogao da se sredi da su redovi promenjivi i da je napomena na kraju. Potrebno mi je da se sve smesti na jednu stranu.
↑  ↓

#36 22.12.2012-14:34
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,545


Subject: Re: export u excel (redosled kao u reportu)
DownloadIzvorni kod (Visual Basic):
  1. Function ExelI()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Temp
  5. Dim ExelO As Object
  6. Dim Celija As Object
  7. Dim Red As Integer, Kolona As Integer
  8. Dim I As Integer
  9.  
  10. On Error GoTo Greska:
  11. Set Db = CurrentDb()
  12. Temp = Db_Putanja
  13. Set Rs = Forms![T_Pregled_DA_G]![T_Pregled_DA_P subform].Form.RecordsetClone
  14. Set ExelO = CreateObject("excel.Application")
  15. FileCopy Temp & "qb.dll", Temp & "Pregled.xls"
  16. ExelO.Workbooks.Open (Temp & "Pregled.xls")
  17.  
  18. Red = 5
  19. Kolona = 3
  20. Set Celija = ExelO.Cells(Red, Kolona)
  21. Temp = Forms![T_Pregled_DA_G]![Referent_prodaje].Column(1)
  22. Celija.Value = Temp
  23. Red = 6
  24. Kolona = 3
  25. Set Celija = ExelO.Cells(Red, Kolona)
  26. Temp = Forms![T_Pregled_DA_G]![Datum]
  27. Celija.Value = Temp
  28. Red = 7
  29. Kolona = 3
  30. Set Celija = ExelO.Cells(Red, Kolona)
  31. Temp = Forms![T_Pregled_DA_G]![Pocetak_rada]
  32. Celija.Value = Temp
  33. Red = 8
  34. Kolona = 3
  35. Set Celija = ExelO.Cells(Red, Kolona)
  36. Temp = Forms![T_Pregled_DA_G]![Zavrsetak_rada]
  37. Celija.Value = Temp
  38. Red = 9
  39. Kolona = 3
  40. Set Celija = ExelO.Cells(Red, Kolona)
  41. Temp = Forms![T_Pregled_DA_G]![Dnevna_kilometraza]
  42. Celija.Value = Temp
  43. Red = 10
  44. Kolona = 3
  45. Set Celija = ExelO.Cells(Red, Kolona)
  46. Temp = Forms![T_Pregled_DA_G]![Broj_posjecenih_DM]
  47. Celija.Value = Temp
  48. Red = 15
  49. Rs.MoveFirst
  50. Do While Not Rs.EOF
  51. Red = Red + 1
  52. If Red > 35 Then
  53. ExelO.Rows("35:35").copy
  54. ExelO.Rows(Red & ":" & Red).Insert Shift:=xlDown
  55. End If
  56. Kolona = 2
  57.     For I = 0 To 17
  58.     Kolona = I + 1
  59.     Set Celija = ExelO.Cells(Red, Kolona)
  60.     If Kolona = 1 Then
  61.     Temp = Red - 15
  62.     Else
  63.     Temp = Rs.Fields(I)
  64.     End If
  65.     If Temp = True Then
  66.     Temp = "x"
  67.     ElseIf Temp = False Then
  68.     Temp = ""
  69.     End If
  70.     Celija.Value = Temp
  71.     Next I
  72. Rs.MoveNext
  73. Loop
  74.  
  75. Red = Red + 4
  76. Set Celija = ExelO.Cells(Red, 2)
  77. Temp = Forms![T_Pregled_DA_G]![Napomena]
  78. Celija.Value = Temp
  79. Set Celija = ExelO.Cells(1, 1)
  80. Celija.Clear
  81. Celija.Select
  82. ExelO.Visible = True
  83. Izlaz:
  84. Exit Function
  85. Greska:
  86. End Function
  87. Function Db_Putanja() As String
  88. '------------------------------------------------
  89. 'Ova funkcija pronalazi putanju postojee baze
  90. 'Autor funkcije ZXZ
  91. '------------------------------------------------
  92.    Dim Db As Database, Putanja As String
  93.    
  94.     On Error Resume Next
  95.     Set Db = DBEngine(0)(0)
  96.     Putanja = Db.Name
  97.     Do Until Right$(Putanja, 1) = "\"
  98.         Putanja = Left$(Putanja, Len(Putanja) - 1)
  99.     Loop
  100.  
  101.     Db_Putanja = Putanja
  102. End Function

Pozdrav
↑  ↓

#37 25.12.2012-09:55
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 93


Subject: Re: export u excel (redosled kao u reportu)
Ovo je super. Samo sada javlja problem ako ima ispod 20 redova.

Prilozi:
Informacije o fajlu: zip  Pregled-1.zip
Preuzimanja: 62
Veličina: 8.54 KB

↑  ↓

#38 26.12.2012-10:47
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,545


Subject: Re: export u excel (redosled kao u reportu)
Prepravi ovaj dio koda.
Loop
If red>25 then
Red = Red + 4
else
red=39
endif
Set Celija = ExelO.Cells(Red, 2)
Temp = Forms![T_Pregled_DA_G]![Napomena]
Celija.Value = Temp
Set Celija = ExelO.Cells(1, 1)
Celija.Clear
Celija.Select
ExelO.Visible = True
Izlaz:
Exit Function
Greska:
End Function
Pozdrav
↑  ↓

#39 26.12.2012-12:51
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 93


Subject: Re: export u excel (redosled kao u reportu)
Opet isti problem.

Prilozi:
Informacije o fajlu: zip  Pregled2.zip
Preuzimanja: 75
Veličina: 8.55 KB

↑  ↓

#40 26.12.2012-14:33
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,545


Subject: Re: export u excel (redosled kao u reportu)
DownloadIzvorni kod (Visual Basic):
  1. Function ExelI()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Temp
  5. Dim ExelO As Object
  6. Dim Celija As Object
  7. Dim Red As Integer, Kolona As Integer
  8. Dim I As Integer
  9.  
  10. On Error GoTo Greska:
  11. Set Db = CurrentDb()
  12. Temp = Db_Putanja
  13. Set Rs = Forms![T_Pregled_DA_G]![T_Pregled_DA_P subform].Form.RecordsetClone
  14. Set ExelO = CreateObject("excel.Application")
  15. FileCopy Temp & "qb.dll", Temp & "Pregled.xls"
  16. ExelO.Workbooks.Open (Temp & "Pregled.xls")
  17.  
  18. Red = 5
  19. Kolona = 3
  20. Set Celija = ExelO.Cells(Red, Kolona)
  21. Temp = Forms![T_Pregled_DA_G]![Referent_prodaje].Column(1)
  22. Celija.Value = Temp
  23. Red = 6
  24. Kolona = 3
  25. Set Celija = ExelO.Cells(Red, Kolona)
  26. Temp = Forms![T_Pregled_DA_G]![Datum]
  27. Celija.Value = Temp
  28. Red = 7
  29. Kolona = 3
  30. Set Celija = ExelO.Cells(Red, Kolona)
  31. Temp = Forms![T_Pregled_DA_G]![Pocetak_rada]
  32. Celija.Value = Temp
  33. Red = 8
  34. Kolona = 3
  35. Set Celija = ExelO.Cells(Red, Kolona)
  36. Temp = Forms![T_Pregled_DA_G]![Zavrsetak_rada]
  37. Celija.Value = Temp
  38. Red = 9
  39. Kolona = 3
  40. Set Celija = ExelO.Cells(Red, Kolona)
  41. Temp = Forms![T_Pregled_DA_G]![Dnevna_kilometraza]
  42. Celija.Value = Temp
  43. Red = 10
  44. Kolona = 3
  45. Set Celija = ExelO.Cells(Red, Kolona)
  46. Temp = Forms![T_Pregled_DA_G]![Broj_posjecenih_DM]
  47. Celija.Value = Temp
  48. Red = 15
  49. Rs.MoveFirst
  50. Do While Not Rs.EOF
  51. Red = Red + 1
  52. If Red > 35 Then
  53. ExelO.Rows("35:35").copy
  54. ExelO.Rows(Red & ":" & Red).Insert Shift:=xlDown
  55. End If
  56. Kolona = 2
  57.     For I = 0 To 17
  58.     Kolona = I + 1
  59.     Set Celija = ExelO.Cells(Red, Kolona)
  60.     If Kolona = 1 Then
  61.     Temp = Red - 15
  62.     Else
  63.     Temp = Rs.Fields(I)
  64.     End If
  65.     If Temp = True Then
  66.     Temp = "x"
  67.     ElseIf Temp = False Then
  68.     Temp = ""
  69.     End If
  70.     Celija.Value = Temp
  71.     Next I
  72. Rs.MoveNext
  73. Loop
  74. If Red > 35 Then
  75. Red = Red + 4
  76. Else
  77. Red = 39
  78. End If
  79. Set Celija = ExelO.Cells(Red, 2)
  80. Temp = Forms![T_Pregled_DA_G]![Napomena]
  81. Celija.Value = Temp
  82. Set Celija = ExelO.Cells(1, 1)
  83. Celija.Clear
  84. Celija.Select
  85. ExelO.Visible = True
  86. Izlaz:
  87. Exit Function
  88. Greska:
  89. End Function
  90. Function Db_Putanja() As String
  91. '------------------------------------------------
  92. 'Ova funkcija pronalazi putanju postojee baze
  93. 'Autor funkcije ZXZ
  94. '------------------------------------------------
  95.    Dim Db As Database, Putanja As String
  96.    
  97.     On Error Resume Next
  98.     Set Db = DBEngine(0)(0)
  99.     Putanja = Db.Name
  100.     Do Until Right$(Putanja, 1) = "\"
  101.         Putanja = Left$(Putanja, Len(Putanja) - 1)
  102.     Loop
  103.  
  104.     Db_Putanja = Putanja
  105. End Function

Pozdrav
↑  ↓

Stranice (3): 1, 2, 3


All times are GMT +01:00. Current time: 17.01.2018-22:54.