好的我正在尝试以编程方式为访问数据库生成记录,但它会像宏一样显示,并且所讨论的代码行显示为红色。 我做错了什么?
Sub arrayData()
Dim custnames() As Varient
Dim num As Integer, dbs As Database, InsertRecord As String
Dim CustId As Integer, num1 As Integer
Dim CustName As String
Set dbs = CurrentDb()
CustId = 0
For num1 = 0 To 9
CustId = CustId + 1
custnames = Array("Peter", "Mary", "Frank", "Ian", "Ron", "Natalie","Radhu", "Jat", "David")
num = Int((9 - 0 + 1) * Rnd + 0)
// ERROR OCCURS ON THE LINE BELOW.
InsertRecord = "insert into CUSTOMER(CustNo,CustFName)values("&"'"&CustId&"'"&","&"'"&CustName&"'"&")"
dbs.Execute InsertRecord
Debug.Print CustId; CustName
End Sub
编辑:添加&在CustName之后
答案 0 :(得分:1)
尝试编写可读的字符串连接。而且,由于CustId是数字,没有引号:
InsertRecord = "insert into CUSTOMER (CustNo,CustFName) values (" & CustId & ",'" & CustName & "')"