Dim Rpt As Report

 

Set Rpt = Reports![ImeIzvjestaja]

Me.Visible = False

Rpt.Visible = False

Rpt.Visible = True

SendKeys "{RIGHT}", True

Me.Visible = True

Public Sub OnNavigateRecord(ctl As IRibbonControl)

On Error GoTo errorhend

    Dim prov As Object

   Dim prova As Variant

  Set prov = Screen.ActiveReport '(acHiddenCurrentPage)

prova = prov.count '''''''''''''''' to moras nac

   Select Case ctl.ID

    Case "btnDesno": SendKeys "{RIGHT}", True

    Case "btnLijevo": SendKeys "{LEFT}", True

 Case "btnPocetak"

       Do Until prova = 0

            prova = prova - 1

            SendKeys "{LEFT}", True

            Loop

            SendKeys "%{Z}", True

Case "btnkraj"

        Do Until prova = 0

            SendKeys "{RIGHT}", True

            prova = prova - 1

        Loop

          SendKeys "%{Z}", True

End Select

 

Exit Sub

errorhend:

 MsgBox "Koncentracije malo...  ", vbCritical, "Upozorenje"

End Sub