Question

Access中用vba实现窗体输入值记录到表中。

要实现功能的该窗体已有一个表作为记录源，我要把窗体中“存放位置”的输入信息记录到另一个表“库存”的“存放位置”。以下代码是原有的，请问如何更改？Private Sub 保存_Click() '定义“保存”按钮的“单击”事件过程DoCmd.RunCommand acCmdSaveRecordDim rs As New ADODB.RecordsetDim str_temp As Stringstr_temp = "select * from 库存 Where 产品ID =" & 产品ID & ""rs.Open str_temp, CurrentProject.Connection, adOpenDynamic, adLockOptimisticIf Not IsNull(rs) Thenrs("库存量") = rs("库存量") + 入库数量 '增加“库存”表中该产品的库存量rs.UpdateEnd Ifrs.CloseSet rs = NothingMsgBox "保存成功！"End Sub

Answer 1

步骤如下：

• 新建一个空白窗体

• 在属性窗口设置窗体的记录源

• 打开“字段列表”窗口

• 将“字段列表”中的字段通过鼠标拖动拖曳到窗体的主体区域

• 设置窗体页眉中的窗体标题，窗体页脚中导航按钮或记录操作按钮等

• 存盘，运行