miro35 07.01.2012 10:54
Predmet:Linkovanje na bazu preko mreže

Imam neke aplikacije koje rade preko mreže.Kod otvaranja nove godine moja aplikacija kreira bazu 2011.Imam u kodu jedan dio koji pronađe koja je putanja do te baze.Ja imam lokalno ovaj kod:
Me.BazaLink = (CurrentProject.path)
E kako ovu putanju dobiti za mrežu
Znači da mi nađe i upiÅ¡e u polje u formi putanju do baze koja je namrežnom računalu:
Me.BazaLink = ?

zxz 07.01.2012 11:21
Predmet:Re: Linkovanje na bazu preko mreže

Evo ovo vazi samo ako su tabele linkovane na jednu bazu.
Ako imas link na vise baza jednovremeno onda imas i vise putanja pa bi kod bio malo drugaciji.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function PutanjaLInka()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5.  
  6. SQL = "SELECT TOP 1 Database FROM MSysObjects " _
  7. & "WHERE Database Is Not Null"
  8.  
  9. Set Db = CurrentDb
  10.  
  11. Set Rs = Db.OpenRecordset(SQL)
  12. If Rs.RecordCount > 0 Then
  13. PutanjaLInka = Rs.Fields(0)
  14. Else
  15. MsgBox "Nema linkovanih tabela"
  16. End If
  17. End Function

zxz 07.01.2012 15:19
Predmet:Re: Linkovanje na bazu preko mreže

Me.BazaLink = PutanjaLInka