Office中国论坛/Access中国论坛

标题: 平台窗体自动生成代码有误 [打印本页]

作者: qwe595567423 时间: 2015-4-19 16:09
标题: 平台窗体自动生成代码有误
本帖最后由 qwe595567423 于 2015-4-19 16:26 编辑

Private Sub cmdAdd_Click()
'【修改提示】
If gf_GetChange Then
      Select Case gf_Msgbox(gf_GetLangValue("TextChangeTip", "The text is changed. Do you want to save it ?"), vbYesNoCancel)
         Case vbYes       '按下：[是] 验证和保存数据
            If Not mf_SaveData Then Exit Sub
         Case vbNo          '按下：[否] 直接新增，无需理会
            gf_IsChange False
         Case vbCancel    '按下：[取消]
            Exit Sub
      End Select
End If

'【清空数据】
gf_ClearFormValues Me

'【恢复设置】
'恢复主键：恢复非自动编号和自定义编号的字段，设为可用
Me![GYSFLID].Enabeld = True

'恢复权限
mf_EditRight True '可能没有编辑权限。新增数据时，恢复可以保存
End Sub

作者: qwe595567423 时间: 2015-4-19 16:09
Me![GYSFLID].Enabeld = True 中的 Enabeld 错了

作者: qwe595567423 时间: 2015-4-19 16:26
删除按钮, 删除提示的代码没有在下一行写代码,导致if出错

作者: tmtony 时间: 2015-4-19 23:50
谢谢提示，明天检查一下。看看最新版是否还存在这个问题

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)