请教！

fatmingli

窗体上有两个按钮，按钮1和按钮2，请问怎样才能做到，按下按钮1的时候把焦点转到按钮2，并运行按钮2的单击事件的代码。

zhengjialon

在窗体上新建两个按钮，拷入以下代码：
Private Sub 命令0_Click()
Me.命令1.SetFocus
命令1_Click
End Sub

Private Sub 命令1_Click()
MsgBox 4
End Sub

fatmingli

谢谢！
再问：
文本框退出时检测文本框为空时，给出选择重新输入或关闭窗体，代码如下：
If IsNull(船舶名称) Then
   If MsgBox("按“确定”输入船名，按“取消”退出！", vbOKCancel, "") = vbOK Then
      Cancel = True
   Else
     DOCMD.CLOSE
   End If
End If
运行时，重新输入没有问题，关闭窗体就不行，
系统提示如下：
运行时错误’2585‘
处理窗体或报表事件时不能执行这个操作。
请问如何做到我的要求？

[此贴子已经被作者于2004-4-7 18:02:09编辑过]

月光下的猪

能不能把文件放上来看看？

土豆

Private Sub Form_Unload(Cancel As Integer)
    If IsNull(船舶名称) Then
       If MsgBox("按“确定”输入船名，按“取消”退出！", vbOKCancel, "") = vbOK Then
          Cancel = False
       End If
    End If
End Sub