Private Sub Form_Load() '窗体装载（打开） DoCmd.GoToRecord , , acLast '跳到最后一条记录End Sub
form.showlist.txt=list.lastlist
