Sub AktivnaBaza()
On Error GoTo greska
' Dim dbsCurrent As Database
' Dim tdfLinked As TableDef
Dim strPom As String
' Set dbsCurrent = CurrentDb
' Set tdfLinked = dbsCurrent.TableDefs("NALOZI")
' strPom = Parsiraj(Mid$(tdfLinked.Connect, InStr(1, tdfLinked.Connect, "knjiga_steta_baza")))
'Me.txtAktivnaBaza = strPom
strPom = CurrentDb.TableDefs("GRUPE").Connect
strPutBaz = DLookup("PUTBAZ", "PUTANJA")
If Right(strPutBaz, 1) = "\" Then
strPutBaz = Left(strPutBaz, Len(strPutBaz) - 1) ' uklanja eventualno "\" iz naziva direktorija
End If
a = Len(strPutBaz)
b = Len(strPom)
'Me.txtAktivnaBaza = Mid$(strPom, a + 17, b - a - 15)
Me.txtAktivnaBaza = Right$(strPom, 19)
'Me.txtAktivnaBaza = strPom
Exit Sub
greska:
MsgBox "greška: " & Err.Number & "," & Err.Description
End Sub
Public Function osvjezi(txtBaza As String, txtZaporka As Variant) As Boolean
On Error GoTo osvjezi_error
Dim dbsCurrent As Database
Dim tdfLinked As TableDef
Dim Ok As Variant
Set dbsCurrent = CurrentDb
Dim strPutBaz As String
strPutBaz = DLookup("PUTBAZ", "PUTANJA")
If Right(strPutBaz, 1) = "\" Then
strPutBaz = Left(strPutBaz, Len(strPutBaz) - 1) ' uklanja eventualno "\" iz naziva direktorija
End If
DoCmd.Hourglass True
For Each tdfLinked In dbsCurrent.TableDefs
If tdfLinked.Attributes = dbAttachedTable Then
Ok = SysCmd(acSysCmdSetStatus, "Povezujem tablicu: " & tdfLinked.Name)
If IsNull(txtZaporka) Or txtZaporka = "" Then
tdfLinked.Connect = ";DATABASE=" & strPutBaz & "\" & txtBaza
Else
tdfLinked.Connect = ";DATABASE=" & strPutBaz & "\" & txtBaza & ";PWD=" & txtZaporka
End If
tdfLinked.RefreshLink
End If
Next tdfLinked
Ok = SysCmd(acSysCmdSetStatus, " ")
osvjezi = True
DoCmd.Hourglass False
osvjezi_exit:
Exit Function
osvjezi_error:
DoCmd.Hourglass False
Ok = SysCmd(acSysCmdSetStatus, " ")
MsgBox "GREŠKA:" & Str(Err) & Chr$(13) & Err.Description, vbCritical, "OOPS!"
osvjezi = False
Resume osvjezi_exit
End Function