超难的ACCESS入库出库结存明细账？？？

wx-x

如何实现附件中如窗体显示格式的库存明细查询啊？谢谢。
我希望能够查询每个品种每日的入库、出库、结存，本月合计、本年累计
如：
编码：1133
日期  单据编号 摘要         期初结存    入库    出库    结存
1-1                    期初结存           50                                    50
1-2       001       入库                      20                        70
1-3       002       出库                              10           60
1-5       003       入库                      100                     160
1-7       004       出库                              80           80
1-31     005       出库                              10           70
1-31                 本月合计                 120         100          70
1-31                  本年累计                 120          100         70

[ 本帖最后由 wx-x 于 2011-6-26 14:43 编辑 ]

wx-x

呵呵，版主，帮帮忙可以么？谢谢

aksufyy

您可以参考

yinjinliang

谢谢 我也正想做个这种报表

wx-x

aksufyy 发表于 2012-3-16 00:15
您可以参考

表"三栏账簿"的数据是怎么生成的啊？这是很多人都希望得到的，谢谢解答。

car2t

Private Sub cmdNewBook_Click()
On Error Resume Next
Dim intMonth%
Dim douBalance#
Dim douJF#, douDF#, douLJF#, douLDF#
Dim rskm As New ADODB.Recordset
Dim rsmx As New ADODB.Recordset
Dim rszb As New ADODB.Recordset
Dim strSQL$, strMXBM$
   
    DoCmd.RunSQL "DELETE * FROM 三栏账簿;"
    Child114.Requery
'    strSQL = "ALTER TABLE 三栏账簿 ALTER COLUMN Id COUNTER (1,1)"
'    DoCmd.RunSQL strSQL

    rszb.Open "三栏账簿", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
    strSQL = "SELECT 年度, 科目编码, 多栏账 FROM 会计科目表 " & _
            "WHERE 年度=" & ComboYear & " AND 多栏账=0 AND 是否末级=-1;"
    rskm.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
    Do Until rskm.EOF
   
        strSQL = "SELECT 年度,月份,日期, 凭证号, 摘要, 明细编码,借方, 贷方,余额 FROM 凭证明细 " & _
                "WHERE 年度=" & ComboYear & " and [明细编码] = '" & rskm("科目编码") & "' " & _
                "ORDER BY 日期,凭证号"
        rsmx.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        
        strMXBM = rsmx("明细编码")
        intMonth = rsmx("年度") + rsmx("月份")
   
        With rszb
            Do Until rsmx.EOF
                If rsmx("年度") + rsmx("月份") = intMonth Then
        
                    douJF = douJF + Nz(rsmx("借方"))
                    douDF = douDF + Nz(rsmx("贷方"))
                    douLJF = douLJF + Nz(rsmx("借方"))
                    douLDF = douLDF + Nz(rsmx("贷方"))
        
        
                    If rsmx("摘要") = "结转下年" Then
                        .AddNew
                        !id = .RecordCount + 1
                        !明细编码 = strMXBM
                        !摘要 = rsmx("摘要")
                        !借方 = Nz(rsmx("借方"))
                        !贷方 = Nz(rsmx("贷方"))
                        !方向 = "平"
              
                        .AddNew
                        !id = .RecordCount + 1
                        !明细编码 = strMXBM
                        !摘要 = "本年累计"
                        !借方 = douLJF
                        !贷方 = douLDF
                        
                        douJF = 0
                        douDF = 0
                        douLJF = 0
                        douLDF = 0
                        douBalance = 0
                    Else
        
                        If rsmx("摘要") = "上年结转" Then
                            .AddNew
                            !id = .RecordCount + 1
                            !明细编码 = strMXBM
                            !摘要 = rsmx("摘要")
                            douBalance = douBalance + rsmx("余额")
                            !方向 = Switch(rsmx("余额") > 0, "借", rsmx("余额") < 0, "贷")
                            !余额 = Abs(douBalance)
                        
                        Else
                            .AddNew
                            !id = .RecordCount + 1
                            !明细编码 = strMXBM
                            !日期 = rsmx("日期")
                            !凭证号 = rsmx("凭证号")
                            !摘要 = rsmx("摘要")
                            !借方 = rsmx("借方")
                            !贷方 = rsmx("贷方")
                            douBalance = douBalance + rsmx("余额")
                            !方向 = Switch(douBalance > 0, "借", douBalance < 0, "贷", douBalance = 0, "平")
                            !余额 = Abs(douBalance)
                        End If
                    End If
                    rsmx.MoveNext
                Else
                    If douLJF <> 0 Or douLDF <> 0 Then
                        .AddNew
                        !id = .RecordCount + 1
                        !明细编码 = strMXBM
                        !摘要 = "本月合计"
                        !借方 = douJF
                        !贷方 = douDF
                        
                        .AddNew
                        !id = .RecordCount + 1
                        !明细编码 = strMXBM
                        !摘要 = "本年累计"
                        !借方 = douLJF
                        !贷方 = douLDF
                    
                    End If
                    intMonth = rsmx("年度") + rsmx("月份")
        
                    douJF = 0
                    douDF = 0
                End If
            Loop
            
            If douJF <> 0 Or douDF <> 0 Then
            
                .AddNew
                !id = .RecordCount + 1
                !明细编码 = strMXBM
                !摘要 = "本月合计"
                !借方 = douJF
                !贷方 = douDF
               
                .AddNew
                !id = .RecordCount + 1
                !明细编码 = strMXBM
                !摘要 = "本年累计"
                !借方 = douLJF
                !贷方 = douLDF
               
            End If
        
            rsmx.Close
            .UpdateBatch
        End With
        
        douJF = 0
        douDF = 0
        douLJF = 0
        douLDF = 0
        douBalance = 0
        
        rskm.MoveNext
        
    Loop

    rskm.Close
    rsmx.Close
    rszb.Close
    Child114.Requery
