error 3265 vb6 (1 Viewer)

[boyoman]

Set DbWorkSpace = DBEngine.Workspaces(0)
Set DBaseNew = DbWorkSpace.OpenDatabase(DBasePC, True)
Set DbField = DBaseNew.CreateTableDef(NFileName)
With DbField
.Fields.Append .CreateField("pSlip", dbText, 200) "how to add new this fields in existing database
End With
DBaseNew.Close

 

[Ranman256]

FIELDS is not a property of DBFIELD, it is of a table.
when you press the period beside the object, you will see all its properties.

 

[boyoman]

If Not Fsys.FileExists(DBasePC) Then
Set DBaseNew = DbWorkSpace.CreateDatabase(DBasePC, dbLangGeneral, dbEncrypt)
Set DBaseNew = DbWorkSpace.OpenDatabase(DBasePC, True, False)
Set DbField = DBaseNew.CreateTableDef(NFileName)
With DbField
.Fields.Append .CreateField("pCategory", dbText, 200) ' exist field
End With
DBaseNew.TableDefs.Append DbField
DBaseNew.Close
Else
Set DbWorkSpace = DBEngine.Workspaces(0)
Set DBaseNew = DbWorkSpace.OpenDatabase(DBasePC, True)
Set DbField = DBaseNew.CreateTableDef(NFileName)
With DbField
.Fields.Append .CreateField("pSlip", dbText, 200) 'add a new field
End With
DBaseNew.Close
End If

 

[The_Doc_Man]

Your nomenclature is your choice, but I will say that it is confusing to re-use objects like that. Still, not illegal.

Your "With DbField" probably should instead be something like "With TableDefs(NFileName)" since that is the tabledef you just created. (I say "should be" not for syntax or semantics, but for clarity.)

I had to look it up because that function is one I rarely use. I prefer statically defined tables. However, the .CreateTableDef does, indeed, return a TableDef. It should be possible to do what you want. Here is an older reference that I think is still valid:

Add and delete fields using VBA

Is it possible to add and delete fields in my tables using VBA? I've been looking for the syntax everywhere but can't seem to find it. Anyone know?

www.access-programmers.co.uk