07/06/2006, 08:20
|
 | | | Fecha de Ingreso: febrero-2006 Ubicación: Entre cuatro paredes
Mensajes: 693
Antigüedad: 18 años, 3 meses Puntos: 7 | |
Cita: Option Explicit
Dim Qry As String
Dim General As Recordset
Dim BasedeDatos As DataBase
Qry="SELECT Nicho_No FROM Tabla WHERE Nicho_No=" & Text1.Text & ""
Set General=BasedeDatos.OpenRecordset(Qry)
if not General.EOF Then
msgbox "Ya existe"
else
'Llama a tu función guardar
endif
__________________
Sí tienes alguna duda.... puedo ayudar a ampliarla.:-D |