|
sql = "insert into 电视业务发票 (用户编号,发票号码,开票日期,交款单位,地址,收费项目1,项目1单位,项目1数量,项目1单价,项目1金额,收费项目2,项目2单位,项目2数量,项目2单价,项目2金额,收费项目3,项目3单位,项目3数量,项目3单价,项目3金额,费用起始时间,费用截止时间,总金额,收款人) "
sql = sql & "values (" & Me.用户编号 & ",'" & Me.发票号码 & "','" & Me.开票日期 & "','" & Me.交款单位 & "','" & Me.地址 & "','" & Me.收费项目1 & "','" & Me.项目1单位 & "','" & Me.项目1数量 & "','" & Me.项目1单价 & "','" & Me.项目1金额 & "','" & Me.收费项目2 & "','" & Me.项目2单位 & "','" & Me.项目2数量 & "','" & Me.项目2单价 & "','" & Me.项目2金额 & "','" & Me.收费项目3 & "','" & Me.项目3单位 & "','" & Me.项目3数量 & "','" & Me.项目3单价 & "','" & Me.项目3金额 & "','" & Me.费用起始时间 & "','" & Me.费用截止时间 & "','" & Me.总金额 & "','" & strUserName & "')"
DoCmd.RunSQL sql
|
|