AW: [AccessD] Subform question

Hi Doris,

thanks for the code - it does exactly what I need!

Michael

-----Ursprüngliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von Mike and
Doris Manning
Gesendet: Freitag, 15. August 2003 22:59
An: 'Access Developers discussion and problem solving'
Betreff: RE: [AccessD] Subform question


Try this...

    Dim ItemName As String

    'Set the focus to cmdClose and get the subform's
    'current source object
    cmdClose.SetFocus
    ItemName = frmInfo.SourceObject

    'Change the form's view
    frmInfo.Visible = False
    frmInfo.SourceObject = ""

    DoCmd.Echo False
    DoCmd.OpenForm ItemName, acViewDesign
    Forms(ItemName).DefaultView = 2
    DoCmd.Close acForm, ItemName, acSaveYes
    DoCmd.Echo True

    'Redisplay the subform
    frmInfo.SourceObject = ItemName
    frmInfo.Visible = True

You would use similar code for FormView changing the default view to either
0 (Single Form) or 1 (Continuous Form).

Doris Manning
Database Administrator
Hargrove Inc.
www.hargroveinc.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Michael Brösdorf
Sent: Friday, August 15, 2003 3:59 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Subform question


Dear group,

is it possible to switch a subform from form view to datasheet view during
runtime of the main form? I tried changing me.sfrmList.form.currentview and
me.sfrmList.form.defaultview, but that seems to be working in design view
only.


TIA,

Michael

_______________________________________________
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