Getting new values from table 1

[vba317]

I am using access 2003. I am trying to write vba code read information from a table. I am almost finished. When using the autonumber datatype I can't figure out how to read the new Values row. This row has two values: Increment and Random. The attributes = 17 for both, the collating order = 1033 for both. I have set up a function for this and all the other properties.

Function XLFormatNewValues(ByRef D As Field, ByRef Col As String, ByRef lTbl As Integer, ByRef lRow As Integer, ByRef lFld As Integer) As String
Dim dBase As DAO.Database
Set dBase = CurrentDb
Debug.Print Err.Number
On Error Resume Next
'goXL.ActiveSheet.Range(Col & lRow) = dBase.TableDefs(lTbl).Fields(lFld).Properties("NewValues")
goXL.ActiveSheet.Range(Col & lRow) = dBase.TableDefs(lTbl).Fields(lFld).Attributes
goXL.ActiveSheet.Range(Col & lRow) = dBase.TableDefs(lTbl).Fields(lFld).CollatingOrder
'goXL.ActiveSheet.Range(Col & lRow) = dBase.TableDefs(lTbl).Fields(lFld).OriginalValue
goXL.ActiveSheet.Range(Col & lRow) = dBase.TableDefs(lTbl).Fields(lFld).Type
Debug.Print Err.Number
Debug.Print Err.Description
Err.Clear
End Function

 

[PHV]

Is the Size property the same for both ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

The size = 4 for both

 

[PHV]

Is the Type property the same for both ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

Type is 4 for both. I just tried properties.Count and both are 15. DefaultValue=GenUniqueID() for both.

 

[Golom]

Try

Function XLFormatNewValues(D As DAO.Field, Col As String, _
                           lTbl As Integer, lRow As Integer, _
                           lFld As Integer) As String
Dim dBase      As DAO.Database
Set dBase = CurrentDb

With dBase.TableDefs(lTbl).Fields(lFld)
    If .Properties("Autoincrement").Value = TRUE Then
        If Trim$(.Properties("DefaultValue").Value) = "" Then
            goXL.ActiveSheet.Range(Col & lRow) = "Increment"
        Else
            goXL.ActiveSheet.Range(Col & lRow) = "Random"
        End If
    Else
        goXL.ActiveSheet.Range(Col & lRow) = ""
    End If
End With
Set dBase = Nothing
End Function

 

[Golom]

DefaultValue=GenUniqueID() for both

No it isn't. For an "Increment" type Property DefaultValue is blank and for a "Random" type it is "GenUniqueID()

 

[vba317]

This worked perfectly.