{"id":2076,"date":"2013-11-11T23:16:21","date_gmt":"2013-11-11T21:16:21","guid":{"rendered":"http:\/\/www.ramses.de\/?p=2076"},"modified":"2013-11-11T23:16:21","modified_gmt":"2013-11-11T21:16:21","slug":"faq-access-neue-felder-per-vba-anlegen","status":"publish","type":"post","link":"https:\/\/www.ramses.de\/?p=2076","title":{"rendered":"FAQ Access – Neue Felder per VBA anlegen"},"content":{"rendered":"
\n

Access VBA – Neue Felder per VBA anlegen<\/h1>\n<\/div>\n
\n

Problem <\/strong><\/h2>\n

Sie m\u00f6chten per VBA ein Feld neu anlegen, d.h. Sie wollen bzw. k\u00f6nnen nicht in die Entwurfsansicht einer Tabelle gehen, da sich die Tabelle „au\u00dfer Reichweite“ beim Kunden befindet?<\/p>\n

L\u00f6sung <\/strong><\/h2>\n

Nutzen Sie die CreateField Methode<\/p>\n

Function NeuesFeld()<\/pre>\n
On Error Resume Next<\/pre>\n
 'dbBigInt Big Integer-Daten (nur ODBCDirect)<\/pre>\n
 'dbBinary Bin\u00e4rdaten<\/pre>\n
 'dbBoolean Boolesche Daten (True\/False)<\/pre>\n
 'dbByte Byte-Daten (8-Bit)<\/pre>\n
 'dbChar Zeichensatzdaten (nur ODBCDirect)<\/pre>\n
 'dbCurrency W\u00e4hrungsdaten<\/pre>\n
 'dbDate Datumswerte<\/pre>\n
 'dbDecimal Dezimaldaten (nur ODBCDirect)<\/pre>\n
 'dbDouble Flie\u00dfkommadaten mit doppelter Genauigkeit<\/pre>\n
 'dbFloat Flie\u00dfkommadaten (nur ODBCDirect)<\/pre>\n
 'dbGUID Guid - Daten<\/pre>\n
 'dbInteger Integer-Daten<\/pre>\n
 'dbLong Long Integer-Daten<\/pre>\n
 'dbLongBinary Bin\u00e4rdaten(Bitmap)<\/pre>\n
 'dbMemo Memo-Daten (erweiterter Text)<\/pre>\n
 'dbNumeric Numerische Daten (nur ODBCDirect)<\/pre>\n
 'dbSingle Flie\u00dfkommadaten mit einfacher Genauigkeit<\/pre>\n
 'dbText Textdaten (variable L\u00e4nge)<\/pre>\n
 'dbTime Daten im Zeitformat (nur ODBCDirect)<\/pre>\n
 'dbTimeStamp Daten in Zeit- und Datumsformat (nur ODBCDirect)<\/pre>\n
 'dbVarBinary Variable Bin\u00e4rdaten (nur ODBCDirect)<\/pre>\n
 Dim wsp As Workspace<\/pre>\n
 Dim db As Database<\/pre>\n
 Dim vTabelle As TableDef, fld1 As Field ' Verweis auf aktuelle Datenbank holen.<\/pre>\n
 Set wsp = DBEngine.Workspaces(0)<\/pre>\n
 Set db = wsp.OpenDatabase(DATENMDB) ' Erstellen einer neuen Tabelle mit zwei Feldern.<\/pre>\n
 Set vTabelle = db.TableDefs!TBAUFTRAEGE<\/pre>\n
 Set fld1 = vTabelle.CreateField(\"ATMITTELBINDUNG\", dbText, 255)<\/pre>\n
 Call SetFieldProperty(\"TBAUFTRAEGE\", \"ATMITTELBINDUNG\", \"Description\", \"TBAUFTRAEGE - ATMITTELBINDUNG\")<\/pre>\n
 Call SetFieldProperty(\"TBAUFTRAEGE\", \"ATMITTELBINDUNG\", \"Caption\", \"MIttelbindungsnummer\")<\/pre>\n
 ' Felder anf\u00fcgen.<\/pre>\n
 vTabelle.Fields.Append fld1<\/pre>\n
 MsgBox \"Die neuen Felder wurde erfolgreich angelegt\", , MSGBOXTITEL<\/pre>\n
 End Function<\/pre>\n
 Public Function SetFieldProperty(TblName, FldName, Optional PrpName, Optional PrpVal, Optional PrpType)<\/pre>\n
 On Error Resume Next<\/pre>\n
 Dim db As Database, Tbl As DAO.TableDef, Fld As DAO.Field, Prp As DAO.Property<\/pre>\n
 'Aufruf der Funktion zum Setzten einer Eigenschaft : SetFieldProperty \"MeineTabelle\",\"MeinFeld\",\"Format\",\"Currency\"<\/pre>\n
 'Aufruf der Funktion zum L\u00f6schen einer Eigenschaft :SetFieldProperty \"MeineTabelle\",\"Feld1\",\"Description\",\"\"<\/pre>\n
 Set db = CurrentDb<\/pre>\n
 Set Tbl = db.TableDefs(TblName)<\/pre>\n
 Set Fld = Tbl.Fields(FldName)<\/pre>\n
 On Error Resume Next<\/pre>\n
 If PrpVal = \"\" Then ' remove property<\/pre>\n
 Fld.Properties.Delete PrpName<\/pre>\n
 Else<\/pre>\n
 Fld.Properties(PrpName) = PrpVal<\/pre>\n
 If err.Number = 3270 Then ' property not yet defined<\/pre>\n
 On Error GoTo 0<\/pre>\n
 Set Prp = Fld.CreateProperty(PrpName, PrpType, PrpVal)<\/pre>\n
 Fld.Properties.Append Prp<\/pre>\n
 Else<\/pre>\n
 MsgBox err.Description<\/pre>\n
 End If<\/pre>\n
 End If<\/pre>\n
 End Function<\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Access VBA – Neue Felder per VBA anlegen Problem Sie m\u00f6chten per VBA ein Feld neu anlegen, d.h. Sie wollen bzw. k\u00f6nnen nicht in die … Weiterlesen …<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[47,43],"tags":[58,82],"class_list":["post-2076","post","type-post","status-publish","format-standard","hentry","category-access","category-faq","tag-access-2010","tag-beziehungen"],"_links":{"self":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2076","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2076"}],"version-history":[{"count":1,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2076\/revisions"}],"predecessor-version":[{"id":2077,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/2076\/revisions\/2077"}],"wp:attachment":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2076"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2076"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2076"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}