我不明白为什么这个查询不起作用.我用a msgbox来显示我的strSQL,但它对我来说看起来很完美.
Dim strSQL As String
strSQL = "INSERT INTO Jobs (Date, RefNo, ProjectID, PManager, PDesc, PONo, Src_Qty, WC_Qty, Rate, Total, Note, Company) "
strSQL = strSQL & "VALUES (" & JobDate.Value & ", '" _
& Text41.Value & "', '" _
& ProjectID.Value & "', '" _
& PManager.Value & "', '" _
& PDesc.Value & "', " _
& Text43.Value & ", " _
& Src_Qty.Value & ", " _
& WC_Qty.Value & ", " _
& newRate.Value & ", " _
& ProjTotal.Value & ", '" _
& Text38.Value & "', '" _
& newCompany.Value _
& "');"
MsgBox (strSQL)
DoCmd.RunSQL strSQL
Run Code Online (Sandbox Code Playgroud)
如果我没记错的话,你需要用英镑包装你的约会日期.
"VALUES (#" & JobDate.Value & "#, '" _
Run Code Online (Sandbox Code Playgroud)
而且我认为最后你不需要分号....
| 归档时间: |
|
| 查看次数: |
350 次 |
| 最近记录: |