培训资料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群 (群号:54525238)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)