Access实体文件联合查询报错

zzg_123

用ACCESS 做窗体查询，报错代码如下:
Function 执行查询()
    Dim strWhere As String
    Dim strField As String
    Dim strFieldxm As String
    Dim strFieldlb As String
    Dim strFormat As String
    Dim strCaption As String
    Dim strCaptionlb As String
    Dim strCaptionxm As String

    Const xlCategory = 1

    If Nz(Me.开始日期) <> "" Then strWhere = strWhere & " AND 生产日期 >= #" & Format$(Me.开始日期, "yyyy-mm-dd") & "#"
    If Nz(Me.截止日期) <> "" Then strWhere = strWhere & " AND 生产日期 <= #" & Format$(Me.截止日期, "yyyy-mm-dd") & "#"
    If Nz(Me.项目名称) <> "" Then strWhere = strWhere & " AND ([项目名称] Like '*" & Me.项目名称 & "*')"


    If strWhere <> "" Then strWhere = " WHERE " & Mid(strWhere, 6)

    Select Case Me.区间单位
    Case 1
        strCaption = "日"
        strField = "生产日期"
        strFormat = "yyyy-mm-dd"
    Case 2
        strCaption = "周"
        strField = "Year([生产日期]) & '-' & Format(DatePart('ww',[生产日期]),'00')"
        strFormat = "yyyy-mm"
    Case 3
        strCaption = "月"
        strField = "Format([生产日期],'yyyy-mm')"
        strFormat = "yyyy-mm"
    Case 4
        strCaption = "季"
        strField = "Year([生产日期]) & '-' & DatePart('q',[生产日期])"
        strFormat = "yyyy-mm"
    Case 5
        strCaption = "年"
        strField = "Year([生产日期])"
        strFormat = "0"
    End Select

    strFieldxm = "统计项目"
    Select Case Me.统计项目
    Case 1
        strCaptionxm = "平均值"
        strFieldxm = "项目名称"

    Case 2
        strCaptionxm = "最大值"
        strFieldxm = "项目名称"

    Case 3
        strCaptionxm = "最小值"
        strFieldxm = "项目名称"
    End Select

    strFieldlb = "项目名称"
    Select Case Me.项目名称
    Case 1
        strCaptionlb = "项目名称"
      strFieldlb = "项目名称"

    End Select


    Me.子窗体!周期.Controls(0).Caption = strCaption
    Me.子窗体!项目名称.Controls(0).Caption = strCaptionlb
    Me.子窗体!统计项目.Controls(0).Caption = strFieldxm ------------报错位置

    Me.子窗体.Form.RecordSource = " SELECT " & strField & " AS 周期," _
                             & strFieldlb & " AS 项目名称,Avg(" & strFieldxm & ") AS 平均值 , Min(" & strFieldxm & ") AS 最小值 , Max(" & strFieldxm & ") AS 最大值 " _
                             & " FROM mainlist" & strWhere _
                             & " GROUP BY " & strField & "," & strFieldlb & ";"

    Me.Graph.RowSource = " TRANSFORM Avg(" & strFieldxm & ") AS 平均值 , Min(" & strFieldxm & ") AS 最小值 , Max(" & strFieldxm & ") AS 最大值" _
                       & " SELECT " & strField & " AS 周期" _
                       & " FROM mainlist" & strWhere _
                       & " GROUP BY " & strField & "" _
                       & " PIVOT " & strField
    On Error Resume Next

    Me.Graph.Axes(xlCategory).TickLabels.NumberFormatLocal = strFormat
End Function
请大家帮忙看一下，谢谢！

ly

zzg_123

ly 发表于 2021-12-28 19:20

这个项目名称是我要在子窗体显示出来的内容

zzg_123

ly 发表于 2021-12-28 19:20

附件有实体文件，请老师帮忙看一下，谢谢

ly

zzg_123 发表于 2021-12-29 08:55
这个项目名称是我要在子窗体显示出来的内容

你仔细观察一下，子窗体上有没有你代码中写的名称的控件？

zzg_123

ly 发表于 2021-12-29 18:35
你仔细观察一下，子窗体上有没有你代码中写的名称的控件？

老师可否加你一个QQ聊一下

ly

zzg_123 发表于 2021-12-29 08:55
这个项目名称是我要在子窗体显示出来的内容

zzg_123

ly 发表于 2021-12-30 15:18

可否加你一下QQ，谢谢

zzg_123

ly 发表于 2021-12-30 15:18

您好，帮我看下我发的ACCESS，主要是实现在主窗体选择的内容，在子窗体显示出来，现在是打开直接报错，帮我下谢谢了

ly

zzg_123 发表于 2021-12-31 14:34
您好，帮我看下我发的ACCESS，主要是实现在主窗体选择的内容，在子窗体显示出来，现在是打开直接报错，帮 ...

具体是什么错误呢？无图无真相哎