Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 239
  • Last Modified:

Invalid argument error with creatingdatabase in vb6

Hello,

For some reason I get an invalid argument error with attached code or attached pic.
Error line is marked with : ERROR LINE

Could someone help me out?
Regards,
Dennis
Function Create_Database()
 
Dim dbnewDB As Database
Dim tdnewtable As tabledef
Dim fld As field
Dim idx As Index
 
 
Set dbnewDB = createdatabase("c:\structure\Dennis.mdb", dblanggeneral)
Set tdnewtable = New tabledef
Set fld = tdnewtable.createfield("Title", dbtext, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Open", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("High", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Low", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Close", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Signal_1", dbMemo, 20)
tdnewtable.fields.append fld
Set fld = tdnewtable.createfield("Equity_1", dbMemo, 20)
tdnewtable.fields.append fld
Set idx = tdnewtable.createindex
With idx
.Name = "idxTitle"
.fields.append.createfield ("Title") 'ERROR LINE
 
End With
tdnewtable.indexes.append idx
tdnewtable.Name = "tblcollection"
dbnewDB.tabledefs.append tdnewtable
 
Set dbnewDB = Nothing
 
 
 
End Function

Open in new window

invalid.jpg
0
Schuttend
Asked:
Schuttend
1 Solution
 
Guy Hengel [angelIII / a3]Billing EngineerCommented:
change:

.fields.append.createfield ("Title")

into (not the SPACE between append and .createfield:

.fields.append  .createfield ("Title")  
0
 
SchuttendAuthor Commented:
Thanks for the great help!

Regards,
Dennis
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now