我正在设计一个小型医院数据库。
医生给了我一个可以应用于文本字段的各种值的列表。 例如，20个疾病的列表，其中多个疾病可以应用于诊断文本框中。 在整个数据库中有50多个这样的列表用于各种字段。
Ms Access不允许编辑多值列表，因此我设计的内容如下。 首先，医生从组合框下拉列表中选择一个值，并且当LimitToList设置为YES时，可以添加更多值。然后链接列表附近的“ADD”按钮，使用一块VBA代码onClick将新值连接到文本框的旧值。
Dim add As String
Dim past As String
past = [Forms]![Exam]![diagnosis]
add = [Forms]![Exam]![diseases list]
[Forms]![Exam]![diagnosis] = past + add + ", "
Me.Refresh
此处列表值仅存储在表单中。
我的问题是，这是可以在场景中使用的最佳做法吗？ 此外，当我将列表数据链接到表时，因为每行中有不同数量的记录（对于不同的字段），空格也会显示在组合框列表中。
答案 0 :(得分：0)
我要创建3个表 1“诊断” 2“疾病” 3表格“DiagnosisXDisease”
<强>模式
1 DiagnosisID |诊断
2 DiseaseID |疾病
3 DiagnosisID | DiseaseID
然后，您可以让用户从第一个组合中选择一个，并在下面有一个连续的表单，您可以在其中为每个相关值添加记录。 你有一个组合框从列表中选择 这样您就可以根据需要添加任意数量。
http://www.599cd.com/tips/access/form-subform/