Solved

Fill a field using another field from another form

Posted on 2012-04-13
5
332 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 119

Assisted Solution

by:Rey Obrero
Rey Obrero 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 119

Expert Comment

by:Rey Obrero
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

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

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

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

910 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now