problems with changing the defaults

[waltvw]

I'm trying to change the default property for a check box field on a form as well as a a particular property of that form. After I run the code both the form and the control start behaving the way I expect they should after the change, but their properties, in fact, never change.

Here's the code to swap between the Dynaset and Snapshot RecordsetType properties in the form. After its execution, when I reopen the form, however, it is always a Dynaset (which is what I manually set the property to when I first created the form) even after my code changed to Shapshot.

Private Sub MoBasedOnTbl_Click()
'If your current settting is Dynaset change it to Snapshot
If Me.RecordsetType = 0 Then
Me.RecordsetType = 2
'If it's Snapshot make it Dynaset
Else
Me.RecordsetType = 0
End If
End Sub

Here I grab the currrent value in a Check Box field on the form and make it a default one for that field. Again, after I reopen the form the default value equals to whatever I manually set the that property to when I first created the field.

Private Sub MonthsBasedOnChck1Av_AfterUpdate()
Dim a As Boolean
a = Me.MonthsBasedOnChck1Av.Value

If a = 0 Then
Me.MonthsBasedOnChck1Av.DefaultValue = 0
Else
Me.MonthsBasedOnChck1Av.DefaultValue = -1
End If
End Sub

If anybody knows the solution, please, help!