Predmet:Re: Relink sa više kompjutera
Ovo sve radi Ok i joÅ¡ jedanput hvala na pomoći, ali htio bih joÅ¡ malo 'uÅ¡minkati' aplikaciju dodavanjem progres bara koji bi radio dok se linkaju tablice. Kako ovo linkanje zna nekada trajati relativno dugo bilo bi dobro znati Å¡to se događa.
Imam neku proceduru koja pokreće Progres Bar ali problem je kako je inplementirat u ovu funkciju Relink_Godina tako da se Progres bar pokreće dok funkcija radi.
Dali je to moguće? Ja sam svaÅ¡ta isprobavao ali me ne sluÅ¡a.
PreuzmiIzvorni kôd (vbnet):Private Sub Pokreni_Click()
Dim Db As Database
Dim Rs As Recordset
Dim TablicaTekuca As Long
Dim TablicaUkupno As Long
Dim SQL As String
Set Db = CurrentDb
SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
Set Rs = Db.OpenRecordset(SQL)
TablicaUkupno = Rs.RecordCount
For TablicaTekuca = 1 To TablicaUkupno
Me![TEMPO].Value = TablicaTekuca / TablicaUkupno * 100 ' ActiveX Control
DoEvents
Next
Me![TEMPO].Value = 0
End Sub
Prilozi:
ProbaLinkZXZ_1.rar
Preuzimanja:208
Velicina datoteke:55.25 KB
Pozdrav