Solved

Fill a field using another field from another form

Posted on 2012-04-13
5
333 Views
Last Modified: 2012-04-13
I have a data entry form.  One of the fields on the form needs to be selected from a predefined list.   I tried using a combobox to provide this but the list is too big.

Instead I created a search form that opens when the user clicks a command button next to the field on the data entry form.

When this new search form opens the user has the ability to search and select the record they want.   I need the ID selected to be passed back to the Data Entry form.

I have tried instantiating the search form as an oject using code below that is executed from the Data Entry form.

'----------------------------
Dim f As New Form_Search

f.Modal = True
f.Visible = True
 
If f.SelectedItem > 0 Then
'use  f.SelectedItem
End If

Set f = Nothing
'------------------------------------
The problem is that this code continues to run after f.visible = true.   What I really want is to hold the code until it is hidden so that I reference and use  f.selected item.

Any ideas?
0
Comment
Question by:lee_jd
  • 2
  • 2
5 Comments
 
LVL 120

Assisted Solution

by:Rey Obrero (Capricorn1)
Rey Obrero (Capricorn1) earned 250 total points
ID: 37842616
to halt the codes after opening a form, open the form in dialog or modal mode

docmd.openform "formx",,,,, acdialog

the code will halt and continue when you close the form formx
0
 
LVL 17

Accepted Solution

by:
Natchiket earned 250 total points
ID: 37842694
hi lee

An effective technique is to use the OpenForm method with the WindowMode set to acDialogue, this will suspend the calling code from running.

In the seach form once the user has selected an ID, run Me.Visible = False .. this will allow the calling code to to carry on

You then test for the presence of the search form in the calling code using syscmd e,g,

If syscmd(acSysCmdGetObjectState,acForm,"Search")=acObjStateOpen Then
    'if we go here we know that search form is open so retrieve ID
    ID = Forms!Search!Whateverfield
    DoCmd.Close, acForm, "Search"
Else
     ' if we go here the form was already closed by the user without specifying anything...
End IF
0
 
LVL 2

Author Closing Comment

by:lee_jd
ID: 37842899
Search form
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 37842978
just wondering, how you can run codes from anywhere, when a form was open in dialog mode.
0
 
LVL 17

Expert Comment

by:Natchiket
ID: 37843013
if the dialog form sets its own visible propery to false it is no longer 'dialog' and the calling code will resume, at whch point it can retrieve stuff from the hidden form
0

Featured Post

Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The first two articles in this short series — Using a Criteria Form to Filter Records (http://www.experts-exchange.com/A_6069.html) and Building a Custom Filter (http://www.experts-exchange.com/A_6070.html) — discuss in some detail how a form can be…
Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question