Run-time error 3251

[alpine82]

I have a form that attempts to do a "driver" lookup, based on a Driver ID. I have an After-update procedure, with the code listed below. The problem I have is that after entering a value in the Driver ID field, I get a Run-time error 3251. Any suggestions? Thanks.

Private Sub DriverID_AfterUpdate()

'Declare DAO object variables

Dim ThisDB As Database
Dim DrvList As Recordset
Dim LookFor As String

If IsNull(Me!DriverID) Then
Exit Sub
End If

'If not blank, look it up.

Set ThisDB = CurrentDb()
Set DrvList = ThisDB.OpenRecordset("Employee/Drivers")
DrvList.Index = "PrimaryKey"
LookFor = Me![DriverID]
DrvList.Seek "=", LookFor

If DrvList.NoMatch Then
Beep
Else
Me![DriverName] = [DrvList]![Last]
End If
[DrvList].Close

End Sub

 

[Oldsoftboss]

Is the driver list in a table? If so create a form with the driver list as the record source and use the access wizard to create a combo box or list box. You will be able to adapt the code to siut your needs.

 

[Oldsoftboss]

The error says: Operation is not supported for this type of object.

Pat Hartman has code at this post http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=56722&highlight=error+list which will generate an access error list to assist in tracking down your errors.

 

[Oldsoftboss]

This code has been generated by the wizard:

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ProcedureID] = " & Str(Me![List15])
Me.Bookmark = rs.Bookmark

HTH
Dave

 

[alpine82]

Thanks!

Thanks, the combo box approach seems to work; now I'll just play with the code.