change default value within an existing table - error 3219

[markjkubicki]

writing code to change the default value of a field (data type: Long Integer) within an existing table and getting an error: 3219
the value of NewSize = 3

Any thoughts / suggestions / "take-a-look-at's "... will (as always) be greatly appreciated in advance,
m.

Function ChangeDefaultValue(ByVal vFilePath As Variant, TblName As String, FldName As String, NewSize As Integer)
    Dim Td As TableDef
    Dim DbPath As Variant
    Dim rs As Recordset
    
    On Error Resume Next

    If IsNull(DbPath) Then
        Set gsDbs = CurrentDb    'if local table
    Else
         Set gsDbs = OpenDatabase(vFilePath)    'if linked table
        If Err <> 0 Then
            'failed to open back end database
            Exit Function
        End If
    End If

    'get table
    Set Td = gsDbs.TableDefs(TblName)
    If Err <> 0 Then
        'failed to get table
        GoTo Done
    End If

    'change default value size
    If Td.Fields(FldName).DefaultValue <> NewSize Then
        With Td

'---> the error occurs with this portion of the code:

            Set rs = gsDbs.OpenRecordset(TblName)
                rs.Fields(FldName).DefaultValue = NewSize
            rs.Close
        End With
        
        If Err <> 0 Then GoTo Done

    End If

    ChangeDefaultValue = True  'defaults to false if it fails to get here

Done:
    If Not gsDbs Is Nothing Then gsDbs.Close
End Function

[CJ_London]

if this is a permanent change, would have thought you would use

With Td
 .DefaultValue = NewSize
End With

[Micron]

I've not done this but would expect that
a) you cannot alter a table field using a recordset field reference
b) you cannot alter a table field when there is a hold on it by way of query, recordset, form, report, whatever

and you are doing both of these things.

If the table field does not have the property you're trying to alter, then you must create it first. Just saying that in for future reference in case you're not aware. I don't know if a table field has this property if it has never been set. On the other hand, if this is a one-off, why don't you just change it in design view?

[markjkubicki]

would not be the first time i 'over-coded into an error'

worked exactly as needed THNX!