Frage : Öffnung subform im Dateneingabemodus

Experten,

Short Version, versuche ich, eine Form mit einem subform im Dateneingabemodus zu öffnen, wenn es keine vorhandenen Daten gibt. Wenn ihre Daten sind, dann erschließen die Form z.Z. richtig. Jedoch wenn ihre keine Daten sind, ist die Form vollständig ohne die vorhandenen Knöpfe oder Textkästen leer.

Long version

I morgens die Hauptform (frmMenu_DayClean_Main) using den folgenden Code öffnend:

DoCmd.OpenForm „das frmMenu_DayClean_Main“, acNormal,“ [MenuDayNo_Clean] = „u. Me.txt DaySelect u.“ UND [MenuCycleNo_Clean] = „u. Me.txt CycleSelect u.“ UND [MenuSeasonNo_Clean] = „u. Me.txt SeasonSelect u.“ UND [MenuOrganizationNo_Clean] = „u. Me.txt OrganizationSelect

When die Form öffnen das Code-Stückchen unterhalb der Durchläufe im OnOpen Ereignis für das Hauptform.

I morgens versuchend, das subform im Dateneingabemodus zu öffnen.  Ich denke habe ein Reihenfolgenproblem, aber der Code tun läuft nicht in das subform, wenn ihre keine Daten sind.

Thanks, James
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private VorForm_Open (Löschen als ganze Zahl)
    Schwaches sSQL als Schnur
    sSQL = „AUSERWÄHLTES tblMenuDayClean.MenuDayCleanID VON tblMenuDayClean WO (((tblMenuDayClean.MenuDayNo_Clean) = [Formen]! [frmMenu_MAIN]! [txtDaySelect]) UND ((tblMenuDayClean.MenuCycleNo_Clean) = [Formen]! [frmMAIN_STARTUP]! [cboCycleNo]) UND ((tblMenuDayClean.MenuSeasonNo_Clean) = [Formen]! [frmMAIN_STARTUP]! [cboSeason]) UND ((tblMenuDayClean.MenuOrganizationNo_Clean) = [Formen]! [frmMAIN_STARTUP]! [cboOrganization])); “
 
    Wenn richten IsNull ([MenuDayCleanID]) = dann aus
        
       Me.frmMenu_DayClean_Sub.Form.DataEntry = richten aus
         MsgBox „keine Daten“
    Sonst
         Me.frmMenu_DayClean_Sub.Form.DataEntry = falsch
         MsgBox „Daten“
    Beenden wenn
Unterseeboot beenden

Antwort : Öffnung subform im Dateneingabemodus

Sie können die Hauptaufzeichnungsidentifikation der form auch addieren

privates Vorbtn_click ()

me.subformName.form.allowadditions=true 'konnte nicht erforderlich sein
me.subformName.form.dataentry=true

me.subformName.form. =me [Identifikation]. [Identifikation]

Endenunterseeboot
Weitere Lösungen  
 
programming4us programming4us