Visual Basic - EVITAR REPETIDOS ANTES DE GUARDAR

Buenas a todos, excelente la orientación con aquellos que nos iniciamos en esto del VB . Bueno tengo un frm que captura datos y luego los pone en excel (Apellidos y Nombres) y (numero documento identidad), en vb para excel he creado tres botones: archivar limpiar y salir , me orientan que no he podido hacer que al archivar me indique si ya existe el documento o el nombre ( conozco algo de los msbox), mejor dicho que no me guarde valores repetidos . Sera que con unos if , o declarando variables y luego, mejor dicho orientenme algo, de antemano gracias

Aqui te envio una parte de un codigo de uso general para detectar repetidos en una tabla de una base de datos. En el caso de ser una alta, no la checa. La tabla esta indizada por el campo folio que es unico de identificacion a fin de saber al modificar cuando el registro sea el mismo que estamos modificando y permitir el numero.



Private Sub MaskEscritura_Validate(Cancel As Boolean)
If vacia(MaskEscritura) Then
Cancel = False ' bien
Else
If ChecaEscrituraRepetida(MaskEscritura, xFolio, General, EsAlta) Then ' true no se encontro o no esta repetida (bien)
Cancel = False
Else
Cancel = True
End If
End If
End Sub


Function ChecaEscrituraRepetida(xEscritura, xFolio, xtabla, xalta)

If xEscritura > 0 Then
xtabla.Index = "Escritura"
xtabla.Seek "=", xEscritura
If xtabla.NoMatch Then ' no se encontro el numero de escritura
ChecaEscrituraRepetida = True
Else ' si se encontro la escritura
If xalta Then
X = MsgBox("El Numero de Escritura ya existe ", vbOKOnly)
ChecaEscrituraRepetida = False
Else
If xtabla!Folio = xFolio Then
ChecaEscrituraRepetida = True
Else
X = MsgBox("El Numero de Escritura ya existe ", vbOKOnly)
ChecaEscrituraRepetida = False
End If
End If
End If
Else
ChecaEscrituraRepetida = True
End If

End Function

Muchas gracias Angel (lucyfer) por la ayuda voy a tomar una parte del codigo , y voy a intentar integrarlo a lo del boton archivar, para que cuando se guarde en Excel me impida agregar repetidos, cuando lo termine lo ubico completo pa que me puedas checar como voy, de nuevo mil gracias