【问题标题】:VBA and Microsoft AccessVBA 和 Microsoft Access
【发布时间】:2016-02-04 16:00:25
【问题描述】:

这是我第一次发布问题。我是新手,正在使用 Access 2016。我创建了几个报告用作字母,并且我正在处理 IIf 语句,以尽量减少我必须创建的报告数量。所以基本上我找不到错误或者可能找不到正确的方法来编写下面粘贴的以下语句,我只发布了我遇到困难的部分。

="We, " & [Forms]![frmClaimDataEntry]![Client_First] & " " & [Forms]![frmClaimDataEntry]![Client_Last] & " & " & [Forms]![frmClaimDataEntry]![Client2_First] & " " & [Forms]![frmClaimDataEntry]![Client2_Last] & ", as owners of " & [Forms]![frmClaimDataEntry]![subfrmRisk]![RiskAddress] & ", " & [Forms]![frmClaimDataEntry]![subfrmRisk]![RiskCounty] &",  having already agreed to pay Murphy Loss Assessors” & IIf([Forms]![frmClaimDataEntry]![subfrmSettlement]![Fees_Discounted]>0,”a discounted fee upon settlement of our home insurance claim now confirm that we will discharge this payment of €"&[Forms]![frmClaimDataEntry]![subfrmSettlement]![Fees_Discounted], “10% plus VAT upon settlement of our home insurance claim now confirm that we will discharge this payment of €"& [Forms]![frmClaimDataEntry]![subfrmSettlement]![Fees_LA]) & " upon receipt of settlement cheque now expected in the amount of €" & Format([Forms]![frmClaimDataEntry]![subfrmSettlement]![DueNow],"Standard") & "."

【问题讨论】:

  • 您显示的代码不可读。显示整个模块,并使其可读,在初始段落之后跳过 2 行,然后缩进你的代码。然后它将以我们可以阅读的方式显示出来。另外,您遇到了什么错误?
  • 你现在能看吗?此外,错误是“您输入的表达式包含无效语法,或者您需要将文本数据括在引号中”
  • 您只显示了整行的一部分。您得到的错误可能来自缺少引号,或者可能缺少括号,或任何其他事情。没有整行,我无法判断错误发生在哪里。
  • 这是单元格中的条目吗?开头有“=”吗?例如=",已经同意...
  • 我似乎无法将整个代码分段发布...

标签: ms-access vba


【解决方案1】:

您有一些印刷引号 ” “ - 如果这些也在您的代码中,您必须将它们替换为标准引号 " "

提示:使用文本编辑器来编辑 SQL(或 Stack Overflow 问题),而不是 Word。

还有:

this payment of €"&[Forms]![frmClaimDataEntry]!

始终在& 前后放置一个空格:

this payment of €" & [Forms]![frmClaimDataEntry]!

【讨论】:

  • 谢谢。我进行了更正,我不再收到错误消息,但它没有按照我的意愿行事
  • @Elizabeth:请编辑您的问题,添加它的作用和应该做什么。
【解决方案2】:

也许你有一些 Null 值,Nz 会在这里更正:

="We, " & [Forms]![frmClaimDataEntry]![Client_First] & " " & [Forms]![frmClaimDataEntry]![Client_Last] & " & " & [Forms]![frmClaimDataEntry]![Client2_First] & " " & [Forms]![frmClaimDataEntry]![Client2_Last] & ", as owners of " & [Forms]![frmClaimDataEntry]![subfrmRisk]![RiskAddress] & ", " & [Forms]![frmClaimDataEntry]![subfrmRisk]![RiskCounty] & ", having already agreed to pay Murphy Loss Assessors " & IIf(Nz([Forms]![frmClaimDataEntry]![subfrmSettlement]![Fees_Discounted],0)>0,"a discounted fee upon settlement of our home insurance claim now confirm that we will discharge this payment of €" &[Forms]![frmClaimDataEntry]![subfrmSettlement]![Fees_Discounted], "10% plus VAT upon settlement of our home insurance claim now confirm that we will discharge this payment of €" & [Forms]![frmClaimDataEntry]![subfrmSettlement]![Fees_LA]) & " upon receipt of settlement cheque now expected in the amount of €" & Format([Forms]![frmClaimDataEntry]![subfrmSettlement]![DueNow],"Standard") & "."

此外,您可能拼错了控件名称。

【讨论】:

    猜你喜欢
    • 2020-09-13
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2017-09-02
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多