• Martes 21 de Mayo de 2024, 04:59

Autor Tema:  Re: Campos de una BD con valores Null  (Leído 903 veces)

Mellileo

  • Miembro MUY activo
  • ***
  • Mensajes: 110
    • Ver Perfil
Re: Campos de una BD con valores Null
« en: Miércoles 30 de Abril de 2003, 22:01 »
0
Hola...

Tengo un problema con un código que debe cargar un registro de una BD de Access, pero el problema es que algunos de los campos del registro contienen valores Nulos (Null) y me generan un error.

Cómo hago para validar que si un campo tiene valor Null lo iguale a otra cosa?  :question:

Para mejor claridad anexo código.

lMutacionEstablecimientos = True
  mNulo = Null
  With frmPropietarios.datEstablecimientos.Recordset
    txtNit = .Fields("Nit")
    txtRazonSocial = .Fields("Razon_Social")
    txtDireccion = .Fields("Direccion")
    If .Fields("Grupo_Codigo") = Null Then
      txtGrupo = ""
    Else
      txtGrupo = .Fields("Grupo_Codigo")
    End If
    cmbUso.Text = .Fields("Uso")
    txtActividad = .Fields("Actividad")
    If .Fields("Observaciones") = mNulo Then
      txtObservaciones = ""
    Else
      txtObservaciones = .Fields("Observaciones")
    End If
    txtSolicitud = .Fields("Nro_Solicitud")
    txtFechaSolicitud = .Fields("Fecha_Solicitud")
    If .Fields("Nro_Respuesta") = Null Then
      txtRespuesta = ""
    Else
      txtRespuesta = .Fields("Nro_Respuesta")
    End If
    txtFechaRespuesta = .Fields("Fecha_Respuesta")
    frmPropietarios.datEstablecimientos.Recordset.Edit
  End With

Agradecería cualquier ayuda...

LEO!
Saludos...

Mellileo!!

J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Re: Campos de una BD con valores Null
« Respuesta #1 en: Jueves 1 de Mayo de 2003, 00:45 »
0
Por ejemplo puedes usar este truquito:

With frmPropietarios.datEstablecimientos.Recordset
txtNit = .Fields("Nit") & " "
txtRazonSocial = .Fields("Razon_Social") & " "
txtDireccion = .Fields("Direccion") & " "
If .Fields("Grupo_Codigo") = Null Then
txtGrupo = " " ' NO PONGAS "", SINO " "
Else
txtGrupo = .Fields("Grupo_Codigo")
End If
cmbUso.Text = .Fields("Uso") & " "
txtActividad = .Fields("Actividad") & " "
If .Fields("Observaciones") = mNulo Then
txtObservaciones = " " ? IDEM
Else
txtObservaciones = .Fields("Observaciones")
End If
txtSolicitud = .Fields("Nro_Solicitud") + 0 '(En los campos numéricos... Este sería de texto, así que:  & " ")

etc. etc.

En los campos de fecha puedes sustituir por Date si es nulo...

Saludos y que te sirva de solución

Majuhemo

  • Miembro activo
  • **
  • Mensajes: 85
    • Ver Perfil
Campos de una BD con valores Null
« Respuesta #2 en: Viernes 2 de Mayo de 2003, 16:46 »
0
Hola:
en ves de:

If .Fields("Grupo_Codigo") = Null Then
txtGrupo = ""
Else
txtGrupo = .Fields("Grupo_Codigo")
End If

que usas 5 lineas lo puedes hacer en 1:

txtGrupo = iif(IsNull(.Fields("Grupo_Codigo")),"",.Fields("Grupo_Codigo"))

Saludos;
Ruben Delgado A.
rudela@msn.com
Lima-Peru