在Microsoft Access 2013的窗体中显示消息框上的所选记录

Question

我在MS Access 2013中有一个表单。

输入信息后，选择部件并单击发送按钮，部件将被发送出去（插入表B并从表A中删除）。

我想在发送部件之前在消息框上显示所选记录。

有可能吗？如果没有，你能为我推荐另一种方式吗？非常感谢你！

Answer 1

是的，有可能。我想数据存储在表中？您可以在按钮的单击事件上使用vba，如下所示：

private sub buttonSend_onclick()
    Dim rs as recordset
    Dim s as string

    s = "Select * from [TableName] Where [SelectFieldName] = True"
    Set rs = Currentdb.openrecordset(s)
    s = ""
    While not rs.eof
        s = s & rs("[PartIdFieldName]") & ", "
        rs.movenext
    wend
    if s <> "" then
        s = left(s,len(s) - 2)
        s = s & "."
    else
        Msgbox "No parts selected"
    end if

    s = "Deliver parts below?" & vbcrlf & vbcrlf & s
    if(msgbox(s,vbYesNo) = vbYes) then
        ''proceed with the send
    else
        ''do not proceed with the send
    end if
end sub