问题[ms-access](coding)

我在 MS Access 中有一个分割表单，其中我插入了多个命令按钮。

从左到右依次为：

• （A）cmdClearAllFilter
• （B）cmdFilterBySelection
• （C）cmdFilterByForm
• （D）cmdToggleFilter

我希望这些按钮能够执行与功能区中的按钮完全相同的操作。

我让 (A) 和 (C) 与以下 VB 一起工作：

Private Sub cmdClearAllFilter_Click()
    DoCmd.RunCommand acCmdRemoveFilterSort
End Sub

Private Sub cmdFilterByForm_Click()
    DoCmd.RunCommand acCmdFilterByForm
End Sub

但是我仍然对（B）和（D）感到困惑，我希望它们的行为就像单击下面标记的功能区中的按钮一样（最好使用DoCmd.RunCommand自定义 VB）：

对于（B），我尝试了：

Private Sub cmdFilterBySelection_Click()
    DoCmd.RunCommand acCmdFilterBySelection
End Sub

我无法描述它的行为，因为我不完全理解它的作用。我只能得出一个结论：它的行为不像功能区按钮（下拉菜单在标记的单元格/字段/属性/值上提供 4 个筛选选项）。

对于（D），我尝试了：

Private Sub cmdToggleFilter_Click()
    DoCmd.RunCommand acCmdToggleFilter
End Sub

这有两个问题：

1. 在功能区中的“实际切换过滤器”按钮被单击一次之前，该按钮不可单击。
2. 如果功能区按钮不可用（变灰），单击命令按钮将导致错误，我认为可以通过以下方式解决：On Error Resume Next。

任何帮助或指导都将不胜感激。

以下表达式适用于我的基于查询的财务报告（计算文本框），用于汇总当月收入和支出的类似收入

=Sum(IIf([be,bi,e,i]="i",[Inc £],0))

不过，我希望能够将当前月份与前几个月（即年初至今）相加，并尝试以下方法

 =Sum(IIf([EntryDate] >=DateSerial(Year(Date()),2,1) And <=Now()),(([be,bi,e,i]="i"),[Inc £],0)) 

但收到以下错误消息 - 您输入的表达式包含无效语法。您可能输入了逗号，但没有为其前面添加值或标识符。

我将非常感激对这个问题的任何帮助。

提前致谢。

已经将我的表情改为

=Sum(IIf([EntryDate] >=DateSerial(Year(Date()),2,1) And [EntryDate] <=Now()),(([be,bi,e,i]="i"),[Inc £],0))

但现在出现错误 - 您输入的表达式有一个包含错误数量参数的函数。

我想我需要更多的括号，但不确定它们应该放在哪里。

谢谢

我在这里找到了以下查询，发现它很有用。使查询适用于我的数据库后，我现在想向其中添加一个参数以过滤掉不需要的记录 - 该参数所需的表名为 Season，与成员表的联接为 seasons.idseasons = members.members id no，参数为 WHERE (((seasons.Season)=[enter season]))。

Select  (tMin.Initial1 + ' and ' + tMax.Initial1) As initial, tMax.surname1 As surname, tMax.[first line address], tMax.[second line address], tMax.town, tMax.postcode, tMax.GroupCount From (Select Distinct Max(initial) As initial1, Max(surname) As surname1,[first line address], [second line address], town, postcode, Count() As  GroupCount From members Group By [first line address], [second line address], town, postcode Having Count() = 2) As tMax Inner Join

   (Select Distinct Min(initial) As initial1, Min(surname) As surname1, [first line address],[second line address], town, postcode, Count(*) As GroupCount
   From members
   Group By [first line address], [second line address], town, postcode
   Having Count(*) = 2) As tMin

           On (tMax.[first line address] = tMin.[first line address]) And 
              (IIf(IsNull(tMax.[second line address]), '', tMax.[second line address]) = IIf(IsNull(tMin.[second line address]), '', tMin.[second line address])) And 
              (tMax.town = tMin.town) And  
               (tMax.postcode = tMin.postcode)

UNION ALL Select Max(initial) As initial1, Max(surname) As surname1, [first line address], [second line address], town, postcode, Count() As GroupCount From members Group By [first line address], [second line address], town, postcode Having Count() = 1 Or Count(*) > 2

ORDER BY surname, initial, town, postcode;

不确定参数应该放在代码中的什么位置。你能帮忙吗？

我不明白为什么大写字母在我的标题页控件中不起作用。我尝试了 VBA 代码，但控件未激活。我尝试了源代码控件：=Ucase([Famille])，但结果没有改变。我在格式部分尝试了“>”，结果相同。

