Prikazi cijelu temu 06.03.2014 14:40
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Private Sub Pokreni_Click()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim TablicaTekuca As Long
  5. Dim TablicaUkupno As Long
  6. Dim SQL As String
  7. Set Db = CurrentDb
  8. SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
  9. Set Rs = Db.OpenRecordset(SQL)
  10. TablicaUkupno = Rs.RecordCount
  11. For TablicaTekuca = 1 To TablicaUkupno
  12.   Me![TEMPO].Value = TablicaTekuca / TablicaUkupno * 100 ' ActiveX Control
  13.         DoEvents
  14. Next
  15. Me![TEMPO].Value = 0
  16. End Sub


Prilozi:
ProbaLinkZXZ_1.rar
Preuzimanja:208
Velicina datoteke:55.25 KB

Pozdrav