Private Sub StoreViewPKs()
Dim TD As TableDef
Dim idx As index
Dim FD As Field
Dim RS As Recordset
Dim S As String
' DB is a global Database object, set to CurrentDB
DB.Execute "Delete * From t_LinkedViewPK"
Set RS = DB.OpenRecordset("t_LinkedViewPK")
For Each TD In DB.TableDefs
If TD.Name Like "v_*" Then
' Views must have exactly one index. If not: panic!
If TD.Indexes.Count <> 1 Then
MsgBox "View " & TD.Name & " has " & TD.Indexes.Count & " Indizes.", vbCritical
Stop
End If
Set idx = TD.Indexes(0)
' Build field list (the index may contain multiple fields)
S = ""
For Each FD In idx.Fields
If S <> "" Then S = S & ", "
S = S & FD.Name
Next FD
RS.AddNew
RS!ViewName = TD.Name
RS!IndexFields = S
RS.Update
End If
Next TD
RS.Close
End Sub
Adresi Değişen Bağlı Tabloların Adresini Güncellemek
Bu Konudaki Yorumlar |
Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 14:42
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 15:28
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 15:49
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 15:51
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 17:51
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: feraz - 20/02/2020, 21:07
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 17:52
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 20/02/2020, 18:20
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: feraz - 20/02/2020, 21:04
Cvp: Adresi Değişen Bağlı Tabloların Adresini Güncellemek - Yazar: accessman - 21/02/2020, 09:58
|
Konuyu Okuyanlar: 1 Ziyaretçi