Change Default Value using ADO

[miromike]

The following is a textbook exercise that I can not get to work. Working in Access 2000, split databases App = Swimreg; Data = Swimdata. I want to change the default value in the swimdata.tblClasses.Semester field to equal the Value in the txtSemesterID textbox.

Any ideas on why this doesn't work? (it actually removes the data in the default property but does not replace it.)
TIA,
Mike

Private Sub txtSemesterID_AfterUpdate()
'Update the default value of the Semester field
'in tblClasses
Dim cnnSwimData As ADODB.Connection
Dim tbl As ADOX.Table
Dim cat As New ADOX.Catalog
Set cnnSwimData = New ADODB.Connection
cnnSwimData.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Ch05\SwimData.mdb;"
Set cat.ActiveConnection = cnnSwimData
Set tbl = cat.Tables("tblClasses&quot
tbl.Columns("Semester&quot.Properties("Default&quot = _
Chr(34) & Me![txtSemesterID] & Chr(34)
cnnSwimData.Close
End Sub

 

[JPMontreal]

Replace that line:

tbl.Columns("Semester&quot.Properties("Default&quot = _
Chr(34) & Me![txtSemesterID] & Chr(34)

with:

tbl.Fields("Semester&quot.DefaultValue = Chr(34) & Me![txtSemesterID] & Chr(34)
Jean-Paul
Montreal
mtljp2@sympatico.ca

 

[miromike]

Hi,

Thanks for your input, but I now get the error message: Compile Error: Method or Data Member not Found.

I'm stumped

Thanks

 

[JPMontreal]

Sorry, in ADO there is no defaultValue, Change it in DAO, it will work;

Jean-Paul
Montreal
mtljp2@sympatico.ca

 

[miromike]

Hey JP,

I just noticed in MS Knowledge Base some problems with ADO 2.5 that may relate to the problem I'm having. So I'm going to concentrate on getting a fix or going back to 2.1 ADO.
Thanks again for your response.

Later
Mike

 

[miromike]

If anyone else is having this problem Check out this article

[URL unfurl="true"]http://support.microsoft.com/default.aspx?scid=kb;enus;Q255997[/URL]

Later
Mike

 

[cmmrfrds]

Put a .Value after the ("Default&quot

The latest library should be 2.6



tbl.Columns("Semester&quot.Properties("Default&quot.Value = _
Chr(34) & Me![txtSemesterID] & Chr(34)