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
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 de Roberto Alvarado
1