A. 我用access代码器写的，出现错误，错误指在rs.update那里。我错在哪
看你的这段：
If yn = 1 Then
Set rs = New ADODB.Recordset
rs.Open "select * from 图书销售表", CurrentProject.Connection, 3, 3
rs.AddNew
rs("图书编号") = 图书编号
rs("图书名称") = 图书名称
rs("销售日期") = 销售日期
rs("销售数量") = 销售数量
rs("价格") = 价格
rs("操作员") = 操作员
rs.Update （提示错在这个地方，怎么改）
1、要确定每个字段名都没错
2、要确保rs.AddNew以后，你给这行新加记录中的每个字段都设了值（尤其是禁止空值的字段），要检查你的图书销售表，看看是不是每行记录都只有图书编号、图书名称、销售日期、销售数量、价格、操作员这么6个字段
3、要看看你的图书销售表中的“图书编号”字段是不是自动编号，如果是自动编号，你就不要再用“rs("图书编号") = 图书编号”给它设置值了
4、如果以上检查都没问题的话，把你的这句：
rs.Open "select * from 图书销售表", CurrentProject.Connection, 3, 3
改为：
rs.Open "select * from 图书销售表", CurrentProject.Connection, 1,2
试试
B. access vba 自定义函数 编译错误 参数不可选， 请高手帮修改一下，
修改函数声明部分，别的不变：
Function Tax(xVuale , MVuale ) As Double
参考：
ByRef 参数类型不匹配
按缺省规定，一个以 ByRef （按址）方式传递的参数，必须具有该过程所允许的正确数据类型。这个错误的起因与解决方法如下所示：
传递的参数，其类型不能被强迫转成所需的类型。
例如，如果预期的是 Long，而传递的却是 Integer 变量，就会生成错误。假如您想要避免发生这种情形，可以将参数放在括号中来传递。例如，若要传递 Variant 参数 MyVar 至一个必须是 Integer 参数的过程，您可撰写以下的调用：
Dim MyVar
MyVar = 3.1415
Call SomeSub((MyVar))
Sub SomeSub (MyNum As Integer)
MyNum = MyNum + MyNum
End Sub
将参数放在括号中，强迫其作为一个表达式来计算。在此期间，数值的小数部分会被四舍五入（并非被截断），使它符合所预期的参数类型。计算结果会被放在一个临时区，而该过程会收到该临时区的地址。因此，原来的MyVar 会保留其值。
注意 假如您不指定变量类型，则此变量会以缺省的类型 (Variant) 被接收。这并不一定是明显的。
例如，下列的过程代码声明两个变量，第一个变量 MyVar 是一个Variant；而第二个变量 AnotherVar 是一个 Integer。
Dim MyVar, AnotherVar As Integer
C. access 数据库运行 保存按扭一按提示编译错误 类型不匹配！代码如图 求指导
不用这样判断是否存在，这种代码是很低效的
这样判断
dim rst as recordset
'假定 借书证ID 为一个字符串字段
set rst＝currentdb.openrecordset("select 借书证ID from 借书证档案 where 借书证ID='" & me.借书证ID & "'" )
if nz(rst.借书证ID,"")="" then
msgbox "已经存在"
exit sub
end if
rst.close
set rst=nothing
D. 在excel vba中运行正确，在access vba中却提示“编译错误，方法和数据成员未找到”，为什么
ACCESS中哪来的Sheet1？这是EXCEL中的单元表，ACCESS中没有这个的，所以
x = Sheet1.UsedRange.Rows.Count
就会出错了。
E. Access2010 编译出现 无效的sql语句，期待‘DELETE’、‘Insert’
把这句
strSQL = "SELECK * FROM [SwitchboardItems]"
改成
strSQL = "SELECT * FROM [SwitchboardItems]"
再试试。
F. Access VBA 编译错误 缺少语句结束
VBA中不能直接执行SQL
需要用CurrentDb.Execute("SQL语句")来执行
另外，你的SQL也有问题，文本型的数据应该有单引号
CurrentDb.Execute("update 年度卡号 set 卡号 = 'nkkh', 当前 = 1 where 年度 = 'nknd'")
G. ACCESS数据库代码错误：运行时错误‘’类型不匹配。截图如下，如何解决
调整一下代码
'.......
ElseIfIsNull(Trim(Me.Text6))Then'此行需要修改
'上句修改为下句
ElseIfnotIsDate(Trim(Me!Text6))Then'Me后面使用叹号引用用户控件比用点号代码更健壮
MsgBox("投资时间不得为空")'此行需要修改,注意使用MsgBox()函数不太恰当
'上句修改为下句
MsgBox"投资时间必须是一个有效日期且不得为空"'注意使用MsgBox语句更好
ExitSub'注意每个消息框后面要加这句
'........
Withrs
!投资时间=Trim(Me.Text6)
'上句修改为下句
!投资时间=CDate(Trim(Me!Text6))
'........
H. Access 里用VB语言Sub getFileName()，一直提示编译错误：变量未定义，请高手指点。
错误信息.Visible = False 这句话的前提条件是你要有这个对象，比如你的一个标签的名称修改为“错误信息”，就不会出错了。最后这段代码似乎有些问题：Me![照片路径].Visible = True
，后面马上有一句Me![照片路径].Visible = False，这2句的操作有一个是多余的。
其它有什么错误，这里看不出。
I. access VBA提示编译错误：变量未定义
错误的变量名: 公共小组委员会() sngcommission as singlesngcommission = 0.02 if (