SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: irma3030 en Martes 10 de Febrero de 2004, 20:19

Título: Validacion Cero
Publicado por: irma3030 en Martes 10 de Febrero de 2004, 20:19

Hola  a todos:

    Muchas Gracias por su apoyo.


Anexo Archivo para este problema que tengo.

Título: Re: Validacion Cero
Publicado por: Brroz en Miércoles 11 de Febrero de 2004, 10:47

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.