create fields

[Svelte Poshy]

On the control of my form i want to give a command for creating fields
in a table.However i receive the message error variable not defined.
May i have some help as to where is my error?
Dim dbs As Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Dim idx As DAO.Index

Set tdf = dbs.TableDefs("Orders")
Set fld = tdf.CreateField("LastUpdated", dbDate)
tdf.Fields.Append fld
tdf.Fields.Refresh

' set additional field properties
Set fld = tdf.Fields("LastUpdated")
fld.Properties("DefaultValue") = "=Date()"
Set prp = fld.CreateProperty("Format", dbText, "Short Date")
fld.Properties.Append prp

' create and append index
Set idx = tdf.CreateIndex("LastUpdatedIdx")
idx.Fields.Append idx.CreateField("LastUpdated")
idx.Unique = False
tdf.Indexes.Append idx

dbs.Close
Set prp = Nothing
Set idx = Nothing
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
End Function

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Arno R]

Svelte,
I think you forgot to 'set' your dbs ... like Set dbs=CurrentDb
Also: Why Dim all vars as DAO exept dbs?
Hence: Dim dbs As DAO.Database

--
Hope this helps
Arno R

"Svelte Poshy" <sv******@yahoo.com> schreef in bericht news:3f*********************@news.frii.net...

On the control of my form i want to give a command for creating fields
in a table.However i receive the message error variable not defined.
May i have some help as to where is my error?
Dim dbs As Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Dim idx As DAO.Index

Set tdf = dbs.TableDefs("Orders")
Set fld = tdf.CreateField("LastUpdated", dbDate)
tdf.Fields.Append fld
tdf.Fields.Refresh

' set additional field properties
Set fld = tdf.Fields("LastUpdated")
fld.Properties("DefaultValue") = "=Date()"
Set prp = fld.CreateProperty("Format", dbText, "Short Date")
fld.Properties.Append prp

' create and append index
Set idx = tdf.CreateIndex("LastUpdatedIdx")
idx.Fields.Append idx.CreateField("LastUpdated")
idx.Unique = False
tdf.Indexes.Append idx

dbs.Close
Set prp = Nothing
Set idx = Nothing
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
End Function

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[MeadeR]

Did you flag a line (f9) and then step through the code (f8)? Which
line did it stop on?

Svelte Poshy <sv******@yahoo.com> wrote in message news:<3f*********************@news.frii.net>...

On the control of my form i want to give a command for creating fields
in a table.However i receive the message error variable not defined.
May i have some help as to where is my error?
Dim dbs As Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Dim idx As DAO.Index

Set tdf = dbs.TableDefs("Orders")
Set fld = tdf.CreateField("LastUpdated", dbDate)
tdf.Fields.Append fld
tdf.Fields.Refresh

' set additional field properties
Set fld = tdf.Fields("LastUpdated")
fld.Properties("DefaultValue") = "=Date()"
Set prp = fld.CreateProperty("Format", dbText, "Short Date")
fld.Properties.Append prp

' create and append index
Set idx = tdf.CreateIndex("LastUpdatedIdx")
idx.Fields.Append idx.CreateField("LastUpdated")
idx.Unique = False
tdf.Indexes.Append idx

dbs.Close
Set prp = Nothing
Set idx = Nothing
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
End Function

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Peter Russell]

Arno R previously wrote:

Why Dim all vars as DAO exept dbs

Because it's not an ambiguous declaration.
So DAO. is unnecessary.
Regards
Peter Russell