• Jueves 14 de Noviembre de 2024, 17:08

Autor Tema:  Validacion Cero  (Leído 842 veces)

irma3030

  • Nuevo Miembro
  • *
  • Mensajes: 17
    • Ver Perfil
Validacion Cero
« en: Martes 10 de Febrero de 2004, 20:19 »
0
Hola  a todos:

    Muchas Gracias por su apoyo.


Anexo Archivo para este problema que tengo.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Validacion Cero
« Respuesta #1 en: Miércoles 11 de Febrero de 2004, 10:47 »
0
Hola irma3030.

Yo escaparía de utilizar TextBox ligados a datos...
De todas formas puedes validar el valor de los campos del registro actual del recordset antes de que se actualice y hacer una pequeña triquiñuela:
Código: Text
  1.  
  2. Private Sub Adodc1_WillChangeRecord( _
  3. ByVal adReason As ADODB.EventReasonEnum, _
  4. ByVal cRecords As Long, _
  5. adStatus As ADODB.EventStatusEnum, _
  6. ByVal pRecordset As ADODB.Recordset)
  7.     Dim int1 as integer
  8.     For int1 = 0 To pRecordset.Fields.Count - 1
  9.           If  IsNull(pRecordset.Fields(int1).Value Then
  10.               If pRecordset.Fields(int1).Type = adChar Then
  11.                     pRecordset.Fields(int1).Value = ""
  12.               Else
  13.                     pRecordset.Fields(int1).Value = 0
  14.               End If
  15.           End If
  16.     Next int1
  17. End Sub
  18.  
  19.  


Otra posibilidad es que modifiques el diseño de las tablas para que admitan campos nulos y no sean requeridos (Requerido = No, Permitir longitud 0 = Sí")

Espero que te sirva.
Chao.