Vraag : MS-Access 2003 ADP gebruikend 2 afhankelijke combodozen maar krijgend fout

Hallo, heeft

I de standaardtoegangscode voor het gebruiken van een afhankelijke combodoos geprobeerd. maar krijgend geen vreugde met adp aan Mej. sql db. Het adp project meldt een fout met het gebruiken [vormen]! [formexample]! [combo2] hulp

Please?

Antwoord : MS-Access 2003 ADP gebruikend 2 afhankelijke combodozen maar krijgend fout

Hallo Bruj,

Ik bestudeerde het probleem en ontdekte nieuw en verbazend ding voor me. Nooit alvorens ik een taak heb ontmoet waar er noodzakelijk waren om Activecell te gebruiken.
Ik vond dat wanneer wij Formule aan de Voorwaarde van het Formaat toewijzen, het alsof is van toepassing geweest op Activecell vertaald is. Zo als wij een formule voor de hoogste linkercel van de waaier die hebben samengesteld van het CF veronderstelt (dat het juiste relatieve/absolute verwijzingen die over de waaier) heeft moeten worden uitgebreid wij moeten Activecell aan de hoogste linkercel van de waaier van het CF plaatsen. De gemakkelijkste manier om dit te doen is de waaier van het CF te selecteren. Zo was u juist in het algemeen over selectie.

Ik hoop dat deze macro voor u geschikt is.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Privé SubWorkbook_Open ()
Schemerige lastRow zoals lang
Met Aantekenvellen („Sheet1“)
    . Cells.FormatConditions.Delete  'SCHRAP AL het FORMATTEREN COND
    lastRow =. Rows.Count
    Met. Waaier („A3: O“ & lastRow)   'PLAATSTE standaardvoorwerp, alle uitdrukkingen die beginnen met
                                    '„.“ zal verwijzen naar het. Nota „wordt genesteld die met“
        . Selecteer                     'om ActiveCell aan hoogste linkerhoek van de waaier te plaatsen
        .FormatConditions.Add type: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
        .FormatConditions (1). Interior.ColorIndex = 44
        .FormatConditions (1) .StopIfTrue = Waar
        .FormatConditions.Add type: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & „, $E3) >1“
        .FormatConditions (2). Interior.ColorIndex = 37
        .FormatConditions.Add type: =xlExpression, Formula1: = " =UPPER ($K2) = "" JA """
        .FormatConditions (3). Interior.Color = vbRed    'Rood
    Eind met
Eind met
Sub van het eind
Andere oplossingen  
 
programming4us programming4us