| Usuario |
Comparar Cédulas |
Desconocido
|
| Enviado - 4/12/2002 |
| |
Cómo hago para comparar que si la cédula que introduzco por teclado y la que tengo en la base de datos son iguales, emita un mensaje de error:
Yo hago la comparación así pero no funciona, no la toma en cuenta:
if cedula.Text = datos.Fields("cedula") Then
MsgBox "Ésta cédula ya existe en la Base de Datos.", vbCritical, "ERROR"
GRACIAS A TODOS. |
| |
|
Desconocido
|
| Enviado - 9/12/2002 |
| |
Lo que podes hacer, como yo lo haria, es lo sig.
pongo la cedula nueva en un text1.text
y luego hago en un click de command
adodc1.recorsourse = "select * from TABLA where (cedula like '" & text1.text &"') "
adodc1.refresh
'con lo que llamo a la cedula que sea igual a la nueva
'y en un text2 lo conecto a la TABLA.cedula
if text2.text = "" then
'si no devuelve nada es que no existe esa cedula
msgbox "no existe cedula con ese N°"
else
msgbox "existe una cedula con ese N°"
espero te sirva =) |
| |
|
|
|
