[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Fill a field using another field from another form

Posted on 2012-04-13
5
Medium Priority
?
345 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 1000 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 1000 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

NEW Veeam Backup for Microsoft Office 365 1.5

With Office 365, it’s your data and your responsibility to protect it. NEW Veeam Backup for Microsoft Office 365 eliminates the risk of losing access to your Office 365 data.

Question has a verified solution.

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

We live in a world of interfaces like the one in the title picture. VBA also allows to use interfaces which offers a lot of possibilities. This article describes how to use interfaces in VBA and how to work around their bugs.
In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses

830 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