Ich habe eine Form, die auf spezifischen critieria Erscheinendaten in einem Listenkasten gründete. Ich wünsche ein subform als eins der criteira Elemente benutzen. Irgendwelche Gedanken? Unter ist der Code:
Private VorFrame0_Click () verdunkeln strQuery, während String Fall 1 des Fall-Frame0 strQuery = „VORWÄHLEN [Mitgliedschafts-Daten] .ID vorwählen, [Mitgliedschafts-Daten]. [Projekt-Name], [Mitgliedschafts-Daten]. [Mitgliedschafts-Zahl], [Mitgliedschafts-Daten]. [Erster Vorname], [Mitgliedschafts-Daten]. [Nachname], [Mitgliedschafts-Daten]. [Telefonnummer], [Mitgliedschafts-Daten]. [Mitgliedschafts-Art], [Mitgliedschafts-Daten]. Teilnehmer, [Mitgliedschafts-Daten]. Status VON [Mitgliedschafts-Daten] WO [Mitgliedschafts-Art] = „Vorteil“ „ Fall 2 strQuery = „[Mitgliedschafts-Daten] .ID VORWÄHLEN, [Mitgliedschafts-Daten]. [Projekt-Name], [Mitgliedschafts-Daten]. [Mitgliedschafts-Zahl], [Mitgliedschafts-Daten]. [Erster Vorname], [Mitgliedschafts-Daten]. [Nachname], [Mitgliedschafts-Daten]. [Telefonnummer], [Mitgliedschafts-Daten]. [Mitgliedschafts-Art], [Mitgliedschafts-Daten]. Teilnehmer, [Mitgliedschafts-Daten]. Status VON [Mitgliedschafts-Daten] WO [Mitgliedschafts-Art] = „Vorteil plus“ „ Fall 3 strQuery = „[Mitgliedschafts-Daten] .ID VORWÄHLEN, [Mitgliedschafts-Daten]. [Projekt-Name], [Mitgliedschafts-Daten]. [Mitgliedschafts-Zahl], [Mitgliedschafts-Daten]. [Erster Vorname], [Mitgliedschafts-Daten]. [Nachname], [Mitgliedschafts-Daten]. [Telefonnummer], [Mitgliedschafts-Daten]. [Mitgliedschafts-Art], [Mitgliedschafts-Daten]. Teilnehmer, [Mitgliedschafts-Daten]. Status VON [Mitgliedschafts-Daten] WO [Mitgliedschafts-Art] = „Geschäfts-Vorteil“ „ Fall 4 strQuery = „[Mitgliedschafts-Daten] .ID VORWÄHLEN, [Mitgliedschafts-Daten]. [Projekt-Name], [Mitgliedschafts-Daten]. [Mitgliedschafts-Zahl], [Mitgliedschafts-Daten]. [Erster Vorname], [Mitgliedschafts-Daten]. [Nachname], [Mitgliedschafts-Daten]. [Telefonnummer], [Mitgliedschafts-Daten]. [Mitgliedschafts-Art], [Mitgliedschafts-Daten]. Teilnehmer, [Mitgliedschafts-Daten]. Status VON [Mitgliedschafts-Daten] WO Status nicht ungültiges „ Ende Select wenn txtMemNumb <> "" dann strQuery = strQuery u.“ UND [Mitgliedschafts-Zahl] = „u. txtMemNumb u. "" wenn cboProjectType <> "" dann strQuery = strQuery u.“ UND [Projekt-Art] = „„u. cboProjectType u.““ „
lstReport.RowSource = strQuery End Sub
I morgens wünschend Teilnehmer innerhalb des list. automatisch bevölkern ist
|