繁体   English   中英

Access / VBA-表单属性是否使我的表保持打开状态?

Access / VBA - Are Form Properties keeping my tables open?

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

更新:我做了更多的测试,并禁用了添加的按钮,当我关闭表单时,表单仍将无法关闭连接。 我认为它与表单属性有关,而不是按钮后面的代码,或者按钮代码和表单具有冲突的属性,使表保持打开状态。

关闭VBA中的连接后,我还尝试设置rs = Nothing和db = Nothing。

所以我有一个子表单,被我的主表单调用。 发生这种情况时,我尝试使用下面的VBA代码填充一些控件。 但是,当我关闭子窗体并尝试从Mainform重新访问该子窗体时,它说: cporders2

Private Sub CommandDupe_Click()
Dim db As DAO.Database, rs As DAO.Recordset
Dim strSQL As String

Set db = CurrentDb()
strSQL = "SELECT TOP 1 CPOrders.Cust, Customer.NAME, CPOrders.CP_Ref, CPOrders.Slsman, CPOrders.Date_opn, CPOrders.CPSmall, CPOrders.InvIssu, CPOrders.InvNo, CPOrders.InvDate, CPOrders.DueDate, CPOrders.ETADate, CPOrders.Closed, CPOrders.Cust, CPOrders.Name, CPOrders.BuyerRef, CPOrders.ToCity, CPOrders.ToState, CPOrders.ToCtry, CPOrders.ToPort, CPOrders.Supplier, CPOrders.Origin, CPOrders.Product, CPOrders.GradeType, CPOrders.NoUnits, CPOrders.Pkg, CPOrders.Qty, CPOrders.TotSale, CPOrders.TotCost, CPOrders.GrMargin, CPOrders.[Sale$/Unit], CPOrders.[Cost$/Unit], CPOrders.OceanCost, CPOrders.OceanNotes, CPOrders.BLadingDate, CPOrders.USAPort, CPOrders.FOBCost, CPOrders.FASExportVal, CPOrders.InlandFrt, CPOrders.CommodCode, CPOrders.Notes, CPOrders.ProjCust, CPOrders.ProjValue, CPOrders.ContainerNumber, CPOrders.Vessel, CPOrders.Ord_Terms, CPOrders.Invoice_ID FROM Customer INNER JOIN CPOrders ON Customer.[CUST_#] = CPOrders.Cust ORDER BY CPOrders.Invoice_ID desc;"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)
rs.MoveFirst


CP_Ref.Value = rs("CP_Ref")
Slsman.Value = rs("Slsman")
Date_opn.Value = rs("Date_opn")
CPSmall.Value = rs("CPSmall")
InvIssu.Value = rs("InvIssu")
InvNo.Value = rs("InvNo")
InvDate.Value = rs("InvDate")
DueDate.Value = rs("DueDate")
Cust.Value = rs("Cust")
BuyerRef.Value = rs("BuyerRef")
ToCity.Value = rs("ToCity")
ToState.Value = rs("ToState")
ToCtry.Value = rs("ToCtry")
ToPort.Value = rs("ToPort")
Product.Value = rs("Product")
Supplier.Value = rs("Supplier")
GradeType.Value = rs("GradeType")
Origin.Value = rs("Origin")
NoUnits.Value = rs("NoUnits")
Pkg.Value = rs("Pkg")
Qty.Value = rs("Qty")
TotSale.Value = rs("TotSale")
TotCost.Value = rs("TotCost")
OceanCost.Value = rs("OceanCost")
OceanNotes.Value = rs("OceanNotes")
BLadingDate.Value = rs("BLadingDate")
USAPort.Value = rs("USAPort")
FOBCost.Value = rs("FOBCost")
Notes.Value = rs("Notes")
InlandFrt.Value = rs("InlandFrt")
CommodCode.Value = rs("CommodCode")
Vessel.Value = rs("Vessel")
ContainerNumber.Value = rs("ContainerNumber")
ProjCust.Value = rs("ProjCust")
ProjValue.Value = rs("ProjValue")


rs.Close
db.Close

如您所见,我确实关闭了rs和db ...在关闭子窗体后,我还能做些什么来确保关闭此连接? 我需要能够从MainForm持续访问此对象。

提前致谢!!! 我还添加了不会关闭的表单的表单属性 在此处输入图片说明

问题暂未有回复.您可以查看右边的相关问题.
2 MS Access是否使对象保持打开状态?

我试图弄清楚在构建和运行报告时MS Access如何处理打开的数据库对象。 每个报表中都有数十个查询,而且由于我的数据库已标准化,因此每个查询都在查看许多不同的表。 但是,我似乎总是会达到打开许多数据库对象的地步,以至于Access不会让我在报表中包含更多查询。 我对如何生成报告的想法 ...

3 python webbrowser使外壳保持打开状态

我使用webbrowser模型制作了一个小型python程序,该程序应该在浏览器中打开一个新标签,然后转到http://kivy.org/#home 。 我使用linux shell运行它,并且运行良好,打开了一个新标签,并转到http://kivy.org/#home 。 但是当我想再次运 ...

4 如何使Photoshop CS6保持打开状态

我正在研究一个保持打开状态(闲置状态)的applescript,以查看文件夹并处理每个传入的项目。 但是,我无法遍历传入的文件(如果有)。 如何解决这个问题? ...

5 Tilix使窗口保持打开状态

我正在尝试Tilix,并希望自动打开某些终端并将其保持打开状态。 tilix -a session-add-right -x "ls" tilix -a session-add-right -x "watch ls" 使用第一个命令,终端自动关闭。 仅第二个命令使终端保持打开状态,因为该命令仍 ...

6 如何仅使活动按钮保持打开状态?

我想出了一个不是很好的解决方案,因为它在div中显示了7个按钮和信息。 但是,我希望在单击新按钮时关闭div。 我的解决方案也是非常重复的。 javascript代码...冗长的解决方案,用于通过每个按钮访问每个div ...单独工作 function myRoot() ...

7 使面板永远保持打开状态

我的firefox插件使用面板,当我单击其他位置时,面板消失,包括切换选项卡。 以下是它的代码 当我单击该图标时,它会显示其上方的面板,但是当焦点移开时,它会立即关闭并重新开始。 我如何确定,它在失去焦点时不会关闭,但是我需要再次单击小部件以将其隐藏。 ...

8 改进VBA代码-运行后使单词实例保持打开状态

我有一个Excel代码可以生成单个单词邮件合并文档。 一切正常。 唯一的问题是,在运行代码并关闭excel之后,taskmanager中仍在运行一个单词实例。 有人可以帮我解决这个问题吗? 到目前为止,我的代码是: 私人子CommandButton1_Click() ...

2019-02-13 15:00:42 1 62   excel/ vba
10 如何检查Access 2010表单实例是否仍处于打开状态?

前言 我需要创建一个搜索表单的多个副本(在Access 2010中 ),该副本将向调用返回一个值(这也是创建表单实例的表单)。 如前所述,这些表单可以并且将同时运行多个副本,例如,用户可能想将公司添加到某项中,因此: 点击“选择公司”,然后打开公司搜索屏幕的实例 然 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM