Vraag : Ik heb glitch met een vorm en combodozen

Ik houd hebbend vreemde glitch sinds ik mijn vorm rond veranderde. Mijn oorspronkelijk gegevensbestand was al gebaseerd venster. Één van deze vensters was voor het filtreren van een pre-gemaakt rapport. Het rapport wordt gefiltreerd door 3 combovakjes. De eerste bevolkt de tweede, wat beurtelings het derde bevolkt en de filter toepast. Goed sinds ik het ontwerp veranderde en enkele wegen voor de codes uitgaf, stelden mijn combodozen zich na u terug uitgezocht van de derde en definitieve doos. Bijvoorbeeld, als u eerst aan de vorm van de rapportgenerator navigeert en het rapport selecteert, te filtreren zal wat, en de filter het de filter toepassen en zal dan alle dozen ontruimen. Dan, als u probeert om een verschillende filter toe te passen, na het selecteren van het 3de punt maakt het terugstellen van 3 combodozen aan de laatste keuzen u. Het zal dit blijven de hele tijd doen. Hieronder is de originele code alvorens ik het herontwierp en volgende is code I momenteel use.

           " codeBody " 
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:

           
          expliciete Option

Overheidsfunctie FieldType (TableName als Koord, Fieldname als Koord) als Geheel
    Schemerige strSQL als Koord, rs als DAO.Recordset
    
    'Wijs variabelen toe
        strSQL = „SELECTEER [“ & Fieldname & „] VAN [“ & TableName & „] WAAR Vals“
        strSQL = vervang (vervang (strSQL, „[[“, „[“), „]]“, „]“)
    
    Plaats rs = CurrentDb.OpenRecordset (strSQL, dbFailOnError)
    
    FieldType = rs. Gebieden (0). Type
    rs. Sluit
    Plaats rs = niets
    
Beëindig Functie

Privé SubbtnMainMenu_Click ()
Op Fout GoTo btnMainMenu_Click_Err

    DoCmd.OpenForm „Leiding“
    DoCmd.Close acForm, „ReportGen“

btnMainMenu_Click_Exit:
    Sub van de uitgang

btnMainMenu_Click_Err:
    MsgBox Error$
    Hervat btnMainMenu_Click_Exit

Beëindig Sub

Privé SubbtnMainMenu_MouseDown (Knoop als Geheel, Verschuiving als Geheel, X zoals Enig, Y zoals Enig)
Me.btnMainMenu.Visible = Vals
Me.btnMainMenu2.Visible = Waar
Sub van het eind

Privé SubbtnMainMenu_MouseUp (Knoop als Geheel, Verschuiving als Geheel, X zoals Enig, Y zoals Enig)
Me.btnMainMenu2.Visible = Vals
Me.btnMainMenu.Visible = Waar
Sub van het eind

Privé SubcboReport_Change ()
    Schemerige strReport als Koord
    
    'Wijs variabelen toe
        strReport = Me.cboReport.Value
    
    'Bevolkt cboField met opties op cboReport worden gebaseerd die.
        Me.cboField.RowSource = strReport
        Me.cboField.RowSourceType = de „Lijst van het Gebied“
        Me.cboField.Value = ""
        Me.cboFilter.Value = ""
        Me.Refresh
    
    'Deze verklaring vindt het geselecteerde punt in het combovakje en opent respectief
    'rapport in het subgebied van het Rapport.
        Als IsNull (cboReport.Value) toen
            Me.subReport.SourceObject = ""
        Anders
            Als cboReport.Value = „Werknemer“ toen
                Me.subReport.SourceObject = „Report.rptEmployee“
            Anders
                Me.subReport.SourceObject = „Report.rptInventory“
            Eind als
        Eind als
    
Sub van het eind

Privé SubcboField_Change ()
    Schemerige strReport als Koord, strField als Koord, strFilter als Koord

    'Wijs variabelen toe
        strReport = Me.cboReport.Value
        strField = Me.cboField.Value
        strFilter = „UITGEZOCHTE verschillend“ & „[“ & strReport & „]“ & „.“ & „[“ & strField & „]“ & „VAN“ & „[“ & strReport & „]“ & „; “
        
    'Bevolkt cboFilter met opties op cboReport worden gebaseerd die en cboField.
        Me.cboFilter.RowSourceType = „Lijst/Vraag“
        Me.cboFilter.RowSource = strFilter
        Me.cboFilter.Value = ""
        Me.Refresh
        
Sub van het eind

Privé SubcboFilter_Change ()
    Schemerige strFilter als Koord, strApply als Koord, strReport als Koord, strField als Koord
    Schemerige intFieldType als Koord
    'Wijs variabelen toe
        strReport = Me.cboReport.Value
        strField = Me.cboField.Value
        strFilter = Me.cboFilter.Value
        intFieldType = FieldType (strReport, strField)
    
    'Pas geselecteerde filter op subReport toe
        Selecteer Geval intFieldType
            Geval dbBigInt, dbBoolean, dbByte, dbNumeric dbDouble dbCurrency, dbDecimal, dbFloat, dbInteger, dbLong,
                 strApply = „[“ & strField & „] =“ & strFilter
            dbChar geval, dbText, dbMemo
                strApply = „[“ & strField & „] = """ & strFilter & """"
            Geval dbDate, dbTime
                strApply = „[“ & strField & „] = #“ & strFilter & „#“
            Geval anders
                MsgBox „Onverwacht gegevenstype =“ & intFieldType
                strApply = ""
        Uitgezocht eind

        Me.subReport.Report.Filter = strApply
        Me.subReport.Report.FilterOn = (strApply <> "")

Sub van het eind

           
         

           " codeBody " 
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

           
          expliciete Option

