Prikazi cijelu temu 13.03.2014 19:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.