我正在使用MS Access,我目前正在试用导航子表单。但是,我发现很难理解如何简单地更改子表单的记录源。我的"NavigationSubform“中的一个选项卡名为"nbCustomerList",其目标导航名为"CustomerList”。在CustomerList表单中,有一个按钮在单击时打开一个弹出窗口,允许您在CustomerList上筛选查询。如何从这样的事件实现对记录源的更改?
Private Sub btnSearch_Click()
On Error GoTo HandleError
If CurrentProject.AllForm
我有一个表的两个子窗体,每个子窗体都在Access中,都在数据表视图中。这些表都有一个共同的字段来链接它们。
当第一个子窗体的字段被选中时,我想过滤第二个子窗体。查询非常简单,但是脚本的其余部分我不知道怎么做,因为我对在Access中编写代码一无所知……
SELECT *
FROM table1 t1 INNER JOIN table2 t2 ON t1.CP_ID_CLIENT = t2.CP_ID
WHERE t2.CP_ID = (record selected of the first subform)
提前谢谢你
我目前正在使用Access 2007创建一个窗体,其中的组合框可以过滤可编辑子窗体。
该子窗体基于一个查询,该查询从组合框中获取一个Project_ID,并根据该Project_ID号过滤子窗体表。在窗体视图中,我可以更改组合框,并在手动刷新后过滤子窗体。但是,子窗体不会随着组合框的更改而自动过滤。
我不知道哪里出了问题。我尝试了多种VBA变体,但都不起作用。我目前正在使用更改后的VBA脚本来加载子窗体。
Private Sub cboProjectSelect_AfterUpdate()
Me!Project_Tracker_Subform.Form.Requery
End Sub
我正在创建一个MS Access 2010数据库,以允许用户输入一系列将在查询中使用的数据。
我有一个名为"Entry“的主窗体和一个名为"SubEntry”的绑定子窗体(用于查看输入的记录)。主窗体(Entry)由文本/组合框控件组成,允许用户键入值,例如:
**Controls ControlSource**
Date "Entered by the user"
CompanyID "Entered by the user"
TicketID "Entered by
我在MS Access中创建了一个窗体,其中有10个按钮模拟数字键盘(只有0..9的值)。 每次单击这些按钮时,我都想更改子窗体中的combobox控件的值。组合框控件名为"projectID“ 我试过了,但它不同于在键盘上按相同的键。 Private Sub Buton3_Click()
Call Me.frmServDedicacion_Subformulario.Form.projectID_KeyPress(51) 'Ansii code for 3
end sub 我将此过程作为按键事件来验证是否执行了combobox方法,它确实执行了(消息框是ok的),但是c
我正在尝试找出构建动态查询的最佳方法,并将其用作MS Access子窗体的记录源。我现在静态地分配了WHERE子句,这样我就可以构建表单,并确保数据被正确提取。主窗体将有两个格式为ShortDate的文本框和下面的两个带有查询结果的子窗体。第一个子窗体是按员工姓名分组的查询,第二个子窗体是部门总数的总和。
FWIW这是Access 2010 ADP/ADE前端,SQL Server 2008后端。我当前用于部门合计的SQL如下:
SELECT COUNT(*) AS TotalNumEstimates, SUM(NumPanels) AS TotalNumPanels, SUM(
我在MS Access中有一个报告,它从查询中获取信息。
在查询中有时间选择,以便显示用户设置的时间间隔之间的信息。
我用来创建这个的标准是:
Between [Enter start date:] And [Enter end date:]
我希望当用户输入开始日期和结束日期时,立即在我的报告中显示它。
我试着创建两个文本框,并使用相同的代码,但我最终得到的是同一个输入框两次,而实际上,我只希望输入一次。
有谁可以帮我?
我正在尝试访问连续窗体中的值,然后将其传递给打开的新表单。我使它正常工作,但只有当原始表单直接打开时,它才能工作。当窗体嵌入到另一个窗体中时,如果尝试运行此操作,则会失败。
我所犯的错误是;
运行时错误“2450”:MS access找不到引用的“ViewerForm”
我使用的代码是;(这里提供:)
Dim r As DAO.Recordset
Set r = Forms![ViewerForm].RecordsetClone 'Clone the recordset
r.Bookmark = Forms![ViewerForm].Bookmark 'Navigate to