Vraag : Het openen subform op opnemings van gegevenswijze

Deskundigen, versie

Short, probeer ik om een vorm met een subform op de wijze van de Opneming van gegevens te openen als er niet om het even welk beschikbaar gegeven is. Als hun gegeven is, dan correct open momenteel stelt de vorm. Nochtans, als hun niet om het even welk gegeven is, is de vorm volledig leeg zonder knopen of beschikbare tekstvakjes.

Long version

I am de Belangrijkste vorm die (frmMenu_DayClean_Main) openen de volgende code gebruiken:

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

When de vorm opent het codefragment die onder looppas in de gebeurtenis OnOpen voor Belangrijkste form.

I am subform op de wijze van de Opneming van gegevens proberen te openen.  Ik denk een opeenvolgingsprobleem hebben, maar de code niet zal lopen in subform als hun niet om het even welk gegeven is.

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

Private SubForm_Open (annuleer als Geheel)
    Verduister sSQL als Koord
    sSQL = „UITGEZOCHTE tblMenuDayClean.MenuDayCleanID VAN tblMenuDayClean WAAR (((tblMenuDayClean.MenuDayNo_Clean) = [Vormen]! [frmMenu_MAIN]! [txtDaySelect]) EN ((tblMenuDayClean.MenuCycleNo_Clean) = [Vormen]! [frmMAIN_STARTUP]! [cboCycleNo]) EN ((tblMenuDayClean.MenuSeasonNo_Clean) = [Vormen]! [frmMAIN_STARTUP]! [cboSeason]) EN ((tblMenuDayClean.MenuOrganizationNo_Clean) = [Vormen]! [frmMAIN_STARTUP]! [cboOrganization])); “
 
    Als IsNull ([MenuDayCleanID]) = Waar toen
        
       Me.frmMenu_DayClean_Sub.Form.DataEntry = Waar
         MsgBox „geen gegevens“
    Anders
         Me.frmMenu_DayClean_Sub.Form.DataEntry = Vals
         MsgBox „gegevens“
    Eind als
Sub van het eind

Antwoord : Het openen subform op opnemings van gegevenswijze

u kunt het verslagidentiteitskaart van de belangrijkste vorm ook toevoegen

privé subbtn_click ()

me.subformName.form.allowadditions=true 'niet zou kunnen worden vereist
me.subformName.form.dataentry=true

me.subformName.form. [Identiteitskaart] =me. [Identiteitskaart]

eind sub
Andere oplossingen  
 
programming4us programming4us