In a VBA module within an Access database I am trying to create a query which needs the schema information for a table. I can get the field names, type and size but cannot get the decimal places for the various numeric types. Anyone have a clue how to get the field properties as seen in design mode?
Following are a couple of failed tries which do not give me the decimal places for the various fields.
TIA, Mark
Following are a couple of failed tries which do not give me the decimal places for the various fields.
Code:
Private Function GetSchema1(tcTable As String)
Dim oDatabase As Database, oTabledef As TableDef
Set oDatabase = CurrentDb()
Set oTabledef = oDatabase.TableDefs(tcTable)
For Each oField In oTabledef.Fields
a = 1
Next oField
End Function
Code:
Private Function CreateSQL(tcTable As String)
Dim cSQL As String, oDatabase As Database, oRecordset As Recordset
cSQL = "SELECT * FROM " + tcTable + " WHERE 1=0"
Set oDatabase = CurrentDb()
Set oRecordset = oDatabase.OpenRecordset(cSQL, dbOpenDynaset)
Dim iFields As Integer, oField As Object, cFieldName As String
For iFields = 0 To oRecordset.Fields.Count - 1
Set oField = oRecordset.Fields(iFields)
With oField
cFieldName = .Name
Select Case .Type
Case Is = dbBigInt
End With
Next iFields
End Function