错误：M $ jet数据库引擎无法将“AA0023”识别为有效字段名称 [英] Error: M$ jet database engine does not recognize 'AA0023' as a valid field name

问题描述

我使用M.S.Access作为后端数据库并且能够从Excel添加记录但不能编辑&参考excel中给出的单元格值，从M.s Access更新特定记录。 Kinldy帮帮我。


问候，

ANANTH

I am using M.S.Access as backend database and able to add records from Excel but not able to Edit & Update the specific record from M.s Access with reference to cell value given in excel. Kinldy help me.

Regards,
ANANTH

推荐答案

我使用MSAccess作为后端数据库并能够从Excel添加记录但无法编辑&参考excel中给出的单元格值，从M.s Access更新特定记录。 Kinldy帮帮我。


问候，

ANANTH

I am using M.S.Access as backend database and able to add records from Excel but not able to Edit & Update the specific record from M.s Access with reference to cell value given in excel. Kinldy help me.

Regards,
ANANTH

如果你的表和工作簿是关联的，请参阅Microsoft的以下知识库文章：

http：/ /support.microsoft.com/kb/904953

请帮我解释一下这段代码。我无法解决这个问题。


Sub EDIT_UPATE（）

Dim Path As String

Dim rs As DAO。记录集

Dim AccountId As String


Path =" C：\Documents and Settings\Jaganmohan\Desktop\db1.mdb"

设置Db =工作空间（0）.OpenDatabase（Path，ReadOnly：= True）

设置rs = Db.OpenRecordset（" Accounts"）

>
rs.FindFirst" AccountId = 2235" ''DAO只有


如果不是rs.NoMatch那么


rs.Edit''DAO only

rs ！金额= 200

rs.Update

Else

MsgBox" Record not Found"

End If


End Sub

Kindly help me on this code. I am not able to work on this.

Sub EDIT_UPATE()
Dim Path As String
Dim rs As DAO.Recordset
Dim AccountId As String

Path = "C:\Documents and Settings\Jaganmohan\Desktop\db1.mdb"
Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
Set rs = Db.OpenRecordset("Accounts")

rs.FindFirst "AccountId = 2235" '' DAO only

If Not rs.NoMatch Then

rs.Edit '' DAO only
rs!Amount = 200
rs.Update
Else
MsgBox "Record Not Found"
End If

End Sub

请帮我解释一下这段代码。我无法解决这个问题。


Sub EDIT_UPATE（）

Dim Path As String

Dim rs As DAO。记录集

Dim AccountId As String


Path =" C：\Documents and Settings\Jaganmohan\Desktop\db1.mdb"

设置Db =工作空间（0）.OpenDatabase（Path，ReadOnly：= True）

设置rs = Db.OpenRecordset（" Accounts"）

>
rs.FindFirst" AccountId = 2235" ''DAO只有


如果不是rs.NoMatch那么


rs.Edit''DAO only

rs ！金额= 200

rs.Update

Else

MsgBox" Record not Found"

End If


结束Sub

Kindly help me on this code. I am not able to work on this.

Sub EDIT_UPATE()
Dim Path As String
Dim rs As DAO.Recordset
Dim AccountId As String

Path = "C:\Documents and Settings\Jaganmohan\Desktop\db1.mdb"
Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
Set rs = Db.OpenRecordset("Accounts")

rs.FindFirst "AccountId = 2235" '' DAO only

If Not rs.NoMatch Then

rs.Edit '' DAO only
rs!Amount = 200
rs.Update
Else
MsgBox "Record Not Found"
End If

End Sub

我不确定这与你原来的问题有什么关系，但见下文：

I am not sure what this has to do with your original question, but see below:

展开 | 选择 | Wrap | 行号

这篇关于错误：M $ jet数据库引擎无法将“AA0023”识别为有效字段名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！