Centar za edukaciju-BiH



#11 13.03.2014 08:04
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Progress bar
Isprobao sam i sve lijepo radi u funkciji Slozi() gdje su recordsetovi, ali najduže traje dio koji prolazi kroz funkciju Shema(), a tu su naredbe
DoCmd.OpenQuery "kStroj-grupa 00 append", acNormal, acEdit
itd.
Dali se ovdje progress bar može ubaciti ?
Pozdrav
↑  ↓

#12 13.03.2014 18:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Progress bar
Pretpostavljam da su to appen query-i a iz njih se nemoze iscitati broj redova prije nos to se odradi.
Samim timnemoze se niti izracunati pravo vrijeme.
E sad postoje dva rjesenja.
jedno je da se upis vrsi kodom umjesto queryem ili pak da se napravi za svaki append isti select query pa se iz njega mogu uzracunati rekordi.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 13.03.2014 18:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Progress bar
Nije ovo nesto ali probaj vidi kako izgleda.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Shema()
  2.     Dim db As DAO.Database
  3.     Dim Sl_Table1  As DAO.Recordset
  4.     Dim rs As DAO.Recordset
  5.     Dim rs2 As DAO.Recordset
  6.     Dim Uslov As String
  7.     '------------------------------------
  8.    Dim Pr As C_Progres, a As Boolean
  9.     '-----------------------------------------------------------
  10.    'Uslov = Form_PitaIzdatnicu.IDPoz
  11.    CurrentDb.Execute "DELETE*FROM [Shema]"
  12.     CurrentDb.Execute "DELETE*FROM [ShemaTransfer]"
  13.  
  14.     DoCmd.Hourglass True
  15.     Set db = CurrentDb()
  16.    Select Case IDKategorije
  17.        Case 0
  18.         Set Pr = New C_Progres
  19.         Pr.SkalaDo = 8
  20.         DoCmd.OpenQuery "kStroj-grupa 00 append", acNormal, acEdit
  21.         a = Pr.StartP
  22.         DoCmd.OpenQuery "kStroj-grupa 01 append", acNormal, acEdit
  23.         a = Pr.StartP
  24.         DoCmd.OpenQuery "kStroj-grupa 02 append", acNormal, acEdit
  25.         a = Pr.StartP
  26.         DoCmd.OpenQuery "kStroj-grupa 03 append", acNormal, acEdit
  27.         a = Pr.StartP
  28.         DoCmd.OpenQuery "kStroj-grupa 04 append", acNormal, acEdit
  29.         a = Pr.StartP
  30.         DoCmd.OpenQuery "kStroj-grupa 05 append", acNormal, acEdit
  31.         a = Pr.StartP
  32.         DoCmd.OpenQuery "kStroj-grupa 06 append", acNormal, acEdit
  33.         a = Pr.StartP
  34.         DoCmd.OpenQuery "kStroj-grupa 07 append", acNormal, acEdit
  35.         a = Pr.StartP
  36.        Case 1
  37.         Set Pr = New C_Progres
  38.         Pr.SkalaDo = 8
  39.         DoCmd.OpenQuery "st10-Shema-Stroj-Sklop-Podsklop-Cvor", acNormal, acEdit
  40.         a = Pr.StartP
  41.         DoCmd.OpenQuery "st11-Shema-Stroj-Sklop-Podsklop", acNormal, acEdit
  42.         a = Pr.StartP
  43.         DoCmd.OpenQuery "st12-Shema-Stroj-Sklop-Cvor", acNormal, acEdit
  44.         a = Pr.StartP
  45.         DoCmd.OpenQuery "st13-Shema-Stroj-Sklop", acNormal, acEdit
  46.         a = Pr.StartP
  47.         DoCmd.OpenQuery "st14-Shema-Stroj-Podsklop-Cvor", acNormal, acEdit
  48.         a = Pr.StartP
  49.         DoCmd.OpenQuery "st15-Shema-Stroj-Podsklop", acNormal, acEdit
  50.         a = Pr.StartP
  51.         DoCmd.OpenQuery "st16-Shema-Stroj-Cvor", acNormal, acEdit
  52.         a = Pr.StartP
  53.         DoCmd.OpenQuery "st17-Shema-Stroj", acNormal, acEdit
  54.         a = Pr.StartP
  55.        Case 2
  56.         Set Pr = New C_Progres
  57.         Pr.SkalaDo = 4
  58.         DoCmd.OpenQuery "sk300-Shema-Sklop-Podsklop-Cvor", acNormal, acEdit
  59.         a = Pr.StartP
  60.         DoCmd.OpenQuery "sk301-Shema-Sklop-Podsklop", acNormal, acEdit
  61.         a = Pr.StartP
  62.         DoCmd.OpenQuery "sk302-Shema-Sklop-Cvor", acNormal, acEdit
  63.         a = Pr.StartP
  64.         DoCmd.OpenQuery "sk303-Shema-Sklop", acNormal, acEdit
  65.         a = Pr.StartP
  66.        Case 3
  67.         Set Pr = New C_Progres
  68.         Pr.SkalaDo = 2
  69.         DoCmd.OpenQuery "ps500-Shema-Podsklop-Cvor", acNormal, acEdit
  70.         a = Pr.StartP
  71.         DoCmd.OpenQuery "ps501-Shema-Podsklop", acNormal, acEdit
  72.        Case 4
  73.         DoCmd.OpenQuery "cv700-Shema-Cvor", acNormal, acEdit
  74.         a = Pr.StartP
  75.     End Select
  76.    DoCmd.Hourglass False
  77.     Set db = CurrentDb()
  78.     Set Sl_Table1 = db.OpenRecordset("QryShema", dbOpenDynaset)
  79.     If Sl_Table1.RecordCount <= 0 Then
  80.            MsgBox "Å ema za ovu tehnoloÅ¡ku cijelinu nije složena", vbInformation, "Informacija"
  81.         GoTo Kraj
  82.     Else
  83.             '--------------------------'
  84.      Slozi ' Poziva se funkcija SLOZI '
  85.            '--------------------------'
  86.    End If
  87. Kraj:
  88.     Set db = Nothing
  89. End Function

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 13.03.2014 19:17
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Progress bar
Odlično je.
Hvala Å¡to si me naučio neÅ¡to novo. Aplikacija izgleda bolje kada progres bar ili indikator napredovanja neÅ¡to radi pa se vidi koliko joÅ¡ treba do kraja neke radnje. Nego onako kada samo čekaÅ¡, a neznaÅ¡ Å¡ta se deÅ¡ava.
Pozdrav
↑  ↓

#15 13.03.2014 19:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Progress bar
Ma nije ovo bas neko zahvalno rjesenje ali eto kada se krpi onda mozda i dobro dodje.
U novoj verziji uradi sve kodom hehehe.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 13.03.2014 19:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Progress bar
Zaboravih napomenuti.
Ovu klasu progres bara mozes koristiti bilo gjde.
Vjerujem da sad i znas kako je koristiti.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 13.03.2014 19:55
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Progress bar
Primjetio sam to. Ovu moju funkciju Shema pozivam sa više mjesta i sada svagdje progres bar radi.
Pozdrav
↑  ↓

Stranice (2):1,2

Srodne teme


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