Jag har en bilda som baserade på specifika critieriashows som, data i en lista boxas. Förmiddag som I önskar att använda en subform som en av criteirabeståndsdelarna. Några tankar? Nedanför är kodifiera: underFrame0_Click () för
Private som den dunkla strQueryen som String strQuery väljer för fall Frame0 för fall 1 = ”, VÄLJER [medlemskapdata] .ID, [medlemskapdata]. [Projektera känt], [medlemskapdata]. [Medlemskap numrerar], [medlemskapdata]. [Förnamn], [medlemskapdata]. [Efternamn], [medlemskapdata]. [Telefonnummer], [medlemskapdata]. [Medlemskaptyp], [medlemskapdata]. Bundsförvant [medlemskapdata]. Status FRÅN [medlemskapdata] VAR [medlemskaptyp] = strQueryen för fall 2 ”för fördels” ” = ”VÄLJER [medlemskapdata] .ID, [medlemskapdata]. [Projektera känt], [medlemskapdata]. [Medlemskap numrerar], [medlemskapdata]. [Förnamn], [medlemskapdata]. [Efternamn], [medlemskapdata]. [Telefonnummer], [medlemskapdata]. [Medlemskaptyp], [medlemskapdata]. Bundsförvant [medlemskapdata]. Status FRÅN [medlemskapdata] VAR [medlemskaptyp] = strQueryen för fall 3 ”för fördelsplus” ” = ”VÄLJER [medlemskapdata] .ID, [medlemskapdata]. [Projektera känt], [medlemskapdata]. [Medlemskap numrerar], [medlemskapdata]. [Förnamn], [medlemskapdata]. [Efternamn], [medlemskapdata]. [Telefonnummer], [medlemskapdata]. [Medlemskaptyp], [medlemskapdata]. Bundsförvant [medlemskapdata]. Status FRÅN [medlemskapdata] VAR [medlemskaptyp] = strQueryen för fall 4 ”för affärsfördels” ” = ”VÄLJER [medlemskapdata] .ID, [medlemskapdata]. [Projektera känt], [medlemskapdata]. [Medlemskap numrerar], [medlemskapdata]. [Förnamn], [medlemskapdata]. [Efternamn], [medlemskapdata]. [Telefonnummer], [medlemskapdata]. [Medlemskaptyp], [medlemskapdata]. Bundsförvant [medlemskapdata]. Status FRÅN [medlemskapdata] VAR status inte är ogiltig ”, avslutar för Select om strQueryen för txtMemNumb<>"" därefter = strQueryen &” OCH [medlemskap numrerar], = ”& txtMemNumb- & "" om strQueryen för cboProjectType<>"" därefter = strQueryen &” OCH [projektera typ], = ””& cboProjectType &”” ” för
den lstReport.RowSource- = för strQuery End Sub
I förmiddagen som önskar att befolka bundsförvanten automatiskt inom list.
" klar "
|