13/07/2006, 15:48
|
 | | | Fecha de Ingreso: febrero-2006 Ubicación: Entre cuatro paredes
Mensajes: 693
Antigüedad: 19 años Puntos: 7 | |
| Los valores de tipo integer no pueden quedar vacios, los de string si!!
Agrega esra función en un modulo:
Function Asigna_Dato_Num(DatoNum)
If IsNull(DatoNum) Then
Asigna_Dato_Num = Trim(0)
Else
On Error Resume Next
Asigna_Dato_Num = Trim(DatoNum)
If Trim(DatoNum) = "" Then
Asigna_Dato_Num = Trim(0)
End If
On Error GoTo 0
End If
End Function
Cuando encuentre un valor integer nulo, entonces llama a esta función para que agregue un valo "0", mas no "nulo", de esta manera:
Datos = Datos & Asigna_Dato_Numerico(TxtTB.Text) & ""
__________________
Sí tienes alguna duda.... puedo ayudar a ampliarla.:-D |