MS Access简单表单,用于填充多个表到多个表

时间:2014-06-18 02:36:03

标签: vba ms-access access-vba

我有一个简单的ms访问数据库,其中包含以下表格:

Patient
    ID
    Name

Medication
    ID
    Name

PatientMedication
    ID
    PatientID
    MedicationID

第三个表格是患者和药物之间的多对多表格 - 记录每位患者服用的药物。我想通过允许我选择患者和药物以及将新行存储到PatientMedication表来创建填充此表的表单。

我已经创建了带有下拉列表的表单,并添加了一个按钮来将所选行保存到数据库中,但不知道如何使按钮执行插入操作。我是否必须为按钮编写一些VB代码?我甚至需要一个按钮吗?看起来这非常简单,我应该能够通过表单的某些属性来完成它。或者有更简单的方法来解决这个问题吗?

任何帮助都将不胜感激。

1 个答案:

答案 0 :(得分:0)

您实际上可以通过几种不同的方式处理它。以下是几个选项。

选项1:

设置表单Record Source的{​​{1}}属性。将下拉列表PatientMedication设置为Control SourcePatientID。然后确保MedicationID表格中requiredPatientID的{​​{1}}属性设置为MedicationID。然后,当用户选择下拉值时,记录将被添加到数据库中。这假定PatientMedication字段数据类型设置为Yes

选项2:

不要将表单的ID属性设置为AutoNumber。不要设置下拉列表Record Source,让它们保持未绑定状态。将PatientMedication下拉列表的Control Source属性设置为MedicationID。将Name下拉列表的txtMedicationID属性设置为PatientID。将命令按钮Name属性设置为txtPatientID。对按钮的Name事件使用以下代码:

cmdInsertRecord