Mostrar datos de un formulario a otro formulario

Reponse:
Creo que lo que necesitas es sincronizar dos formularios. El ejemplo esta basado en northwind.mdb que es la versión americana de neptuno.mdb:
1.- Formulario ProductsList basado en la tabla Products, Formato Formularios en continuo (también puede ser simple), se colocan solo los campos ProductName, QuantityPerUnit y UnitPrice. Digamos que este va a ser el sincronizador. Evento Al activar registro:
Private Sub Form_Current()
'si el ProductName esta en blanco, entonces 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
'ajustar el nombre del formulario que queremos sincronizar
FormName = "frmSyncForm2"
'Check para ver si está abierto frmSyncForm2. Y sino, abrirlo.
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
'Aquí usamos ProductName como campo para sincronizar, puede ser cualquier otro.
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
2.- Formulario frmSyncForm2, este será el sincronizado. Añadimos los mismos campos que en el otro formulario más algunos otros. En este solo nos aseguramos de que se intoduzca un nombre para el Producto y una rutina de error:
Private Sub Form_BeforeUpdate(Cancel As Integer)
' Display a message box that says that product name is required.
Dim strMsg As String, strTitle As String
Dim intStyle As Integer
If IsNull(Me![ProductName]) Then
strMsg = "You must enter a product name before you leave the record." ' Define message.
intStyle = vbOKOnly + vbInformation ' Define buttons.
strTitle = "Product Name Required" ' Define title.
MsgBox strMsg, intStyle, strTitle
DoCmd.CancelEvent
End If
End Sub
Private Sub Form_Error(DataErr As Integer, Response As Integer)
' Suppress Microsoft Access error message and display custom message
' in BeforeUpdate event of form if user attempts to leave
' record without entering a value in ProductName field.
Const conValueRequired = 3314
If DataErr = conValueRequired Then
Response = acDataErrContinue
End If
End Sub
NOTA: los dos formularios están basados en la tabla Products, aunque usando BuilCriteria no creo que haya problema en hacer la sincronización con tablas diferentes. Es posible que lo que busque sea más simple que lo que te he expuesto, en ese caso, ya sabes ... aunque ahí son la 1:26 pm aquí es hora de cenar.