Question

我正在尝试编写一个检查记录是否存在的条件检查：如果是，则打开一个表单，如果没有，则首先添加一个记录，然后打开表单。

我得到条件检查，但我无法弄清楚如何在表格中添加记录。

该表只有两列（ID，ID到Link）。 ID是一个自动编号，是主键。 ID to Link仅用于将预算信息链接到相应的帐户。

代码导致运行时错误（3134，INSERT INTO语句中的语法错误）。

Private Sub Test_Budget_Click()

  If IsNull(DLookup("[ID to Link]", "TEST_Budget Information", "[ID to Link] = " & _
    [Forms]![Award Information]![Internal ID to Link] & "")) Then

      DoCmd.RunSQL "INSERT INTO TEST_Budget Information([ID to Link])" & _
        "VALUES ('" & [Internal ID to Link] & "')"
      MsgBox "Record does not exist"
  Else
      MsgBox "Record Exists"
  End If

End Sub

Answer 1

您应该将df.me1 <- aggregate(df[vars[1]], by = df[facs[1]], FUN = mean) FE SR1 1 FH 10.00 2 FL 10.00 3 FM 9.25 df.me2 <- aggregate(df[vars], by = df[facs], FUN = mean) FE DI SR1 SR2 SR3 1 FH DH 9.0 11.5 22.5 2 FL DH 8.0 16.5 21.5 3 FM DH 10.0 14.5 21.0 4 FH DL 11.0 16.5 18.0 5 FL DL 12.0 18.0 15.0 6 FM DL 8.5 13.0 24.0括在方括号中，并且缺少几个空格。试试这个：

TEST_Budget Information

我建议您将来避免在表名和列名中留空，因为它们可能会造成麻烦。

添加记录（如果不存在）

1 个答案: