Copy and Pasting between frm and Subfrm

[zashaikh]

Hello.

I have a button on a form (frmWebsites) that displays information about websites. frmWebsites opens in a dialogue when you click a button in a subform (frmSub Beta Information). When I click the "Close and Save" button on frmWebsites, I want Access to copy and paste the value from a field in frmWebsites to a field in frmSub Beta Information. (However, the frmSub Beta Information will not always be open. In that case, I do not want to copy and paste anything). I have used the codes below to help me achieve this.

Option Compare Database

Function IsFrmOpen(sFrmName As String) As Boolean
On Error GoTo Error_Handler
 
    If Application.CurrentProject.AllForms(sFrmName).IsLoaded = True Then
        IsFrmOpen = True
    Else
        IsFrmOpen = False
    End If
 
Error_Handler_Exit:
    On Error Resume Next
    Exit Function
 
Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: IsFrmOpen" & vbCrLf & "Error Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function

If IsFrmOpen("frmSub Beta Information") = True Then
    Forms![frmSub Beta Information].tblWebsiteID = Me.tblWebsiteID
    DoCmd.Save acForm, "frmWebsite Information"
    DoCmd.Close acForm, "frmWebsite Information"
Else
    DoCmd.Save acForm, "frmWebsite Information"
    DoCmd.Close acForm, "frmWebsite Information"
End If
End Sub

The problem I have is that the code above does not account for a SUBFORM. frmSub Beta Information is actually a subform in frmAlpha. If I have just frmSub Beta Information open, Access will copy and paste between forms. But this will not happen if I have frm Sub Beta Information open WITHIN frmAlpha.

Any thoughts?

[CJ_London]

see this link about how to refer to access objects

http://access.mvps.org/access/forms/frm0031.htm

[zashaikh]

Ive been to that website plenty of times. Either I dont understand it or it doesnt have what I need

[CJ_London]

focus on the bit in red

Not in these forms
To refer to a form property, like RecordSource
On Mainform	Me.Parent.Parent.RecordSource	Forms!Mainform.RecordSource
On Sub 1	Me.Parent.RecordSource	Forms!Mainform!Subform1.Form.RecordSource
On Sub 2	Me.RecordSource	Forms!Mainform!Subform1.Form!Subform2.Form.RecordS ource
To refer to a control
On Mainform	Me.Parent.Parent!ControlName	Forms!Mainform!ControlName
On Sub 1	Me.Parent!ControlName	Forms!Mainform!Subform1.Form!ControlName
On Sub 2	Me!ControlName	Forms!Mainform!Subform1.Form!Subform2.Form!Control Name