VBA和Microsoft Access

问题描述:

这是我第一次发布问题。我是新手,正在使用Access 2016.我已经创建了几封用作信函的报告,并且我正在研究IIf语句,以尽量减少我必须创建的报告数量。所以基本上我找不到错误,或者可能是正确的方式来编写下面粘贴的下面的语句,我只发布了我有困难的部分。VBA和Microsoft Access

="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") & "." 
+0

您显示的代码不可读。显示整个模块,并使其可读,在第一段后面跳过2行,然后缩进代码。它会以我们可以阅读的方式出现。另外,你有什么错误? – PKatona

+0

你现在可以读吗?此外,错误是“您输入的表达式包含无效语法,或者您需要将文本数据放在引号中” – Elizabeth

+0

您只显示整行的一部分。你得到的错误可能来自缺少的报价,或者可能缺少一个paren,或者其他任何数量的东西。没有整条线,我无法确定错误发生在哪里。 – PKatona

你必须有一些” “印刷报价 - 如果这些也都是在你的代码,你必须用引号标准取代" "他们。

提示:使用文本编辑器来编辑SQL(或堆栈溢出问题),而不是Word。

和:

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

始终把一个空间之前和&后:

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

+0

谢谢,我做了更正,我不再收到一条错误消息,但它没有做我想做的事 – Elizabeth

+0

@伊丽莎白:请**编辑**你的问题,添加它做的事情和它应该做的事情。 – Andre

也许你有一些空值,其中的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") & "." 

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