Question

我有一个用户在其中输入数据“姓氏”的表格

我正在尝试将一个代码放在一起，以检查为数据库输入的“姓氏”数据是否已经存在，如果存在，则出现一个消息框，提示用户姓氏已经存在，并且然后让他们选择是否继续将“姓氏”添加到数据库中。

我用if语句和dlookup几种不同的方式编写了代码，但是似乎没有用

Answer 1

签出

Private Sub btn_Click()

    'variable declaration
    Dim lastName As String
    Dim cnt As Long
    Dim retVal As Variant

    'get textbox value into variable. Nz function checks for null and replaces it with empty string in case its nulll
    lastName = Nz(Me.txtLastName, "")

    'dcount function checks the count of lastname in tblUser
    If DCount("*", "tblUser", "LastName='" & lastName & "'") > 0 Then
       retVal = MsgBox("Name already exist. Do you want to continue?", vbYesNo)

       If retVal = vbYes Then
        'your insert statement

       Else
        '
       End If

    End If

End Sub

代码ot检查是否已存在数据输入

1 个答案: