Vraag : DE VASTGESTELDE KLEUR VAN DE NADRUK EN VAN DE VERANDERING

Wat ik zou willen kunnen doen is wanneer een KNOOP van de OPTIE de kleurenveranderingen wordt geselecteerd zodat het aantoont dat het die is worden gebruikt. Het probleem met dit is dat het geen als erkent. De naam zoals „opt_*“ dan 'is het een commandbutton

Also hoe ik het krijg zodat ik de zelfde optieknoop aan re-run kan opnieuw selecteren het wanneer opnieuw vereist, momenteel ik een verschillende optie moet selecteren uitgezocht vereiste Subopt_FA_DEPOT_Click again.

Private die ik heb willen om kunnen houden herhalend deze optie
" 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:
van 
Private Subopt_FA_Created_Click ()
'Vraag ChangeBtnColor
    Ga FA_Created = InputBox („Y in voor langs Gecre�ërd aan Onderzoek? “, „Filter door Gecre�ërd in SAPIENS“)
    Als FA_Created = "" toen
            Sub van de uitgang
        Anders
                Selection.AutoFilter Gebied: =17, Criteria1: =FA_Created
                Waaier („A4“). Selecteer
    Beëindig als
Beëindig Sub

Privé Subopt_FA_Crew_Click ()
'Vraag ChangeBtnColor
    Ga FA_Crew = InputBox („een Achternaam langs aan in Onderzoek? “, „Filter door Naam“)
    Als FA_Crew = "" toen
            Sub van de uitgang
        Anders
                Selection.AutoFilter Gebied: =3, Criteria1: =FA_Crew
                Waaier („A4“). Selecteer
    Beëindig als
Beëindig Sub

Privé Subopt_FA_Depot_Click ()
'Vraag ChangeBtnColor
    Ga FA_Depot = InputBox („een Depot langs aan in Onderzoek? “, „Filter door DEPOT“)
    Als FA_Depot = "" toen
            Sub van de uitgang
        Anders
                Selection.AutoFilter Gebied: =1, Criteria1: =FA_Depot
                Waaier („A4“). Selecteer
    Beëindig als
Beëindig Sub

Privé Subopt_FA_Desig_Click ()
'Vraag ChangeBtnColor
    Ga FA_Desig = InputBox („een Benoeming langs aan in Onderzoek? “, „Filter door Benoeming“)
    Als FA_Desig = "" toen
            Sub van de uitgang
        Anders
                Selection.AutoFilter Gebied: =3, Criteria1: =FA_Desig
                Waaier („A4“). Selecteer
    Beëindig als
Beëindig Sub

Privé Subopt_FA_SN_Click ()
'Vraag ChangeBtnColor
    Ga FA_SN = InputBox („een Aantal van de Dienst langs aan in Onderzoek? “, „Filter door het Aantal van de Dienst“)
    Als FA_SN = "" toen
            Sub van de uitgang
        Anders
                Selection.AutoFilter Gebied: =2, Criteria1: =FA_SN
                Waaier („A4“). Selecteer
    Beëindig als
Beëindig Sub
Privé SubChangeBtnColor ()
'Sub van de uitgang

 Met frm_F_Absence.ActiveControl
 
Als. De naam zoals „opt_*“ dan 'is het een commandbutton
Als .BackColor = &H80000003 dan 'Lichtblauw het is
.BackColor = 'Verandering &H8000000D in standaardkleur
Anders
.BackColor = 'Verandering &H80000003 in Lichtblauw
Eind als
Eind als
 Eind met

Sub van het eind

Antwoord : DE VASTGESTELDE KLEUR VAN DE NADRUK EN VAN DE VERANDERING

    Hebt u reeds UCL en CUWL?   7.1.5 en hierboven voor het nieuwe verlenen van vergunningen.  I belive nadat u bevordert voegt u enkel het nieuwe vergunningsdossier toe en het zal dlu in het nieuwe systeem zo omzetten als u 500 ip telefoons hebt en dlu 3000 die ik het enkel terug naar 500 UCL/CUWL heb geloofd zou schakelen of hoe elke velen u kochten.  
     Als u smartnet hebt zou ik hen oproepen en zou zekere 100% vragen te zijn aangezien zijn nieuw en niet een echt vereiste tot 9.0 ik weet niet of zullen velen het doen. Hoewel zij a great deal bij het omzetten van DLU om mensen ertoe te brengen om over te schakelen hebben.
Andere oplossingen  
 
programming4us programming4us