隐藏VBA代码中的某些字段（Microsoft Access）

Question

我的Microsoft Access数据库出现问题，我已对某些信息进行了规范化，现在它无法正常显示。

我根据公式计算费用，但我需要隐藏2个字段并根据FeeGroup显示准确的字段。

我为Report_Load事件编写了以下VBA代码，但它似乎无法正常工作。

Private Sub Report_Load()

MsgBox "Case X"

Select Case Report_FeeGroupBox
    Case 1
        FullPrice_Months.Visible = False
        FullPrice_Weeks.Visible = False
        MsgBox "Case 1"
    Case 2
        FullPrice_Months.Visible = False
        FullPrice_Days.Visible = False
        MsgBox "Case 2"
    Case 3
        FullPrice_Days.Visible = False
        FullPrice_Weeks.Visible = False
        MsgBox "Case 3"
End Select

End Sub

如何根据该行的费用组更改此报告中每行的更新？

费用组根据号码工作数天，数周和数月。如果费用组不正确，我需要隐藏其他方框，基本上都会显示所有费用组。

＆＃39;案例X＆＃39;显示为消息btw，因此回调似乎确实有效。

Answer 1

您只能使用一个字段来显示金额，然后将其记录来源设置为Report_Load中的相应表格字段。

另外，请确保将文本框的名称更改为字段名称以外的名称，否则可能无效。惯例是在文本框名称前加上＆＃34; txt＆＃34;。

Private Sub Report_Load()

MsgBox "Case X"

Select Case Report_FeeGroupBox
    Case 1
        txtFullPrice.RecordSource = "FullPrice_Days"
        MsgBox "Case 1"
    Case 2
        txtFullPrice.RecordSource = "FullPrice_Weeks"
        MsgBox "Case 2"
    Case 3
        txtFullPrice.RecordSource = "FullPrice_Months"
        MsgBox "Case 3"
End Select

End Sub