|
代码如下, 另以后有关问题贴请发到 Access交流区, 谢谢
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
选项卡控件2.Value = 0
' Screen.PreviousControl.SetFocus
' DoCmd.FindNext
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
选项卡控件2.Value = 1
' Screen.PreviousControl.SetFocus
' DoCmd.FindNext
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub |
|