如何在Microsoft Access表单中根据TypeTxn下拉选项联动禁用对应数量字段？药房数据库场景求助

你的代码其实已经接近正确了，我帮你找出问题并给出修正方案：

你的代码存在的几个问题 #

1. 控件名称不匹配：你的字段是TypeTxn，但代码里写的是TxnType，VBA找不到这个控件，自然无法执行逻辑
2. 缺少结束语句：Select Case块必须以End Select收尾，否则会触发编译错误
3. 未处理初始状态：表单刚打开时，字段不会自动根据当前TypeTxn的默认值调整状态

修正后的完整代码 #

' 定义通用子程序，统一处理字段启用状态
Private Sub SetQtyFieldsStatus()
    ' 默认先启用两个字段
    Me.Qty_R.Enabled = True
    Me.Qty_I.Enabled = True
    
    ' 根据TypeTxn的当前值调整状态
    Select Case Me.TypeTxn.Value
        Case "Receipt"
            ' 选择收货时，禁用发货数量字段
            Me.Qty_I.Enabled = False
        Case "Issue", "Loan Issue"
            ' 选择发货或借出时，禁用收货数量字段
            Me.Qty_R.Enabled = False
    End Select
End Sub

' TypeTxn下拉框更新后触发的事件
Private Sub TypeTxn_AfterUpdate()
    Call SetQtyFieldsStatus
End Sub

' 表单加载时触发的事件，确保初始状态正确
Private Sub Form_Load()
    Call SetQtyFieldsStatus
End Sub

操作步骤 #

1. 打开你的Access表单设计视图
2. 选中TypeTxn下拉控件，打开它的属性表
3. 切换到事件选项卡，找到更新后事件，点击右侧的[...]按钮进入VBA编辑器
4. 将上面的代码粘贴进去（覆盖原来的错误代码）
5. 同样，在表单的属性表中，找到加载事件，关联到这个子程序（或者直接在Form_Load里调用）

额外说明 #

• 我把逻辑封装成了SetQtyFieldsStatus子程序，这样不管是下拉框更新还是表单加载，都可以调用同一个方法，避免重复代码
• 注意你的下拉选项里是Loan Issue（带空格），代码里要和选项文本完全匹配，不能写成LoanIssue
• 测试时，你可以切换TypeTxn的选项，看看对应的字段是否会被禁用/启用

内容的提问来源于stack exchange，提问作者rajendra joshi