experymenty

funkcja zmieniająca właściwość SubdatasheetName tabel lokalnych z [Auto] na [None] co znacznie przyspiesza pracę z nimi...

Public Function SubDatasheetName_Auto2None()
On Error Resume Next
Dim tbl As TableDef, strName As String, prp As Property, i As Integer, isSubDSN As Boolean

i = 0
SysCmd acSysCmdInitMeter, "Changing SubDataSheet Names to [None]...", _
CurrentDb.TableDefs.Count
For Each tbl In CurrentDb.TableDefs
i = i + 1
If Not Left(tbl.Name, 4) = "MSys" And tbl.RecordCount <> -1 Then 'sprawdza tylko tablice NIESYSTEMOWE i NIE LINKOWANE (linkowane mają RecordCount = -1)
isSubDSN = False
For Each prp In tbl.Properties
If prp.Name = "SubDataSheetName" Then isSubDSN = True
Next prp
If Not isSubDSN Then
Set prp = tbl.CreateProperty("SubDataSheetName", dbText, "[None]")
tbl.Properties.Append prp
tbl.Properties.Refresh
End If
End If
SysCmd acSysCmdUpdateMeter, i
Next tbl
SysCmd acSysCmdRemoveMeter
End Function