Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Err_Image3_Click
Me.Image3.PictureAlignment = 3
DoCmd.GoToRecord , , acNext
Me.AllowAdditions = False
Exit_Image3_Click:
Exit Sub
Err_Image3_Click:
MsgBox "别按了,下面已经没有记录了!", vbQuestion, " 系统提示..."
Resume Exit_Image3_Click
End Sub