Hier finden Sie einige nützliche Beispiele aus dem Bereich DAO und Data Definiton
Language:
AllowZeroLengh: Funktion zum automatischen
Ändern der Feldeigenschaft AllowZeroLengh per Code, die von Access bei
Textfeldern leider als Default-Wert auf True gesetzt wird:
Public Function AllowZeroLenght(blnAlollowZero As Boolean) As Boolean
Dim objField As dao.Field
Dim objDB As dao.Database
Dim objTableDef As dao.TableDef
Set objDB = CurrentDb
For Each objTableDef In objDB.TableDefs
If (objTableDef.Attributes And
dbSystemObject) = 0 Then
For Each
objField In objTableDef.Fields
With objField
If .Type = dbText Then
.AllowZeroLength = blnAlollowZero
End If
End With
Next objField
End If
Next objTableDef
MsgBox "Done...", vbInformation
Set objField = Nothing
Set objTableDef = Nothing
Set objDB = Nothing
End Function
SpeedUpTables: Funktion zum Deaktivieren der automatischen Verknüpfung
zwischen zwei Tabellen:
Function SpeedUpTables() As Boolean
Dim objDB As DAO.Database
Dim objTableDef As DAO.TableDef
Set objDB = CurrentDb
For Each objTableDef In objDB.TableDefs
If (objTableDef.Attributes And dbSystemObject) = 0 Then
SetProperty objTableDef, "subdatasheetname",
"[None]", dbText
End If
Next
MsgBox "Done...", vbInformation
End Function
SetTableDesc: Funktion zum automatischen Ändern der Beschreibung von
Tabellen:
Function SetTableDesc()
Dim objDB As DAO.Database
Dim objTableDef As DAO.TableDef
Dim strInfo As String
strInfo = InputBox("Beschreibung:", , "V. 1.0.022")
If strInfo <> vbNullString Then
Set objDB = CurrentDb
For Each objTableDef In objDB.TableDefs
If (objTableDef.Attributes And dbSystemObject) = 0 Then
SetProperty objTableDef, "Description",
strInfo, dbText
End If
Next
objDB.TableDefs.Refresh
MsgBox "Done...", vbInformation
End If
End Function