title image


Smiley Re: Access97 und der Euro
Z.B. so:



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

EditForm Doc.Name

Next

End Function



Public Function EditForm(FrmName)

Dim Cd As String, Ln As Long, SL As Long, SC As Long, EL As Long, EC As Long

Dim Changed As Boolean, Frm As Form, Ctl As Control, Tmp



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 = "Currency"

Changed = True

End If

Next Ctl

If Changed Then

DoCmd.Close acForm, FrmName, acSaveYes

Else

DoCmd.Close acForm, FrmName, acSaveNo

End If

end sub



... ähnlich musst du auch noch durch alle Berichte gehen - und durch alle Abfragen und Tabellen:



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

DoEvents

Tmp = ""

On Error Resume Next

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

On Error GoTo 0

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

Next Fld

Next Tbl

End Function



Public Function EditAllQuerydefs()

Dim Tmp, DB As Database, Qry As QueryDef, Fld As Field

Set DB = CurrentDb

For Each Qry In DB.QueryDefs

Debug.Print Qry.Name

For Each Fld In Qry.Fields

DoEvents

Debug.Print " " & Fld.Name

Tmp = ""

On Error Resume Next

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

On Error GoTo 0

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

Next Fld

Next Qry

End Function



Und dann noch in der Systemsteuerung das Eurosymbol umstellen.



Ich finde es allerdings besser, auf Währungsangaben in Feldern ganz zu verzichten (also oben anstelle von "Currency" "Standard" einsetzen...)



1. Wem sagt man damit schon etwas neues...

2. Läuft die Anwendung dann auch in nicht-Euro-Ländern

3. Kann man die Anwendung so auch mehrwährungsfähig machen

4. Hätte man dann mit der Euroumstellung gar kein Problem gehabt (ausser halt der Umrechnung der Feldinhalte).



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: