Access(2003) - DataSheet - GoTo OR Open a record (form) in list?

[Karel & Access]

How do I select a record in either a DataSheet view OR on a Subform
and then
"GoTo" OR open the Formview of the selected record?
It Would be great IF:
-> right click (on record selector ie. 1st column)
(Dropdown Menu appears - Choices with:
-> "GoTo form view"? (of this ROW I right clicked on)

A List (Subform OR DataSheet) to pick where you wanted to go or view would
be great! but how?

I added a button to "OPEN FORM" and added criteria for selecting, but I got
a FILTERED view of ALL the records (from view) great! BUT
I wanted the one I choose in the DataSheet/Subform View ONLY!

 

[Tom Wickerath]

Hi Karel,

I added a button to "OPEN FORM" and added criteria for selecting, but I got
a FILTERED view of ALL the records (from view) great! BUT
I wanted the one I choose in the DataSheet/Subform View ONLY!

The problem is that your selected record loses focus as soon as you click on
the command button on your main form. Can you make do with double-clicking a
record in the subform instead? If yes, call a function in the subform's
class module in the double-click procedure for each textbox. You can find an
example, here:

http://home.comcast.net/~tutorme2/samples/Chap08QBF.zip

Your subform needs to include a field that uniquely identifies this record.


Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[lidcimc]

I'm trying to edit a record from a subform datasheet and feel like I'm so close to a solution but I have an error in the FinishInClause code (error 5). If I could share my database with someone and they could spot my flaw, I would be greatful!.

Can someone help?


Private Function FinishINClause(strTemp As String) As String
On Error GoTo ProcError

' Strip off trailing comma and add ")"
FinishINClause = Left$(strTemp, Len(strTemp) - 2) & ")"

ExitProc:
Exit Function
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in FinishINClause Function"
Resume ExitProc
End Function