菜鸟求解，关于按钮提示的问题。

zhongliping

1、在窗体中插入按钮，比如“前一项记录”按钮，在达到最顶时会出现提示无记录。我想自定义这个弹出的对话框内容，该怎么写代码？
2、如果点击主窗体的某按钮，想让焦点移到子窗体中的另一按钮上，又应该在怎么写代码呢？
请高手指教，谢谢！

petrelai

你说的是不是前一条记录，或后一条记录的按钮情况？如果是话：
Private Sub LL08_Click()
On Error GoTo Err_Command29_Click
    DoCmd.GoToRecord , , acPrevious
   
Exit_Command29_Click:
    Exit Sub

Err_Command29_Click:
    MsgBox "已是第一条记录了！", 16, "提示"
    Resume Exit_Command29_Click
End Sub

至于第二个问题，呵，我也个菜鸟一个！

zhongliping

谢谢！第一个问题得以解决。

ququ

Private Sub 主窗体按钮_Click()
Me.子窗体中的另一按钮.SetFocus True
End Sub

hi-wzj

您自诩比盖茨还本事？
为什么系统原有的按钮不用，非要屏蔽原有按钮，费那么大的劲自编呢？
从学编程的角度来说可以，从效率上说，不必要。