Prikazi cijelu temu
27.02.2013 20:16
27.02.2013 20:16
Predmet:Re: Problem sa linkanom tablicom
Function IsLinked(TableName As String) As Boolean
IsLinked = Nz(DLookup("Type", "MSysObjects", _
"Name = '" & TableName & "'"), 0) <> 1
End Function
a zatim je pozovi na on loud
If IsLinked("Tvoja tabela") = True Then
MsgBox "Tabela je limkovana"
Else
MsgBox "Tabela nije linkovana"
DoCmd.Close acForm, Me.Name
End If
pozdrav
Function IsLinked(TableName As String) As Boolean
IsLinked = Nz(DLookup("Type", "MSysObjects", _
"Name = '" & TableName & "'"), 0) <> 1
End Function
a zatim je pozovi na on loud
If IsLinked("Tvoja tabela") = True Then
MsgBox "Tabela je limkovana"
Else
MsgBox "Tabela nije linkovana"
DoCmd.Close acForm, Me.Name
End If
pozdrav
Ovaj post je ureden 1
puta. Posljednja izmjena 27.02.2013 20:17 od strane Bosanec.