Office中国论坛/Access中国论坛

标题: 保存 [打印本页]

作者: access新新新手 时间: 2017-7-3 09:47
标题: 保存
请问对窗体设计修改后或者对模块修改后，如何通过代码点击按钮保存。

作者: Henry D. Sy 时间: 2017-7-3 10:33
你是用代码修改窗体的的吗

作者: access新新新手 时间: 2017-7-3 10:48
本帖最后由 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
请问如何保存

作者: Henry D. Sy 时间: 2017-7-3 11:33

'在后面加语句
DoCmd.Close acModule, strModuleName,acSaveYes

复制代码

作者: access新新新手 时间: 2017-7-3 11:45
本帖最后由 access新新新手于 2017-7-3 12:21 编辑

Henry D. Sy 发表于 2017-7-3 11:33

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

作者: access新新新手 时间: 2017-7-3 12:34
谢谢老师！
DoCmd.Save acModule, strModuleName
DoCmd.Close acModule, strModuleName, acSaveYes
已经可以了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)