Kapitel 8 DAO Dim rst As DAO.Recordset2 Dim rstMehrwertfeld As DAO.Recordset2 Set db = CurrentDb Set rst = db.OpenRecordset("tblMehrwertigesFeld", dbOpenDynaset) Do While Not rst.EOF Set rstMehrwertfeld = rst.Fields("MehrwertigesFeld").Value Do While Not rstMehrwertfeld.EOF Debug.Print rstMehrwertfeld!Value rstMehrwertfeld.MoveNext Loop rst.MoveNext Loop Set db = Nothing End Sub Listing 8.53: Lesen des Inhalts mehrwertiger Felder, lange Version 8.9.12 Lesen des Inhalts mehrwertiger Felder, Variante II Genau wie bei Attachment-Feldern können Sie auch einen direkteren Weg zur Ausgabe