设置按钮的启用属性为否,即:按钮.Enabled=false,
在Text60的失去焦点事件中写:
Private Sub Text60_lostFocus()
If IsNull(Me.Text60) Then
Me.Command1.Enabled = False
Else
Me.Command1.Enabled = True
End If
End Sub
在修改按钮的单击事件中写:
Private Sub 修改_Click()
Me.退出.Enabled = False
End Sub
3. 在保存按钮的单击事件中写:
Private Sub 保存_Click()
Me.退出.Enabled = true
End Sub
另外,我觉得你这样设置并不好,
一般是这样做的,比如第一个问题,通过设置Text60的有效性,或者代码检查是否为空做对应处理,陵颤世代码如下:
保存按钮的点击事件:
Private Sub 保存_Click()
洞橘 If IsNull(Me.Text60) Then
msgbox "Text60栏位不能为空,请重新输入!",vbokonly,"提醒"
me.text60.setfocus
exit sub
Else
'......保存的代码......
End If
End Sub
第二个问题也类似,在退出的时候,检查数据是否有修改,有过有修改就提示是否需要保存,等尺肢等...
祝你成功!