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