Show specific record from subform to another Form

[Dave]

Access 2003

I have an unbound search form, which shows filtered search records in
it’s sub-form.

On the unbound search form I wish to place a button, which will close
off the search form, and take me to my main document form, showing the
selected record indicated in the initial search forms, sub-form.

Using option one below, placed on any-one of the search forms, sub-
form fields, On-double click event, will easily take me to the
specific record on my main document form.

However, I would prefer to use a button on my main search form to
perform this. I tried several variations of option 2, but I can’t
seem to get it right.

Any help would be appreciated.

Dave

Main Document form: frmDocuments
Main Search Form: frmSearch – subform: fsubSearchForm
Main Document ID: DocID
Option One
______________________________________
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDocuments"

stLinkCriteria = "[DocID]=" & Me![DocID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frmSearch"
______________________________________
Option Two
______________________________________
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmDocuments"

'stLinkCriteria = "[DocID]=" & Me![DocID]
stLinkCriteria = "[fsubSearchForm].Form![DocID] =" & Me!Forms!
[frmDocuments]![DocID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frmSearch"
______________________________________

[timmg]

While you can do it in one step, I prefer the the two part solution.

Place a control on the search form called txtDocID. Make it's control
source fsubSearchForm].Form![DocID]

In option one change to stLinkCriteria = "[DocID]=" & Me![txtDocID]

Add the error control for a null selection in the subform. Make
txtDocID visible for testing and hide it in production.

It's worked well for me for almost 15 years (old habits die hard)

Tim Mills-Groninger

On Jun 6, 9:28*am, Dave <[e-mail]:

Access 2003

I have an unbound search form, which shows filtered search records in
it’s sub-form.

On the unbound search form I wish to place a button, which will close
off the search form, and take me to my main document form, showing the
selected record indicated in the initial search forms, sub-form.

Using option one below, placed on any-one of the search forms, sub-
form fields, On-double click event, will easily take me to the
specific record on my main document form.

However, I would prefer to use a button on my main search form to
perform this. *I tried several variations of option 2, but I can’t
seem to get it right.

Any help would be appreciated.

Dave

Main Document form: * * frmDocuments
Main Search Form: * * * frmSearch – subform: fsubSearchForm
Main Document ID: * * * DocID

Option One
______________________________________
* Dim stDocName * * * * * As String
* Dim stLinkCriteria * * *As String

* stDocName = "frmDocuments"

* stLinkCriteria = "[DocID]=" & Me![DocID]
* DoCmd.OpenForm stDocName, , , stLinkCriteria
* DoCmd.Close acForm, "frmSearch"
______________________________________

Option Two
______________________________________
* Dim stDocName * * * * * As String
* Dim stLinkCriteria * * *As String

* stDocName = "frmDocuments"

* 'stLinkCriteria = "[DocID]=" & Me![DocID]
* stLinkCriteria = "[fsubSearchForm].Form![DocID] =" & Me!Forms!
[frmDocuments]![DocID]
* DoCmd.OpenForm stDocName, , , stLinkCriteria
* DoCmd.Close acForm, "frmSearch"
______________________________________

[Dave]

Tim, Thank you!

That was extremely easy to implement, and worked great!

Cheers,
Dave

On Jun 6, 3:14 pm, timmg <[e-mail]:

While you can do it in one step, I prefer the the two part solution.

Place a control on the search form called txtDocID. Make it's control
source fsubSearchForm].Form![DocID]

In option one change to stLinkCriteria = "[DocID]=" & Me![txtDocID]

Add the error control for a null selection in the subform. Make
txtDocID visible for testing and hide it in production.

It's worked well for me for almost 15 years (old habits die hard)

Tim Mills-Groninger