Overheidsfunctie FieldType (TableName als Koord, Fieldname als Koord) als Geheel
    Schemerige strSQL als Koord, rs als DAO.Recordset
    
    'Wijs variabelen toe
        strSQL = „SELECTEER [“ & Fieldname & „] VAN [“ & TableName & „] WAAR Vals“
        strSQL = vervang (vervang (strSQL, „[[“, „[“), „]]“, „]“)
    
    Plaats rs = CurrentDb.OpenRecordset (strSQL, dbFailOnError)
    
    FieldType = rs. Gebieden (0). Type
    rs. Sluit
    Plaats rs = niets
    
Beëindig Functie

Privé SubcboReport_Change ()
Schemerige strReport als Koord, strOpenReport als Koord
    'Wijs variabelen toe
strReport = „tbl“ & Me.cboReport.Value
strOpenReport = „Report.rpt“ & Me.cboReport.Value

    'Bevolkt cboField met opties op cboReport worden gebaseerd die.
        Me.cboField.RowSource = strReport
        Me.cboField.RowSourceType = de „Lijst van het Gebied“
        Me.cboField.Value = ""
        Me.cboFilter.Value = ""
        Vormen! frmMain.subMain.Form.subReport.SourceObject = strOpenReport

Sub van het eind

Privé SubcboField_Change ()
    Schemerige strReport als Koord, strField als Koord, strFilter1 als Koord

    'Wijs variabelen toe
        strReport = „tbl“ & Me.cboReport.Value
        strField = Me.cboField.Value
        strFilter1 = „UITGEZOCHTE verschillend“ & „[“ & strReport & „]“ & „.“ & „[“ & strField & „]“ & „VAN“ & „[“ & strReport & „]“ & „; “
        
    'Bevolkt cboFilter met opties op cboReport worden gebaseerd die en cboField.
        Me.cboFilter.RowSourceType = „Lijst/Vraag“
        Me.cboFilter.RowSource = strFilter1
        Me.cboFilter.Value = ""
Sub van het eind

Privé SubcboFilter_Change ()
    Schemerige strFilter als Koord, strApply als Koord, strField als Koord, strReport als Koord, intFieldType als Koord
    
    'Wijs variabelen toe
        strReport = „tbl“ & Me.cboReport.Value
        strField = Me.cboField.Value
        strFilter = Me.cboFilter.Value
        intFieldType = FieldType (strReport, strField)
    
    'Pas geselecteerde filter op subReport toe
        Selecteer Geval intFieldType
            Geval dbBigInt, dbBoolean, dbByte, dbNumeric dbDouble dbCurrency, dbDecimal, dbFloat, dbInteger, dbLong,
                 strApply = „[“ & strField & „] =“ & strFilter
            dbChar geval, dbText, dbMemo
                strApply = „[“ & strField & „] = """ & strFilter & """"
            Geval dbDate, dbTime
                strApply = „[“ & strField & „] = #“ & strFilter & „#“
            Geval anders
                MsgBox „Onverwacht gegevenstype =“ & intFieldType
                strApply = ""
        Uitgezocht eind
        Vormen! frmMain.subMain.Form.subReport.Report.Filter = strApply
        Vormen! frmMain.subMain.Form.subReport.Report.FilterOn = (strApply <> "")
Sub van het eind

Privé SubForm_Load ()
Vormen! frmMain.lblSubHeader.Caption = de „Generator van het Rapport“
Eind Sub
           
         

Related Oplossingen: van de Need met het filtreren van een rapport van een form

Antwoord : Ik heb glitch met een vorm en combodozen

1. Wat is de behoefte hoe dan ook aan de Belangrijkste vorm?
U kunt het dumpen, en alle verwijzingen veranderen naar het naar:
[subReport]. Report.use dit
2. Verplaats uw comboboxcodes naar de gebeurtenissen „After_Update“

Ik heb een herstelde steekproef vastgemaakt.

Nota's:
Dit „Rapport in een Vorm“ functionaliteit is nieuw in Acc2010, zal het fouten als werpen ik kreeg,
Zelfs als geopend in Acc07 (die vermoedelijk compatibel is)
Het zal niet bij allen in oudere versies werken.

Als u filtreert, dan open uw rapport van een separatemenu, (de standaardmanier waarop wordt dit gedaan, voor volledige verenigbaarheid) dit allen zal werken boete.
K.I.S.S
; -)

Met andere woorden, neig ik om vanaf het gebruiken van de nieuwe „functionaliteit van Gezoeven Gee“ te blijven tot ik volledig hoe het het werk begrijp.

Tot slot dit systeem kan het zijn omhoog beëindigen moeilijk te leiden (één menu, veelvoudige rapporten)
Aangezien u kunt worden verzocht om zich voor meer gebieden, en het complexere filtreren uit te breiden,
Opnieuw, is dit niet de standaardmanier om dit te doen.
Maar ik zal toestaan dat u in dit geval de werkgever bent.
; -)

Maar ja, was dit een interessante oefening.

; -)

JeffCoachman

Andere oplossingen

Somebody verzendt emialsvorm mijn hotmailrekening

een programma probeert om het volgende e-mailbericht uit uw naam te verzenden - de Levende post van Vensters

Kleine Statische IP Bedrijfs van de Server 2008 verandering

sharepoint stichting 2010 op met 32 bits?

Word 2003 die - met lijsten, rijen, en cellen werken

Navigeer aan de pagina van een specifiek punt op een gridview

Hyperlink die het diagram/de Tekening activeren

Apple iWeb - hoe te om HTML aan Schijf de website via FTP te publiceren te bewaren of?

sql - datumformaat

Het van een lus voorzien over de tellers van googlekaarten v3