Centar za edukaciju-BiH



#1 08.08.2014 12:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Progress Meter
Koristite li Progress Meter koji se nalazi na status baru Msaccessa.
Evo Jedna jednostavna procedura koju mozemo iskoristiti za pokretanje Progress metra.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ProgresMetar(Brojac As Integer, Ukupno As Integer)
  2. If Brojac < 2 Then
  3. SysCmd acSysCmdInitMeter, "Obrada podataka...", Ukupno
  4. End If
  5. SysCmd acSysCmdUpdateMeter, Brojac
  6. If Brojac = Ukupno Then
  7. SysCmd acSysCmdRemoveMeter
  8. End If
  9. End Function

Primjer pozivanja procedure iz druge procedure.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Otvorirekord()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim BrojRedova As Integer
  5. Dim i As Integer
  6.  
  7. Set Db = CurrentDb
  8. Set Rs = Db.OpenRecordset("ImeTabeleIli Query-a")
  9. Rs.MoveLast
  10. Rs.MoveFirst
  11. BrojRedova = Rs.RecordCount
  12. Do While Not Rs.EOF
  13. i = i + 1
  14. ProgresMetar i, BrojRedova
  15. Rs.MoveNext
  16. Loop
  17. Rs.Close
  18.  
  19. End Function

Ovo je samo jedan naj jednostavniji primjer kako se moze koristiti.
Mogu se naredbe ufraditii direktno u vasu proceduru.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2 13.08.2014 12:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Progress Meter
Izgleda niko ni da proba.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 40 am.