If IsNull(Me![入库时间]) = True Then
        '弹出提示“铝材类型”文本框不可以为空信息
        MsgBox "请输入“入库时间”，它不可以为空!", vbOKOnly, "输入“入库时间”"
        '把光标置于“铝材类型”文本框内
        Me![入库时间].SetFocus

    Else
        '为保存计划“查询语句”字符变量赋值
        STemp = "INSERT INTO 保护膜表"

        STemp = STemp & "( 序号,入库时间,入库单号,供应商,型号,粘度,"

        STemp = STemp & "保护膜,品名,厚度,宽度,长度,重量,"
        
        STemp = STemp & "库号,备注,剩余重量)"
        
        STemp = STemp & "VALUES ( ''&" & Rs.RecordCount + 1 & ","
        
        STemp = STemp & "'" & Me![入库时间] & "','" & Me![入库单号] & "',"
        STemp = STemp & "'" & Me![供应商] & "','" & Me![型号] & "',"
        STemp = STemp & "'" & Me![粘度] & "','" & Me![保护膜] & "',"
        STemp = STemp & "'" & Me![品名] & "','" & Me![厚度] & "',"
        STemp = STemp & "'" & Me![宽度] & "','" & Me![长度] & "',"
        STemp = STemp & "'" & Me![重量] & "','" & Me![库号] & "',"
        STemp = STemp & "'" & Me![备注] & "','" & Me![剩余重量] & "')"
        


剩余重量在那里添加语句 让 剩余重量 = 重量 呢？我添加都是出错，希望大侠指导下。。谢谢啦！~