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 (