loadrecord后，dlookup更新的数据只有第一行正常，其余不显示，求大神指导

打开BOM编辑后，数据加载，序号、存货编码、基础数量为表中读取，名称、型号、单价最大、单价最近为DLOOKUP赋值

代码部分为：

Private Sub Form_Load()

‘省略一部分读取内容，效果正常’

  If Form_frmbom_Edit_Detail.[存货编码] > 0 Then
    Form_frmbom_Edit_Detail.[名称] = DLookup("名称", "tblrecords", "存货编码=" & Form_frmbom_Edit_Detail.[存货编码])
   Form_frmbom_Edit_Detail.Refresh
   ' Form_frmbom_Edit_Detail.[存货编码].Requery
    
 
    '
     Form_frmbom_Edit_Detail.[型号] = DLookup("型号", "tblrecords", "存货编码=" & Form_frmbom_Edit_Detail.[存货编码])
     Form_frmbom_Edit_Detail.Refresh
    ' Form_frmbom_Edit_Detail.[存货编码].Requery
     
     
     Form_frmbom_Edit_Detail.[单价最大] = DLookup("单价之最大值", "qry单价D", "存货编码=" & Form_frmbom_Edit_Detail.[存货编码])
     'Form_frmbom_Edit_Detail.Refresh
    ' Form_frmbom_Edit_Detail.[存货编码].Requery
    
     
     Form_frmbom_Edit_Detail.[单价最近] = DLookup("单价", "qry单价D", "存货编码=" & Form_frmbom_Edit_Detail.[存货编码])
    ' Form_frmbom_Edit_Detail.Refresh
    ' Form_frmbom_Edit_Detail.[存货编码].Requery
    
    ' Me.Refresh
     End If

效果如图
    

只有第一条数据根据存货编码更新，其他不更新了，求解

文件压缩包超过2M，没办法随附件上传，大神要看数据的可以用一下百度网盘，谢了！在线等！

链接：https://pan.baidu.com/s/1gho1SYZ 密码：wq0h