roko 11.12.2010 20:59
Predmet:Listanje izvjestaja sa forme ??

pokušavam listati izvještaj u Preview formi s nevezanom formom
slika u prilogu
Prilozi:
bound.JPG (Velicina datoteke:53.52 KB)

zxz 11.12.2010 22:29
Predmet:Re: Jel se može ovo ??

Ako sam te dobro razumio:
Imas formu i imas izvjestaj. Ti bi da listas izvjestaj sa ove forme.
Reci ako sam u pravu. Ako nisam morat ces bolje pojasniti. Bar meni nije jasno.

roko 11.12.2010 22:39
Predmet:Re: Jel se može ovo ??

"Da" forma kontolira stranice izvještaja koji je u Preview modu

zxz 12.12.2010 01:20
Predmet:Re: Jel se može ovo ??

Na dugmic naprijed on klik:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Rpt As Report
  2.  
  3. Set Rpt = Reports![ImeIzvjestaja]
  4. Me.Visible = False
  5. Rpt.Visible = False
  6. Rpt.Visible = True
  7. SendKeys "{RIGHT}", True
  8. Me.Visible = True

Za nazad samo
SendKeys "{LEFT}", True

roko 12.12.2010 02:04
Predmet:Re: Jel se može ovo ??

Hvala Kako jednostavno i efikasno a aj ubio glavu

zxz 12.12.2010 02:38
Predmet:Re: Jel se može ovo ??

Neznam zasto ti treba?
Mozda dodas jos ovo ako nije fit onda ti nece raditi.
Dim Rpt As Report

Set Rpt = Reports![ImeIzvjestaja]
Me.Visible = False
Rpt.Visible = False
Rpt.Visible = True
SendKeys "%{Z}", True
SendKeys "{RIGHT}", True
Me.Visible = True

Da i da napomenem za prvi i zadnji ti je end i home.

roko 12.12.2010 02:43
Predmet:Re: Jel se može ovo ??

ima li još koji pa da napravimo pjesmicu

zxz 12.12.2010 02:48
Predmet:Re: Jel se može ovo ??

Hehe ne kontam te ali ima kod da napise tvoj kod.

roko 12.12.2010 04:21
Predmet:Re: Jel se može ovo ??

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Sub OnNavigateRecord(ctl As IRibbonControl)
  2. On Error GoTo errorhend
  3.     Dim prov As Object
  4.    Dim prova As Variant
  5.   Set prov = Screen.ActiveReport '(acHiddenCurrentPage)
  6. prova = prov.count '''''''''''''''' to moras nac
  7.    Select Case ctl.ID
  8.     Case "btnDesno": SendKeys "{RIGHT}", True
  9.     Case "btnLijevo": SendKeys "{LEFT}", True
  10.  Case "btnPocetak"
  11.        Do Until prova = 0
  12.             prova = prova - 1
  13.             SendKeys "{LEFT}", True
  14.             Loop
  15.             SendKeys "%{Z}", True
  16. Case "btnkraj"
  17.         Do Until prova = 0
  18.             SendKeys "{RIGHT}", True
  19.             prova = prova - 1
  20.         Loop
  21.           SendKeys "%{Z}", True
  22. End Select
  23.  
  24. Exit Sub
  25. errorhend:
  26.  MsgBox "Koncentracije malo...  ", vbCritical, "Upozorenje"
  27. End Sub

roko 12.12.2010 04:24
Predmet:Re: Jel se može ovo ??

Sve to kompjuteri izračunavaju ... .. .. ... .. . .