Creating continuous forms

**NeoPa** · Sep 23 '08, 10:40 PM

This is really quite unclear. Items are not introduced in any understandable order.

The best I can do with this is to provide a possibly helpful link on Referring to Items on a Sub-Form.

**bibek24** · Sep 25 '08, 12:57 PM

This was not really helpful.Let me explain the scenario more clearly.

Logging into my application brings me into frmMain where it displays certain cases.
Clicking on any particular case,"frmCase" is opened.
This form frmCase has many tabs among which "File Details" is one.
Clicking on "File Details" tab, a screen appears which has a "Comment Area" section inside which there is continuous form "fsubCaseDetail s".

I need to enter comments to the form "fsubCaseDetail s" through a form frmZoom.frmZoom will get open on clicking a button "Add Comments" which is present in frmCase.

What I need to do so that the comments entered in the frmZoom will get transferred to fsubcasedetails on clicking "save" button of frmZoom.

**FishVal** · Sep 25 '08, 01:45 PM

Hello, bibek.

You may read the similar threads:
Pop Up Form to Enter Data, then Close and Requery Main Form
Returning Data from Modal Form
make one form wait for another

Regards,
Fish

**NeoPa** · Sep 25 '08, 03:18 PM

Originally posted by bibek24

This was not really helpful.Let me explain the scenario more clearly.

That would be a good starting point yes.

Now, I get that when you say tab you're referring to a Page control, but would I be right in guessing that your "Comment Area" section refers to a SubForm control (as opposed to the form contained within it - see earlier link for details)?

fsubCaseDetails must be the name of a form which is displayed within the SubForm control in continuous mode. frmZoom is an independent form which is merely linked logically by code.

Can you please confirm this understanding, and possibly post the code you use ( The full procedure please) to open frmZoom.

**bibek24** · Oct 1 '08, 12:38 PM

What you have understood is perfectly correct.
Let me give you more inputs as well.

Here fsubCaseDetails (Row Source is a query) is a subform in frmCase.
The textbox in fsubCaseDetails is locked that means user doesn't have the ability to directly enter into it.

A user can only enter text to it if he/she clicks on "Add Comments" button (present in frmCase) which opens frmZoom(a zoom view to fsubCaseDetails ).
Anything entered in the frmZoom shoud get transfer and saved in fsubCaseDetails when the "Save" button of frmZoom is clicked.

After clicking Save, if the user wants to add some more comments then he/she has to click again the "Add Comments" button which would pop up the frmZoom and the text entered should get transfer to the 2nd row of fsubCaseDetails .
The problem is that after writing some text to frmZoom and clicking Save button,its not getting transfer to fsubCaseDetails .I might be missing some code in events of both of the forms such as open event,Activate event,Load event etc.

I need to know what code would solve my requirement.

**NeoPa** · Oct 1 '08, 01:11 PM

That is a lot clearer, but I would still like to see your code for this.

This means that I can see better what you already understand, and concentrate on the gaps.

**bibek24** · Oct 1 '08, 01:42 PM

Code for Save button in frmZoom:
=============== =========

Code:

txtEntered = Me.txtZoom.Value
Forms![frmCase]![fsubCaseDetail].Form![txtDetails] = txtEntered
DoCmd.Close acForm, Me.Name

where txtEntered is a global variable.

I am new to VB Access and need to know on a high level what all codes are required for my requirement.

**NeoPa** · Oct 2 '08, 12:43 PM

This code isn't perfect, but it's pretty adequate. If it's executed it should at least update your calling form with the latest data from frmZoom.

Is this not happening at all?

**NeoPa** · Oct 2 '08, 12:52 PM

Some better code, if you want to add data in to subsequent lines if frmZoom is repeated :

Code:

With Forms![frmCase].[fsubCaseDetail].Form
  .[txtDetails] = .[txtDetails] & vbCrLf & Me.txtZoom
End With
DoCmd.Close

This assumes txtDetails can expand to show multiple lines. I hope at this stage you're not referring to multiple records on your main form ([frmCase]), that would change the question entirely and to have left out explaining that would be, well, certainly not clever.

**bibek24** · Oct 3 '08, 07:14 AM

Hey I would just like to know what code would pass the text from frmZoom to fsubCaseDetails on clicking the "Save" button of frmZoom and after doing it ,the form should exit.

My code is not passing the value and not closing the form as well.

**FishVal** · Oct 3 '08, 07:38 AM

Originally posted by bibek24

Hey I would just like to know what code would pass the text from frmZoom to fsubCaseDetails on clicking the "Save" button of frmZoom and after doing it ,the form should exit.

My code is not passing the value and not closing the form as well.

Hi.

The code you've posted in msg #8 is expected to do something or at least fail with error message. If nothing happens, then I would like to ask:
- Do you have any error handling code?
- Are you sure the code runs?

Regards,
Fish.

