首先,我是参考http://www.accessoft.com/article-show.asp?id=9099这个文章的第二种方法做的组合框快速添加列表数据的.
先在模块中定义一个变量:Dim strSelectComb as string
然后用"部门信息管理"中的编辑窗体做为快速添加窗体:
这样做好后,在1.7.2版本中一点问题都没有,可是在2.1.1版本中,快速添加一次之后,"部门信息管理"菜单就出错了:
这可怎么办?
这个我解决了,保存时修改一下,我的程序给你参考一下:
rst![产品类别] = Me![产品类别]
rst![客户] = Me![客户]
rst![备注] = Me![备注]
rst![已停用] = Me![已停用]
rst.Update
Me![类别ID] = rst![类别ID]
rst.Close
MsgBoxEx "保存成功!", vbInformation
If IsLoaded("frm产品信息_edit") Then '如果frm产品信息_edit窗体加载着,则关闭窗体
DoCmd.Close acForm, Me.name
Exit Sub
Else
Form_frm产品类别.RefreshDataList
End If
If Me.DataEntry Then
ClearControlValues Me
Else
DoCmd.Close acForm, Me.name, acSaveNo
End If
总记录:1篇 页次:1/1 9 1 :