从表单中编辑访问列表框

时间:2014-07-10 19:57:31

标签: ms-access

我在Access窗体中有一系列2个列表框和一个组合框,它们是级联的。我希望能够通过双击特定值来编辑表单中的列表框。我已将允许值列表编辑更改为是。我确定我需要在双击事件中添加一些东西,但我已经搜索过,无法找到代码。我是Access的新手,所以任何帮助都会受到赞赏。

cmbSuppliers

行来源

SELECT tblSuppliers.[Supplier ID], tblSuppliers.[Company Name] FROM tblSuppliers ORDER BY tblSuppliers.[Supplier ID]; 

事件

Private Sub cmbSuppliers_AfterUpdate()
    Me.lstEquip.Requery
End Sub

lstEquip

行来源

SELECT tblEquipment.[Equipment ID], tblEquipment.Description, tblEquipment.[Supplier ID] FROM tblEquipment WHERE (((tblEquipment.[Supplier ID])=[Forms]![frmInventory]![cmbSuppliers])) ORDER BY tblEquipment.[Equipment ID]; 

活动

Private Sub lstEquip_AfterUpdate()
    Me.lstParts.Requery

End Sub

Private Sub lstEquip_DblClick(Cancel As Integer)

End Sub

lstParts

行来源

SELECT tblParts.[Part ID], tblParts.Description, tblParts.Quantity, tblParts.[Mininum Quantity] FROM tblParts WHERE (((tblParts.[Equipment ID])=[Forms]![frmInventory]![lstEquip])) ORDER BY tblParts.[Part ID], tblParts.Description, tblParts.Quantity, tblParts.[Mininum Quantity]; 

frmInventory

事件

Private Sub Form_Current()
Me.lstParts.Requery
End Sub

我包含了cmbSuppliers的行源信息,即使我不确定这是否有用。我只是试图编辑两个列表框中的值。

0 个答案:

没有答案