Cómo comprobar es el valor nulo en la tabla?

Question

utilizando MS Access 2003

Cómo comprobar es valor nulo en la base de datos de acceso?

Mi código.

Public Function DateToString(dte As Date) As String
Dim d As String
Dim m As String
Dim y As String
d = Day(dte)
m = Month(dte)
y = Year(dte)
If Len(d) = 1 Then d = "0" & d
If Len(m) = 1 Then m = "0" & m
DateToString = y & m & d
End Function


Public Function StringToDate(txt As String) As Date
Dim dte As String
dte = Left(txt, 4) & "-" & Mid(txt, 5, 2) & "-" & Right(txt, 2)
StringToDate = CDate(dte)
End Function




sql1 = "CREATE TABLE MOI (PreDate varchar(50))"
sql2 = "INSERT INTO MOI values('" & StringToDate(rsCardEvent1.Fields("PreDate"))  "')"

A partir de la función anterior, quiero comprobar si no es nulo, mi código demás no es necesario.

¿Necesita VB 6.0 Código Ayuda?

Answer 1

Para comprobar para Null en un campo de conjunto de datos:

If IsNull(rs("colname")) Then 
  'Field contains a Null Value 
Else 
  'Field does 'not' contain a Null Value 
End If

Para comprobar la cadena nula o vacía:

If (txt & "") = "" Then 
  ' txt is Null or empty
End If

Answer 2

Si el artículo está viniendo en realidad es como una cadena, y luego hacer:

if not txt is vbNullString then
    ' code here
end if