Hi
I am stuck with this BOF problem
Here is my code:
Public Sub Redeploy()
Dim lngPin As Long
Dim rst As DAO.Recordset
Dim sql As String
PIN_SerialNumber.SetFocus
lngPin = PIN_SerialNumber.Text
sql = "Select PIN_SerialNumber, AssetStatusID from BlackBerryRecord where PIN_SerialNumber = " & lngPin
Set rst = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
If rst.NoMatch = False Then
If rst!AssetStatusID = 1 Then
MsgBox "There is an active record with the same PIN. Please enter another PIN"
PIN_SerialNumber = Null
blnOk = False
Else
rst.Edit
rst!AssetStatusID = 8
rst.Update
Set rst = Nothing
blnOk = True
End If
Else
Exit Sub
End If
End Sub
Well, when I run it and there is no match for PIN_SerialNumber, the rst.NoMatch = False...WHY? Shouldn't it be true?
And then it just gives me a error "NO CURRENT RECORD"
PLease help
Thanks