iCentar » Forum » Racunari i oprema » Programirannje i baze podataka » Access

#1

11.03.2014 19:34

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Progress bar

Pri kraju proÅ¡le teme (Relink sa viÅ¡e kompjutera) ZXZ mi je pomogao da napravim progress bar koji radi za vrijeme dok funkcija relinkovanja odradi svoje. To radi savrÅ¡eno i čini aplikaciju profesionalnijom.
U svojoj aplikaciji imama joÅ¡ jedan kompleksniji kod koji radi relativno dugo pa me zanima dali bi se i ovdje mogao ubaciti progres bar.
Prvo sd dugmetom na formi pokreće Private Sub C_Slozi_Click():

PreuzmiIzvorni kôd (vbnet):

Private Sub C_Slozi_Click()
On Error GoTo Err_C_Slozi_Click
Dim Baza As Database
Dim Sl_ULAZNA As Recordset
Dim Sl_Zavrsna As Recordset
Dim Sl_Duplikati As Recordset
Dim Sl_Pretrage As Recordset
Dim Sl_Trebovnica As Recordset
Dim Usl_Pretrage As String, Nalog As String, Serija As String
Dim NalogSerija As String, Provjera As String, uBroj As String, Zadani As Long
'--------------------------------------------------
CurrentDb.Execute "DELETE*FROM [Trebovnica]"
CurrentDb.Execute "DELETE*FROM [ZbirnikKonacni]"
DoCmd.Hourglass True
' -----------------------------------------------------------
Shema 'Poziva se Funkcija SHEMA
'------------------------------------------------------------
DoCmd.OpenQuery "ZbirnikQryApp", acNormal, acEdit 'Kopiranje iz ZbirnikQry u tablicu ZbirnikKonacni
DoCmd.OpenQuery "ZbirnikPNDQryApp", acNormal, acEdit 'Kopiranje iz ZbirnikPNDQry u tablicu ZbirnikKonacni
DoCmd.OpenQuery "ZbirnikStrojPNDQryApp", acNormal, acEdit
If IsNull([txtBrPrveTrebovnice]) Or [txtBrPrveTrebovnice] = 0 Then
MsgBox "Morate upisati po etni broj izdatnice", vbCritical, "Nedostaju podaci"
Me![txtBrPrveTrebovnice].SetFocus
GoTo Kraj
End If
Zadani = Me.txtBrPrveTrebovnice
DoCmd.OpenQuery "Izdatnica", acViewNormal, acEdit 'Kopiranje iz tablica ZbirnikKonacni+Proces u tablicu Trebovnica
Set Baza = CurrentDb()
Set Sl_Trebovnica = Baza.OpenRecordset("Trebovnica", dbOpenDynaset)
'------------------------------------------------------
' Upisivanje brojeva trebovnice u tablicu Trebovnica
'------------------------------------------------------
If Sl_Trebovnica.RecordCount > 0 Then
Sl_Trebovnica.MoveFirst
While Not Sl_Trebovnica.EOF
With Sl_Trebovnica
.Edit
![BrIzdatnice] = Zadani
.Update
End With
Zadani = Zadani + 1
Sl_Trebovnica.MoveNext
Wend
Else
GoTo Kraj
End If
If MsgBox("Å½eliÅ¡ li arhivirati nalog", vbYesNo, "Gotov sam!") = vbYes Then 'POCETAK KOPIRANJA NALOGA
CurrentDb.Execute "DELETE*FROM DuplikatiNlg"
Set Baza = CurrentDb()
Set Sl_Zavrsna = Baza.OpenRecordset("ArhivaNalog", dbOpenDynaset)
Set Sl_ULAZNA = Baza.OpenRecordset("QryPrvaStrana", dbOpenDynaset)
Set Sl_Duplikati = Baza.OpenRecordset("DuplikatiNlg", dbOpenDynaset)
Nalog = Forms![PitaIzdatnicu].[RadniNalog]
Serija = Forms![PitaIzdatnicu].[Serija]
NalogSerija = Nalog & "/" & Serija
If Forms![PitaIzdatnicu].[Gotovo] = True Then
MsgBox "Ovaj nalog je ve lansiran", vbOKOnly
GoTo Kraj
End If
If Sl_ULAZNA.RecordCount > 0 Then
While Not Sl_ULAZNA.EOF
Provjera = Forms![PitaIzdatnicu].[NalogID] & Sl_ULAZNA![IDdijela]
uBroj = Provjera
Usl_Pretrage = ("SELECT * FROM ArhivaNalog WHERE NalogID & IDDijela ='" & uBroj & "'")
Set Sl_Pretrage = Baza.OpenRecordset(Usl_Pretrage, dbOpenDynaset)
If Sl_Pretrage.RecordCount = 0 Then
With Sl_Zavrsna
.AddNew
![NalogID] = Forms![PitaIzdatnicu].[NalogID]
![Nalog] = NalogSerija
![IDStroja] = Sl_ULAZNA![IDStroja]
![BrojStroja] = Sl_ULAZNA![BrojStroja]
![NazivStr] = Sl_ULAZNA![NazivStr]
![NivoB] = Sl_ULAZNA![Nivo]
![IDdijela] = Sl_ULAZNA![IDdijela]
![Kom] = Sl_ULAZNA![SumOfBrKomadaSum]
![ZaIzraditi] = Forms![PitaIzdatnicu].[KOMADA] * Sl_ULAZNA![SumOfBrKomadaSum]
.Update
End With
Else
With Sl_Duplikati
.AddNew
![NalogID] = Forms![PitaIzdatnicu].[NalogID]
![Nalog] = NalogSerija
![IDStroja] = Sl_ULAZNA![IDStroja]
![BrojStroja] = Sl_ULAZNA![BrojStroja]
![NazivStr] = Sl_ULAZNA![NazivStr]
![IDdijela] = Sl_ULAZNA![IDdijela]
![Kom] = Sl_ULAZNA![SumOfBrKomadaSum]
![ZaIzraditi] = Forms![PitaIzdatnicu].[KOMADA] * Sl_ULAZNA![SumOfBrKomadaSum]
.Update
End With
End If
Sl_ULAZNA.MoveNext
Wend
End If
' -----------------------------------------------------------
VrijednostNaloga ' Poziva se funkcije zaupis vrijednosti naloga
' -----------------------------------------------------------
If Sl_Duplikati.RecordCount > 0 Then
If MsgBox("Podaci za ovaj nalog ve su arhivirani. Å½elite li ih pogledati", vbYesNo, "Dupli podaci!") = vbYes Then
DoCmd.OpenForm "frmArhivaNlg", acFormDS, , , acFormPropertySettings, acWindowNormal
DoCmd.OpenForm "frmDuplikatiNlg", acFormDS, , , acFormPropertySettings, acWindowNormal
Else
Me.Undo
End If
End If
Else
' -----------------------------------------------------------
VrijednostNaloga ' Poziva se funkcije zaupis vrijednosti naloga
' -----------------------------------------------------------
Exit Sub
End If
Kraj:
Set Baza = Nothing
Exit_C_Slozi_Click:
Exit Sub
Err_C_Slozi_Click:
MsgBox err.Description
Resume Exit_C_Slozi_Click
End Sub

