Thanks
"Ralph" <nt_consulting64.TakeThisOut@yahoo.com> wrote in message
news:le6dncbUT8_EwDjZnZ2dnUVZ_tidnZ2d@arkansas.net...
>
> "JP Bless" <jp3BlessNoSpam.TakeThisOut@hotmail.com> wrote in message
> news:uXKYN$FnGHA.488@TK2MSFTNGP02.phx.gbl...
> > How do I use DAO.36 code to add 3 fields to existing Access 2000 table
> >
> > Thanks in advance
> >
>
> Checkout "TableDefs" in help.
> Here is the basics for adding a field...
>
> Dim tbl As TableDef
> Dim field As field
> Set tbl = db.TableDefs(strTableName)
> Set field = tbl.CreateField(Name:=strFieldNametoAdd, _
> Type:=FieldType)
> If (db.Updatable And tbl.Updatable) Then
> tbl.Fields.Append field tbl.Fields.Refresh
> Else
> MsgBox "not updatable"
> End If ....
>
> hth
> -ralph
>
>
> >> Stay informed about: Use DAO to add fields to existing Access table