Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-教程

培训资料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源码网店


常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助