Rich-Text in Field

08/01/2008 - 00:52 von Michael Feyerabend | Report spam
Hallo und Gute Nacht,

WinXP und Access 2007

ich habe ich einer db in etlichen Tabellen viele Memo-Felder, deren
Eigenschaften ich von nur-Text(acTextFormatPlain) auf
Rich-Text(acTextFormatHTMLRichText) per Code Umstellen möchte.

Mit :
Set tdf = db.TableDefs(strTabName)
Set flds = tdf.Fields
For i = 1 To flds.Count
Set fd = tdf.Fields(i)
Debug.Print fd.Name
i = i + 1
Next i

durchlaufe ich die Fields-Liste.

Weiter bin ich leider nicht gekommen.
Wàre dankbar für Tips.

Grüsse
Michael
 

Lesen sie die antworten

#1 Jörg Ackermann
08/01/2008 - 06:11 | Warnen spam
Hallo,

Michael Feyerabend meinte:

Hallo und Gute Nacht,



Moin,

ich habe ich einer db in etlichen Tabellen viele Memo-Felder, deren
Eigenschaften ich von nur-Text(acTextFormatPlain) auf
Rich-Text(acTextFormatHTMLRichText) per Code Umstellen möchte.

Mit :
Set tdf = db.TableDefs(strTabName)
Set flds = tdf.Fields
For i = 1 To flds.Count
Set fd = tdf.Fields(i)
Debug.Print fd.Name
i = i + 1
Next i

durchlaufe ich die Fields-Liste.

Weiter bin ich leider nicht gekommen.
Wàre dankbar für Tips.



Versuche mal so:

Sub Test()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb()
Set tdf = db.TableDefs("Tabelle1")

For Each fld In tdf.Fields
If fld.Type = dbMemo Then
On Error GoTo Err_Prop
fld.Properties("TextFormat").Value = acTextFormatHTMLRichText
End If
Next fld

db.TableDefs.Refresh

Exit_Test:
Exit Sub
Err_Prop:

If Err = 3270 Then
fld.Properties.Append _
fld.CreateProperty("TextFormat", dbInteger, acTextFormatHTMLRichText)
Resume Next
Else
MsgBox "Error number: " & Err.Number & " - " & Err.Description
Resume Exit_Test
End If

End Sub


Gruß

Ähnliche fragen