Ms access MS Access VBA中数据从一个窗体传递到另一个窗体的问题

谁能解决我的问题

表单：SB_1（这是客户发票创建表单）

表单：添加新关系（这是一个客户详细信息添加表单）

我在cmd（按钮）上使用了一个VBA代码：sbu 1用于将数据从一个表单传递到另一个表单的Add\u NewRelations用于更新新客户的详细信息

因此，VBA工作良好，符合代码标记。但是一些现有的客户详细信息不需要更新为表单：添加新关系。因此，在本例中，我在VBA代码中添加了带有DCount的IF语句

当我添加带有DCount的If语句时，整个VBA都无法工作。。。我认为数据是错误的。。。我怎样才能改正它

谁能重播如何解决这个问题

Private Sub Button_Click()
On Error GoTo ErrorHandler
'Me.Refresh

Dim strCriteria As String
strCriteria = "CIDCustomer = '" & Trim(Trim(Me!RID) & " " & Trim(Me!RName)) & "'"

 'If DCount("*", "CIDCustomer", "RelationsQry") > 0 Then
 'Cancel = True
 'Else

If DCount("*", "RelationsQry", strCriteria) > 0 Then
Cancel = True
Else

   'If Not IsNull([Customer]) Then
   'Me.Visible = False
   DoCmd.OpenForm "Add_NewRelations", acNormal, , , , acWindowNormal
   Forms![Add_NewRelations].Form.RID = Me.CID2
   Forms![Add_NewRelations].Form.RName = Me.Customer
   Forms![Add_NewRelations].Form.RType.Value = "Customer"
   Forms![Add_NewRelations].Form.Address = Me.Address
   Forms![Add_NewRelations].Form.TINNumber = Me.TINNumber
   Forms![Add_NewRelations].Form.TownVLG = Me.TownVLG
   Forms![Add_NewRelations].Form.RName.SetFocus
   'Forms![Add_NewRelations].Visible = False
   'DoCmd.Close

End If

ErrorHandler:
End Sub

---

要将引号传递到SQL中，需要对其进行转义，并且还需要为条件的元素添加单引号

而不是：

strCriteria = "CIDCustomer = '" & Trim(Trim(Me!RID) & " " & Trim(Me!RName)) & "'"

试一试

strCriteria = "" "CIDCustomer = '" & Trim(Trim(Me!RID) & "' & " " & '" Trim(Me!RName)) & "'" ""