Otvori formu u Design View režimu. Potom: Insert, ActiveX Control, Odaberi Microsoft ProgressBar Control, version 6 i klikni na OK. Imenuj je ili zadrži ime koje je dobila inicijalizacijom. Na početku koda koji izvršavaš joj daj fokus.
Me![ImeKontrole].SetFocus
Pozovi je u petlji (toj koja nešto odrađuje) sa Me![ImeKontrole].Value = neki brojač koji se povećava i kontroliše petlju.

Našao sam neki primjer i to mi radi. Ali kada to ubacim u svoj code neće.

Evo sad radi. Pregledaj kod. Nikad ne drži poruku usred petlje jer će da zaustavlja kod, osim kad tražiš grešku u kodu. Vodi računa o imenu kontrole. Ne možeš da ostaviš [ImeKontrole], a ona se zove prgBar. Brojač mora da se vrti i da procentualno izražava prirast linije.

Kod mene nažalost opet ne radi.
Kada u formi FORM 1 pokrenem dugme KOPIRAJ dobijam poruku o greški.

Run-time error 2110
MS Access can't move the focus to the control prgBar

Probaj da blokiraš red koda:
'Me![prgBar].SetFocus
Snimi, izkompajliraj i pokreni, da vidimo šta će da javi. Kod mene radi sve OK. Ne bih ti slao da nisam proverio. To je ista kontrola kao i u tvojoj formi frmProgressBar.

tako mi sada radi međutim ja bih to htio ubaciti u ovaj kod:


Private Sub Command15_Click()
Dim Baza As Database ' Deklaracije
Dim Sl_Table1 As Recordset
Dim Sl_Table2 As Recordset
Dim Sl_Trebovnica As Recordset
Dim Sl_ZbirnikKonacni As Recordset
Dim Zadani As Long
Dim Usl_Poz As String
Dim Sl_Poz As Recordset
Dim Sklop As String
Dim Podsklop As String
Dim Cvor As String
Dim tekuciSklop As String
Dim tekuciPodsklop As String
Dim tekuciCvor As String





'Dim stDocName As String

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

DoCmd.Hourglass True


DoCmd.OpenQuery "Stroj-grupa 00 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 01 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 02 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 03 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 04 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 05 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 06 append", acNormal, acEdit
DoCmd.OpenQuery "Stroj-grupa 07 append", acNormal, acEdit


DoCmd.Hourglass False
tekuciSklop = " " ' Inicijaljacije
tekuciPodsklop = " "
tekuciCvor = " "


Set Baza = CurrentDb() ' Setovanje
Set Sl_Table2 = Baza.OpenRecordset("ShemaTransfer", dbOpenDynaset) ' Tablica u koju se pohranjuju podaci
Set Sl_Table1 = Baza.OpenRecordset("QryShema", dbOpenDynaset) 'Qurey iz kojeg se uzimaju podaci

If Sl_Table1.RecordCount > 0 Then
'Sl_Table1.MoveFirst 'otidi na prvi slog Table1

While Not Sl_Table1.EOF ' vrti petlju za sve slogove
Sklop = Sl_Table1![IDSkl]
If Not IsNull(Sl_Table1![IDPskl]) Then
Podsklop = Sl_Table1![IDPskl]
End If
If Not IsNull(Sl_Table1![IDČv]) Then
Cvor = Sl_Table1![IDČv]
End If


If Sl_Table1![IDSkl] <> tekuciSklop Then ' dodaje slog za boravak u Table2

With Sl_Table2
.AddNew
![IDStroja] = Sl_Table1![IDStr]
![Nivo] = 1
![Index] = Sl_Table1![IndexSklop]
![IDDijela] = Sl_Table1![IDSkl]
![BrKomada] = Sl_Table1![KomSkl]
![BrKomadaSum] = Sl_Table1![KomSkl]
.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![IDStr]
![Nivo] = 2
![Index] = Sl_Table1![IndexPodsklop]
![IDDijela] = Sl_Table1![IDPskl]
![BrKomada] = Sl_Table1![KomPskl]
![BrKomadaSum] = Sl_Table1![KomPskl] * Sl_Table1![KomSkl]
.Update
End With
End If

If Not IsNull(Sl_Table1![IDČv]) And Sl_Table1![IDČv] <> tekuciCvor Then
' dodaje slog za Cvor
With Sl_Table2
.AddNew
![IDStroja] = Sl_Table1![IDStr]
![Nivo] = 3
![Index] = Sl_Table1![IndexCvor]
![IDDijela] = Sl_Table1![IDČv]
![BrKomada] = Sl_Table1![KomČv]
![BrKomadaSum] = Sl_Table1![KomČv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl]
.Update
End With
'End If
Usl_Poz = "SELECT * FROM [QryShema] WHERE ((([QryShema].IDSkl)= " & Sklop & ")" _
& "And (([QryShema].IDPskl)= " & Podsklop & ")" _
& "And (([QryShema].IDČv)= " & 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![IDStr]
![Nivo] = 4
![Index] = Sl_Table1![IndexPoz]
![IDDijela] = Sl_Poz![IDPoz]
![BrKomada] = Sl_Poz![KomPoz]
![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![KomČv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl]
.Update
End If
End With
Sl_Poz.MoveNext
Wend
End If
End If



tekuciSklop = Sklop
tekuciPodsklop = Podsklop
tekuciCvor = Cvor



Sl_Table1.MoveNext

Wend
Else
MsgBox "Nema podataka", vbInformation, "Obavestenje"
GoTo Kraj
End If

DoCmd.OpenQuery "ZbirnikQryApp", acNormal, acEdit
DoCmd.OpenQuery "ZbirnikPNDQryApp", acNormal, acEdit

Me![prgBar].Value = tekuciCvor / zadnji * 100
tekuciCvor = tekuciCvor + 1

MsgBox "Slaganje je izvršeno, izaberi dokument", vbInformation, "Gotov sam!"


Kraj:
Set Baza = Nothing



End Sub

Savet: Odštampaj kod koji sam doradio i obeleži sve linije koje sam dodao u tvoj početni kod i opiši ih. Posmatraj gde šta treba da primeniš u novi kod i dopiši u zavisnosti od bloka programskog koda. Moraš da shvatiš poentu na koju kontrola radi. Nemoj da si malodušan.

Bravo !

dodao sam
Dim zadnji AS Long
Dim tekuci As Long

......
...... i

SL_SL_Table1.MoveLast
zadnji = Sl_Table1.RecordCount
tekuci = 1




i nakon
End If

Me![rgBar].Value = tekuci / zadnji *100
tekuci = tekuci +1

i sada to radi

( Me![prgBar]SetFocus sam isključio. )

Jedio nšro sada progres bar radi samo dok sevrti petlja za kopiranje iz tablice u tablicu, a ne radi dok se odrađuju komande početku:

CurrentDb.Execute "DELETE*FROM [Shema]" itd..

i na kraju :

DoCmd.OpenQuery "ZbirnikQryApp", acNormal, acEdit
DoCmd.OpenQuery "ZbirnikPNDQryApp", acNormal, acEdit

A taj dio zapravo traje malo duže.