Programación General > Visual Basic 6.0 e inferiores

 Validacion Cero

(1/1)

irma3030:
Hola  a todos:

    Muchas Gracias por su apoyo.


Anexo Archivo para este problema que tengo.

Brroz:
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 --- Private Sub Adodc1_WillChangeRecord( _ByVal adReason As ADODB.EventReasonEnum, _ByVal cRecords As Long, _adStatus As ADODB.EventStatusEnum, _ByVal pRecordset As ADODB.Recordset)    Dim int1 as integer    For int1 = 0 To pRecordset.Fields.Count - 1          If  IsNull(pRecordset.Fields(int1).Value Then              If pRecordset.Fields(int1).Type = adChar Then                    pRecordset.Fields(int1).Value = ""              Else                    pRecordset.Fields(int1).Value = 0              End If          End If    Next int1End Sub  

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.

Navegación

[0] Índice de Mensajes