[AccessD] Subform data disappears on addition

Thomas,

If I understand...you are using 2 forms and 1 subform...I'm assuming that 
frmAddPartAssy has no record source and is used as data entry...then the 
code below is used to populate the table that sfrmPartAssy gets its data 
from.

I also assume that when you say ">data in the subform disappears"...actually 
you mean that it never appears until you leave the form and come back?

If you step through the code 1 line at a time (F8)...does it actually give 
you the results you are looking for?

Thanks,

Mark A. Matte


>From: "Jim Hewson" <JHewson at karta.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Subform data disappears on addition
>Date: Tue, 20 Mar 2007 13:22:31 -0500
>
>Have you tried to requery the subform then refresh the main form?
>Don't requery the Assemblies form before requerying the subform.
>
>Jim
>jhewson at karta.com
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com 
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of ewaldt at gdls.com
>Sent: Tuesday, March 20, 2007 1:15 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Subform data disappears on addition
>
>No, it didn't make a difference. Thanks, though.
>
>Any other ideas, Dan or others?
>
>TIA.
>
>Thomas F. Ewald
>Stryker Mass Properties
>General Dynamics Land Systems
>
>------------------------------------------------------------
>Date: Tue, 20 Mar 2007 08:33:12 -0500
>From: "Dan Waters" <dwaters at usinternet.com>
>Subject: Re: [AccessD] Subform data disappears on addition
>To: "'Access Developers discussion and problem solving'"
>                  <accessd at databaseadvisors.com>
>Message-ID: <000901c76af4$4eac2ee0$0200a8c0 at danwaters>
>Content-Type: text/plain;                charset="us-ascii"
>
>Hi Tom,
>
>This is something you can try:
>
>Change the 2nd to last line of code to:
>
>[Forms].[frmassemblies].[sfrmPartAssy].Form.Requery
>
>
>
>Hope this helps calculating CG!
>Dan Waters
>
>-----Original Message-----
>Subject: [AccessD] Subform data disappears on addition
>
>I have a form (frmAssemblies) with a subform (sfrmPartAssy). The main form
>
>displays the main assembly table data (for one assembly), while the
>subform displays data from a query that combines the data from a parts
>(tblParts) table and the junction table (tblPartAssy) between the two,
>showing the applicable parts in the assembly shown in the main form.
>
>I have a button on the main form that adds parts to the assembly; below is
>
>the code.
>
>--------------------
>Private Sub cmdAdd_Click()
>Dim strSQL
>strSQL = "INSERT INTO tblPartAssy SELECT " & _
>     "[Forms]![frmAssemblies]![cboAssy] AS Assy, " & _
>     "[Forms]![frmAssemblies]![cboRev] AS Rev, " & _
>     "[Forms]![frmAddPartAssy]![cboPartNum] AS PartNum, " & _
>     "[Forms]![frmAddPartAssy]![txtQuantity] AS Qty, " & _
>     "[Forms]![frmAddPartAssy]![txtFindNum] AS FindNum;"
>
>DoCmd.SetWarnings False
>DoCmd.RunSQL (strSQL)
>DoCmd.SetWarnings True
>
>[Forms]![frmassemblies].Requery
>[Forms]![frmassemblies].[sfrmPartAssy].Requery
>[Forms]![frmassemblies].Refresh
>
>End Sub
>---------------------
>
>Anyway, the problem is that when I add a part to the assembly, all of the
>data in the subform disappears; if I then go to another assembly, and then
>
>return to the original one, the data reappears, along with the added part.
>
>This happens for all assemblies EXCEPT the first one in the tblASSSEMBLIES
>
>table.  I'm fuzzy on the requery/refresh thing, so I tend to overuse them,
>
>just to be safe. Perhaps I'm causing a problem with that?
>
>Since the data IS entered, the process does work, but having the subform's
>
>data disappear is a major irritation. Any suggestions on this would be
>appreciated.
>
>Thomas F. Ewald
>
>
>
>This is an e-mail from General Dynamics Land Systems. It is for the 
>intended recipient only and may contain confidential and privileged 
>information.  No one else may read, print, store, copy, forward or act in 
>reliance on it or its attachments.  If you are not the intended recipient, 
>please return this message to the sender and delete the message and any 
>attachments from your computer. Your cooperation is appreciated.
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

_________________________________________________________________
Get a FREE Web site, company branded e-mail and more from Microsoft Office 
Live! http://clk.atdmt.com/MRT/go/mcrssaub0050001411mrt/direct/01/