Error 3021 No Hay Ningun Registro Activo

[francis_10]

la base de datos está hecha en access,tengo definido los campos...asi que lo que quiero es insertar datos pero que dos campos(mireferencia y referenciamapfre)tienen que ser únicos.de esta forma me funciona pero no sé como controlar que si hay algun campo con un dato no se repita.

Private Sub cmdañadir_Click()
'*mensaje = MsgBox("ESTÁ SEGURO DE REALIZAR ESTA ACCIÓN", vbYesNo + vbExclamation, "ATENCIÓN!!")
'*If mensaje = 6 Then
'*sql = "INSERT INTO CLIENTES(observaciones,telefono,mireferencia) VALUES ('" & txtObservaciones.Text & "', '" & txtTelefono.Text & "','" & txtMireferencia.Text & "')"
'*If txtMireferencia = tbl("mireferencia") Or txtReferenciamapfre = tbl("referenciamapfre") Then
'*MsgBox "EL CAMPO MI REFERENCIA O REFERENCIA MAPFRE SON UTILIZADOS POR UN ÚNICO CLIENTE", vbInformation, "ATENCIÓN"
'*Else
'*bdd.Execute (sql)

'*MsgBox "OPERACIÓN REALIZADA CON ÉXITO!!", vbInformation, "enhorabuena"
LO QUE PASA QUE ASI NO CONTROLO LOS CAMPOS PARA QUE ESTOS NO SE REPITAN.
gracias.
EN RESUMEN CONTROLAR LOS CAMPOS REPETIDOS(QUE SON DOS).

[Kruzado]

en access creale un indice a la tabla ke haga mencion a esos dos campos y dejala como unica, con eso cuando ingresas un dato con los valores ya existentes access no lo graba, pero no genera error, asi ke no sabras si se grabo o no

[Kruzado]

leyendo un poco mas tu codigo yo haria algo como....

Private Sub cmdañadir_Click()
'*mensaje = MsgBox("ESTÁ SEGURO DE REALIZAR ESTA ACCIÓN", vbYesNo + vbExclamation, "ATENCIÓN!!")
'*If mensaje = 6 Then
tbl.findfirst "mireferencia=" & txtmireferenca & " or
txtreferenciamapfre=" & txtreferenciamapfre
if not tbl.nomatch then (si se cumple existe)
mensaje=msgbox( "EL CAMPO MI REFERENCIA O REFERENCIA MAPFRE
SON UTILIZADOS POR UN ÚNICO CLIENTE", vbInformation, "ATENCIÓN")
else
'*sql = "INSERT INTO CLIENTES
(observaciones,telefono,mireferencia) VALUES ('" &
txtObservaciones.Text & "', '" & txtTelefono.Text & "','" &
txtMireferencia.Text & "')"
'*bdd.Execute (sql)
endif
endif