加载时间:DefaultID = DLookup("id", "tbltest", "Default=true")
*****************************<解释>↓*****************************
其实也就是在加载的时候在表格里找到Default=true,的叫id的值
*****************************<解释>↑*****************************
DoCmd.SetWarnings False
DoCmd.RunSQL "update tbltest set Default=0 where Default=true"
DoCmd.RunSQL "update tbltest set Default=1 where id= " & Me.ListTest
Me.ListTest.Requery
DoCmd.SetWarnings True