Form Launch Problem

[paddon]

Hello,

I have a form which essentially just displays some data from a table "Contacts" in a datasheet view. This form is named "Contact List" and looks like follows:

 OwnersID  |   Info1   |   Info2   
555  |           |

I also have another form, "Contact Detail", which is a dialog form that displays all of the information from the Properties table in a nice easy to read/edit format. I would like to create a link such that when one clicks the ID number of a particular entry in the "Contact List" form it executes the "Contact Detail" form, showing the relevant record. For example if one were to click the 555 above the "Contact Details" form would launch and the record showing on that form is that which has the ID # 555.

Any thoughts as to how one might accomplish this best?



Thanks,
Paddon

[pbaldy]

This type of thing?

BaldyWeb wherecondition

[paddon]

pbaldy, thanks for the help... what I am trying to accomplish is exactly like that, however, I found a similar tutorial before and alas this one generates the same error. Both Forms use the same table, the primary key of which is known as "[OwnersID]".

I named the field that one clicks on the first form "ID". This field contains the primary key [OwnersID].

Here is the code I using:

Private Sub ID_Click()

Dim rs As Object
Dim lngBookmark As Long

'set a variable to the current record
lngBookmark = Me.ID
'open the new form
DoCmd.OpenForm "Contact Details"

'take it to the selected record
Set rs = Forms![Contact Details].RecordsetClone
rs.FindFirst "[OwnersID] = " & lngBookmark
Forms![Contact Details].Bookmark = rs.Bookmark

Set rs = Nothing

End Sub

The error I get after clicking is as follows:

The expression On Click you entered as the event property setting produced the following error: A problem occurred while Microsoft Access was communicating with the OLE Server or ActiveX Control.

* The expression may not result in the name of a macro, the name of a user defined function, or [Event Procedure]
* There may have been an error evaluating the function, event or macro.

When I click show help is says

This error occurs when an event has failed to run because Microsoft Office Access cannot evaluate the location of the logic for the event. For example, if the OnOpen property of a form is set to =[Field], this error occurs because Access expects a macro or event name to run when the event is fired.

Any ideas as to what might be causing this error?

Thanks,
Paddon

[pbaldy]

That treats OwnerID as a numeric field; is it? Can you post the db?

[paddon]

Yes absolutely. I only have dummy data in it at this point.

http://www.filehosting.org/file/deta...ase2_tmp.accdb

[pbaldy]

Will it post here, after compacting and zipping? I'd rather not register for another site.

[paddon]

Unfortunately it is 2.51MB. Try this link I don't think you'll need to sign up, you just need to wait 20 seconds.

http://www.4shared.com/file/5LKfvZVU..._Database.html

[pbaldy]

I think that form may have gotten corrupted or something. I threw together another and this code worked as expected:

Dim rs As Object
Dim lngBookmark As Long

'set a variable to the current record
lngBookmark = Me.OwnersID
'open the new form
DoCmd.OpenForm "Contact Details"

'take it to the selected record
Set rs = Forms![Contact Details].RecordsetClone
rs.FindFirst "[OwnersID] = " & lngBookmark
Forms![Contact Details].Bookmark = rs.Bookmark

Set rs = Nothing

[paddon]

pbaldy, you are right. I created the form from scratch again and it is working quite well now. I assumed it was my implementation of the code since I am not a great programmer.

Thanks so much for your help!

[pbaldy]

No problem, glad you got it sorted out. Sometimes a form just goes goofy like that, but not often.

[RuralGuy]

Do you want to go ahead and use the Thread tool and mark this thread as Solved? FYI: If you Compact and Repair *before* zipping a file you might be surprised how small the file really is.