Select Case Statement

[Carly]

I am currently using the following Select Case Statement

Dim Id As String
Id = DLookup("signedoff", "Check")
    
Select Case Id

Case "X"

Me.RunMacro.SetFocus
    
Case Is <> "X"
        
MsgBox ("This vendor has not been signed off for the selected period.")
Me.Period.SetFocus
    
End Select

This errors out when the field 'signedoff' is null. What can I do to stop this happening.

The values of signedoff is either X or null

Regards
Carly

 

[Mile-O]

Id = Nz(DLookup("signedoff", "Check"))

 

[Carly]

Thanks for your help, this worked fine!

Regards
Carly