每次尝试打开 Visual Basic 时，MS Access 都会崩溃

Question

所以我有一个拆分数据库。

dbBackEnd: Lives on the network drive, users don't touch it except through the front ends.
dbFrontEndv1:Stored by me for safekeeping, works fine
dbFrontEndv2:Stored by me for safekeeping, works fine
dbFrontEndv3:Users are interacting with this now, works fine
dbFrontEndv4: Freezes every time I try to do something in VBA

我现在玩了六次的游戏就是这个。

(1) 将 dbFrontEndv3 复制到新文件夹并重命名为 dbFrontEndv4。

(2) 打开dbFrontEndv4，打开Form1。如果我现在保存并重新输入它就可以正常工作。

(3) 添加1或2个命令按钮。触发宏的命令按钮工作正常。 VBA 是这里的麻烦。

(4) 编译，无错误。

(4) 保存退出

(5) 打开dbFrontEndv4，点击表格或其他与VBA.

相关的内容

(6) 错误："Microsoft Access is not responding..."、“Access 正在重新启动。

在添加和减去订阅、保存、关闭和重新打开之后，这似乎是有问题的。

Private Sub cmdMCF_Click()
Dim appExcel As Excel.Application
Dim wbook As Excel.Workbook
Dim wsheet As Excel.Worksheet

Set appExcel = New Excel.Application
appExcel.Visible = True
Set wbook = appExcel.Workbooks.Open("C:\Path\MyDoc.xlsx")
Set wsheet = wbook.Worksheets("MCF")

With wsheet
    .Cells(10, 1).Value = txtCustomerName
    .Cells(10, 2).Value = txtCustomerNumber
    .Cells(10, 3).Value = txtAddress + " " + txtCity + " " + txtState + " " + txtzip

    .Cells(12, 1).Value = txtPhone
    .Cells(12, 2).Value = txtEmail
    .Cells(12, 3).Value = txtmeasurenumber

    .Cells(14, 1).Value = txtStore
    .Cells(14, 2).Value = txtAssignedIP

End With

End Sub

如果只是坐在代码中就可以了。但是当我为按钮 cmdMCF 命名时，错误就开始了。

事情是这个子，"Copy and Past"，现在正在 dbFrontEndv3 上使用。毫不费力地，我在实现 dbFrontEndv3 时遇到了同样的错误。但后来它工作得很好。

以上代码中的哪些内容可能导致这些随机崩溃？

Answer 1

我遇到过类似的问题，即在一个版本的访问中创建了一个表单，然后在另一个版本中进行了编辑。尽管这些文件应该在各个版本之间兼容，但还是存在一些差异。

尝试在您使用的版本中从头开始重新创建表单。

每次尝试打开 Visual Basic 时，MS Access 都会崩溃

MS Access crashes every time I try to open Visual Basic

ms-access

vba

ms-access-2013