Access实体文件联合查询报错

zzg_123

ly 发表于 2021-12-31 16:30
具体是什么错误呢？无图无真相哎

帖子里面文件，您点主窗体会有报错提示，另外您加一下我QQ帮我远程看一下，有偿帮忙

zzg_123

ly 发表于 2021-12-31 16:30
具体是什么错误呢？无图无真相哎

文件是改别人的加上本身对VB不熟悉，所以一直卡在哪里

zpy2

zzg_123 发表于 2021-12-31 16:41
文件是改别人的加上本身对VB不熟悉，所以一直卡在哪里

这个文件是哪里下载的？Accessoft?office-cn?

alt+f11
进入vbe，我记得 菜单 工具>编译 看看vba是否正常，有可能引用的库啥有没问题。

另外，mdb是老版本access的，如果有access2003可以试试。

ly

zzg_123 发表于 2021-12-31 16:41
文件是改别人的加上本身对VB不熟悉，所以一直卡在哪里

图1、楼上已有解决帖子
图2、记录源替换为自己的查询即可
图3、第2个问题解决了，就不会有这样的提示了

zzg_123

ly 发表于 2021-12-31 19:07
图1、楼上已有解决帖子
图2、记录源替换为自己的查询即可
图3、第2个问题解决了，就不会有这样的提示了

加你一下QQ可以吗？或者您加我QQ1127929221,谢谢

zzg_123

ly 发表于 2021-12-31 19:07
图1、楼上已有解决帖子
图2、记录源替换为自己的查询即可
图3、第2个问题解决了，就不会有这样的提示了

请老师帮忙回答一下谢谢！

ly

zzg_123 发表于 2022-1-4 12:19
请老师帮忙回答一下谢谢！

sorry，我不用qq的啦。

引用项目名称在子窗体显示，可以这样：

1. strFieldxm = "[" & Me.项目名称 & "]"

复制代码

zzg_123

ly 发表于 2022-1-4 20:34
sorry，我不用qq的啦。

引用项目名称在子窗体显示，可以这样：

统计项目里面的计算机平均值，最大值，最小值，怎么写代码

ly

zzg_123 发表于 2022-1-5 14:33
统计项目里面的计算机平均值，最大值，最小值，怎么写代码

业务不熟，最好有描述模拟数据结果。

zzg_123

ly 发表于 2022-1-5 21:37
业务不熟，最好有描述模拟数据结果。

还是这个图片，选择项目名称中数据，选择统计项目（项目名称），区间单位，图表式样能在子窗体显示，代码执行卡在了统计项目这里，对应代码如下：
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

请老师帮我排查一下，谢谢