Evitar registro duplicados en una bd de access

[gerardo_goh]

Iniciado por franko1809

Tio prueba asi, solo cambiale los datos

Código:

Private Sub cmdGuardar_Click()
With adoProducto.Recordset
    .MoveFirst
    .Find "codcargo='" + Text1 + "'"
    
    If .EOF = False Then ' si llega al final y encuentra el codcargo
       MsgBox "Ya esta Inscripto"
    Else
       adoProducto.Recordset.AddNew
       adoProducto.Recordset.Fields("codcargo") = Text1.Text
       adoProducto.Recordset.Fields("nomcargo") = Text2.Text
       adoProducto.Recordset.Update
       dgProducto.Refresh
       Text1.Text = Empty
       Text2.Text = Empty
       Text1.SetFocus
     End If
End With
End Sub

Te enviara un mensaje si el codigo ya esta registrado, por otro lado puedes hacer que el codigo se autogenere el en el text1

Muchisimas gracias era exactamente lo que necesitaba ya lo arregle y le agregue una lineas más anexo codigo, saludos!!!
With adoProducto.Recordset
.MoveFirst
.Find "idProducto='" + txtidProducto.Text + "'"

If .EOF = False Then
MsgBox "Ya existe el número del idProducto por favor ingresar nuevamente el nuevo número"
txtidProducto.Text = Empty
txtProducto.Text = Empty
txtPrecio.Text = Empty
txtidProducto.SetFocus
Else
adoProducto.Recordset.AddNew
adoProducto.Recordset.Fields("idProducto") = txtidProducto.Text
adoProducto.Recordset.Fields("Producto") = txtProducto.Text
adoProducto.Recordset.Fields("Precio") = txtPrecio.Text
adoProducto.Recordset.Update
dgProducto.Refresh
MsgBox ("Se registro con exito el registro")
txtidProducto.Text = Empty
txtProducto.Text = Empty
txtPrecio.Text = Empty
txtidProducto.SetFocus
End If
End With