用 me.下一个单位.SetFocus 转移焦点试一试作者: XWQ2000 时间: 2006-3-30 19:02
不行作者: XWQ2000 时间: 2006-3-30 19:06
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