ms-access - Access 2010 - 在添加新记录之前检查记录集中的数据

Question

我是 Access 的新手，请多多包涵。

我有一个允许我向表中添加新数据的表单

ID  | Name |  City  | Zip Code
1   | John | Newark | 12340
2   | Alex | Boston | 98760

等等……

在继续使用上述数据字段添加新记录之前，我需要创建一个检查表来确定名称、城市和邮政编码的组合是否已经存在。如果他们这样做，我希望它退出 Sub；否则继续宏的其余部分。

我一直在寻求使用某种形式的 OpenRecordset 命令来构建它，但我不确定从哪里开始。有人能指出我正确的方向吗？谢谢!

Answer 1

我刚刚编写了这段代码来重现您的情况，它运行良好。您只需在查询中重命名您的列和表。

Dim strSQL As String
Dim qdf As QueryDef

'if these columns are not text change to approriate type
strSQL = "PARAMETERS [NameToCheck] Text(255),[CityToCheck] Text(255),[Zip] Text(255); " 

'change table name and column names here
strSQL = strSQL & "SELECT Count(*) FROM address " _ 
                & "WHERE FName = [NameToCheck]  AND City = [CityToCheck] AND ZipCode = [Zip];"

Set qdf = CurrentDb.CreateQueryDef("", strSQL)
qdf("NameToCheck") = txtName.Value 'change to that textfield on form
qdf("CityToCheck") = txtCity.Value 'change to that textfield on form
qdf("Zip") = txtZipCode.Value 'change to that textfield on form

If qdf.OpenRecordset(dbOpenSnapshot)(0) > 0 Then
    MsgBox "This record is already in the database"
Else
    'Insert statement goes here.
End If