End Sub

Private Sub ComboYear_AfterUpdate()
    RecordSource = "SELECT 科目编码, 科目名称, 多栏账 FROM 会计科目表 WHERE 年度=" & ComboYear & " AND 多栏账=0 AND 是否末级=-1; "
    List116.RowSource = RecordSource
    List116.Selected(0) = True
    cmdNewBook_Click

End Sub

Private Sub Form_Current()
    Child114.Form.Filter = "[明细编码] = '" & 细目 & "' "
    Child114.Form.FilterOn = True
End Sub

Private Sub Form_Load()

    RecordSource = "SELECT 科目编码, 科目名称, 多栏账 FROM 会计科目表 WHERE 年度=" & ComboYear & " AND 多栏账=0 AND 是否末级=-1; "
    List116.RowSource = RecordSource
    List116.Selected(0) = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyPageUp, vbKeyPageDown, vbKeyDown, vbKeyUp
        KeyCode = 0
    End Select
End Sub

Private Sub cmdClose_Click()           '
    DoCmd.Close

End Sub

Private Sub List116_Click()
Const QQ = """"
     With RecordsetClone
        .FindFirst "科目编码=" & QQ & List116 & QQ
        Bookmark = .Bookmark
     End With

End Sub

Private Sub 命令First_Click()
On Error GoTo err
   
    DoCmd.GoToRecord , , acFirst
    List116.Selected(0) = True
err:
End Sub

Private Sub 命令Previous_Click()
On Error GoTo err
   
    DoCmd.GoToRecord , , acPrevious
    List116.Selected(List116.ListIndex - 1) = True
err:

End Sub

Private Sub 命令Next_Click()
On Error GoTo err
   
    DoCmd.GoToRecord , , acNext
    List116.Selected(List116.ListIndex + 1) = True

err:
End Sub
Private Sub 命令Last_Click()
On Error GoTo err
    DoCmd.GoToRecord , , acLast
    List116.Selected(List116.ListCount - 1) = True

err:
End Sub

Private Sub cmdPreView_Click()
On Error GoTo err
    Dim stDocName As String
        stDocName = "明细账"
'        DoCmd.OpenReport stDocName, acPreview, , "年度=" & ComboYear & " AND 明细编码='" & 细目 & "'"
        DoCmd.OpenReport stDocName, acPreview, , "明细编码='" & 细目 & "'"
err:
End Sub
Private Sub cmdPrint_Click()
On Error GoTo err
    Dim stDocName As String
        stDocName = "明细账"
        DoCmd.OpenReport stDocName, acNormal, , "明细编码='" & 细目 & "'"
err:
End Sub

wx-x

car2t 发表于 2012-3-24 18:01
Private Sub cmdNewBook_Click()
On Error Resume Next
Dim intMonth%

这个代码放在什么位置？怎么编写进去啊？谢谢。

Renco

LZ强啊。半年的贴，还没弄清啊

susylin

首先佩服一下，解决了月结、年结问题。
能不能单独将月结数做个表，账簿只在查询时产生？

aksufyy

wx-x 发表于 2012-3-26 08:46
这个代码放在什么位置？怎么编写进去啊？谢谢。

你可以通过进入设计视图，右键单击要编写命令的按钮，选属性，点开后，可以看到左键单击什么的，选择事件过程，就可以编写进去了。或者你还可以通过从工具箱中选择命令按钮，修改好名称和标题之后，在工具--->宏--->VB编辑器中编写，这个和Excel的是一样的。