13/07/2007, 03:36
|
| | | Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años Puntos: 0 | |
| Mensaje error si registro no existe
hola!!! Tengo un pequeño problema en un formulario que elimina registros de la base de datos. Tengo un cuadro de texto y botones enviar y borrar
Quiero que me aparezca un mensaje de error cuando le doy a borrar y el texto a borrar en la base de datos no está. Lo que ocurre es que no se donde ponerlo porque donde lo haga no me sale lo que quiero.
El código del mensaje de error es este:
If ACCION2="Baja" and EMAIL <> RS2("EMAIL") then
TEXTO1="ERROR"
Dónde meto esta sentencia If??
Este es el código de dónde da la baja:
If CODIGO <> "" And DIRECCION <> "" Then
ElseIf ACCION1="Alta" Then
If Not Rs.Eof Then
TEXTO1="ERROR"
Else
Rs.AddNew
End IF
ElseIf ACCION2="Baja" Then
Rs.delete
Rs("I_SUSCRIPCION")=ID
RS("EMAIL")=EMAIL Rs.Update
End If
TEXTO1="BAJA HECHA CORRECTAMENTE"
End If
Else
TEXTO1="ACCIÓN DESCONOCIDA"
End If |