title image


Smiley Re: Wie kann ich das Feldformat mit VBA ändern?
Mal abgesehen davon, dass ich das Währungszeichen nicht fest in das Format einbauen würde - es reicht nicht, das Feldformat nur in der Tabelle zu ändern - was z.B. so geht:



Public Function EditAllTabledefs()

Dim Tmp, DB As Database, Tbl As TableDef, Fld As Field

Set DB = CurrentDb

For Each Tbl In DB.TableDefs

Debug.Print Tbl.Name

For Each Fld In Tbl.Fields

Tmp = ""

On Error Resume Next

Tmp = Fld.Properties("Format").Value

On Error GoTo 0

If InStr(Tmp, "DM") Then Fld.Properties("Format").Value = Replace(Tmp, "DM", "€")

Next Fld

Next Tbl

End Function



du musst es auch an allen nachgeordneten Stellen ändern (Abfragen, Formularen, Berichten):



Public Function EditAllForms()

Dim DB As Database, Cont As Container, Doc As Document

Set DB = CurrentDb()

Set Cont = DB.Containers("Forms")

For Each Doc In Cont.Documents

Debug.Print Doc.Name

EditForm Doc.Name

Next Doc

End Function



Public Function EditForm(FrmName)

Dim Frm As Form, Ctl As Control, I, J, K, Tmp, Changed As Boolean



DoCmd.OpenForm FrmName, acDesign

Set Frm = Forms(FrmName)

Changed = False

For Each Ctl In Frm.Controls

Tmp = ""

On Error Resume Next

Tmp = Ctl.Format

On Error GoTo 0

If InStr(Tmp, "DM") > 0 Then

Ctl.Format = Replace(Tmp, "DM", "€")

Changed = True

End If

Next Ctl

If Changed Then

DoCmd.Close acForm, FrmName, acSaveYes

Else

DoCmd.Close acForm, FrmName, acSaveNo

End If

End Function



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: