Pick list quey.

[dommales]

Hi,

I have the following code on a form:

Option Compare Database
Option Explicit
------------------------------------
Private Sub List0_AfterUpdate()
ShowRecord.Enabled = True

End Sub
--------------------------------------
Private Sub List0_DblClick(Cancel As Integer)

If Not IsNull(List0) Then
ShowRecord_Click
End If
End Sub
--------------------------------------
Private Sub ShowRecord_Click()
Dim rst As Recordset

Set rst = Forms!Test.RecordsetClone

rst.FindFirst "ID = " & List0

Forms!Test.Bookmark = rst.Bookmark

DoCmd.Close acForm, "GoToRecordDialog"

End Sub
------------------------------------


The error comes up with:

Compile error, Method or member data not found.

I have borrowed it off another comany database and it works fine in that one.

Thanks

Dom

 

[LonnieJohnson]

When this error comes up and you hit the DEBUG button. Which line of your code gets highligted?

B-)

Lonnie ljprodev@yahoo.com
ProDev, MS Access Applications

http://www.galaxymall.com/software/PRODEV

 

[dommales]

Oops Sorry,

The bit highlighted is

Private Sub ShowRecord_Click()

Thanks

 

[LonnieJohnson]

Sounds like ShowRecord should be a control on your form. Do you have a button or listbox with the name ShowRecord? It is possible that the database you borrowed this from had a control with this name. You copied the code but not the controls and their names.

Just a thought...

B-) ljprodev@yahoo.com
ProDev, MS Access Applications

http://www.galaxymall.com/software/PRODEV