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

查看:73
本文介绍了错误:M $ jet数据库引擎无法将“AA0023”识别为有效字段名称的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我使用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屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