Bosna i Hercegovina



#46 06.03.2014-18:43
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,747


Subject: Re: Relink sa više kompjutera
Evo za ovu proceduru relinka.
DownloadIzvorni kod (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

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 06.03.2014-18:48 od strane zxz. ↑  ↓

#47 06.03.2014-19:32
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 (4): 1, 2, 3, 4


All times are GMT +01:00. Current time: 16.10.2018-05:09.