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没有响应...”，“Acces正在重新启动。

在添加和减去潜艇，保存，关闭和重新打开之后，这似乎是令人讨厌的。

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时，错误就开始了。

事情是这个子，“复制和过去”，现在正在dbFrontEndv3上使用。实现dbFrontEndv3时，我遇到了同样的错误。但后来它运作良好。

上面的代码中可能会导致这些随机崩溃？

Answer 1

我有类似的问题，在一个访问版本中创建表单，然后在不同版本中编辑。虽然文件应该在不同版本之间兼容，但存在一些差异。

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

每次我尝试打开Visual Basic时MS Access崩溃

1 个答案: