Centar za edukaciju-BiH


Stranice (5):1,2,3,4,5

#41 01.03.2014 09:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
Pa imas i to.
To sa upravo i doradio.
Neznam jesil podizao formu frmLinkZ na njoj imas da odaberes novu putanju i da relinkujes tabele.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#42 01.03.2014 11:49
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Nisam odmah primjetio da ima nova forma. Ovo je fantastično, najbolji relink koji sam do sada vidio.
Ipak jesi profesor.
Pozdrav
↑  ↓

#43 01.03.2014 11:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
Znam da si negdje radio i otvaranje nove godine.
I to bi trebalo biti sa te iste forme.
Sta treba?
Treba samo komandni taster za novu godinu i postaviti poziv za onaj kod od nove godine.
Ima tu jos jedan probledm kod tvog slucaja a to je sto su ti baze rastrkane po racunarima.
Inace se napravi kod za provjeru dali godina postoji ili ne pa tek onda se moze otvoriti nova godina.

U combo boxu ces imati novu godinu kada dodje jer on se puni od postojece godine pa 10 godina u nazad.
Mozes to i povecati ako hoces.
Nedostaje samo provjera svih tih baza zato sto mogu biti na bilo kojim putanjama.

Ovo bi mogao zakrpati ako napravis tabelu pa u njoj upisujes sve godine koje imas.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#44 01.03.2014 13:54
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Citiraj zxz:
Ima tu jos jedan probledm kod tvog slucaja a to je sto su ti baze rastrkane po racunarima.
Inace se napravi kod za provjeru dali godina postoji ili ne pa tek onda se može otvoriti nova godina
I meni je jasno da je to problem ali morao sam to tako napraviti iz nekih praktičnih razloga. Problem različitog radnog vremena dvije lokacije na kojem se baze koriste.

Ovo ostalo ću joÅ¡ malo bolje analizirati u ponedjeljak na poslu.
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 01.03.2014 13:55 od strane pmiroslav. ↑  ↓

#45 06.03.2014 13:40
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  ProbaLinkZXZ_1.rar
Preuzimanja:208
Velicina datoteke:55.25 KB


Pozdrav
↑  ↓

#46 06.03.2014 18:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
Evo za ovu proceduru relinka.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Relink_Godina(Putanja As String, Godina As String)
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Tdf As TableDef
  5. Dim SQL As String
  6. Dim ImeTabele As String
  7. Dim R As String
  8. Dim Link As Boolean
  9. Dim BrTabela As Integer, Brojac As Integer
  10.  
  11. Set Db = CurrentDb
  12. SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
  13. Set Rs = Db.OpenRecordset(SQL)
  14. BrTabela = Rs.RecordCount
  15. DoCmd.Hourglass True
  16. Forms![frmLinkZ]!TEMPO.Visible = True
  17. Forms![frmLinkZ]!TEMPO.min = 0
  18. Forms![frmLinkZ]!TEMPO.max = BrTabela
  19. Do While Not Rs.EOF
  20. Brojac = Brojac + 1
  21. Forms![frmLinkZ]!TEMPO.Value = Brojac
  22. ImeTabele = Rs!Name
  23. Putanja_Godina Putanja, Godina
  24. Set Tdf = Db.TableDefs(ImeTabele)
  25. Tdf.Connect = ";DATABASE=" & Putanja
  26. Err = 0
  27. On Error Resume Next
  28.     Tdf.RefreshLink
  29.         If Err <> 0 Then
  30.          MsgBox ("Ne postoji baza na putanji:" & vbCrLf & Putanja)
  31.               Exit Function
  32.         End If
  33. Rs.MoveNext
  34. Loop
  35. DoCmd.Hourglass False
  36. MsgBox "Linkovana:" & vbCr & Godina & "_ta godina"
  37. Forms![frmLinkZ]!TEMPO.Visible = False
  38.  
  39. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 06.03.2014 18:48 od strane zxz. ↑  ↓

#47 06.03.2014 19:32
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Kada ti to napraviš to izgleda tako jednostavno. Ja sam tu nešto isprobavao i nikako nije radilo kako treba.
Hvala!
Pozdrav
↑  ↓

Stranice (5):1,2,3,4,5


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 38 pm.