Eingabe Format eines Datenbank-Feldes ändern

  • Access

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    Eingabe Format eines Datenbank-Feldes ändern

    Ich habe das Problem, dass ich per Code ein Feld in einer Access Datenbank erstellen möchte. Das Feld soll ein spezielles Eingabeformat haben.

    Die Erstellung des Feldes mache ich so. Wie komme ich dann das Eingabeformat?

    Visual Basic-Quellcode

    1. ​ Dim db As DAO.Database
    2. Dim fld As DAO.Field
    3. Dim prp As DAO.Property
    4. Dim Tbl As DAO.TableDef
    7. Set db = CurrentDB
    9. Set Tbl = db.TableDefs("Bank")
    11. With Tbl
    12. Set fld = Tbl.CreateField("IBAN", dbText, 36))
    13. .Fields.Append fld
    14. End With


    Das Eingabeformat soll so aussehen:
    >LL00\ 0000\ 0099\ 9999\ 9999\ 9999\ 9999\ 9999\ 9999;0;_
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Boah, ist VBA hässlich. Dank mir später :D
    Wichtig ist, das Feld erst der Tabelle hinzuzufügen und anschließend die Eigenschaft zu setzen.

    Visual Basic-Quellcode

    1. ​ Set currentTable = db.TableDefs("Bank")
    2. Set newField = currentTable.CreateField("IBAN", dbText, 36)
    4. currentTable.Fields.Append newField
    5. currentTable.Fields.Refresh
    7. Dim inputMaskProperty As DAO.Property
    8. Set inputMaskProperty = db.CreateProperty("InputMask", 10, ">LL00\ 0000\ 0099\ 9999\ 9999\ 9999\ 9999\ 9999\ 9999;0;_")
    10. newField.Properties.Append inputMaskProperty