标题: 请教！ [打印本页] 作者: fatmingli 时间: 2004-4-8 01:09 标题: 请教！ 窗体上有两个按钮，按钮1和按钮2，请问怎样才能做到，按下按钮1的时候把焦点转到按钮2，并运行按钮2的单击事件的代码。作者: zhengjialon 时间: 2004-4-8 01:14
在窗体上新建两个按钮，拷入以下代码：
Private Sub 命令0_Click()
Me.命令1.SetFocus
命令1_Click
End Sub
Private Sub 命令1_Click()
MsgBox 4
End Sub 作者: fatmingli 时间: 2004-4-8 01:31
谢谢！
再问：
文本框退出时检测文本框为空时，给出选择重新输入或关闭窗体，代码如下：
If IsNull(船舶名称) Then
If MsgBox("按“确定”输入船名，按“取消”退出！", vbOKCancel, "") = vbOK Then
Cancel = True
Else
DOCMD.CLOSE
End If
End If
运行时，重新输入没有问题，关闭窗体就不行，
系统提示如下：
运行时错误’2585‘
处理窗体或报表事件时不能执行这个操作。
请问如何做到我的要求？
[此贴子已经被作者于2004-4-7 18:02:09编辑过]
作者: 月光下的猪 时间: 2004-4-8 06:26
能不能把文件放上来看看？作者: 土豆 时间: 2004-4-8 18:23
Private Sub Form_Unload(Cancel As Integer)
If IsNull(船舶名称) Then
If MsgBox("按“确定”输入船名，按“取消”退出！", vbOKCancel, "") = vbOK Then
Cancel = False
End If
End If
End Sub