Error 94 al realizar un consulta con campos vacíos

Hola tengo este código que me ayuda a realizar una consulta entre vb6 y access pero pasa que cuando lo hago si me muestra los valores que extrae pero con el error de que hay campos vacíos. Como quito ese error .
Private Sub Command2_Click()
codigo = InputBox("Ingresa los datos que deseas buscar", "BUSCAR")
With tabla
If .BOF And .EOF Then
MsgBox " No existe ningun registro relacionado"
Else
.MoveFirst
End If
bandera = False
Do While Not .EOF
If codigo = !EMPLEADO Then
    Text1 = !id
    Text2 = !EMPLEADO
    Text3 = !TIPO_EQU
    Text4 = !NUM_SER
    Text5 = !DESCRIP
    Text6 = !MOD_MON
    Text7 = !MOD_MB
    Text8 = !MOD_PROC
    Text9 = !MEM_RAM
    Text14 = !MEM_DD
    Text12 = !SO_INST
    Text10 = !NOM_EQU
    Text13 = !OBS
    Text11 = !LIC_SO
    Text19 = !LOC_KBE
    DTPicker1 = !F_COMP
    DTPicker2 = !F_ASIG
    DTPicker3 = !F_ULTM
    Text15 = !OBS_A1
    Text16 = !OBS_A2
    Text17 = !OBS_A3
    Text21 = !OBS_A4
    Text20 = !OBS_M1
    bandera = True
    ElseIf codigo = !NUM_SER Then
    Text1 = !id
    Text2 = !EMPLEADO
    Text3 = !TIPO_EQU
    Text4 = !NUM_SER
    Text5 = !DESCRIP
    Text6 = !MOD_MON
    Text7 = !MOD_MB
    Text8 = !MOD_PROC
    Text9 = !MEM_RAM
    Text14 = !MEM_DD
    Text12 = !SO_INST
    Text10 = !NOM_EQU
    Text13 = !OBS
    Text11 = !LIC_SO
    Text19 = !LOC_KBE
    DTPicker1 = !F_COMP
    DTPicker2 = !F_ASIG
    DTPicker3 = !F_ULTM
    Text15 = !OBS_A1
    Text16 = !OBS_A2
    Text17 = !OBS_A3
    Text21 = !OBS_A4
    Text20 = !OBS_M1
    bandera = True
    End If
    .MoveNext
    Loop
        If bandera = False Then
    MsgBox " No se encontro el codigo buscado "
    End If
    End With
    End Sub

1 Respuesta

Respuesta
1
proba asi haber si te funciona text20 = empty & !obs_m1
sino la otra es if not isnull(text20) then text20 = !obs_m1
Hola Leandro.
Gracias me funciono de maravilla, y también gracias por la rápida respuesta.
Que tengas un excelente día.
Saludos
Karla

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas