How to pass a field-value in one form to a field in another form.

[kobamfo]

Hello Guys,
I have two forms "in_lookup" and "in_main" and I have a field in "in_lookup" named "snl_lk" and a field in "in_main" named "snl_in".
I want a value entered in "snl_lk" in "in_lookup" form to automatically fill "snl_in" in "in_main" upon click of an "accept" button on "in_lookup" form, then a "cancel" button on the same form would simply close the "in_lookup" form.
Note that it is assumed that both forms are open by the user.

I am at my wit's end. please

[zmbd]

please post your code...
Remember to format it with the <CODE/> button.
there are at least 6 ways off the top of my head to do this and the best one depends on what you've already done.

[TheSmileyCoder]

I presume your lookup form is opened by the use of a button, or click somewhere. The important thing is that it is opened as a dialog.

Private Sub btn_LookupValue_Click()
  docmd.OpenForm "in_lookup",,,,,acDialog
End Sub

Now whenever the user has selected the value he/she wants, I again presume there is a button to close the form.

Private Sub btn_Close()
  'Hide the form, don't cloes it yet
  Me.Visible=False
End Sub

Now as the form is hidden, this causes control to return to the calling code. So we modify the the first bit of code I posted:

Private Sub btn_LookupValue_Click()
  docmd.OpenForm "in_lookup",,,,,acDialog
 
  'Note the following lines only execute AFTER the lookup form is set to not visible
  Me.snl_in=Forms("in_lookup")!snl_lk
 
  'Now that we have the value we no longer need the form, so close it
  Docmd.Close acForm,"in_lookup"
End Sub

As ZMBD correctly stated there are many many different ways to do this, and the correct approach depends on your EXACT requirements.

[NeoPa]

The code behind the [Accept] button could populate the control using references explained in Referring to Items on a Sub-Form.

Private Sub Accept_Click()
    Forms("in_main").snl_in = Me.snl_lk
End Sub

I leave you to determine how much sense this code makes, but I believe it answers the question as asked.

[kobamfo]

Good news!
TheSmileyCoder, I tried out your approach and NeoPa I also tried your straight to the point approach and all worked just as I wanted, but I guess I found a mid-point and here is the code:

Private Sub Accept_Click()
If IsNull(snc_dl.Value) Then
Dim Msg, Style, Title, MyString
Msg = "You have not entered a Serial Number for a Lookup"
Style = vbOK
Title = "Missing Data"
response = MsgBox(Msg, Style, Title)
If response = vbOK Then
    snc_dl.SetFocus
    End If
End If
If Not IsNull(snc_dl.Value) Then
    Forms("pre_entry").snc_pre = Me.snc_dl
    DoCmd.close acForm, "out_subform"
End If
End Sub

The code above is on the On_Click Event Procedure of the close button on the "sub-form" (out_subform) so to speak, even though its not really a sub form.
The out_subform actually performs a DlookUp based on an "snc_dl" value. The idea is that if the user is okay with the DlookUp result, they accept the "snc_dl" value which is passed on to a field named "snc_pre" in the "pre_entry" form. The main form so to speak. I hope I have been able to communicate my little idea. :-)
But I really appreciate your help by putting me in the right direction. Thanks!!!

[TheSmileyCoder]

Thats good to hear. Remember that most code posted are concept code, that does not take into account such issues as null/empty controls.

I myself have found it simpler to post concept code and leave it to the original poster to convert it to functional code. It tends to clutter up the message if I include too much info.

You have clearly taken the correct approach in not simply doing Copy/Paste, but trying to understand the concept, and then implement it with the proper checks. Looking forward to more posts from you.

Best of luck with your project.