Question : ADP 2003 de MS Access using 2 boîtes combinées dépendantes mais erreur d'obtention

Bonjour, le

I ont essayé le code d'accès standard pour l'usage d'une boîte combinée dépendante. mais n'obtenant pas toute joie avec l'ADP à un DB de Mme SQL. Le projet d'ADP rapporte une erreur avec l'utilisation [des formes] ! [formexample] ! [combo2] aide du

Please ? class= de

Réponse : ADP 2003 de MS Access using 2 boîtes combinées dépendantes mais erreur d'obtention

Salut Bruj,

J'ai étudié le problème et ai découvert la nouvelle et étonnante chose pour moi. Jamais avant que j'aie fait face à une tâche où il y avait nécessaire pour employer Activecell.
J'ai constaté que quand nous assignons la formule à l'état de format, il est traduit comme si étant appliqué à l'Activecell. Ainsi si nous avons composé une formule pour la cellule gauche supérieure de la gamme de CF (supposant qu'elle a références relatives/absolues appropriées à augmenter sur la gamme) nous devons placer Activecell à la cellule gauche supérieure de la gamme de CF. La manière la plus facile de faire ceci est de choisir la gamme de CF. Ainsi vous aviez raison en général au sujet du choix.

J'espère que ce macro convient à vous.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 :

Workbook_Open secondaire privé () Faible lastRow en tant que longtemps Avec les feuilles de travail (« Sheet1 ») . SUPPRESSION de Cells.FormatConditions.Delete 'TOUT LE FORMATAGE de COND lastRow =. Rows.Count Avec. Gamme (« A3 : O » et lastRow) 'ONT PLACÉ l'objet de défaut, toutes les expressions commençant '« . » se rapportera à lui. Noter niché « avec » . Choisir 'pour placer ActiveCell au coin gauche supérieur de la gamme type de .FormatConditions.Add : =xlExpression, Formula1 : = " =COUNTIF ($E$3 : $E3, $E3) >1 " .FormatConditions (1).Interior.ColorIndex = 44 .FormatConditions (1).StopIfTrue = rectifient type de .FormatConditions.Add : =xlExpression, Formula1 : = " =COUNTIF ($E$3 : $E$ " et lastRow et « , $E3) >1 » .FormatConditions (2).Interior.ColorIndex = 37 type de .FormatConditions.Add : =xlExpression, Formula1 : = " =UPPER ($K2) = de "" """ OUI .FormatConditions (3).Interior.Color = ' rouge vbRed Extrémité avec Extrémité avec Sous-marin d'extrémité