Duplicate in ms access table

[catauadrian]

If somebody can help me to tell what I do wrong. If I take the code with rstCrotal I can enter the data in the table, NRCRO is texbox on form an I will like to check if the column called NRCROTRAL is not entered already a record with the same number. Any help appreciated .

Private Sub cmdSavenew_Click()
On Error GoTo Err_cmdSaveNew_Click
Dim dbs As Database
Dim rst As Recordset
Dim res As Integer
Dim rstCrotral As Recordset
 
If Len(Me.NRCRO) > 0 And Len(Me.DataIntrare) > 0 And Len(Me.cod) > 0 Then
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblBovine")
Set rstCrotral = dbs.OpenRecordset("tblBovine")
 
  rstCrotral.FindFirst "NRCROTRAL = '" & Me.NRCRO & "'"
 
        If rstCrotral.NoMatch = True Then
MyLine:        rst.AddNew
               rst!NRINV = Me.NRINV
               rst!NRCROTRAL = Me.NRCRO
               rst!DataIntrare = Me.DataIntrare
               rst!CodSC = Me.CodSC
               rst!CodGest = Me.CodGest
               rst!cod = Me.cod
               rst!sex = Me.sex
               rst!Mama = Me.Mama
               rst!Tata = Me.Tata
               rst!Comentarii = Me.Tata
               rst!Datarec = Now()
               rst!userid = Me.userid
               rst!UM = "BUC"
               rst.Update
               rst.Close
 
               Me.NRINV = Null
               Me.NRCRO = Null
               Me.DataIntrare = Null
               Me.cod = Null
               Me.sex = False
               Me.Mama = Null
               Me.Tata = Null
               Me.Comentarii = Null
               Me.cmbCodGest = Null
               Me.Combo38 = Null
               Me.NRCRO.SetFocus
        End If
        Else
               MsgBox "Indroduceti informatiile", vbOKOnly
      Me.NRINV.SetFocus
 
 
    End If
 
Exit_cmdSaveNew_Click:
    Exit Sub
 
'Err_cmdSaveNew_Click:
    MsgBox Err.Description
    'Resume Exit_cmdSaveNew_Click
 
End Sub
 

[nico5038]

Did you check NRCROTRAL to be text and not numeric ?

Nic;o)