Office中国论坛/Access中国论坛

标题: 此代码如何添加？？？ [打印本页]

---

作者: lixiang_30    时间: 2010-10-18 10:30
标题: 此代码如何添加？？？
Private Sub Command6_Click()
    Dim jitaixinghao As String '声明一个存放“机台型号”的数组
    Dim Sql As String '声明一个SQL查询变量
    jitaixinghao = Me.List15 '给机台型号表变量赋值
    If MsgBox("是否确定要机台数据？", vbYesNo, "警告") = vbNo Then Exit Sub
    Sql = "INSERT INTO 表1 ( 件号, 件名规格,日期) SELECT 件号,件名规格 FROM " & jitaixinghao
    CurrentDb.Execute Sql
    MsgBox "添加完毕.", vbInformation
    Me.表1_子窗体.Requery
    End Sub                                


这段代码中的Sql语句中追加到表1中的日期如何通过手写输入进去，因为现在我做的表1，是在不同日期进行输入的。

---

作者: tmtony    时间: 2010-10-18 11:16
可以用inputbox 获取日期 （或者直接获取当前系统日期date())
然后将获得的日期赋给变量 datInput
然后修改sql语句
Sql = "INSERT INTO 表1 ( 件号, 件名规格,日期) SELECT 件号,件名规格,#" & datInput & "# FROM " & jitaixinghao
   

---

作者: lixiang_30    时间: 2010-10-18 13:00
回复 tmtony 的帖子

谢谢师傅！！
   

---

作者: lixiang_30    时间: 2010-10-18 16:53


回复 tmtony 的帖子
假如用InputBOx获取的不是日期而是文本   在Sql = "INSERT INTO 表1 ( 件号, 件名规格,文本) SELECT 件号,件名规格," & datInput & " FROM " & jitaixinghao   这样好象不对（它先返回的是个以文本为标题的输入框），要怎么写？？？才直接把文本输入进去？


   

---

作者: tmtony    时间: 2010-10-18 23:10
如果是文本，前后要加 引号
Sql = "INSERT INTO 表1 ( 件号, 件名规格,文本) SELECT 件号,件名规格,‘" & datInput & "’ FROM " & jitaixinghao

类似这样

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3