返回值后格式化报表文本框

Question

这是我在TextBox Control Source with Nested IIF Statement is Returning Same Column Regardless的原始帖子的后续帖子

Lee Mac 能够帮助我获得适当的语法，以根据另一个文本框的值返回 3 个潜在值中的 1 个。现在我正在努力以适当的格式获取返回值。

值可以是货币或百分比，它们会在同一个文本框中，所以我一直在尝试使用事件过程来格式化值，但没有发生任何变化。

我最近的尝试，导致该值始终为#.####：

Private Sub Detail_Format()

If Me.Allowance_Type = "% Off Invoice" Then
    Me.txtbox4.Value = Format(Me.txtbox4.Value, "0.00%")
End If
If Me.Allowance_Type = "Per Pound" Then
    Me.txtbox4.Value = Format(Me.txtbox4.Value, "$###,###.##")
End If
If Me.Allowance_Type = "Per Case" Then
    Me.txtbox4.Value = Format(Me.txtbox4.Value, "$###,###.##")
End If

End Sub

我还尝试了各种其他事件，例如Report_Load 等，并且我尝试过更改线路： If Me.Allowance_Type = 到 If Me.Allowance_Type.Value = 但这会导致 #Name?

是否可以有 1 个文本框可以有条件地格式化为货币或百分比？提前致谢！

Answer 1

可以在 ControlSource 中执行表达式并消除 VBA。

=Format([fieldname], IIf([Allowance_Type] LIKE "Per*", "Currency", "Percent"))

或者在返回值的过程中包含这种格式。

=Format(Switch([Allowance Type]="% Off Invoice",[Freight Paid % OI], ([Allowance Type]="Per Pound",[Freight Paid / LB], [Allowance Type]="Per Case",[Freight Paid/_Case]), IIf([Allowance_Type] LIKE "Per*", "Currency", "Percent"))

格式事件仅在 PrintPreview 中触发或直接发送到打印机，而不是报表视图。

建议不要在命名约定中使用空格或标点符号/特殊字符（下划线除外）。

Answer 2

尝试使用.Format 属性，如：

If Me.Allowance_Type = "Per Case" Then
    Me.txtbox4.Format = "$###,###.##"
End If

Answer 3

根据 my comment 在您的另一个问题中，如果您允许自己将数据转换为字符串，而不是保留原始数据类型（因此保留原始精度），那么您可以直接使用 Format 函数你的Switch 表达式，例如：

=Switch
(
    [Allowance Type] = "% Off Invoice", Format([Freight Paid % OI],  "0.00%"),
    [Allowance Type] = "Per Pound",     Format([Freight Paid / LB],  "$###,###.##"), 
    [Allowance Type] = "Per Case",      Format([Freight Paid/_Case], "$###,###.##"),
    True, ""
)

否则，我建议使用事件处理程序来更改文本框的 .Format 属性，该属性由绑定到您的 [Allowance Type] 字段的表单控件的 AfterUpdate 事件触发。