**bibek24** · Oct 3 '08, 08:35 AM

Ya the code is showing the following error:
Access cann't find the field fsubCaseDetails reffered to in your expression.

Let me tell the you the existing scenario as well.
In the existing scenario the frmZoom is opened by double clicking the text box of fsubCaseDetails .
But in the TO-BE scenario the text box in the form fsubCaseDetails should be locked and the user should only add comments to it by clicking on "Add Comments" button which would open frmZoom.

Can we modify the following existing code and meet our requirement?
One more thing there is no code associated with the "Save" button of frmZoom which could ensure the value passing from it to fsubCaseDetails .
I think the data is also passed through the following code.I am not getting the code clearly.If you can explain it and find out a way, then it would be great.

Opening of frmZoom on double clicking the text box of fsubCaseDetails :
=============== =============== =============== ======

Code:

Private Sub txtCaseDetails_DblClick(Cancel As Integer)
   On Error Resume Next
   gfncZoomWindow (Me.NewRecord = False)
End Sub

Function to open Zoom window:
=============== ========

Code:

Function gfncZoomWindow(Optional blnLock As Boolean)
   'Open Zoom Window With Contents Of Active Text Box Control
   On Error Resume Next
   Dim frm As Form      'Active Form
   Dim strFormName As String
   Dim blnLockEdit As Boolean
   
   If Not IsMissing(blnLock) Then blnLockEdit = blnLock
   
   If IsError(Screen.ActiveForm) = False Then
      Set frm = Screen.ActiveForm
     
      If frm.ActiveControl.ControlType = acSubform Then
         If frm.ActiveControl.Form.ActiveControl.ControlType = acTextBox Then
            'Tack . At End To Denote Subform
            DoCmd.OpenForm "frmZoom", , , , IIf(blnLock = True, acFormReadOnly, acFormPropertySettings), acDialog, frm.Name & "."
         End If
      ElseIf frm.ActiveControl.ControlType = acTextBox Then
         DoCmd.OpenForm "frmZoom", , , , IIf(blnLock = True, acFormReadOnly, acFormPropertySettings), acDialog, frm.Name & "."
      End If
   End If
End Function

**FishVal** · Oct 3 '08, 08:54 AM

Ok.

That is half of the puzzle. Could you post all the code in [frmZoom] module?

**bibek24** · Oct 3 '08, 09:39 AM

Here it is:

Code:

Option Compare Database
Option Explicit

Dim mfrm As Form              'Active Form
Dim mblnCancel As Boolean     'Indicates Cancel Pressed

Private Sub cmdCancel_Click()
   On Error Resume Next
   DoCmd.SetWarnings False
   DoCmd.RunCommand acCmdUndo
   DoCmd.SetWarnings True
   mblnCancel = True
   DoCmd.Close acForm, Me.Name
End Sub

Private Sub cmdSave_Click()
   On Error GoTo Err_cmdSave_Click
   
   txtEntered = Me.txtZoom
   Forms.fsubCaseDetails.txtDetails = txtEntered
   DoCmd.Close acForm, Me.Name
   
Exit_cmdSave_Click:
   Exit Sub
Err_cmdSave_Click:
   MsgBox Error$, vbCritical, "Error: cmdSave_Click"
   Resume Exit_cmdSave_Click
End Sub


Private Sub Form_Open(Cancel As Integer)
   On Error GoTo Err_Form_Open
   Dim varOpenArg As Variant        'Value Of Open Argument
   Dim ctl As Control
   Dim lngAddHeight As Long         'Add Height Of Detail Section
   Dim lngPos As Long
      
   'Set Initial Height
   DoCmd.Restore
   DoCmd.RunCommand acCmdSizeToFitForm
   
   'Set Module Form Variable
   varOpenArg = Me.OpenArgs
   If Not IsNull(varOpenArg) Then
      If InStr(1, varOpenArg, ".") Then
         lngPos = InStr(1, varOpenArg, ".")
         If lngPos > 0 Then
            Set mfrm = Forms(Left(varOpenArg, lngPos - 1))
            Set mfrm = mfrm.ActiveControl.Form
         Else
            Set mfrm = Forms(varOpenArg)
         End If
      Else
         Set mfrm = Forms(varOpenArg)
      End If
      
      Me.txtZoom = mfrm.ActiveControl.Value
      
      'Set The Locked Property To Match The ActiveControl Locked Property
      If mfrm.ActiveControl.ControlType = acTextBox Then
         Me.txtZoom.Locked = mfrm.ActiveControl.Locked
      End If
      SendKeys "{F2}"
   End If
   
Exit_Form_Open:
   Exit Sub
Err_Form_Open:
   MsgBox Error$, vbCritical, "Error: Form_Open"
   Resume Exit_Form_Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
   On Error Resume Next
   If mblnCancel = False Then mfrm.ActiveControl.Value = Me.txtZoom
End Sub