Change the format propert (Access 2000)

Topic

New Reply

Can i change the format property of the field in a remote database? Up to now the format property was set to Eur, and i want to have at as currency.I know how to create the field,but i do not know how to change the property
Dim wsp As DAO.Workspace
Dim dbs As DAO.Database
Dim prp As DAO.Property
Dim tdf As DAO.TableDef
Dim fld As DAO.field
Set wsp = DAO.DBEngine.Workspaces(0)
Set dbs = wsp.OpenDatabase(“C:BEstoreBE.mdb”, False, False, “;PWD=” & StrPassword)
Set tdf = dbs.TableDefs(“Products”)
‘ create the field exworks
Set fld = tdf.CreateField(“exworks”, dbCurrency)
tdf.Fields.Append fld

Reply | Quote

Replies

Change the last two lines

Set fld = tdf.CreateField(“exworks”, dbCurrency)
tdf.Fields.Append fld

to

Set fld = tdf.Fields(“exworks”)
fld.Properties(“Format”) = “Currency”

Since the field already exists, you don;t have to create it, and you don’t need to append it any more.

Reply | Quote

Thank you so much Hans ! As always perfect

Reply | Quote