Set the Required property of a field 1

[MangroBongacello]

Hi,

how do I set the required property of a text field in Access database to false. I found info in another thread that suggests using

Column.Attributes=adColNullable

but I get an error message saying "The parameter is incorrect."

I need it when appending a new field to a table. This is the code:

tbl.Columns.Append "Fld1",adVarWChar,20
tbl.Columns("Fld1&quot.Properties("Jet OLEDB: Allow Zero Length&quot=True
now how to set Required = False



Any ideas?

Thanks, Mangro

 

[CCLINT]

.Properties("Nullable&quot = True [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[MangroBongacello]

Thanx CCLINT, I figured it out myself later. But I have another problem. How to set the DefaultValue property?

.Properties("Default&quot=0 doesn't seem to work.

Thanx, Mangro

 

[CCLINT]

MangroBongacello: That should work.

What is happening then? (error, no change, etc.)

See

http://msdn.microsoft.com/library/d...y/en-us/dndao/html/daotoadoupdate_topic14.asp

For other properties [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[MangroBongacello]

CCLINT, nothing happens.

Mangro

 

[johnwm]

Is it a new table, or are you modifying an existing table? If modifying then the default will not be retrospective, so it will only work for new additions to the table
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[CCLINT]

johnwm, MangroBongacello is Appending new fields....

But, anyways, yes, you can change this property for existing fields.

Please note that we are discussing the "Default" property, and not the Nullable property.

MangroBongacello: I cannot say right now what is causing this. [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[MangroBongacello]

CCLINT and johnwm, thank you for your replies. I'm posting the part of procedure that deals with creating a table, perhaps there is something wrong with a way I'm doing this.

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table

cat.ActiveConnection = MyConn

tbl.Name = "MyTable"
cat.Tables.Append tbl
tbl.Columns.Append "Fld1", adVarWChar, 8
tbl.Columns("Fld1&quot.Properties("Jet OLEDB:Allow Zero Length&quot = True
tbl.Columns("Fld1&quot.Properties("Nullable&quot=True
tbl.Columns.Append "Fld2", adDouble
tbl.Columns("Fld2&quot.Properties("Default&quot=0


After this procedure is run, the table, fields, field's data types and properties are created and set up correctly accept the one in bold. It doesn't give me any error message, just nothing happens. I hope someone can spot a problem.

Thanx again, Mangro

 

[CCLINT]

MangroBongacello: I really believe you are erroring out on the line:
tbl.Columns("Fld1&quot.Properties("Nullable&quot=True

Try the following, which will set the Nullable property before appending the field.
Then the next field should work:

Sub Createtable()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As ADOX.Column


cat.ActiveConnection = conn

tbl.Name = "MyTable"
cat.Tables.Append tbl
Set col = New ADOX.Column

With col
Set .ParentCatalog = cat
.Name = "Fld1"
.Type = adVarWChar
.DefinedSize = 8
.Properties("Nullable&quot = True
.Properties("Jet OLEDB:Allow Zero Length&quot = True
tbl.Columns.Append col
End With

Set col = New ADOX.Column
With col
Set .ParentCatalog = cat
.Name = "Fld2"
.Type = adDouble
.Properties("Default&quot = 5
tbl.Columns.Append col
End With
Set cat = Nothing


End Sub [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[MangroBongacello]

CCLINT, that was it! Thank you very much!

Mangro