Ms access 如何检测您的Microsoft Access应用程序是否已编译，即是否作为ACCDE运行

是否有人拥有任何VBA来检测您的Microsoft Access 2013/2016应用程序是否以ACCDE运行，即是否已编译

如果发生错误，我希望我的代码停止并中断，a）是我在运行它（environ（“username”）），如果它不是ACCDE

有人有什么建议吗？

改编自和

公共函数isaccode（）为布尔值
'初始化
isaccode=False
'此属性仅存在于已编译的数据库（.mde、.accde）中！
'如果不是，则忽略错误（并保持为“False”）。
出错时继续下一步
IsACCDE=（CurrentDb.Properties（“MDE”）=“T”）
端函数

改编自和

公共函数isaccode（）为布尔值
'初始化
isaccode=False
'此属性仅存在于已编译的数据库（.mde、.accde）中！
'如果不是，则忽略错误（并保持为“False”）。
出错时继续下一步
IsACCDE=（CurrentDb.Properties（“MDE”）=“T”）
端函数

我使用Access VBA的一部分：

If IsCompiled = False Then
        DoCmd.RunCommand (acCmdCompileAndSaveAllModules)
End If

---

我使用Access VBA的一部分：

If IsCompiled = False Then
        DoCmd.RunCommand (acCmdCompileAndSaveAllModules)
End If

---

我找不到任何能始终给我正确答案的属性。然后我意识到这些方法都是我真正想知道的东西的近似值。现在我直接问它是否是一个accde

Private Function InDevelopment() As Boolean

On Error Resume Next

    InDevelopment = False
    InDevelopment = (InStr(CurrentDb.Properties("Name"), "accde") = 0)
End Function

---

我找不到任何能始终给我正确答案的属性。然后我意识到这些方法都是我真正想知道的东西的近似值。现在我直接问它是否是一个accde

Private Function InDevelopment() As Boolean

On Error Resume Next

    InDevelopment = False
    InDevelopment = (InStr(CurrentDb.Properties("Name"), "accde") = 0)
End Function

---

太好了！正是我想要的，真是一种享受。谢谢！如果答案解决了你的问题，你可以，这也标志着问题已经解决。@Barrysourthanks。我不确定该选项在哪里，但我找到了。太好了！正是我想要的，真是一种享受。谢谢！如果答案解决了你的问题，你可以，这就是o将问题标记为已解决。@BarrySeymourThanks.不确定该选项在哪里，但我找到了它。这回答了另一个问题。

IsCompiled

在.accde中始终为真，只有在.accdb中才可能为假。这回答了另一个问题。

IsCompiled

在.accde中始终为真，只有在.accde中才可能为假n.accdb