25/05/2007, 14:11
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 1 mes Puntos: 17 | |
| Re: Error 3021 No Hay Ningun Registro Activo
leyendo un poco mas tu codigo yo haria algo como....
Private Sub cmdañadir_Click()
'*mensaje = MsgBox("ESTÁ SEGURO DE REALIZAR ESTA ACCIÓN", vbYesNo + vbExclamation, "ATENCIÓN!!")
'*If mensaje = 6 Then
tbl.findfirst "mireferencia=" & txtmireferenca & " or
txtreferenciamapfre=" & txtreferenciamapfre
if not tbl.nomatch then (si se cumple existe)
mensaje=msgbox( "EL CAMPO MI REFERENCIA O REFERENCIA MAPFRE
SON UTILIZADOS POR UN ÚNICO CLIENTE", vbInformation, "ATENCIÓN")
else
'*sql = "INSERT INTO CLIENTES
(observaciones,telefono,mireferencia) VALUES ('" &
txtObservaciones.Text & "', '" & txtTelefono.Text & "','" &
txtMireferencia.Text & "')"
'*bdd.Execute (sql)
endif
endif |