如何用Access VBA将选中附件的Door_ID存入变量实现购物篮功能？

嘿，我来帮你捋捋这个购物篮功能的实现思路，你的现有代码有几个小问题需要调整，咱们一步步来拆解：

1. 先修正代码里的基础错误 #

首先你的代码里有个拼写失误：strSelcted应该是strSelected，这个会直接导致变量未定义的报错。另外，DoCmd.RunSQL是用来执行增删改这类数据操作语句的，根本没法用来查询获取单个值，这里得换成DLookup或者DAO记录集来拿对应的Door_ID。

2. 正确获取选中图片对应的Door_ID #

假设你的附件存储表（比如叫Door_Attachments）里有Door_ID和FileName字段，用来关联门的ID和附件文件名，那用DLookup就能快速查到对应ID：

Private Sub Door_View_Click()
    Dim strSelected As String
    Dim IDnumber As Long ' ID字段用Long类型更合适，避免溢出
    
    ' 先判断是否选中了图片
    If Not IsNull(Door_View.FileName) Then
        strSelected = Door_View.FileName
        
        ' 用DLookup查询对应Door_ID，记得替换成你实际的表名和字段名
        ' 这里用Replace转义文件名里的单引号，避免SQL语法错误
        IDnumber = DLookup("Door_ID", "Door_Attachments", "FileName = '" & Replace(strSelected, "'", "''") & "'")
        
        ' 可以先在立即窗口输出调试，确认结果是否正确
        Debug.Print "选中的门ID：" & IDnumber
    Else
        MsgBox "请先选择一张门的图片哦！"
    End If
End Sub

如果你的图片控件是直接绑定到附件表的，那更简单——直接从绑定的记录里取ID就行，不用查文件名，效率还更高：

' 假设Door_View是绑定到Door_Attachments表的控件
IDnumber = Me.Door_View.Form!Door_ID

3. 把Door_ID传递给主窗体 #

要让主窗体拿到这个ID，有几种实用的方式：

• 直接访问主窗体控件/变量：如果主窗体已经处于打开状态，直接给主窗体的控件或者全局变量赋值就行

  ' 比如主窗体叫frmMain，有个隐藏控件txtSelectedDoorID用来存ID
  Forms!frmMain!txtSelectedDoorID = IDnumber
  ' 或者主窗体声明了Public变量，直接赋值
  Forms!frmMain.gblSelectedDoorID = IDnumber
  

• 自定义事件（更规范的方式）：如果想降低子窗体和主窗体的耦合度，可以在子窗体里定义自定义事件，主窗体订阅这个事件，选中图片时触发事件传递ID。
  子窗体模块顶部先声明事件：

  Public Event DoorSelected(DoorID As Long)
  

  选中图片时触发事件：

  RaiseEvent DoorSelected(IDnumber)
  

  主窗体里订阅事件（比如在主窗体的Load事件里设置）：

  Private WithEvents subDoorView As Form_frmDoorView ' 替换成你的子窗体类名
  
  Private Sub Form_Load()
      Set subDoorView = Me!subDoorView.Form ' 替换成你的子窗体控件名
  End Sub
  
  Private Sub subDoorView_DoorSelected(DoorID As Long)
      ' 在这里处理主窗体的逻辑，比如把ID加到购物篮变量里
      Me.txtShoppingBasketDoorID = DoorID
  End Sub
  

4. 额外小贴士 #

• 尽量不要靠文件名来关联Door_ID，毕竟文件名可能重复，最好用附件表的主键或者直接绑定关联，这样查询更准确。
• 可以把触发逻辑放到图片控件的双击事件或者选中事件里，比单独加个按钮更符合用户操作习惯。

内容的提问来源于stack exchange，提问作者Dayle Angus