变速箱决策管理模块整机信息程序设计.docVIP

变速箱决策管理模块整机信息程序设计 一、先创建“整机库存计算”窗体“frmzjkc_cal_child”： 按照下面的属性设置控件： 写代码： Private Sub cmdOK_Click() 核算整机库存 Dim Month1 As String 月份 Dim date1 As String 月初第一天 Dim date2 As String 月末最后一天 Dim strsql1 As String Dim strsql2 As String Dim strsql3 As String Dim strsql4 As String Dim strsql5 As String date1 = # Me.sDate # 月初第一天 date2 = # Me.eDate # 月末最后一天 清空 整机库存计算的临时表 tblZjxx_temp表 DoCmd.RunSQL DELETE tblZjxx_temp.* FROM tblZjxx_temp; 求出上个月的月份 Month1 = # DMax([kcyf], tblZjkcyj) # If Month1 = ## Then 当没有一条记录时 MsgB