培训资料11《VBA保存代码的实现》演示
时 间:2006-05-13 00:00:00
作 者:竹笛 ID:8 城市:上海 QQ:2851379730
摘 要:培训资料11《VBA保存代码的实现》演示
正 文:
一、演示下载
二、代码:
Private Sub cmdSave_Click()
Dim rst As DAO.Recordset
'若title框没输入数据时提醒操作员
If IsNull(Me.title) Then
MsgBox "请输入标题", vbCritical, "提示"
Me.title.SetFocus
Exit Sub
End If
If IsNull(Me.content) Then
MsgBox "请输入内容", vbCritical, "提示"
Me.content.SetFocus
Exit Sub
End If
If IsNull(Me.saveID) Then
MsgBox "请选择保存方式", vbCritical, "提示"
Me.saveID.SetFocus
Exit Sub
End If
If IsNull(Me.SortID) Then
MsgBox "请选择大类", vbCritical, "提示"
Me.SortID.SetFocus
Exit Sub
End If
If IsNull(Me.subSortID) Then
MsgBox "请选择小类", vbCritical, "提示"
Me.subSortID.Enabled = True
Me.subSortID.SetFocus
Exit Sub
End If
If Me.saveID = "B" Then '如果是附件形式保存,就必须写下保存目录
If IsNull(Me.savePath) Then
MsgBox "请输入附件保存的路径", vbCritical, "提示"
Me.savePath.SetFocus
Exit Sub
End If
End If
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
If Acchelp_StrDataIsExist("tblTiplist", "title", Me.title) = True Then
MsgBox "该技巧已存在,不允许保存!", vbCritical, "提示"
Else
Me.Refresh
Set rst = CurrentDb.OpenRecordset("tblTiplist", dbOpenDynaset)
rst.AddNew
rst("title") = Me.title
rst("content") = Me.content
rst("saveID") = Me.saveID
If Not IsNull(Me.savePath) Then
rst("savePath") = Me.savePath
&nbs
Access软件网官方交流QQ群 (群号:483923997)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)