Option Compare Database '放在窗体模块中的公共变量 Public strSelectIds As String Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     Dim strSql As String     strSelectIds = ""          '按住 Ctrl + Shift 键，然后用鼠标拖曳可以看到提示结果     If Shift = (acCtrlMask + acShiftMask) Then         With Me.RecordsetClone             .MoveFirst             .Move Me.SelTop - 1             For i = 1 To Me.SelHeight                 strSql = strSql & "ID = " & ![ID] & ","                 .MoveNext             Next i             MsgBox strSql         End With     End If          '将选中的结果保存到公共变量，其父窗体可以调用选择的结果     With Me.RecordsetClone         .MoveFirst         .Move Me.SelTop - 1         For i = 1 To Me.SelHeight             strSelectIds = strSelectIds & !ID & ","             .MoveNext         Next i     End With End Sub

效果图如下：
图片如下：

Access2003格式源文件下载：
http://access911.net/down/eg/eg_MultiSelectWithSubForm.rar
(29KB)

注意：由于我是把代码写在 MOUSEUP 事件中的，所以有时候鼠标操作太快会导致该事件不触发的。