No ingresar daros repetidos acces desde VB

[lokoman]

Justo como está debe de funcionar. El error de que NO COINCIDEN LOS TIPOS, es porque le estamos pasando datos de tipo diferente a como estan declarados en la base de datos...

Si DOCUMENTO es numerico, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO= " & strVALOR_DOCUMENTO , cnn, adOpenDynamic, adLockBatchOptimistic
 

Si especialidad es numerico, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD= " & strVALOR_ESPECIALIDAD & " AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' ", cnn, adOpenDynamic, adLockBatchOptimistic
 

Si ambos son numericos, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD= " & strVALOR_ESPECIALIDAD & " AND DOCUMENTO= " & strVALOR_DOCUMENTO , cnn, adOpenDynamic, adLockBatchOptimistic
 

Si ambos son caracter, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' ", cnn, adOpenDynamic, adLockBatchOptimistic
 

Como le cambiaste el (AND) por ( & ) el SELECT no es valido, no trae datos y por eso siempre entra en el ELSE que contiene la instruccion del INSERT.

Cuales son los datos que contiene el Combo1.text y el Text1.text?