VBA 中，用DoCmd.OpenForm "窗体名1", acDialog 打开第2个窗体时出错，应该是差点什么，请指教

英雄归来　发表于：2018-02-17 22:06:01 　

复制

step 1：在access中，数据库1中，用DoCmd.OpenForm "窗体名1", acDialog，处理完后用DoCmd.Close关闭窗体，关闭access

step 2：然后打开数据库2，再用DoCmd.OpenForm "窗体名2", acDialog时，出错了，提示引用了不存在的窗体

单独做step1或step2均无问题

Top

伊西军发表于：2018-02-18 08:01:47

具体的代码截图出来看看

Top

英雄归来发表于：2018-02-18 17:55:53

If UCase(myaccess.CurrentDb.Containers("forms").Documents(i).Name) = "FTEST" Then
Foundflag1 = 1

‘*****************************打开窗体ftest***************************************’

DoCmd.OpenForm "ftest", acNormal '打开窗体ftest

‘**************************************************************************’
If myaccess.Forms(0).Controls("BTITLE").SpecialEffect = 4 Then
accesszf1 = accesszf1 + 2
End If

DoCmd.Close

End If

这个是在第一个库中打开第一个窗体

Top

英雄归来发表于：2018-02-18 18:01:49

If UCase(myaccess3.CurrentDb.Containers("forms").Documents(i).Name) = "FEMP" Then
Foundflag1 = 1
‘*****************************打开窗体FEMP***************************************’

DoCmd.OpenForm "FEMP", acNormal '打开窗体FEMP

‘******************************************************************************’

If myaccess3.Forms(0).Caption = "信息输出" Then
accesszf3 = accesszf3 + 2
End If

DoCmd.Close acForm, "FEMP"

End If

这个是在第二个库中打开第二个窗体

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

VBA 中，用DoCmd.OpenForm "窗体名1", acDialog 打开第2个窗体时出错，应该是差点什么，请指教