请教高手指点，实例的功能无法实现，自己做的窗体跟实例哪里不一样

久石让的粉丝　发表于：2013-05-29 22:28:58 　

复制

public as boolean 设置变量A为逻辑型

A=false 定义变量A的值为否

求高手解答，如果窗体的内容被修改了，如何将变量A的值变成true

上传的附件是实现后的样子，和我自己做的，请问高手哪里做错了，为什么不能实现功能。

自己做的窗体修改数据后保存按钮不会从不可用变成可用

请高手帮忙看看，自己做的窗体和实例中的窗体哪里不一样

点击下载此附件

Top

桑松木发表于：2013-05-30 00:23:22

参照：http://www.accessoft.com/bbs/showtopic.asp?id=18816

Top

殷小宝发表于：2013-05-30 12:34:21

代码可简化为：

Private Sub Form_Current()
Me.cmdSave.Enabled = False
  End Sub
Private Sub CmdSave_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.cmdCancel.SetFocus
Me.cmdSave.Enabled = False
End Sub
Private Sub cmdCancel_Click()
If Me.cmdSave.Enabled = True Then
If MsgBox("当前修改后的数据没有保存，是否要保存？", vbYesNo + vbQuestion, "请选择...") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End If
End If
DoCmd.Close
End Sub

Public Function AllowSave()
   Me.cmdSave.Enabled = True
End Function

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请教高手指点，实例的功能无法实现，自己做的窗体跟实例哪里不一样