How to move a value form one Form to another ?

[1122385994484545]

In Form 1 I need to be able to press F1 where upon Form2 pops up. (In Form 2 I can search and stroll for records.) When I find the record I need I want to be able press Enter and then Form 2 closes and the ID of the record from Form 2 is inserted in Form 1.

If you know how to do this, please send the coding for the Event Procedure

JL

 

[thornmastr]

F1 is reserved for Help and you will not be able to do that. You do not give enough information about form 1 to make a determination if you should attach an even to a function key, or use a command button. You don’t give enough information about form 2, either. How do you know when you have found the record you want. On what control do you want to test for pressing enter. Certainly not on any control, and why pass ID which sounds like some kind of a key value which may not contain the information you really need or want. Moving information between forms is incredibly easy, to wit:

Forms!frm1.ID = forms!frm2.ID and you’ve done it. Assuming of course that both forms are active.
Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com

 

[rookiedev]

Is this of any help?

ACC: Using Code to Dynamically Synchronize Two Forms (95/97)
The information in this article applies to:
Microsoft Access for Windows 95 7.0
Microsoft Access 97
Microsoft Visual Basic for Applications

Summary
Advanced: Requires expert coding, interoperability, and multiuser skills.

This article shows you how to use Visual Basic for Applications to synchronize a form to the current record on the subform of another form. The method described in this article synchronizes the form's bookmark with the bookmark of the form's recordset after searching the recordset for the current key value from the other form's subform.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

NOTE: This article explains a technique demonstrated in the sample files, FrmSampl.exe (for Microsoft Access for Windows 95 version 7.0) and FrmSmp97.exe (for Microsoft Access 97). For information about how to obtain these sample files, please see the following articles in the Microsoft Knowledge Base:
Q150895 ACC95: Microsoft Access Sample Forms Available in Download Center

Q175066 ACC97: Microsoft Access 97 Sample Forms Available in Download Center
More Information
CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file, or perform these steps on a copy of the database.

The following example demonstrates how to synchronize the Products form to the current record in the Product List subform on the Categories form.


Open the sample database Northwind.mdb.
Open the Product List form in Design view.
Set the form's OnCurrent property to the following event procedure:
'**********************************************************
'Sub Form_Current()
'**********************************************************

'If the ProductName is blank, then exit the Sub.
If IsNull(Me![ProductName]) Then
Exit Sub
End If

'Dimension variables.
Dim formname As String, SyncCriteria As String
Dim f As Form, rs As Recordset

'Set the formname to "Products," the form that will be
'synchronized.
formname = "Products"

'Check to see if the Products form is open. If it
'is not open, open it.
If Not SysCmd(acSysCmdGetObjectState, acForm, formname) Then
DoCmd.OpenForm formname
End If

'Define the form object and Recordset object for
'the Products form.
Set f = Forms(formname)
Set rs = f.RecordsetClone

'Define the criteria used for the synchronization.
SyncCriteria = BuildCriteria("ProductName", dbText, _
Me!ProductName)

'Synchronize the corresponding record in the Products form to
'the current record in the subform.
rs.FindFirst SyncCriteria

'If a record exists in the Products form, find the
'matching record.
If rs.nomatch Then
MsgBox "No match exists!", 64, formname
Else
f.bookmark = rs.bookmark
End If

'**********************************************************
'End Sub
'**********************************************************
Save and then close the Product List form.
Open the Categories form in Form view. When you open the Categories form, the subform's OnCurrent event procedure is triggered. This causes the Products form to open, if it is not already open, and synchronizes that form to the current record on the Categories subform.
You can adapt this method to occur when a command button is clicked by moving the code specified in the subform's OnCurrent property event procedure to a command button on the Categories form. If you do move the code to a command button, make sure to change the references to "Me" in the code to a full form reference, using the following syntax:
Forms!Categories![Product List].Form
References
For more information about synchronizing forms with Microsoft Access 2.0, please see the following article in the Microsoft Knowledge Base:
Q119398 ACC2: Using Code to Dynamically Synchronize Two Forms
For more information about the SysCmd() function, search for "SysCmd Function" using the Microsoft Access 97 Help Index.

For more information about the Me property, search for "Me Property" using the Microsoft Access 97 Help Index.

RookieDev

 

[Guest_imported]

Thanks so far!

Which F-key is of course irrelevant, it can be any key for my sake.

Form 1 is a registration form where we registere members by Barcoding their member number to a text box.

In case they do not have their membership card we need to be able to search them in the membersform (Form 2). Here we have different search fields. When the member is found and highlighted and Enter is pressed the member number shall be transferred to the registration Text box.

It is probably a very simple coding I can not write it. Help would be greatly appriciated.

JL

 

[rookiedev]

If you want to send me what you are working on I'll try to help. It's kind of difficult without seeing it.
RookieDev