Pozdrav

#2

11.03.2014 19:34

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Progress bar

Iz ove procedure poziva se opet funkcija Shema()

PreuzmiIzvorni kôd (vbnet):

Function Shema()
Dim db As DAO.Database
Dim Sl_Table1 As DAO.Recordset
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim Uslov As String
'Uslov = Form_PitaIzdatnicu.IDPoz
CurrentDb.Execute "DELETE*FROM [Shema]"
CurrentDb.Execute "DELETE*FROM [ShemaTransfer]"
DoCmd.Hourglass True
Set db = CurrentDb()
Select Case IDKategorije
Case 0
DoCmd.OpenQuery "kStroj-grupa 00 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 01 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 02 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 03 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 04 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 05 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 06 append", acNormal, acEdit
DoCmd.OpenQuery "kStroj-grupa 07 append", acNormal, acEdit
Case 1
DoCmd.OpenQuery "st10-Shema-Stroj-Sklop-Podsklop-Cvor", acNormal, acEdit
DoCmd.OpenQuery "st11-Shema-Stroj-Sklop-Podsklop", acNormal, acEdit
DoCmd.OpenQuery "st12-Shema-Stroj-Sklop-Cvor", acNormal, acEdit
DoCmd.OpenQuery "st13-Shema-Stroj-Sklop", acNormal, acEdit
DoCmd.OpenQuery "st14-Shema-Stroj-Podsklop-Cvor", acNormal, acEdit
DoCmd.OpenQuery "st15-Shema-Stroj-Podsklop", acNormal, acEdit
DoCmd.OpenQuery "st16-Shema-Stroj-Cvor", acNormal, acEdit
DoCmd.OpenQuery "st17-Shema-Stroj", acNormal, acEdit
Case 2
DoCmd.OpenQuery "sk300-Shema-Sklop-Podsklop-Cvor", acNormal, acEdit
DoCmd.OpenQuery "sk301-Shema-Sklop-Podsklop", acNormal, acEdit
DoCmd.OpenQuery "sk302-Shema-Sklop-Cvor", acNormal, acEdit
DoCmd.OpenQuery "sk303-Shema-Sklop", acNormal, acEdit
Case 3
DoCmd.OpenQuery "ps500-Shema-Podsklop-Cvor", acNormal, acEdit
DoCmd.OpenQuery "ps501-Shema-Podsklop", acNormal, acEdit
Case 4
DoCmd.OpenQuery "cv700-Shema-Cvor", acNormal, acEdit
End Select
DoCmd.Hourglass False
Set db = CurrentDb()
Set Sl_Table1 = db.OpenRecordset("QryShema", dbOpenDynaset)
If Sl_Table1.RecordCount <= 0 Then
MsgBox "Å ema za ovu tehnoloÅ¡ku cijelinu nije sloÅ¾ena", vbInformation, "Informacija"
GoTo Kraj
Else
'--------------------------'
Slozi ' Poziva se funkcija SLOZI '
'--------------------------'
End If
Kraj:
Set db = Nothing
End Function

