strSql = "INSERT INTO 采购表（采购编号,书籍名称,采购数量,书籍分类,采购日期,备注)"
strsql=strsql&"values('"
strsql=strsql&[forms]![采购表]![text1]
strsql=strsql&"','"&[forms]![采购表]![combo27]
strsql=strsql&"','"&[forms]![采购表]![text5]
strsql=strsql&"','"&[forms]![采购表]![combo31]
strSql = strSql& ',#'&[Froms]![采购表]![text7]
strsql=strsql&"#,"|if(isnull([forms]![采购表]![text14]),"null","'"&[forms]![采购表]![text14]&"'")
strsql=strsql&")"
DoCmd.RunSQL
MsgBox "系统已成功录入"
End Sub

别沉啊~~~ 在线等大神！

docmd.runsql “sql语句”

谢谢各位大神啦，问题解除了
不过又有了新问题

实在是不懂，硬生生让我做一个图书库房管理系统。。。。真心麻爪啊。。。