设置窗体文本框的默认值

加载时间: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