Pa onda opet Funkcija Slozi()

PreuzmiIzvorni kôd (vbnet):

Function Slozi()
Dim Baza As Database
Dim Sl_Table1 As Recordset
Dim Sl_Table2 As Recordset
Dim Usl_Poz As String
Dim Sl_Poz As Recordset
Dim Stroj As String
Dim Sklop As String
Dim Podsklop As String
Dim Cvor As String
Dim tekuciStroj As String
Dim tekuciSklop As String
Dim tekuciPodsklop As String
Dim tekuciCvor As String
Dim stDocName As String
DoCmd.Hourglass True
tekuciStroj = " "
tekuciSklop = " "
tekuciPodsklop = " "
tekuciCvor = " "
Set Baza = CurrentDb()
Set Sl_Table2 = Baza.OpenRecordset("ShemaTransfer", dbOpenDynaset)
Set Sl_Table1 = Baza.OpenRecordset("QryShema", dbOpenDynaset)
Sl_Table1.MoveFirst
While Not Sl_Table1.EOF
Stroj = Sl_Table1![IDStr]
If Not IsNull(Sl_Table1![IDSkl]) Then
Sklop = Sl_Table1![IDSkl]
End If
If Not IsNull(Sl_Table1![IDPskl]) Then
Podsklop = Sl_Table1![IDPskl]
End If
If Not IsNull(Sl_Table1![IDCv]) Then
Cvor = Sl_Table1![IDCv]
End If
If Sl_Table1![IDStr] <> tekuciStroj Then
With Sl_Table2
.AddNew
![IDStroja] = Sl_Table1![IDKombinacija]
![Nivo] = 0
![KomStr] = Sl_Table1![KomStr]
![Index] = Sl_Table1![IndexStroj]
![IDdijela] = Sl_Table1![IDStr]
![BrKomada] = Sl_Table1![KomStr]
![BrKomadaSum] = Sl_Table1![KomStr]
.Update
End With
End If
If Sl_Table1![IDSkl] <> tekuciSklop Then
' dodaje slog za Sklop
With Sl_Table2
.AddNew
![IDStroja] = Sl_Table1![IDKombinacija]
![Nivo] = 1
![KomStr] = Sl_Table1![KomStr]
![Index] = Sl_Table1![IndexSklop]
![IDdijela] = Sl_Table1![IDSkl]
![BrKomada] = Sl_Table1![KomSkl]
![BrKomadaSum] = Sl_Table1![KomSkl] * Sl_Table1![KomStr]
.Update
End With
End If
If Not IsNull(Sl_Table1![IDPskl]) And Sl_Table1![IDPskl] <> tekuciPodsklop Then
' dodaje slog za Podsklop
With Sl_Table2
.AddNew
![IDStroja] = Sl_Table1![IDKombinacija]
![Nivo] = 2
![KomStr] = Sl_Table1![KomStr]
![Index] = Sl_Table1![IndexPodsklop]
![IDdijela] = Sl_Table1![IDPskl]
![BrKomada] = Sl_Table1![KomPskl]
![BrKomadaSum] = Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]
.Update
End With
End If
If Not IsNull(Sl_Table1![IDCv]) And Sl_Table1![IDCv] <> tekuciCvor Then
' dodaje slog za Cvor
With Sl_Table2
.AddNew
![IDStroja] = Sl_Table1![IDKombinacija]
![Nivo] = 3
![KomStr] = Sl_Table1![KomStr]
![Index] = Sl_Table1![IndexCvor]
![IDdijela] = Sl_Table1![IDCv]
![BrKomada] = Sl_Table1![KomCv]
![BrKomadaSum] = Sl_Table1![KomCv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]
.Update
End With
Usl_Poz = "SELECT * FROM [QryShema] WHERE IDStr ='" & Stroj _
& "' And IDSkl ='" & Sklop _
& "' And IDPskl ='" & Podsklop _
& "' And IDcv ='" & Cvor & "'"
Set Sl_Poz = Baza.OpenRecordset(Usl_Poz, dbOpenDynaset)
If Sl_Poz.RecordCount > 0 Then
Sl_Poz.MoveFirst
While Not Sl_Poz.EOF ' dodaje slogove za Pozicije
With Sl_Table2
If Not IsNull(Sl_Table1![IDPoz]) Then
.AddNew
![IDStroja] = Sl_Table1![IDKombinacija]
![Nivo] = 4
![KomStr] = Sl_Table1![KomStr]
![Index] = Sl_Table1![IndexPoz]
![IDdijela] = Sl_Poz![IDPoz]
![BrKomada] = Sl_Poz![KomPoz]
![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![KomCv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]
.Update
End If
End With
Sl_Poz.MoveNext
Wend
End If
End If
tekuciStroj = Stroj
tekuciSklop = Sklop
tekuciPodsklop = Podsklop
tekuciCvor = Cvor
Sl_Table1.MoveNext
Wend
DoCmd.Hourglass False
End Function

Malo podugačko sve.

Pozdrav

#3

11.03.2014 20:27

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,712

Predmet:Re: Progress bar

Prvo sto bi trebalo napraviti je formu koja bi sadrzavala samo onaj tvoj activx progres bara tako da bi se mogla pozivati kroz ove procedure.
tesko bi to bilo i cak neprecizno dosta kada bi se napravilo u jednom zahvatu medjutim u vise zahvata i sa mozda obrazlozenjem sta comp. obradjuje bi bilo mnogo bolje.
Unaci bilo ib napr:
brisanje podataka pa progres od 0-do kraja, ako se pokaaze da oo traje neki vremenski period duzi od desetine sec.

Pokretanje Upita i to ako radi nesto duze ali treba provjeriti.
Procedura slozi odnosno slaganje koja sigurno traje nesto duze i opet od 0 do neke vrijednosti.
Upisivanje brojeva trebovnice u tablicu Trebovnica opet od 0- do neke vrijednosti

I na kraju opva tabela ulazna i unos u nju.

Naravno dobro bi bilo prvo provjeriti svaki od ovih segmenata koliko traje da bi se ovo napravilo sto korektnije.

Nocas nemam vremena ali za par dana cu to pokusati napraviti.
Bilo boi dobro kada bi to mogao i probati kako sada trenutno radi ili da mi bar ti opises koliko koji segmen traje.

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

#4

12.03.2014 11:19

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Progress bar

Na početku se prazne tablice sa privremenim podacima. To traje kratko i zanemarivo je.

CurrentDb.Execute "DELETE*FROM [Trebovnica]"
CurrentDb.Execute "DELETE*FROM [ZbirnikKonacni]"
CurrentDb.Execute "DELETE*FROM [Shema]"
CurrentDb.Execute "DELETE*FROM [ShemaTransfer]"

Zatim se prelazi na funkciju Shema() kojom s e pokreću Append Quary-i koji pune tablicu Shema. Query izgleda otprilike ovako:

PreuzmiIzvorni kôd (SQL):

INSERT INTO Shema ( IDKombinacija,IndexStroj,IDStr,KomStr,IndexSklop,IDSkl,KomSkl,IndexPodsklop,IDPskl,KomPskl,IndexCvor,IDv,Komv )
SELECT [00-Stroj-Sklop-Podsklop-vor].IDStr, [00-Stroj-Sklop-Podsklop-vor].IndexSklop, [00-Stroj-Sklop-Podsklop-vor].IDSkl, [00-Stroj-Sklop-Podsklop-vor].KomSkl, [00-Stroj-Sklop-Podsklop-vor].IndexPodsklop, [00-Stroj-Sklop-Podsklop-vor].IDPskl, [00-Stroj-Sklop-Podsklop-vor].KomPskl, [00-Stroj-Sklop-Podsklop-vor].IndexCvor, [00-Stroj-Sklop-Podsklop-vor].IDv, [00-Stroj-Sklop-Podsklop-vor].Komv, [00-Stroj-Sklop-Podsklop-vor].IndexPoz, [00-Stroj-Sklop-Podsklop-vor].IDPoz, [00-Stroj-Sklop-Podsklop-vor].KomPoz
FROM [00-Stroj-Sklop-Podsklop-vor];

Trajanje ovisi o Select case IDkategorije, o veličini sheme i o opterećenosti mreÅ¾e prema serveru., a traje oko 10 sekundi zajedno sa funkcijom Slozi()

Pozdrav

#5

12.03.2014 14:27

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Progress bar

Evo napravio sam neki primjer, samo gdje to staviti kod mene?

Prilozi:

ProgressBar.rar
Preuzimanja:275
Velicina datoteke:43.40 KB

Pozdrav

#6

12.03.2014 14:27

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,712

Predmet:Re: Progress bar

Evo neki primjer kako promijeniti na tvojoj proceduri mada je to tesko bez probanja ili pak zapisa svakog koraka koliko traje.
Tvoju proceduru u modulu1 imas podvuceno gdje sta napisati.
ovu klasu C_Progres uvezi u svoju app. pa je mozes koristiti za sve procedure pa i tamo umjesto one tvoje.
tako neces morati dodavati u referencama praogres bar jer sam ja ovaj napravio na formi i forma se zove progres.
I nju isto tako treba kopirati u app.

Ako se ne snadjes morat ces kaciti primjer.

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

#7

12.03.2014 14:51

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Progress bar

Moram priznati da mi ovaj tvoj zadnji post nije jasan

Citiraj zxz:

Evo neki primjer kako promijeniti na tvojoj proceduri mada je to tesko bez probanja ili pak zapisa svakog koraka koliko traje.

Na koji primjer misliÅ¡

Citiraj zxz:

voju proceduru u modulu1 imas podvuceno gdje sta napisati.
ovu klasu C_Progres uvezi u svoju app. pa je mozes koristiti za sve procedure pa i tamo umjesto one tvoje.
tako neces morati dodavati u referencama praogres bar jer sam ja ovaj napravio na formi i forma se zove progres.

Koji modul1 i koja klaca C_Progres?

Pozdrav

#8

12.03.2014 14:55

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,712

Predmet:Re: Progress bar

Klas modul samo kopiras.
Formu samo kopiras.
U module1 imas tvoju proceduru koju su zakacio i koju sam ja samo malo izmijenio.
Gdje god sam kucao kod to sa oivicio ovako:
'---------------------------------------------
----------
neki moj kod
'---------------------------------------------
------------

sto znaci da na tvojoj orginalnoj proceduri trebas samo to promijeniti i gore navedeno prekopirati u svoju app.
formu i klas modul

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

#9

12.03.2014 16:03

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Progress bar

Po ovome mi se čini da si ti privačio neki primjer ali ja ga nigdje ne vidim!

Pozdrav

#10

12.03.2014 18:49

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,712

Predmet:Re: Progress bar

hehe tacno tako.
trebao bi biti neki primjer a ja msilo da sam ga zakacio a nisam.
Evo ga sad.
Izvinjavam se.

Prilozi:

ProgresBar.zip
Preuzimanja:292
Velicina datoteke:14.54 KB

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

Stranice (2):1,2

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

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

Srodne teme

Ko je online?

Prijavi se

Izdvojeno