设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1816|回复: 5
打印 上一主题 下一主题

[模块/函数] 保存

[复制链接]
跳转到指定楼层
1#
发表于 2017-7-3 09:47:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问对窗体设计修改后或者对模块修改后,如何通过代码点击按钮保存。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2017-7-3 10:33:26 | 只看该作者
你是用代码修改窗体的的吗
3#
 楼主| 发表于 2017-7-3 10:48:12 | 只看该作者
本帖最后由 access新新新手 于 2017-7-3 10:51 编辑
Henry D. Sy 发表于 2017-7-3 10:33
你是用代码修改窗体的的吗

Function InsertProc(strModuleName) As Boolean
    Dim mdl As Module, strText As String

    On Error GoTo Error_InsertProc

    DoCmd.OpenModule strModuleName
    Set mdl = Modules(strModuleName)
    strText = "Sub DisplayMessage()" & vbCrLf _
            & vbTab & "dim i as Double" & vbCrLf _
            & vbTab & "MsgBox ""Wild!""" & vbCrLf _
            & "End Sub"
    mdl.InsertText strText
    InsertProc = True

Exit_InsertProc:
    Exit Function

Error_InsertProc:
    MsgBox Err & ": " & Err.Description
    InsertProc = False
    Resume Exit_InsertProc
End Function
Sub 在标准模块中插入一个过程()
InsertProc "模块1"
End Sub
请问如何保存
4#
发表于 2017-7-3 11:33:07 | 只看该作者
  1. '在后面加语句
  2. DoCmd.Close acModule, strModuleName,acSaveYes
复制代码

评分

参与人数 2经验 +15 收起 理由
access新新新手 + 9 感谢帮助
tmtony + 6 (V币)优秀答复(6分)

查看全部评分

5#
 楼主| 发表于 2017-7-3 11:45:08 | 只看该作者
本帖最后由 access新新新手 于 2017-7-3 12:21 编辑

老师!还是保存不了。
在模块里面直接运行代码可以保存,但是窗体按钮调用代码就不可以保存


6#
 楼主| 发表于 2017-7-3 12:34:40 | 只看该作者
谢谢老师!
    DoCmd.Save acModule, strModuleName
    DoCmd.Close acModule, strModuleName, acSaveYes
已经可以了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 17:30 , Processed in 0.095610 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表