此代码如何修改，提示参数不足？

lixiang_30

Private Sub Command4_Click()
Dim sql As String
Dim datinput As String
Dim jitaibianhao As String
datinput = InputBox("请输入")
jitaibianhao = InputBox("请输入机台编号")
If MsgBox("是否确定要机台数据？", vbYesNo, "警告") = vbNo Then Exit Sub
sql = "INSERT INTO 表1 ( 件号, 件名规格,日期,机台编号)  SELECT 件号,件名规格,#" & datinput & "#," & jitaibianhao & " FROM 表2"
     CurrentDb.Execute sql
    MsgBox "添加完毕.", vbInformation
    Me.表1_子窗体.Requery
End Sub


只要一输入汉字或字母就
提示 参数不足 期待是1  
输入数字是没有问题
如何修改？？？ 请高人指点！！

li08hua

看看你的表数据类型是否设置对了！

静儿

如果你的“机台编号”可以是字符型的，那命令应更改为：& "#,'" & jitaibianhao & "' FROM 表2"
可要仔细看哦。

xuwenning

datinput = InputBox("请输入")
‘输入日期
jitaibianhao = InputBox("请输入机台编号")
’输入机台编号

lixiang_30

回复 li08hua 的帖子
谢谢！！！这个办法好！！