Error 94 en tiempo de ejecucion Buenas noches me sale este error en el codigo, se que el valor es null pero como hago para que aunque sea nulo avance y ese valor no se guarde? aqui les dejo mi codigo
Private Sub List1_Click()
HD.MoveFirst
While Not HD.EOF
If Text10.Text = HD!id Then
If HD!lunes = True Then
Frame3.Visible = False
Frame4.Visible = True
Label15.Caption = lunes.Caption
Label15.Visible = True
A_L.Visible = True
Else
Label16.Visible = False
lbl16_2.Visible = False
lbl16_3.Visible = False
lbl16_4.Visible = False
End If
If HD!martes = True Then
Frame3.Visible = False
Frame4.Visible = True
Label17.Caption = martes.Caption
Label17.Visible = True
A_M.Visible = True
Else
Label18.Visible = False
lbl18_2.Visible = False
lbl18_3.Visible = False
lbl18_4.Visible = False
End If
If HD!miercoles = True Then
Frame3.Visible = False
Frame4.Visible = True
Label19.Caption = miercoles.Caption
Label19.Visible = True
A_MI.Visible = True
Else
Label20.Visible = False
lbl20_2.Visible = False
lbl20_3.Visible = False
lbl20_4.Visible = False
End If
If HD!jueves = True Then
Frame3.Visible = False
Frame4.Visible = True
Label21.Caption = jueves.Caption
Label21.Visible = True
A_J.Visible = True
Else
Label22.Visible = False
lbl22_2.Visible = False
lbl22_3.Visible = False
lbl22_4.Visible = False
Label21.Visible = False
Label22.Enabled = False
End If
If HD!viernes = True Then
Frame3.Visible = False
Frame4.Visible = True
Label23.Caption = viernes.Caption
Label23.Visible = True
A_V.Visible = True
Else
Label24.Visible = False
lbl24_2.Visible = False
lbl24_3.Visible = False
lbl24_4.Visible = False
End If
If HD!sabado = True Then
Frame3.Visible = False
Frame4.Visible = True
Label25.Caption = sabado.Caption
Label25.Visible = True
A_S.Visible = True
Else
Label26.Visible = False
lbl26_2.Visible = False
lbl26_3.Visible = False
lbl26_4.Visible = False
Label26.Enabled = False
End If
If HD!domingo = True Then
Frame3.Visible = False
Frame4.Visible = True
Label27.Caption = domingo.Caption
Label27.Visible = True
A_D.Visible = True
Else
Label28.Visible = False
lbl28_2.Visible = False
lbl28_3.Visible = False
lbl28_4.Visible = False
End If
End If
HD.MoveNext
Wend
Text10.Text = List1.Text
DP.MoveFirst
While Not DP.EOF
If Text10.Text = DP!id Then
Frame1.Visible = True
Label3.Caption = DP!nombre
Label5.Caption = DP!puesto
'Frame4.Visible = True
End If
DP.MoveNext
Wend
HH.MoveFirst
While Not HH.EOF
If Text10.Text = HH!id Then
Label16.Caption = HH!l_e
lbl16_2.Visible = True
lbl16_2.Caption = HH!l_s
lbl16_3.Visible = True
lbl16_3.Caption = HH!l_ds
lbl16_4.Visible = True
lbl16_4.Caption = HH!l_de
Label16.Visible = True
Label18.Caption = HH!m_e
lbl18_2.Visible = True
lbl18_2.Caption = HH!m_s
lbl18_3.Visible = True
lbl18_3.Caption = HH!m_ds
lbl18_4.Visible = True
lbl18_4.Caption = HH!m_de
Label18.Visible = True
Label20.Caption = HH!mi_e
lbl20_2.Visible = True
lbl20_2.Caption = HH!mi_s
lbl20_3.Visible = True
lbl20_3.Caption = HH!mi_ds
lbl20_4.Visible = True
lbl20_4.Caption = HH!mi_de
Label20.Visible = True
Label22.Caption = HH!j_e
lbl22_2.Visible = True
lbl22_2.Caption = HH!j_s
lbl22_3.Visible = True
lbl22_3.Caption = HH!j_ds
lbl22_4.Visible = True
lbl22_4.Caption = HH!j_de
Label22.Visible = True
Label24.Caption = HH!v_e
lbl24_2.Visible = True
lbl24_2.Caption = HH!v_s
lbl24_3.Visible = True
lbl24_3.Caption = HH!v_ds
lbl24_4.Visible = True
lbl24_4.Caption = HH!v_de
Label24.Visible = True
Label26.Caption = HH!s_e
lbl26_2.Visible = True
lbl26_2.Caption = HH!s_s
lbl26_3.Visible = True
lbl26_3.Caption = HH!s_ds
lbl26_4.Visible = True
lbl26_4.Caption = HH!s_de
Label26.Visible = True
Label28.Caption = HH!d_e
lbl28_2.Visible = True
lbl28_2.Caption = HH!d_s
lbl28_3.Visible = True
lbl28_3.Caption = HH!d_ds
lbl28_4.Visible = True
lbl28_4.Caption = HH!d_de
Label28.Visible = True
End If
HH.MoveNext
Wend
If Frame4.Visible = False Then
x.Visible = True
End If
a1.Visible = False
A2.Visible = False
A3.Visible = False
A4.Visible = False
A5.Visible = False
A6.Visible = False
A7.Visible = False
CMDINGRESAR.Visible = True
End Sub
