首页 文章

带有多页用户表单的运行时错误'3704'

提问于
浏览 次
2

我试图通过在Excel中通过VBA构建用户表单来构建数据库的简单前端 . 表格是多页的 . 当我在第一页上工作，并使用 UserForm1.Show vbModeless 打开用户表单时，我没有任何问题 . 第二页出现了，什么都没有 . 对于后台，第一页是输入信息以插入数据库的位置，第二页将是编辑这些字段并更新记录的页面 . 现在我开始构建第二页，当我尝试使用 UserForm1.Show vbModeless 启动用户窗体时，收到以下错误 . 每个页面包含的所有内容都是一堆标签，每个标签都带有相应的文本框或组合框 .

Run-time error '3704'

Operation is not allowed when the object is closed.

如何打开它以显示它？

调用以打开userform的代码是：

Option Explicit

Sub Show_Form()
UserForm1.Show vbModeless
End Sub

初始化代码是：

Private Sub UserForm_Initialize()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String, NextAM As String

With conn
    .Provider = "SQLOLEDB"
    .ConnectionString = "DATA SOURCE = server;Initial Catalog=database;INTEGRATED SECURITY=sspi;"
    .Open
End With

strSQL = "SELECT MAX(RIGHT(AM_Ref,6)) + 1 FROM AM"

rst.Open strSQL, conn

With ThisWorkbook
    If Len(rst(0)) = 3 Then
        .Sheets("Lists").Range("Next_AM") = "AM_000" & rst(0)
    ElseIf Len(rst(0)) = 4 Then
        .Sheets("Lists").Range("Next_AM") = "AM_00" & rst(0)
    ElseIf Len(rst(0)) = 5 Then
        .Sheets("Lists").Range("Next_AM") = "AM_0" & rst(0)
    End If

    Me.AM_Ref.Text = .Sheets("Lists").Range("Next_AM").Value2
End With

rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing


With Me
    .StartUpPosition = 0
    .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
    .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With

End Sub

请注意，initialize sub与之前的相同 . 如果我一直不清楚（可能）请告诉我，我可以澄清一下 .

干杯!

vba excel-vba ado userform excel

1 回答

  • -1

    几个快速修复，你应该关闭并运行：

    1）将 Private Sub UserForm_Initialize() 更改为 Public Sub UserForm_Initialize()

    2）在master sub中要启动 UserForm 时，请使用以下命令：

    Public Sub MasterSub()
   Dim UserForm as UserForm1
   .... code ..... 
   'Now ready to use the UserForm:
   Set UserForm = New UserForm1
   'UserForm will already be initialized and ready to be shown if you did not include that in your initialize sub
   UserForm.Show
End Sub

    希望这会有所帮助，TheSilkCode

    回复于

相关问题