Error VB 6

Espero que me pueda ayudar con este problema que tengo.
Al tratar de traer datos de access a un textbox (multiline=true) me aparece Error '94' en tiempo de ejecución uso no válido del null y no se que hacer porque los otros datos los muestra sin ningún problema y en la base de datos no esta como campo requerido.
Public Sub Display()
If Rec.EOF Then
    cmdNuevo_Click
Else
    Label1.Caption = Rec!NO
    txtValor.Text = FormatCurrency(Rec!VALORANTICIPO)
    txtDirigido.Text = Rec!ANTICIPODIRIGIDOA
    txtObra.Text = Rec!OBRA
    DTPicker1.Value = Rec!FECHA
    txtObservaciones.Text = Rec!OBSERVACIONES
    If Rec!TIPOANTICIPO = "CHEQUE" Then
        optCheque.Value = True
        txtCheque.Text = Rec!NOCHEQUE
        txtEgreso.Text = Rec!NOEGRESO
    ElseIf Rec!TIPOANTICIPO = "EFECTIVO" Then
        optEfectivo.Value = True
    ElseIf Rec!TIPOANTICIPO = "CONSIGNACION" Then
        optConsignacion.Value = True
    Else
        optTransferencia.Value = True
    End If
    Do While Rec2.EOF = False
        cboObra.AddItem Rec2(1).Value
        Combo1.AddItem Rec2(1).Value
        Rec2.MoveNext
    Loop
    Do While Rec3.EOF = False
        cboAnticipoDirigidiA.AddItem Rec3(1).Value
        Rec3.MoveNext
    Loop
End If
End Sub

1 Respuesta

Respuesta
1
Lo que sucede es que algún campo viene con valor Nulo, para evitar este error, lo que se hace es asignar una cadena de longitud cero al control y luego si asignas el campo de la base de datos.
Seria algo como:
txtCheque.Text = "" & Rec!NOCHEQUE

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas