The following code works Ok, except where there are Null values in the Field. I then get a runtime error 94 - 'Invalid use of null'
I have added the following line to the offending code, but get another error message 424 'Object required':
Can anyone please suggest a workaround?
all suggestions and pointeres gratefully received.
I have added the following line to the offending code, but get another error message 424 'Object required':
Code:
And rsTempData!FlashTemp Is Not Null Then
Can anyone please suggest a workaround?
all suggestions and pointeres gratefully received.
Code:
Public Function funcTemp(strTxNumber As String) As Single
Dim rsTempData As ADODB.Recordset
Set rsTempData = New ADODB.Recordset
strSQL1 = "SELECT Temp FROM qryLatestTemp WHERE PlantNumber = " & Chr(34) & strTxNumber & Chr(34)
rsTempData.Open strSQL1, ThisDB, adOpenStatic, adLockReadOnly
If Not rsTempData.EOF And Not rsTempData.BOF <<<< ERROR HERE
funcTemp = rsTempData!Temp
Else
funcTemp = -999
End If
Set rsTempData = Nothing
End Function