汇总语句总是不对 帮忙啊

shitou1ge

图片中zzz  为主机　　zzz=zzz\001+zzz\003+zzz\11+zzz\12   可是我的总是没有数字显示　　倒底是咋回事　小妹请大家帮忙


Private Sub 主机统计()
  Dim jilu As Long, i As Long, j As Long, BBB As String
  Dim AAA As Long, sum
  
    DoCmd.OpenForm "定额明细总表1", , , , , acHidden
Forms!定额明细总表1.Requery
  jilu = DCount("cpbm", "汇总表")

  For i = 1 To jilu
   If IsNull(Forms!定额明细总表1!CPLX) Then
    Else
        If Forms!定额明细总表1!CPLX = "主机" Then
           AAA = Forms!定额明细总表1!编号
           BBB = Forms!定额明细总表1!CPBM

        
            sum = 0

            DoCmd.GoToRecord , "定额明细总表1", acFirst
            For j = 1 To jilu
      If (Forms!定额明细总表1!CPLX = "组件" Or Forms!定额明细总表1!CPLX = "零件") Then
　　　　If Forms!定额明细总表1!CPBM Like BBB & "*" And Len(Forms!定额明细总表1!CPBM) < 8 Then
　　　　　　　sum = sum + Forms!定额明细总表1!CLGYZJE
     　　　End If
        End If
              DoCmd.GoToRecord acDataForm, "定额明细总表1", acNext
            Next
             DoCmd.GoToRecord acDataForm, "定额明细总表1", acGoTo, AAA
            

            
             Forms!定额明细总表1!CLGYZJE = sum
                    End If
    End If
    DoCmd.GoToRecord acDataForm, "定额明细总表1", acNext
  Next
    DoCmd.Close acForm, "定额明细总表1"
End Sub

chuang0321

我也是边学边上网查的。编程的首要关键应该是理清数据关系，然后是掌握必要的调试验证方法，因为这些是需要积累的。

shitou1ge

大哥　问题所在正如您所说啊

shitou1ge

好谢谢大哥   大哥 您能给我推荐本书吗  能学好access 的  我现在就是一个愣头青 这里弄一点那里弄一点  唉 想把它学好 又不知怎么学 嘿  

chuang0321

我看了一下，原因应该在你的表格中有“Forms!定额明细总表1!CLGYZJE”值为空的时候，建议将所有空值置为零。

调试的时候多利用msgbox 来返回想要监视的值，就可以发现问题。


考虑到你说得的保密性，我已经将我下载的文件删除了。

shitou1ge

代码没什么　都是此笨法　　主要是有些数据　嘿　　谢谢大哥帮忙啊

chuang0321

我已经下载完了。

不好意思，我看见代码了。

shitou1ge

7个　每个才３Ｍ多　您下完了告我一声　我得把它删掉啊

chuang0321

多少个包？

shitou1ge

总算传完了　天啊