保存

access新新新手

请问对窗体设计修改后或者对模块修改后，如何通过代码点击按钮保存。

Henry D. Sy

你是用代码修改窗体的的吗

access新新新手

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

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

复制代码

access新新新手

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

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

access新新新手

谢谢老师！
    DoCmd.Save acModule, strModuleName
    DoCmd.Close acModule, strModuleName, acSaveYes
已经可以了