Hi guys i got vba code that suppose to write table name ,column name , rquired ,feild type and feild size
to an external db. The first part of this code write tables naem to external db and it is working well.
I get the following error when i press the button on my form :
Code:
Run-time error '424':
Object required
and when i click on debut it points to this part with yellow collor.
Code:
metadb.Execute " Insert Into SysColumns(tablename,columnname,required,type,lenght) " & _
" Values ('" & TableDef.Name & "','" & Feild.Name & "'," & Feild.Required & ",'" & FieldType(Feild.Type) & "'," & Feild.Size & ")"
I be happy if some one help me fix this erro.Thanks
my complete code
Code:
Sub InsertSystemCatalogPopulation(db As Database, metadb As Database)
'''now locating all the non system tables in current db and then writing it
'''to systables table
For Each tbl In db.TableDefs
''' excluding the system tables
If Left(tbl.Name, 4) <> "MSys" Then
''' writing the tables name to systables
metadb.Execute " Insert Into SysTables(TableName) Values ('" & tbl.Name & "')"
End If
Next tbl
MsgBox (" All tables names coped to systables system cataloge ")
'''###################################################################################
''' now we go find all non syste feilds in the current db and then writing ity
''' to syscolumns
For Each TableDef In CurrentDb.TableDefs
'''this if statment remove the system feilds
If Left(TableDef.Name, 4) <> "Msys" Then
For Each Field In TableDef.Fields
metadb.Execute " Insert Into SysColumns(tablename,columnname,required,type,lenght) " & _
" Values ('" & TableDef.Name & "','" & Field.Name & "'," & Field.Required & ",'" & FieldType(Field.Type) & "'," & Field.Size & ")"
Next Field
End If
Next TableDef
End Sub
Function FieldType(intType As Integer) As String
Select Case intType
Case dbBoolean
FieldType = "dbBoolean"
Case dbByte
FieldType = "dbByte"
Case dbInteger
FieldType = "dbInteger"
Case dbLong
FieldType = "dbLong"
Case dbCurrency
FieldType = "dbCurrency"
Case dbSingle
FieldType = "dbSingle"
Case dbDouble
FieldType = "dbDouble"
Case dbDate
FieldType = "dbDate"
Case dbText
FieldType = "dbText"
Case dbLongBinary
FieldType = "dbLongBinary"
Case dbMemo
FieldType = "dbMemo"
Case dbGUID
FieldType = "dbGUID"
End Select
End Function
problem with this insert statment in vba
