Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

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


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.
Podrska 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,711


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

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 37 pm.