Changing Field propertys 1

[Chance1234]

Having trouble getting the following to work, any ideas

Sub TableChange()
Dim mydb As Database
Dim mytable As TableDef
Dim fieldtmp As Field
Dim FT As Field
Set mydb = CurrentDb()
Set mytable = mydb.TableDefs("speedygonzales&quot


For Each fieldtmp In mytable.Fields
With fieldtmp


fieldtmp.AllowZeroLength = True
End With



Next

 

[Databaseguy]

This works:

Private Sub SetZeroLength()

Dim dbs As Database
Dim tdef As TableDef
Set dbs = CurrentDb
Dim fldMyField As Field
Set tdef = dbs.TableDefs("tblTest&quot
For Each fldMyField In tdef.Fields
If fldMyField.Type = dbText Then
fldMyField.AllowZeroLength = True
End If
Next fldMyField


End Sub Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[Chance1234]

thanks!