（访问VBA修补）更新后基于另一个文本框自动填充

你好，我正在尽力拼凑一段代码，让表单上的所有文本框更新到现有记录

所有的文本框都在更新

Me.txtstftlvl=myrs！安全锁链

这个错误留给我了

在集合中找不到项（3265）

我已经在表格和文本框上仔细检查了我的名字，它们都很好

希望有人知道我做错了什么，或者用一种更简单的方式来实现我的目标

Private Sub txtRcStock_AfterUpdate()

Dim qrystr1 As String
Dim mydb As Database
Dim myrs As DAO.Recordset
DoCmd.OpenQuery "qryPartDesc"
    

If Me.txtRcStock <> "" Then
        Set mydb = CurrentDb
        qrystr1 = "SELECT Desc FROM qryPartDesc WHERE [PartNumber] = '" & Me.txtRcStock & "'"
        Set myrs = mydb.OpenRecordset(qrystr1)
        If myrs.EOF = False Then
          Me.txtRcCat = myrs!Desc
          
        End If
        
        qrystr1 = "SELECT Price FROM tblRecLog WHERE [PartNumber] = '" & Me.txtRcStock & "'"
        Set myrs = mydb.OpenRecordset(qrystr1)
        If myrs.EOF = False Then
          Me.txtPrice = myrs!Price
        If myrs.EOF = False Then
          Me.txtSftLvl = myrs!SafteyStockLvl
        
        End If
        
         
        
    End Sub

Private Sub txtRcStock_AfterUpdate（）
作为字符串的Dim qrystr1
Dim mydb作为数据库
作为DAO.Recordset的Dim MYR
DoCmd.OpenQuery“qryPartDesc”
如果Me.txtRcStock“”则
设置mydb=CurrentDb
qrystr1=“从qryPartDesc中选择Desc，其中[PartNumber]=”&Me.txtRcStock&“
Set myrs=mydb.OpenRecordset（qrystr1）
如果myrs.EOF=False，则
Me.txtRcCat=myrs！描述
如果结束
qrystr1=“从tblRecLog中选择价格，其中[PartNumber]=”&Me.txtRcStock&“
Set myrs=mydb.OpenRecordset（qrystr1）
如果myrs.EOF=False，则
Me.txtPrice=myrs！价格
如果myrs.EOF=False，则
Me.txtstftlvl=myrs！安全锁链
如果结束
端接头

---

一切都有帮助。

看起来您的记录集是一个只有一个字段的查询

Price

。因此，当你去获取

SafteyStockLvl

（也应该是安全的）它失败时，如果

，第一个和第二个
都不会发生这种情况，因为他们正在查看SELECT查询中的字段。@Warcupine你是最好的！我不敢相信我忽略了这一点。非常感谢你！