Motei um arquivo via codigo, porem quando vou inserir dados apresenta um erro dizendo que o campo não pode conter null. Como faço para altarar a propriedade AllowZeroLength  via codigo ?

 

Grata,

Campo.DefaultValue = 1
Campo.Type = dbText
Campo.Size = 50
Campo.Name = "Nome"
Campo.AllowZeroLength = False
db.TableDefs(5).Fields.Append Campo

Dennys,

Não funcionou.

 

Dim db As Database
Dim tbl As TableDef
Set db = OpenDatabase("C:Meus Documentosd1.mdb")
Set tbl = db.TableDefs("tbl_Cadastro")
'Se a propriedade AllowZeroLength estiver definida para True, o campo  aceitará valores nulos
tbl.Fields("Código").AllowZeroLength = True
'Se a propriedade Required estiver definida como Flase, o campo não requer um valor
'Consequentemente aceitará valores nulos
tbl.Fields("Código").Required = False