此代码如何添加？？？

lixiang_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

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

lixiang_30

回复 tmtony 的帖子

谢谢师傅！！
   

lixiang_30

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


   

tmtony

如果是文本，前后要加 引号
Sql = "INSERT INTO 表1 ( 件号, 件名规格,文本) SELECT 件号,件名规格,‘" & datInput & "’ FROM " & jitaixinghao

类似这样