我遗漏了什么（我使用的是 Access 2019）？谢谢帮助。Vincent

编辑：这是屏幕截图（法语）

我是 Microsoft Access 的新手，曾尝试查找如何编写查询条件，以返回当前日期前一年的日期。因此，由于今天是 2024 年 9 月 13 日，我希望返回 2023 年 9 月 13 日及之前的日期（例如 2023 年 8 月 10 日）作为项目。此条件的原因是为了显示我们数据库中的任何认证，如果它们已过期，则显示在查询中。我该如何编写此条件的代码？

到目前为止，我尝试寻找以下代码的变体。我知道该代码适用于当前日期之后的日期。

DateAdd("yyyy",-1,Date())

我在 MS Access 2021 中有一个表单，它显示一个数据表，该数据表依赖于参数“year”的值，该参数是同一表单中文本字段的值。此参数用于显示数据表中与给定年份相对应的行，方法是将数据表的记录源设置为参数查询的结果。我在查询中使用了带有表达式 [Forms]![FormSalesYear]![Year] 的 SQL 语句。表单中的按钮允许预览包含与数据表中相同记录（即给定年份）的报告。

这可以正常工作，但现在我想在报告中包含该年份的标题，例如“2024 年的销售额”。

这可能吗？我想我应该在某处使用相同的表达式 [Forms]![FormSalesYear]![Year]，但似乎我无法在标题文本字段的“Legend”属性中使用它。

感谢您的帮助。

我对一份报告有疑问。我需要在报告中的一个字段中计算结转到下一年的案件数量，因为这些案件在上一年没有结案。

我的查询由三个表组成。我得到 #error 的列我写了以下内容

Carryfoward:Iff([dateReceived]<[forms]![Form_Report]![textStartDate]) AND (IsNull([DispositionDate])),1,0)

字段 DispositionDate 位于 Table_Disposition 中

Carryfoward:Iff([dateReceived]<[forms]![Form_Report]![textStartDate]) AND (IsNull([DispositionDate])),1,0)  

我期望得到一个数字。当我从表单运行查询时，我得到一个弹出窗口，要求我输入 CarryForward 的参数值。当我从查询运行查询时，我在 CarryForward 列中得到 #error。

我正在尝试从两个一对多相关的表（Subattivita.ID-Eventi-IDSubattivita）中检索第一个表中的某些字段以及第二个表中的另外两个字段（最后一个 Eventi.Evento 和第一个 Eventi.DataInserimento）。

我不知道为什么以下 SQL 查询会出错。有人能帮忙吗？

第一表：Subattivita

第二桌：Eventi

所需查询结果：

我尝试使用以下 SQL 查询，但 Access 要求输入 u.Evento 值：

SELECT 
    t.ID, 
    u.Evento as LastEvento, 
    p.DataInserimento as FirstDataInserimento
FROM 
    ((Subattivita t
INNER JOIN 
    (SELECT IDSubattivita, MAX(ID) as MaxID FROM Eventi GROUP BY IDSubattivita) u ON t.ID = u.IDSubattivita)
INNER JOIN 
    (SELECT IDSubattivita, MIN(ID) as MinID FROM Eventi GROUP BY IDSubattivita) p ON t.ID = p.IDSubattivita);

在 MS Access 中，我通过 VBA 使用以下命令建立了到 Excel 工作簿的链接：

DoCmd.TransferSpreadsheet acLink，acSpreadsheetTypeExcel12Xml，“链接”，“C：\ Users \ mike \ Desktop \ bim2024.xlsx”，True，“Sheet1 $”

现在我需要通过 VBA 中的另一个命令删除该链接，但我不知道如何操作。

我尝试使用 .remove，但没有效果

我正在寻找一种创建内存数据表表单的方法。我喜欢使用断开连接的记录集的想法。但在将断开连接的记录集重新分配给表单后，我遇到了应用程序崩溃的问题。在 stackoverflow 上，我受到了HK1 先生的一篇帖子的启发，他在帖子中写道：

如果您从表中获取记录集（即使它是空表）然后断开连接，则可以解决此问题。

但怎么做呢？对于 DAO.Recordset，我收到错误：此类型的对象不支持操作。我尝试了所有类型的记录集，但没有帮助：

Sub testDynaset()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenDynaset)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

Sub testForwardOnly()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenForwardOnly)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

Sub testOpenSnapshot()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenSnapshot)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

Sub testOpenTable()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("MyLocalTable", dbOpenTable)
    rs.Connection.Close ' << error: Operation is not supported for this type of object
End Sub

对于 ADODB.Recordset，我不知道如何从本机本地或链接的 MS ACCESS 表获取它。请帮忙！