Wie kann ich die Access-Optionen programmgesteuert verändern? Wie kann ich die Access-Optionen in meinem Programm auslesen?

Prozedur zur Änderung einer Access-Option

Public Sub StandardFeldtypÄndern() 
   If Application.GetOption("DefaultFieldType") <> 0 Then 
      If MsgBox("Standardfeldtyp auf Text einstellen?"), _ 
         VbYesNo + vbQuestion) = vbYes Then 
         Application.SetOption "Default Field Type", 0 
       End If 
   End If 
End Sub

Zum Einstellen der Access-Optionen dient die Methode SetOption des Application-Objekts. Zum Auslesen der Optionen dient die Methode GetOption. Die Syntax der beiden Methoden lautet: