ACCESS儲存的問題

Question

每次資料輸完最後一個儲存格後就會自動跳到新增的頁面,有沒有什麼方法可以在我還沒按儲存新增前,游標只在目前輸入的表單頁面?

Answer 1

提下列二點供參考.
一: 強制作一個儲存格的迴圈.
在最後一個儲存格的 on exit 輸入
me!第一個儲存格.setfocus


二:使用對話方塊詢問是否儲存資料
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord = True Then
If Screen.ActiveForm.RecordSource <> "" Then
F = MsgBox("要儲存這筆新紀錄嗎?", vbYesNo)
End If
Else
If Screen.ActiveForm.Dirty = True Then
F = MsgBox("要儲存這筆更新的紀錄嗎?", vbYesNo)
End If
End If
If F = 7 Then Me.Undo
End Sub