error handeling - beating null records...

[s0rtd]

hey guys, i am building some error handeling into my project and am wondering why this isnt working i have tried it 2 ways, this is the first:

If rst![Scheduled for] = Null Then
        GoTo NullRecord
        SkippedRecords = SkippedRecords + 1
    Else
        StartDate = rst![Scheduled for]
    End If
    
    If rst![Expected Finish Date] = Null Then
        GoTo NullRecord
        SkippedRecords = SkippedRecords + 1
    Else
        EndDate = rst![Expected Finish Date]
    End If
    
    If rst![Committed Start Time] = Null Then
        GoTo NullRecord
        SkippedRecords = SkippedRecords + 1
    Else
        StartTime = rst![Committed Start Time]
    End If
    
    If rst![Expected Finish Time] = Null Then
        GoTo NullRecord
        SkippedRecords = SkippedRecords + 1
    Else
        EndTime = rst![Expected Finish Time]
    End If

I know that the value for EndDate in the first record is blank (nothing there), when this code runs i get an error : Invalid use of null and it stops on this line

 Else
        EndDate = rst![Expected Finish Date]
    End If

i have tried changing the if statements to say this instead:

If rst![Expected Finish Time] = "" Then

- "" instead of Null

but still no luck.

i have also use this code instead, which is a lot smaller:

For Each fld In rst.Fields
         If fld.Value = Null Then
            MsgBox "null record"
        Else
        End If
            
         Debug.Print fld.Value & ";";
      Next
      Debug.Print

but still, the problem persists...

any ideas are much appreciated

cheer
Jurgen

 

[mrabrams2]

For Each fld In rst.Fields
If fld.Value = Null Then
MsgBox "null record"
Else
End If

Debug.Print fld.Value & ";";
Next
Debug.Print

How about:

For Each fld In rst.Fields
If IsNull(fld.Value) Then
MsgBox "null record"
Else
End If

Debug.Print fld.Value & ";";
Next
Debug.Print

 

[Opengrave]

Look up help info on ISNULL. Try

if isnull(rst![Scheduled for]) = true then
else
end if

There may be better ways but the only way I've found to successfully deal with nulls is ISNULL.

 

[s0rtd]

cheers guys, this worked sweet!!

one more thing to remember for future

 

[mrabrams2]

I must have used invisible ink yesterday.